gluturtle 0.0.35 → 0.0.36

raw patch · 3 files changed

+3/−1 lines, 3 files

Files

• gluturtle.cabal +1/−1
• src/Graphics/UI/GLUT/Turtle/Field.hs +1/−0
• src/Graphics/UI/GLUT/Turtle/GLUTools.hs +1/−0

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		gluturtle-version:	0.0.35+version:	0.0.36 stability:	alpha author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>

@@ -192,6 +192,7 @@ 	atomicModifyIORef_ (fActions f) (Just (makeLineAction f w c p q) :)  makePolygonAction :: Field -> [Position] -> Color -> Color -> Double -> IO ()+makePolygonAction _ [] _ _ _ = error "makePolygonAction: no points" makePolygonAction f ps c lc lw = do 	ps' <- mapM (positionToDoubles f) ps 	drawPolygon ps' (colorToInts c) (colorToInts lc) lw

@@ -169,6 +169,7 @@  drawPolygon_ :: [G.Vertex3 G.GLfloat] -> G.Color4 G.GLfloat -> G.Color4 G.GLfloat -> 	G.GLfloat -> IO ()+drawPolygon_ [] _ _ _ = error "bad polygon" drawPolygon_ ps c lc lw = G.preservingMatrix $ do 	G.color c 	G.renderPrimitive G.Triangles $ mapM_ G.vertex ps'