gluturtle 0.0.18 → 0.0.19

raw patch · 4 files changed

+12/−3 lines, 4 files

Files

• gluturtle.cabal +1/−1
• src/Graphics/UI/GLUT/Turtle/TriangleTools.hs +1/−1
• src/Graphics/UI/GLUT/Turtle/Triangles.hs +9/−1
• tests/testGLUT.hs +1/−0

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

@@ -28,7 +28,7 @@ dol (a : ps@(b : ps'@(c : _))) 	| online (a, b, c) = a : dol ps' 	| otherwise = a : dol ps-dol _ = error "dol: not implemented"+dol p = error $ "dol: not implemented " ++ show p  maximumIndex :: Ord a => [a] -> Int maximumIndex = fst . maximumIndexGen

@@ -3,7 +3,15 @@ import Graphics.UI.GLUT.Turtle.TriangleTools  toTriangles :: [Pos] -> [(Pos, Pos, Pos)]-toTriangles = toTrianglesTop . deleteOnline+toTriangles ps+	| length ps < 3 = []+	| otherwise = toTrianglesTop $ deleteOnline $ deletePoint ps++deletePoint [] = []+deletePoint [p] = [p]+deletePoint pa@(p0 : ps)+	| p0 == last ps = ps+	| otherwise = pa  toTrianglesTop :: [Pos] -> [(Pos, Pos, Pos)] toTrianglesTop [a, b, c] = [(a, b, c)]

@@ -43,4 +43,5 @@ processInput _ t "hide" = hideturtle t >> return True processInput _ t "bred" = bgcolor t ((255, 0, 0) :: (Int, Int, Int)) >> return True processInput _ t "bgreen" = bgcolor t ((0, 255, 0) :: (Int, Int, Int)) >> return True+processInput _ t "home" = goto t 0 0 >> return True processInput _ _ _ = return True