Popravi za evalvacijo iz guila

kegel
Jurij Podgoršek 2023-05-11 19:03:54 +02:00
parent 90efd9a13c
commit 4d34baade5
1 changed files with 16 additions and 4 deletions

View File

@ -4,17 +4,26 @@
(chickadee graphics pbr)
(chickadee graphics phong)
(chickadee graphics mesh)
(chickadee graphics engine)
(chickadee graphics model)
(chickadee graphics light)
(chickadee graphics skybox)
(chickadee graphics polygon)
(chickadee graphics shader)
(chickadee graphics buffer)
(chickadee graphics texture)
(chickadee math)
(chickadee math vector)
(chickadee math matrix)
(system repl coop-server))
;; Hitra pomoc:
;;
;; chickadee play anim.scm --repl-server
;; ^ pozene fajl z repl serverjem v ozadju
;;
;;
(define repl (spawn-coop-repl-server))
(define (poglej)
@ -71,7 +80,7 @@
(define stevec #f)
(define (reset-stevec)
(define (reset-stevec!)
(set! stevec 1))
(define camera-position (vec3 0.0 0.0 3.0))
@ -114,7 +123,7 @@
(make-skybox
(make-cube-map (make-list 6 face)))))
(define nebo (ustvari-nebo))
(define nebo #f)
(define (draw alpha)
(with-projection
@ -165,13 +174,16 @@
(define (load)
;; Moramo pogledat model
(poglej)
(reset-stevec)
(reset-stevec!)
(ustvari-luc)
(set! obj (list (ustvari-objekt)))
(set! tla (ustvari-tla)))
(set! tla (ustvari-tla))
(set! nebo (ustvari-nebo)))
(run-game
#:draw draw
#:update update
#:key-press key-press
#:load load)
;(reset-stevec!)