extra: be more explicit about which 'run'
parent
f185259cae
commit
45344deb82
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue