diff options
| -rw-r--r-- | sly/render/scene.scm | 26 |
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 |