From d4c1d0265d4c033f5cb21410d01c103a347a7ffb Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Sat, 9 Mar 2013 15:39:19 +0100
Subject: [PATCH] add point raster context

---
 lambdacube-core/docs/demo-ideas                     |  4 ++++
 .../sandbox/lambdacube-unified-input/LC_T_HOAS.hs   | 13 +++++++++++--
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/lambdacube-core/docs/demo-ideas b/lambdacube-core/docs/demo-ideas
index a7a55c6..ec4249f 100644
--- 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
index 72a95f0..54e5638 100644
--- 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