dan
/
outrun
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better visual

This commit is contained in:
Dan Frumin 2019-12-27 18:27:27 +01:00
parent de42574dc9
commit 8604db96b3
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
outrun.rkt
View File

@ -10,24 +10,23 @@
(define init-scene-state (define init-scene-state
(scene-state #f 0 0 (dir 1 (- 3) 0))) (scene-state #f 0 0 (dir 1 (- 3) 0)))
(current-material (material #:ambient 0.2 (current-material (material #:ambient 0.1
#:diffuse 0.5 #:diffuse 0.6
#:specular 0.6 #:specular 0.3
#:roughness 0.2)) #:roughness 0.5))
(define (mesh) (define (mesh)
(with-emitted (emitted-hex "05ffa1" 0) (with-color (rgba-hex "05ffa1")
(with-color (rgba-hex "05ffa1") (let* ([lines
(let* ([lines (for*/list ([i (in-range -10 10)]
(for*/list ([i (in-range -10 10)] [j (in-range 0 10)])
[j (in-range 0 10)]) (move (cylinder (pos (- 0.1) (- 0.1) -5)
(move (cylinder (pos (- 0.1) (- 0.1) -5) (pos 0.1 0.1 10))
(pos 0.1 0.1 10)) (dir i 0 j)))]
(dir i 0 j)))] [lines-frozen (freeze (apply combine lines))])
[lines-frozen (freeze (apply combine lines))]) (combine lines-frozen
(combine lines-frozen (move (rotate-y lines-frozen 90)
(move (rotate-y lines-frozen 90) (dir -7 0 5))))))
(dir -7 0 5)))))))
(define scene (define scene
(rotate-y (cube (pos 0 0 0) 1) 30)) (rotate-y (cube (pos 0 0 0) 1) 30))