Prop reification/splitting

2022-07-24 13:45:05 +01:00
parent 5a2f529182
commit ac069d08f6
31 changed files with 585 additions and 458 deletions
@@ -0,0 +1,13 @@
+module Dodge.PrWdLsLs
+    where
+import Dodge.WdP2f
+import Geometry.Vector3D
+import Dodge.Data
+import Control.Lens
+
+doPrWdLsLs :: PrWdLsLs  -> Prop -> World -> LightSource -> LightSource
+doPrWdLsLs x = case x of
+    PrWdLsId -> \_ _ -> id 
+    PrWdLsSetPosition y off -> \_ w 
+        -> lsParam . lsPos .~ addZ 0 (fst (doWdP2f y w)) +.+.+ rotate3z (snd (doWdP2f y w)) off
+    PrWdLsSetColor c -> \_ _ -> lsParam . lsCol .~ c