bend effect

outrun.rkt

@@ -47,8 +47,14 @@
              (move (rotate-y lines-frozen 90)
                    (dir -7 0 5)))))
 
-(define scene
-  (rotate-y (cube (pos 0 0 0) 1) 30))
+(define my-pipe (tessellate (pipe origin (dir 1 1/2 1))))
+(define (bend+ p x y z)
+  (bend p
+        (scale-number (perlin x y z) -1 1 -180 180)))
+(define (scene t)
+  (rotate-x
+   (bend+ my-pipe (/ t 1000) (/ t 1200) 69)
+   90))
 
 (define (make-sunlight dsun)
   (sunlight