module Graphics.UI.GLUT.Turtle.Triangles(toTriangles) where

import Graphics.UI.GLUT.Turtle.TriangleTools

toTriangles :: [Pos] -> [(Pos, Pos, Pos)]
toTriangles = toTrianglesTop . deleteOnline

toTrianglesTop :: [Pos] -> [(Pos, Pos, Pos)]
toTrianglesTop [a, b, c] = [(a, b, c)]
toTrianglesTop ps
	| any (within tri) ps = toTrianglesNext (isRight tri) i ps
	| otherwise = tri : toTrianglesTop rest
	where
	i = far ps
	tri = index3 ps i
	rest = deleteIndex ps i

toTrianglesNext :: Bool -> Int -> [Pos] -> [(Pos, Pos, Pos)]
toTrianglesNext r i ps
	| isRight tri /= r || any (within tri) ps = toTrianglesNext r next ps
	| otherwise = tri : toTrianglesTop rest
	where
	tri = index3 ps i
	rest = deleteIndex ps i
	next = if i == 0 then length ps - 1 else i - 1