gluturtle 0.0.48 → 0.0.56

raw patch · 4 files changed

+10/−4 lines, 4 files

Files

• gluturtle.cabal +1/−1
• src/Graphics/UI/GLUT/Turtle.hs +5/−1
• src/Graphics/UI/GLUT/Turtle/Field.hs +3/−1
• src/Graphics/UI/GLUT/Turtle/Input.hs +1/−1

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

@@ -172,7 +172,11 @@ getSVG = (<$>) processFill . fmap reverse . flip info drawed  processFill :: [SVG] -> [SVG]-processFill svgs = last (filter isFill svgs) : filter (not . isFill) svgs+processFill svgs+	| [] <- fills = svgs+	| otherwise = last fills : filter (not . isFill) svgs+	where+	fills = filter isFill svgs  isFill :: SVG -> Bool isFill (Fill _) = True

@@ -230,7 +230,9 @@ 	atomicModifyIORef_ (fUpdate f) (+ 1)  clearField :: Field -> IO ()-clearField f = writeIORef (fActions f) []+clearField f = do+	writeIORef (fBgcolor f) [RGB 255 255 255]+	writeIORef (fActions f) []  -------------------------------------------------------------------------------- 

@@ -83,7 +83,7 @@ 	Just (Text (position t) sz clr fnt str) nextTurtle t (PutImage fp w h) = reset t `set` Just (Image (position t) w h fp) nextTurtle t (Undonum un) = (reset t){undonum = un}-nextTurtle t Clear = (reset t){clear = True, drawed = []}+nextTurtle t Clear = (reset t){clear = True, drawed = [Fill (RGB 255 255 255)]} nextTurtle t (Sleep time) = (reset t){sleep = Just time} nextTurtle t Flush = (reset t){flush = True} nextTurtle t (Shape sh) = (reset t){shape = sh}