gluturtle 0.0.37 → 0.0.38

raw patch · 3 files changed

+7/−4 lines, 3 files

Files

• gluturtle.cabal +1/−1
• src/Graphics/UI/GLUT/Turtle/Move.hs +5/−3
• src/Graphics/UI/GLUT/Turtle/State.hs +1/−0

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

@@ -119,6 +119,8 @@  drawTurtle :: Field -> TurtleState -> Double -> Position -> 	Maybe Position -> IO ()-drawTurtle f ts@TurtleState{fillcolor = fclr, pencolor = clr} dir pos = maybe-	(drawCharacter f fclr clr (makeShape ts dir pos) (pensize ts))-	(drawCharacterAndLine f fclr clr (makeShape ts dir pos) (pensize ts) pos)+drawTurtle f ts@TurtleState{fillcolor = fclr, pencolor = clr} dir pos+	| [] <- makeShape ts dir pos = error $ show ts+	| otherwise = maybe+		(drawCharacter f fclr clr (makeShape ts dir pos) (pensize ts))+		(drawCharacterAndLine f fclr clr (makeShape ts dir pos) (pensize ts) pos)

@@ -33,6 +33,7 @@ 	positionStep :: Maybe Double, 	directionStep :: Maybe Double, 	interval :: Int}+	deriving Show  initTurtleState :: TurtleState initTurtleState = TurtleState {