Attempt to detect sharp-turns.

1 files changed, 7 insertions, 2 deletions

diff --git a/hello_obj2.lc b/hello_obj2.lc
index 72a87ee..7b3d4a2 100644
--- a/hello_obj2.lc
+++ b/hello_obj2.lc
@@ -48,7 +48,12 @@ makeFrame (cubemap :: TextureCube)
   `overlay`
       points
     & mapPrimitives (\(p,c) -> let p' = coordmap cam $ point p
-                                in (p', point c))
+                                   w = p'%w
+                                   yellowish = normalize c `dot` V3 1 1 0
+                                   p2 = if yellowish >= 0.9*sqrt 2
+                                            then V4 p'%x p'%y 0.1 w
+                                            else V4 p'%x p'%y 0.11 w
+                                in (p2, point c))
 
     & renderPoints cam
 
@@ -61,7 +66,7 @@ renderPoints cam points =
       points
     & rasterizePrimitives (PointCtx (PointSize 5.0) 1.0 LowerLeft) ((Flat))
     & mapFragments (\((c)) -> ((c)))
-    & accumulateWith (DepthOp Always False, ColorOp NoBlending (V4 True True True True))
+    & accumulateWith (DepthOp Less True, ColorOp NoBlending (V4 True True True True))
 
 main :: Output
 main = renderFrame $