From 0f3db4eac65e4c625afd41e7ba5c7278c3af4e7f Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 8 Oct 2016 17:34:48 -0400 Subject: [PATCH] Rotations had the wrong sign --- racket/syndicate-gl/2d.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/syndicate-gl/2d.rkt b/racket/syndicate-gl/2d.rkt index c13068b..5f71e29 100644 --- a/racket/syndicate-gl/2d.rkt +++ b/racket/syndicate-gl/2d.rkt @@ -214,7 +214,7 @@ (match instr [`(rotate ,(? number? deg)) (values `(glRotated ,deg 0 0 -1) - (compose-transformation xform (rotation-transformation deg)))] + (compose-transformation xform (rotation-transformation (- deg))))] [`(scale ,(? number? x) ,(? number? y)) (values `(glScaled ,x ,y 1) (compose-transformation xform (stretching-transformation x y)))]