Rotations had the wrong sign
This commit is contained in:
parent
d1c858a7ae
commit
0f3db4eac6
|
@ -214,7 +214,7 @@
|
||||||
(match instr
|
(match instr
|
||||||
[`(rotate ,(? number? deg))
|
[`(rotate ,(? number? deg))
|
||||||
(values `(glRotated ,deg 0 0 -1)
|
(values `(glRotated ,deg 0 0 -1)
|
||||||
(compose-transformation xform (rotation-transformation deg)))]
|
(compose-transformation xform (rotation-transformation (- deg))))]
|
||||||
[`(scale ,(? number? x) ,(? number? y))
|
[`(scale ,(? number? x) ,(? number? y))
|
||||||
(values `(glScaled ,x ,y 1)
|
(values `(glScaled ,x ,y 1)
|
||||||
(compose-transformation xform (stretching-transformation x y)))]
|
(compose-transformation xform (stretching-transformation x y)))]
|
||||||
|
|
Loading…
Reference in New Issue