Bloom lamps, commit before unifying wall points vbo

2021-07-11 14:34:10 +02:00
parent 50295daeba
commit 5e21a6527d
4 changed files with 17 additions and 18 deletions
@@ -37,7 +37,7 @@ lamp h = defaultInanimate
 lampPic :: Float -> Picture
 lampPic h = pictures
    [ pictures . map (Poly3D 0 . map ((, blue) . (-.-.- (2.5,2.5,0)))) $ boxXYZ 5 5 (h-1)
-    , setDepth h $ color white $ circleSolid 3
+    , setLayer 1 $ setDepth h $ color white $ circleSolid 3
    ]

 initialiseLamp :: Float -> CRUpdate