From e35c0486afb7f803a5b87186200e7d604078585c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 23 Nov 2014 18:56:59 -0500 Subject: scene: Remove code that should never have been committed. --- sly/render/scene.scm | 26 -------------------------- 1 file changed, 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 -- cgit v1.2.3