Implement teleporting bullets

2022-02-21 20:51:01 +00:00
parent 724ee21afc
commit f626fce105
23 changed files with 245 additions and 154 deletions
@@ -164,6 +164,7 @@ addDepth :: Float -> Picture -> Picture
 --addDepth d = map $ second $ overPos (\(x,y,z) -> (x,y,z+d))
 addDepth d = map $ overPos (\(V3 x y z) -> V3 x y (z+d))

+-- TODO change the Int here to a dedicated type
 setLayer :: Int -> Picture -> Picture
 {-# INLINE setLayer #-}
 setLayer i = map f