diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-08-27 11:33:38 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-08-27 11:33:38 -0400 |
| commit | d2dd29e31dd5859a659112d32a8f32759c0668c0 (patch) | |
| tree | 0afe9d260bbcf13ec06a331f272049855cf89f0a | |
| parent | 19245613f79f3c4ea767b2315f023f325cc15c07 (diff) | |
camera: Use signal-let.
* sly/camera.scm (draw-camera): Use signal-let.
| -rw-r--r-- | sly/camera.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/sly/camera.scm b/sly/camera.scm index 8992acf..1967b80 100644 --- a/sly/camera.scm +++ b/sly/camera.scm @@ -92,8 +92,7 @@ "Draw SCENE from the perspective of CAMERA with interpolation factor ALPHA." (clear-camera camera) - (draw-scene-node (camera-scene camera) - alpha - (transform* - (signal-ref-maybe (camera-projection camera)) - (signal-ref-maybe (camera-location camera))))) + (signal-let ((scene (camera-scene camera)) + (projection (camera-projection camera)) + (location (camera-location camera))) + (draw-scene-node scene alpha (transform* projection location)))) |