Cleanup

2024-11-26 13:19:03 +00:00
parent cc302a6846
commit 029c61efc8
13 changed files with 8 additions and 82 deletions
@@ -217,6 +217,5 @@ placeMachineWalls wl col poly mcid wlid = flip (foldr f) $ zip [wlid ..] $ loopP
 mvLS :: Point3 -> Float -> LightSource -> LightSource
 mvLS (V3 x y z) rot ls =
    ls & lsParam . lsPos .~ V3 x y z +.+.+ startPos
-        & lsDir .~ rot
  where
    startPos = onXY (rotateV rot) $ _lsPos (_lsParam ls)