Commit before connecting each vao to unique vbos

2021-03-02 00:54:00 +01:00
parent 1e198b551e
commit 18492f00d2
8 changed files with 34 additions and 62 deletions
@@ -105,20 +105,6 @@ setDepth d pic = OverPic (\(x,y,_) -> (x,y,-d)) id id pic
 setLayer :: Int -> Picture -> Picture
 {-# INLINE setLayer #-}
 setLayer i pic = OnLayer i pic
--setLayer _ Blank = Blank
--setLayer i (Polygon _ ps) = Polygon i ps
--setLayer i (PolygonCol _ ps) = PolygonCol i ps
--setLayer i (Circle _ x) = Circle i x
--setLayer i (ThickArc _ a b r w) = ThickArc i a b r w
--setLayer i (Line _ x) = Line i x
--setLayer i (Scale x y p) = Scale x y $ setLayer i p
--setLayer i (Translate x y p) = Translate x y $ setLayer i p
--setLayer i (Rotate x p) = Rotate x $ setLayer i p
--setLayer i (SetDepth x p) = SetDepth x $ setLayer i p
--setLayer i (Color x p) = Color x $ setLayer i p
--setLayer i (Pictures p) = Pictures $ map (setLayer i) p
--setLayer i (OverPic f f' f'' pic) = OverPic f f' f'' (setLayer i pic)
-

 scale3 :: Float -> Float -> Point3 -> Point3
 {-# INLINE scale3 #-}