Fix glRotated call
This commit is contained in:
parent
6bd6eecf0e
commit
14bd1f282d
|
@ -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))
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue