extra: be more explicit about which 'run'

db4
Doug Coleman 2015-06-08 17:24:59 -07:00
parent f185259cae
commit 45344deb82
3 changed files with 6 additions and 6 deletions

View File

@ -161,13 +161,13 @@ CONSTANT: create-offsets
: pgm-pixel ( n -- ) 255 * 0.5 + >fixnum , ;
: run ( -- string )
: run-raytracer-simd ( -- string )
levels double-4{ 0.0 -1.0 0.0 0.0 } 1.0 create ray-trace [
size size pgm-header
[ [ oversampling sq / pgm-pixel ] each ] each
] B{ } make ;
: raytracer-simd-benchmark ( -- )
run "raytracer.pnm" temp-file binary set-file-contents ;
run-raytracer-simd "raytracer.pnm" temp-file binary set-file-contents ;
MAIN: raytracer-simd-benchmark

View File

@ -175,13 +175,13 @@ DEFER: create
: ray-trace ( scene -- pixels )
pixel-grid [ [ ray-pixel ] with map ] with map ;
: run ( -- string )
: run-raytracer ( -- string )
levels double-array{ 0.0 -1.0 0.0 } 1.0 create ray-trace [
size size pgm-header
[ [ oversampling sq / pgm-pixel ] each ] each
] B{ } make ;
: raytracer-benchmark ( -- )
run "raytracer.pnm" temp-file binary set-file-contents ;
run-raytracer "raytracer.pnm" temp-file binary set-file-contents ;
MAIN: raytracer-benchmark

View File

@ -78,9 +78,9 @@ M: cairo-demo-gadget ungraft* ( gadget -- )
: <cairo-demo-gadget> ( -- gadget )
cairo-demo-gadget new ;
: run ( -- )
: run-cairo-demo ( -- )
[
<cairo-demo-gadget> "Hello World from Factor!" open-window
] with-ui ;
MAIN: run
MAIN: run-cairo-demo