24 lines
771 B
Scheme
24 lines
771 B
Scheme
(define-module (ww obj)
|
|
#:use-module (chickadee math matrix)
|
|
#:use-module (chickadee math vector)
|
|
#:use-module (chickadee graphics mesh)
|
|
#:use-module (chickadee graphics pbr)
|
|
#:use-module (chickadee graphics phong)
|
|
#:use-module (chickadee graphics polygon)
|
|
#:export (ustvari-objekt model-matrix))
|
|
|
|
(define model-matrix (make-identity-matrix4))
|
|
|
|
(define (ustvari-objekt stevec)
|
|
(let ((velikost (/ stevec 2000.0))
|
|
(barva (vec3 0.2 0.8 0.4)))
|
|
(make-cube velikost
|
|
(make-pbr-material #:base-color-factor barva
|
|
#:polygon-mode line-polygon-mode
|
|
#:metallic-factor 0.1))
|
|
|
|
;(make-plane velikost
|
|
; velikost
|
|
; (make-pbr-material))
|
|
))
|