Fix glRotated call
This commit is contained in:
parent
6bd6eecf0e
commit
14bd1f282d
|
@ -96,7 +96,7 @@
|
||||||
(define (instruction->racket-code instr)
|
(define (instruction->racket-code instr)
|
||||||
(match instr
|
(match instr
|
||||||
[`(rotate ,(? number? deg))
|
[`(rotate ,(? number? deg))
|
||||||
(values `(glRotated ,deg) '())]
|
(values `(glRotated ,deg 0 0 -1) '())]
|
||||||
[`(scale ,(? number? x) ,(? number? y))
|
[`(scale ,(? number? x) ,(? number? y))
|
||||||
(values `(glScaled ,x ,y 1) '())]
|
(values `(glScaled ,x ,y 1) '())]
|
||||||
[`(translate ,(? number? x) ,(? number? y))
|
[`(translate ,(? number? x) ,(? number? y))
|
||||||
|
|
|
@ -13,7 +13,10 @@
|
||||||
(transition s (for/list [(w added)]
|
(transition s (for/list [(w added)]
|
||||||
(match-define (window width height) w)
|
(match-define (window width height) w)
|
||||||
(update-scene `((push-matrix (scale ,width ,height)
|
(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]))
|
[_ #f]))
|
||||||
(void)
|
(void)
|
||||||
|
|
Loading…
Reference in New Issue