Add source files, commit before reverting pictures to lists

2021-02-15 00:07:55 +01:00
parent c6bcfacc7a
commit 8447844bcd
41 changed files with 13677 additions and 35 deletions
@@ -0,0 +1,28 @@
+module Shapes where
+import Geometry
+import Graphics.Rendering.OpenGL
+
+type RGBA = (Float,Float,Float,Float)
+
+data CPoint = CPoint 
+    {cpPoint :: Point3
+    ,cpColor :: RGBA
+    }
+
+data Shape = Shape PrimitiveMode [CPoint]
+            | Fade [(Point3,RGBA,Float)]
+            | Shape' PrimitiveMode [GLfloat]
+
+egTri = Shape TriangleStrip [CPoint (-1,0,0) (1,1,1,1)
+                            ,CPoint (0,1,0) (1,1,0,1)
+                            ,CPoint (1,0,0) (1,0,1,0)
+                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
+                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
+                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
+                            ]
+
+egFade = Fade [((-0.2,-0.2,0),(1,1,1,1),500)
+              ,((0.2,0.2,0),(1,1,1,1),500)
+--              ,((0.5,0.5,0),(1,1,1,1),0.5)
+--              ,((0.5,0.5,0),(1,1,1,1),0.5)
+              ]