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

playing around with pict3d-die-cut

This commit is contained in:
Dan Frumin 2019-12-30 18:58:59 +01:00
parent 2c271bfc03
commit de5a16e7e2
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
outrun.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket
(require pict3d (require pict3d
pict3d/universe pict3d/universe
pict3d-die-cut
"pict3d-lib.rkt" "pict3d-lib.rkt"
"noise.rkt") "noise.rkt")
@ -87,18 +88,18 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the static mesh ;; the static mesh
(define (mesh t) (define mesh
(let* ([lines (let* ([lines
(for*/list ([i (in-range -10 10)] (for*/list ([i (in-range -10 20)]
[j (in-range 0 10)]) [j (in-range 0 20)])
(with-color (rgba-hex "05ffa1") (with-color (rgba-hex "05ffa1")
(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-comb (apply combine lines)]) [lines-comb (apply combine lines)])
(freeze (combine lines (freeze (combine lines
(move (rotate-y lines-comb 90) (move (rotate-y lines-comb -90)
(dir -7 0 5)))))) (dir 15 0 6))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the bendy pipe ;; the bendy pipe
@ -142,6 +143,20 @@
(define frozen-sspheres (freeze (sspheres 1000))) (define frozen-sspheres (freeze (sspheres 1000)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the axis
(define axis-pict
(combine
(with-emitted (emitted "red")
(arrow origin (pos 1 0 0)))
(with-emitted (emitted "green")
(arrow origin (pos 0 1 0)))
(with-emitted (emitted "blue")
(arrow origin (pos 0 0 1)))))
(define frozen-axis (freeze axis-pict))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the lights ;; the lights
@ -175,11 +190,16 @@
(point-at (camera-position s) (point-at (camera-position s)
(camera-direction s))) (camera-direction s)))
(make-sunlight (scene-state-dsun s)) (make-sunlight (scene-state-dsun s))
;; (move-y (road t) -1) (move-y (road t) -1)
(spheres t) ;;(spheres t)
(scene t) ;;(scene t)
frozen-sspheres frozen-sspheres
(mesh t) mesh
;; (move (rotate-y
;; (die-cut-text "OwO" #:depth 0 #:center? #t #:top? #t #:bottom? #t #:sides? #t)
;; 180)
;; (dir 0 3 10))
;;frozen-axis
)) ))
(define (on-key s n t k) (define (on-key s n t k)