gluturtle 0.0.26 → 0.0.27

raw patch · 2 files changed

+8/−3 lines, 2 files

Files

gluturtle.cabal +1/−1
src/Graphics/UI/GLUT/Turtle/Field.hs +7/−2

gluturtle.cabal view

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

src/Graphics/UI/GLUT/Turtle/Field.hs view

@@ -397,14 +397,19 @@ --------------------------------------------------------------------------------  drawCharacter :: Field -> Character -> Color -> Color -> [Position] -> Double -> IO ()-drawCharacter f _ fclr clr sh lw = writeIORef (fAction f) $+drawCharacter f _ fclr clr sh lw = do 	makeCharacterAction f sh fclr clr lw+	writeIORef (fAction f) $+		makeCharacterAction f sh fclr clr lw  drawCharacterAndLine ::	Field -> Character -> Color -> Color -> [Position] -> 	Double -> Position -> Position -> IO ()-drawCharacterAndLine f _ fclr clr sh lw p q = writeIORef (fAction f) $ do+drawCharacterAndLine f _ fclr clr sh lw p q = do 	makeLineAction f p q clr lw 	makeCharacterAction f sh fclr clr lw+	writeIORef (fAction f) $ do+		makeLineAction f p q clr lw+		makeCharacterAction f sh fclr clr lw  clearCharacter :: Field -> IO () clearCharacter f = writeIORef (fAction f) $ return ()