diff --git a/gluturtle.cabal b/gluturtle.cabal
--- a/gluturtle.cabal
+++ b/gluturtle.cabal
@@ -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>
diff --git a/src/Graphics/UI/GLUT/Turtle.hs b/src/Graphics/UI/GLUT/Turtle.hs
--- a/src/Graphics/UI/GLUT/Turtle.hs
+++ b/src/Graphics/UI/GLUT/Turtle.hs
@@ -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
diff --git a/src/Graphics/UI/GLUT/Turtle/Field.hs b/src/Graphics/UI/GLUT/Turtle/Field.hs
--- a/src/Graphics/UI/GLUT/Turtle/Field.hs
+++ b/src/Graphics/UI/GLUT/Turtle/Field.hs
@@ -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) []
 
 --------------------------------------------------------------------------------
 
diff --git a/src/Graphics/UI/GLUT/Turtle/Input.hs b/src/Graphics/UI/GLUT/Turtle/Input.hs
--- a/src/Graphics/UI/GLUT/Turtle/Input.hs
+++ b/src/Graphics/UI/GLUT/Turtle/Input.hs
@@ -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}