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

benchmark.raytracer: replace hard-coded constant with self-documenting code

db4
Slava Pestov 2009-09-03 02:24:32 -05:00
parent 10297b66ce
commit c719b92363
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,9 +2,9 @@
! http://www.ffconsultancy.com/free/ray_tracer/languages.html ! http://www.ffconsultancy.com/free/ray_tracer/languages.html
USING: arrays accessors specialized-arrays.double io io.files USING: arrays accessors specialized-arrays.double io io.files
io.files.temp io.encodings.binary kernel math math.functions io.files.temp io.encodings.binary kernel math math.constants
math.vectors math.parser make sequences sequences.private words math.functions math.vectors math.parser make sequences
hints ; sequences.private words hints ;
IN: benchmark.raytracer IN: benchmark.raytracer
! parameters ! parameters
@ -23,7 +23,7 @@ CONSTANT: levels 3
CONSTANT: size 200 CONSTANT: size 200
CONSTANT: delta 1.4901161193847656E-8 : delta ( -- n ) epsilon sqrt ; inline
TUPLE: ray { orig double-array read-only } { dir double-array read-only } ; TUPLE: ray { orig double-array read-only } { dir double-array read-only } ;