Start simplifying Prop

2025-10-25 13:05:14 +01:00
parent 0da3816664
commit 5fce0772f8
6 changed files with 52 additions and 76 deletions
@@ -49,7 +49,6 @@ moveLSThen ::
    Placement
 moveLSThen posf off sh = propLSThen (PropUpdatePosition posf) (PrWdLsSetPosition posf off) thels theprop
  where
-    --lsupdate _ w = lsParam . lsPos .~ addZ 0 (fst (posf w)) +.+.+ rotate3z (snd (posf w)) off
    thels = LS 0 $ LSParam 0 200 0.6
    theprop =
        ShapeProp
@@ -58,7 +57,7 @@ moveLSThen posf off sh = propLSThen (PropUpdatePosition posf) (PrWdLsSetPosition
            , _prRot = 0
            , _prUpdate = PropUpdateId
            , --, _prDraw = PropDrawSPic $ noPic $ uncurryV translateSHf (_prPos pr) $ rotateSH (_pjRot pr) sh
-              _prDraw = PropDrawFlatTranslate $ PropDrawSPic $ noPic sh
+              _prDraw = PropDrawFlatTranslate $ noPic sh
            , _prToggle = True
            }