36 lines
1.0 KiB
Scheme
36 lines
1.0 KiB
Scheme
(define-module (ww init)
|
|
#:use-module (chickadee math vector)
|
|
#:use-module (chickadee graphics color)
|
|
#:use-module (chickadee graphics mesh)
|
|
#:use-module (chickadee graphics light)
|
|
#:use-module (chickadee graphics pbr)
|
|
#:use-module (chickadee graphics polygon)
|
|
#:use-module (chickadee graphics skybox)
|
|
#:use-module (chickadee graphics texture)
|
|
#:export (ustvari-tla
|
|
ustvari-nebo
|
|
ustvari-luc))
|
|
|
|
(define (ustvari-tla)
|
|
(make-plane 0.002
|
|
0.002
|
|
(make-pbr-material #:base-color-factor (vec3 1.0 0 0)
|
|
#:polygon-mode line-polygon-mode)))
|
|
|
|
;; (define (ustvari-kvadrat sirina)
|
|
;; (build-mesh
|
|
;; "kvadrat"
|
|
;; (let* ((polovica (/ sirina 2.0))
|
|
;; (levo-zgoraj (vec3 (- polovica) 0.0 (- polovica))
|
|
;; (vec2 )))
|
|
;; (list (vertex (vec3 (- sirina)))))))
|
|
|
|
(define (ustvari-nebo)
|
|
(default-skybox))
|
|
|
|
(define (ustvari-luc)
|
|
(make-directional-light
|
|
#:direction (vec3 1 1 1)
|
|
#:color white
|
|
#:intensity 10))
|