Separate placement spot from placement type

2021-11-02 21:12:11 +00:00
parent 59f43a3602
commit 0b058674ea
16 changed files with 77 additions and 85 deletions
@@ -42,7 +42,7 @@ litCorridor90 = do
            ]
        , _rmPS    = 
            [ sPS (V2 20 (h-5)) 0     putLamp
-            , mountLightI 70 (V2 0 (0.4*h)) (V2 40 (0.4*h))
+            , spanLightI 70 (V2 0 (0.4*h)) (V2 40 (0.4*h))
            , windowLine (V2 0 (h-20)) (V2 40 (h-20))
            , sPS (V2 (-50) (h-85)) 0   putLamp
            , windowLine (V2 (-40) (h-60)) (V2 (-40) (h-100))
@@ -75,6 +75,6 @@ blockedCorridor = do
    let plmnts = 
            [sPS (V2 20 40) r $ PutBlock [5,5,5] (V4 (150/256) ( 75/256)  0 ( 250/256)) 
                                          $ reverse $ rectNSWE 10 (-10) (-10) 10
-            ,mountLightI 55 (V2 0 15) (V2 40 15)
+            ,spanLightI 55 (V2 0 15) (V2 40 15)
            ]
    sequence $ treeFromPost [] $ return $ Right $ set rmPS plmnts corridor