steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/raytracer-simd/raytracer-simd.factor
View File

@ -161,13 +161,13 @@ CONSTANT: create-offsets
: pgm-pixel ( n -- ) 255 * 0.5 + >fixnum , ; : 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 [ levels double-4{ 0.0 -1.0 0.0 0.0 } 1.0 create ray-trace [
size size pgm-header size size pgm-header
[ [ oversampling sq / pgm-pixel ] each ] each [ [ oversampling sq / pgm-pixel ] each ] each
] B{ } make ; ] B{ } make ;
: raytracer-simd-benchmark ( -- ) : 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 MAIN: raytracer-simd-benchmark

4
extra/benchmark/raytracer/raytracer.factor
View File

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

4
extra/cairo-demo/cairo-demo.factor
View File

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