Popravi za evalvacijo iz guila
parent
90efd9a13c
commit
4d34baade5
20
anim.scm
20
anim.scm
|
@ -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!)
|
||||
|
|
Loading…
Reference in New Issue