Lagan razvoj chickadee varjante dalje

anim.scm

@@ -2,10 +2,14 @@
              (chickadee graphics color)
              (chickadee graphics text)
              (chickadee graphics pbr)
+             (chickadee graphics phong)
              (chickadee graphics mesh)
              (chickadee graphics model)
              (chickadee graphics light)
              (chickadee graphics skybox)
+             (chickadee graphics polygon)
+             (chickadee graphics shader)
+             (chickadee graphics buffer)
              (chickadee math)
              (chickadee math vector)
              (chickadee math matrix)
@@ -60,8 +64,10 @@
   (cond
    ((eq? key 'q)
     (abort-game))
+   ((eq? key 'k)
+    (set! obj (cons (ustvari-objekt) obj)))
    ((eq? key 'r)
-    (reset-stevec))))
+    (load))))
 
 (define stevec #f)
 
@@ -76,13 +82,18 @@
 (define position (vec3 0.0 0.0 -4.0))
 
 (define (ustvari-tla)
-  (make-plane 500 500 (make-pbr-material #:base-color-factor (vec3 1.0 0.5 0))))
+  (make-plane 0.002
+              0.002
+              (make-pbr-material #:base-color-factor (vec3 1.0 0 0)
+                                 #:polygon-mode line-polygon-mode)))
 
 (define (ustvari-objekt)
   (let ((velikost (/ stevec 2000.0))
         (barva (vec3 0.2 0.8 0.4)))
     (make-cube velikost
-               (make-pbr-material #:base-color-factor barva))
+               (make-pbr-material #:base-color-factor barva
+                                  #:polygon-mode line-polygon-mode
+                                  #:metallic-factor 0.1))
 
     ;(make-plane velikost
     ;            velikost
@@ -94,31 +105,55 @@
 
 (define (ustvari-nebo)
   (let ((face (list
-               (u32vector #x12345678
-                          #x87654321
-                          #x12345678
-                          #x87654321)
-               4
-               4)))
+               (u32vector #x4f0030f0
+                          #x5f0040f0
+                          #x6f0050f0
+                          #x8f0060f0)
+               2
+               2)))
     (make-skybox
      (make-cube-map (make-list 6 face)))))
 
+(define nebo (ustvari-nebo))
+
 (define (draw alpha)
-  (with-projection
-   projection
-   (draw-mesh obj
-              #:model-matrix model-matrix
-              #:view-matrix view-matrix
-              #:camera-position position
-              #:lights (list (ustvari-luc))
-              ;#:skybox (ustvari-nebo)
-              )
-   (draw-mesh tla
-              #:model-matrix tla-matrix
-              #:view-matrix view-matrix
-              #:camera-position position
-              #:lights (list (ustvari-luc))
-              )))
+    (with-projection
+        projection
+        (with-graphics-state
+         ((g:polygon-mode line-polygon-mode))
+         ;(draw-skybox nebo view-matrix)
+         (map (lambda (o)
+                (draw-mesh o
+                    #:model-matrix model-matrix
+                    #:view-matrix view-matrix
+                    #:camera-position position
+                    #:skybox nebo
+                    #:lights (list (ustvari-luc))))
+              obj)
+        (draw-mesh tla
+                    #:model-matrix tla-matrix
+                    #:view-matrix view-matrix
+                    #:camera-position position
+                    #:skybox nebo
+                    #:lights (list (ustvari-luc)))
+
+        ;(shader-apply my-shader kvadrat #:color red)
+        ;; (draw-mesh
+        ;;  (make-mesh
+        ;;   'kvadrat
+        ;;   (make-primitive
+        ;;    'ploskev
+        ;;    (make-vertex-array
+        ;;     0 0 0
+        ;;     0 1 0
+        ;;     0 1 1
+        ;;     0 0 0)
+        ;;    (make-pbr-material #:base-color-factor (vec3 1.0 0.5 0)))))
+
+        )))
+
+;(define my-shader (load-shader "vert.glsl" "frag.glsl"))
+;(define kvadrat (make-vertex-array 
 
 ;; :( ne dela?
 (define (ustvari-luc)
@@ -132,7 +167,7 @@
   (poglej)
   (reset-stevec)
   (ustvari-luc)
-  (set! obj (ustvari-objekt))
+  (set! obj (list (ustvari-objekt)))
   (set! tla (ustvari-tla)))
 
 (run-game