From 8604db96b37eb4f4e0efb09164bffa0401e81247 Mon Sep 17 00:00:00 2001 From: Dan Frumin Date: Fri, 27 Dec 2019 18:27:27 +0100 Subject: [PATCH] better visual --- outrun.rkt | 31 +++++++++++++++---------------- 1 file changed, 15 insertions(+), 16 deletions(-) diff --git a/outrun.rkt b/outrun.rkt index b8eaef3..1426d1b 100644 --- a/outrun.rkt +++ b/outrun.rkt @@ -10,24 +10,23 @@ (define init-scene-state (scene-state #f 0 0 (dir 1 (- 3) 0))) -(current-material (material #:ambient 0.2 - #:diffuse 0.5 - #:specular 0.6 - #:roughness 0.2)) +(current-material (material #:ambient 0.1 + #:diffuse 0.6 + #:specular 0.3 + #:roughness 0.5)) (define (mesh) - (with-emitted (emitted-hex "05ffa1" 0) - (with-color (rgba-hex "05ffa1") - (let* ([lines - (for*/list ([i (in-range -10 10)] - [j (in-range 0 10)]) - (move (cylinder (pos (- 0.1) (- 0.1) -5) - (pos 0.1 0.1 10)) - (dir i 0 j)))] - [lines-frozen (freeze (apply combine lines))]) - (combine lines-frozen - (move (rotate-y lines-frozen 90) - (dir -7 0 5))))))) + (with-color (rgba-hex "05ffa1") + (let* ([lines + (for*/list ([i (in-range -10 10)] + [j (in-range 0 10)]) + (move (cylinder (pos (- 0.1) (- 0.1) -5) + (pos 0.1 0.1 10)) + (dir i 0 j)))] + [lines-frozen (freeze (apply combine lines))]) + (combine lines-frozen + (move (rotate-y lines-frozen 90) + (dir -7 0 5)))))) (define scene (rotate-y (cube (pos 0 0 0) 1) 30))