From 86c1a85534ad651a8045935db4178018fd622a23 Mon Sep 17 00:00:00 2001
From: Dan Frumin <dfrumin@cs.ru.nl>
Date: Sat, 28 Dec 2019 15:56:31 +0100
Subject: [PATCH] bend effect

---
 outrun.rkt | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/outrun.rkt b/outrun.rkt
index 5ec1e09..84dd984 100644
--- a/outrun.rkt
+++ b/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