summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/render/scene.scm26
1 files changed, 0 insertions, 26 deletions
diff --git a/sly/render/scene.scm b/sly/render/scene.scm
index 3249cc2..8031ea5 100644
--- a/sly/render/scene.scm
+++ b/sly/render/scene.scm
@@ -67,32 +67,6 @@ whether to draw the node and all of its children or not."
(cons elem memo)))
'() lst))
-(define (set-identity! t)
- (let ((matrix (transform-matrix t)))
- (array-set! matrix 1 0 0)
- (array-set! matrix 0 0 1)
- (array-set! matrix 0 0 2)
- (array-set! matrix 0 0 3)
- (array-set! matrix 0 1 0)
- (array-set! matrix 1 1 1)
- (array-set! matrix 0 1 2)
- (array-set! matrix 0 1 3)
- (array-set! matrix 0 2 0)
- (array-set! matrix 0 2 1)
- (array-set! matrix 1 2 2)
- (array-set! matrix 0 2 3)
- (array-set! matrix 0 3 0)
- (array-set! matrix 0 3 1)
- (array-set! matrix 0 3 2)
- (array-set! matrix 1 3 3)))
-
-(define t (make-transform 0 0 0 0
- 0 0 0 0
- 0 0 0 0
- 0 0 0 0))
-
-(set-identity! t)
-
(define (scene->renderer node context camera)
"Traverse the scene graph defined by NODE and its children, as seen
by CAMERA, and return a list of the render operations needed to