add point raster context

lambdacube3d · Mar 9, 2013 · d4c1d02 · d4c1d02
1 parent 20087a1
commit d4c1d02
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 2 deletions.
diff --git a/lambdacube-core/docs/demo-ideas b/lambdacube-core/docs/demo-ideas
@@ -1,2 +1,6 @@
 http://reset-game.net/?p=284
 http://madebyevan.com/webgl-water/
+http://prideout.net/blog/
+http://devmaster.net/posts/3100/shader-effects-glow-and-bloom
+http://rastergrid.com/blog/2010/09/efficient-gaussian-blur-with-linear-sampling/
+http://www.shadertoy.com
diff --git a/lambdacube-core/sandbox/lambdacube-unified-input/LC_T_HOAS.hs b/lambdacube-core/sandbox/lambdacube-unified-input/LC_T_HOAS.hs
@@ -268,7 +268,10 @@ data Exp freq t where
     -- Raster context
     -- TODO: 
     --       add clip distance mask
-    PointCtx        :: Exp Obj (RasterContext Point)      -- TODO: PointSize, POINT_FADE_THRESHOLD_SIZE, POINT_SPRITE_COORD_ORIGIN
+    PointCtx        :: Exp Obj PointSize
+                    -> Exp Obj Float
+                    -> Exp Obj PointSpriteCoordOrigin
+                    -> Exp Obj (RasterContext Point)      -- TODO: PointSize, POINT_FADE_THRESHOLD_SIZE, POINT_SPRITE_COORD_ORIGIN
 
     LineCtx         :: Exp Obj Float            -- line width
                     -> ProvokingVertex
@@ -284,7 +287,12 @@ data Exp freq t where
     PointSize       :: Exp Obj Float
                     -> Exp Obj PointSize
 
-    PointSizeRast   :: Exp Obj PointSize
+    ProgramPointSize :: Exp Obj PointSize
+
+    -- PointSpriteCoordOrigin
+    LowerLeft       :: Exp Obj PointSpriteCoordOrigin
+
+    UpperLeft       :: Exp Obj PointSpriteCoordOrigin
 
     -- PolygonOffset
     NoOffset        :: Exp Obj PolygonOffset
@@ -351,6 +359,7 @@ data Exp freq t where
 
 data Interpolated a
 data PointSize
+data PointSpriteCoordOrigin
 data PolygonOffset
 data PolygonMode
 data StencilTest