gluturtle 0.0.9 → 0.0.10

raw patch · 5 files changed

+6/−5 lines, 5 files

Files

• gluturtle.cabal +1/−1
• src/Graphics/UI/GLUT/Turtle.hs +1/−1
• src/Graphics/UI/GLUT/Turtle/Field.hs +2/−2
• src/Graphics/UI/GLUT/Turtle/Move.hs +1/−1
• tests/testGLUT.hs +1/−0

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

@@ -154,7 +154,7 @@ 		shapes = shapesRef, 		inputs = fmap (flip take hist . pred) $ readIORef index, 		killTurtle = flushField f True $-			clearLayer l >> clearCharacter c >> killThread thr}+			clearLayer l >> clearCharacter f >> killThread thr} 	shape t "classic" >> input t (Undonum 0) >> return t  runInputs :: Turtle -> [TurtleInput] -> IO ()

@@ -288,8 +288,8 @@ 	makeLineAction f p q clr lw 	makeCharacterAction f sh fclr clr lw -clearCharacter :: Character -> IO ()-clearCharacter ch = character ch $ return ()+clearCharacter :: Field -> IO ()+clearCharacter f = writeIORef (fAction f) $ return ()  -------------------------------------------------------------------------------- 

@@ -68,7 +68,7 @@ 		forM_ (positions w h t0 t1) $ \p -> fl $ 			drawTtl (direction t1) p >> threadDelay (interval t0) 		fl $ drawTtl (direction t1) $ position t1-	when (visible t0 && not (visible t1)) $ fl $ clearCharacter c+	when (visible t0 && not (visible t1)) $ fl $ clearCharacter f 	when (clear t1) $ fl $ clearLayer l 	unless (undo t1) $ fl $ maybe (return ()) (drawSVG f l) (draw t1) 	where

@@ -39,4 +39,5 @@ processInput _ t "message" = write t "KochiGothic" 100 "Hello, world!" >> return True processInput _ t "0very1very2very3very4very5very6very7very8very9very0very-long-line" 	= putStrLn "very long line" >> return True+processInput _ t "hide" = hideturtle t >> return True processInput _ _ _ = return True