syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix glRotated call

This commit is contained in:
Tony Garnock-Jones 2015-09-08 20:25:55 -04:00
parent 6bd6eecf0e
commit 14bd1f282d
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
prospect-gl/2d.rkt
View File

@ -96,7 +96,7 @@
(define (instruction->racket-code instr)
(match instr
[`(rotate ,(? number? deg))
(values `(glRotated ,deg) '())]
(values `(glRotated ,deg 0 0 -1) '())]
[`(scale ,(? number? x) ,(? number? y))
(values `(glScaled ,x ,y 1) '())]
[`(translate ,(? number? x) ,(? number? y))

5
prospect-gl/examples/basic.rkt
View File

@ -13,7 +13,10 @@
(transition s (for/list [(w added)]
(match-define (window width height) w)
(update-scene `((push-matrix (scale ,width ,height)
(texture ,(rectangle 1 1 "solid" "white"))))
(texture ,(rectangle 1 1 "solid" "white")))
;; (rotate -30)
;; (scale 5 5)
)
`())))]
[_ #f]))
(void)