scene: Remove code that should never have been committed.

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