From 14bd1f282d13e39914997619e976d7becd66abae Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 8 Sep 2015 20:25:55 -0400 Subject: [PATCH] Fix glRotated call --- prospect-gl/2d.rkt | 2 +- prospect-gl/examples/basic.rkt | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/prospect-gl/2d.rkt b/prospect-gl/2d.rkt index e33f84d..97e1de3 100644 --- a/prospect-gl/2d.rkt +++ b/prospect-gl/2d.rkt @@ -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)) diff --git a/prospect-gl/examples/basic.rkt b/prospect-gl/examples/basic.rkt index 7ae763e..1930590 100644 --- a/prospect-gl/examples/basic.rkt +++ b/prospect-gl/examples/basic.rkt @@ -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)