diff options
Diffstat (limited to 'hello_obj2.lc')
| -rw-r--r-- | hello_obj2.lc | 4 |
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)) ) |
| 59 | renderPoints cam points = | 59 | renderPoints 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 | ||