167 lines
5.1 KiB
Scheme
167 lines
5.1 KiB
Scheme
(define (build-shells obj count dist col)
|
|
(when (not (zero? count))
|
|
(with-state
|
|
(parent obj)
|
|
(colour col)
|
|
(let ((shell (build-copy obj)))
|
|
(with-primitive shell
|
|
(pdata-map!
|
|
(lambda (p n)
|
|
(vadd p (vmul (vector 0 1 0) dist)))
|
|
"p" "n"))
|
|
(build-shells shell (- count 1) dist (vmul col 1))))))
|
|
|
|
(define (build-shrub p n)
|
|
(with-state
|
|
(translate p)
|
|
(colour (vector 0.5 0.7 0.4))
|
|
(let ((shrub (build-ribbon (+ (random 10) 2))))
|
|
(with-primitive shrub
|
|
(pdata-index-map!
|
|
(lambda (i p)
|
|
(let ((j (* 0.2 (* i 0.2))))
|
|
(vector (* (crndf) j) (* i 0.2) (* (crndf) j))))
|
|
"p")
|
|
(pdata-index-map!
|
|
(lambda (i w)
|
|
(* (/ 1 (+ i 1)) 0.2))
|
|
"w")))))
|
|
|
|
(define (choose l)
|
|
(list-ref l (random (length l))))
|
|
|
|
(define (build-flower p n obj)
|
|
(with-state
|
|
(backfacecull 0)
|
|
(hint-depth-sort)
|
|
; (hint-unlit)
|
|
(translate p)
|
|
(rotate (vector 0 (random 360) 0))
|
|
(scale (+ 1 (* (rndf) 1.5)))
|
|
(texture (load-texture (choose (list
|
|
"textures/bgplant-1.png"
|
|
"textures/bgplant-2.png"
|
|
"textures/bgplant-3.png"
|
|
"textures/bgplant-4.png"
|
|
"textures/bgplant-5.png"
|
|
"textures/bgplant-6.png"
|
|
))))
|
|
(let ((o (build-copy obj)))
|
|
(with-primitive o (hide 0)))
|
|
; (load-primitive "meshes/freeplant.obj")
|
|
))
|
|
|
|
(define (load-model tex obj)
|
|
(with-state
|
|
(texture (load-texture (string-append "textures/" tex)))
|
|
(load-primitive (string-append "meshes/" obj))))
|
|
|
|
(clear)
|
|
|
|
;----------------------------------------------
|
|
; build the set
|
|
|
|
(clear-colour (vmul (vector 0.4 0.5 0.9) 0.2))
|
|
(fog (vector 0.4 0.5 0.9) 0.01 1 100)
|
|
|
|
(define l (make-light 'spot 'free))
|
|
(light-diffuse 0 (vector 0 0 0))
|
|
(light-diffuse l (vector 1 1 1))
|
|
(light-position l (vector 0 5 0))
|
|
(light-direction l (vector 0 -1 0))
|
|
(light-spot-angle l 55)
|
|
(light-spot-exponent l 1)
|
|
|
|
(define l2 (make-light 'point 'free))
|
|
(light-position l2 (vector 0 10 0))
|
|
(light-diffuse l2 (vector 0.4 0.5 0.9))
|
|
|
|
(clear-texture-cache)
|
|
(clear-geometry-cache)
|
|
|
|
(with-state
|
|
(backfacecull 0)
|
|
(hint-depth-sort)
|
|
(hint-unlit)
|
|
(texture-params 0 '(wrap-s repeat wrap-t repeat))
|
|
(load-model "bgplant-1.png" "plant-0.obj")
|
|
(load-model "bgplant-1.png" "plant-1.obj")
|
|
(load-model "bgplant-1.png" "plant-2.obj")
|
|
(load-model "bgplant-1.png" "plant-3.obj")
|
|
(load-model "bgplant-1.png" "plant-4.obj")
|
|
(load-model "bgplant-1.png" "plant-5.obj")
|
|
(load-model "bgplant-1.png" "plant-6.obj")
|
|
; (load-model "bgplant-2.png" "plant-7.obj")
|
|
|
|
)
|
|
|
|
|
|
(with-state
|
|
(backfacecull 0)
|
|
(load-model "car-base.png" "car.obj")
|
|
(load-model "car-base.png" "car-2.obj")
|
|
(load-model "telly-base.png" "telly-2.obj"))
|
|
|
|
(with-state
|
|
(load-model "telly-base.png" "telly-0.obj")
|
|
(load-model "telly-base2.png" "telly-1.obj")
|
|
(load-model "telly-base.png" "telly-2.obj")
|
|
(load-model "telly-base.png" "telly-3.obj")
|
|
(load-model "telly-base.png" "telly-4.obj"))
|
|
|
|
|
|
(with-state
|
|
(load-model "washer-base.png" "washer-0.obj")
|
|
(load-model "washer-base.png" "washer-1.obj")
|
|
(load-model "washer-base.png" "washer-2.obj")
|
|
(load-model "washer-base.png" "washer-3.obj"))
|
|
|
|
(define terrain (with-state
|
|
(texture (load-texture "textures/ground-base.png"))
|
|
(load-primitive "meshes/ground.obj")))
|
|
|
|
|
|
;(define grassmap (load-primitive "textures/set-grass.png"))
|
|
|
|
(define (tx->pi tx)
|
|
(+ (vy tx) (* (vx tx) (pixels-width))))
|
|
|
|
(define flower-obj (load-primitive "meshes/freeplant.obj"))
|
|
|
|
(with-primitive flower-obj
|
|
(pdata-map!
|
|
(lambda (n p)
|
|
(vnormalise p))
|
|
"n" "p")
|
|
(hide 1))
|
|
|
|
(with-primitive terrain
|
|
(poly-for-each-tri-sample
|
|
(lambda (indices bary)
|
|
(let ((tc (vadd
|
|
(vmul (pdata-ref "t" (list-ref indices 0)) (vx bary))
|
|
(vmul (pdata-ref "t" (list-ref indices 1)) (vy bary))
|
|
(vmul (pdata-ref "t" (list-ref indices 2)) (vz bary)))))
|
|
(when (zero? (random 2)) #;(> (va (with-primitive grassmap (pdata-ref "c" (tx->pi tc)))) 0.5)
|
|
(build-flower (vadd
|
|
(vmul (pdata-ref "p" (list-ref indices 0)) (vx bary))
|
|
(vmul (pdata-ref "p" (list-ref indices 1)) (vy bary))
|
|
(vmul (pdata-ref "p" (list-ref indices 2)) (vz bary))) (vector 0 1 0)
|
|
flower-obj))))
|
|
1))
|
|
|
|
(define shell0 (build-copy terrain))
|
|
|
|
(with-primitive shell0
|
|
(pdata-copy "t" "t1")
|
|
(pdata-map!
|
|
(lambda (t)
|
|
(vmul t 4))
|
|
"t"))
|
|
|
|
(with-state
|
|
(multitexture 0 (load-texture "textures/shell.png"))
|
|
; (multitexture 1 (load-texture "textures/ground-grassmap.png"))
|
|
(build-shells shell0 4 0.05 (vector 1 0.5 1)))
|
|
|