benchmark.raytracer: eliminate -rot usage

2009-08-25 19:33:48 -05:00 · 2009-08-25 19:33:48 -05:00 · b71e14d89f
parent 7b2c9df341
commit b71e14d89f
1 changed files with 1 additions and 1 deletions
--- a/extra/benchmark/raytracer/raytracer.factor
+++ b/extra/benchmark/raytracer/raytracer.factor
@ -155,7 +155,7 @@ DEFER: create ( level c r -- scene )
    ] with map ;

 : ray-pixel ( scene point -- n )
-    ss-grid ray-grid 0.0 -rot
+    ss-grid ray-grid [ 0.0 ] 2dip
    [ [ swap cast-ray + ] with each ] with each ;

 : pixel-grid ( -- grid )