(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))