summaryrefslogtreecommitdiff
path: root/hello_obj2.lc
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-05-17 13:39:48 -0400
committerJoe Crayne <joe@jerkface.net>2019-05-17 13:39:48 -0400
commit330649949aea845e0472d0d99fbd30fb00bd6183 (patch)
tree8f32a749ae28b12a48a767abab5a816189cddb51 /hello_obj2.lc
parentb5d68cc4aba82fec53e156a6c0c2d2726ee6ff46 (diff)
3d coordinate draw.
Diffstat (limited to 'hello_obj2.lc')
-rw-r--r--hello_obj2.lc4
1 files changed, 2 insertions, 2 deletions
diff --git a/hello_obj2.lc b/hello_obj2.lc
index 1181943..629bf59 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -46,7 +46,7 @@ makeFrame (cubemap :: TextureCube)
46 & accumulateWith (DepthOp Less True, ColorOp blendplane (V4 True True True True)) 46 & accumulateWith (DepthOp Less True, ColorOp blendplane (V4 True True True True))
47 `overlay` 47 `overlay`
48 points 48 points
49 & mapPrimitives (\((p)) -> let p' = point p -- coordmap cam $ point p 49 & mapPrimitives (\((p)) -> let p' = coordmap cam $ point p
50 in (p', V4 1 1 0 1 :: Vec 4 Float)) 50 in (p', V4 1 1 0 1 :: Vec 4 Float))
51 51
52 & renderPoints cam 52 & renderPoints cam
@@ -58,7 +58,7 @@ renderPoints ::
58 , FragmentStream 1 ((Vec 4 Float)) ) 58 , FragmentStream 1 ((Vec 4 Float)) )
59renderPoints cam points = 59renderPoints cam points =
60 points 60 points
61 & rasterizePrimitives (PointCtx (PointSize 10.0) 1.0 LowerLeft) ((Flat)) 61 & rasterizePrimitives (PointCtx (PointSize 5.0) 1.0 LowerLeft) ((Flat))
62 & mapFragments (\((c)) -> ((c))) 62 & mapFragments (\((c)) -> ((c)))
63 & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True)) 63 & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True))
64 64