{-
Various simple things to draw.  Models that are supposed to be interesting.
-}
module Models where

import Vec3d
import Mat3d
import Tri3d
import Obj3d
import Flat3d

import qualified GraphicsUtils as G

model1 :: FlatObj3
model1 = [((100.0, 0.0, 1.0), 
	   (0.0, 0.0, 1.0), 
	   (100.0, 100.0, 5.0), G.RGB 255 255 255)]

model1a :: FlatObj3
model1a = [((1.0, 0.0, 1.0),
	   (1.0, 1.0, 1.0),
	   (1.0, 0.0, 1.0), G.RGB 255 0 255)]

model2 :: FlatObj3
model2 = [((100.0, 0.0, 10.0), 
	   (0.0, 0.0, 10.0), 
	   (100.0, 100.0, 10.0), G.RGB 255 255 255),
	  ((100.0, 0.0, 10.0),
	   (100.0, 100.0, 10.0),
	   (150.0, 0.0, 100.0), G.RGB 255 0 255)]


-- Two Triangles
model3 :: FlatObj3
model3 = [((0.0, 100.0, 10.0), (0.0, 0.0, 10.0), (-50.0, 50.0, 20.0),
	   G.RGB 255 255 255),
	  ((0.0, 100.0, 10.0), (0.0, 0.0, 10.0), (50.0, 50.0, 20.0),
	   G.RGB 100 200 200)]

-- A square 100x100
model4 :: FlatObj3
model4 = [ -- Front Face
	   ( (-50.0, 50.0, 5.0), (50.0, 50.0, 5.0), (50.0, -50.0, 5.0),
	     G.RGB 250 250 200),
	   ( (-50.0, 50.0, 5.0), (-50.0, -50.0, 5.0), (50.0, -50.0, 5.0),
	     G.RGB 250 250 200)]

-- A top view of a pyramid
model5 :: FlatObj3
model5 = [ ( (0.0, 0.0, 5.0), (50.0, 50.0, 10.0), (50.0, -50.0, 10.0), 
	     G.RGB 255 0 0),
	   ( (0.0, 0.0, 5.0), (50.0, 50.0, 10.0), (-50.0, 50.0, 10.0),
	     G.RGB 0 255 0),
	   ( (0.0, 0.0, 5.0), (-50.0, 50.0, 10.0), (-50.0, -50.0, 10.0),
	     G.RGB 0 0 255),
	   ( (0.0, 0.0, 5.0), (-50.0, -50.0, 10.0), (50.0, -50.0, 10.0),
	     G.RGB 255 255 255)]


	  

{-
model3 :: FlatObj3
model4 :: FlatObj3
-}