Add missing file, workaround for placement positions bug

2022-03-08 07:59:36 +00:00
parent 79b5241c32
commit 59e6f433ff
16 changed files with 67 additions and 86 deletions
@@ -21,6 +21,7 @@ mntLSOn
    -> LightSource -> Point2 -> Point3 -> (Placement -> Maybe Placement) -> Placement
 mntLSOn shapeF mcol ls wallp lsp@(V3 lx ly _)
    = ps0jPushPS (PutShape . setCol $ shapeF wallp lsp)
+    -- = ps0j (PutShape . setCol $ shapeF wallp lsp)
    . pt0 (PutLS $ ls & lsParam . lsPos .~ lsp')
  where
    lsp' = lsp -.-.- V3 x y 1