2009-08-28 11:40:01 -04:00
|
|
|
! (c)Joe Groff bsd license
|
|
|
|
|
USING: io kernel terrain.generation threads ;
|
|
|
|
|
IN: benchmark.terrain-generation
|
|
|
|
|
|
|
|
|
|
: terrain-generation-benchmark ( -- )
|
|
|
|
|
"Generating terrain segment..." write flush yield
|
2009-08-29 23:09:51 -04:00
|
|
|
<terrain> { 0 0 } terrain-segment drop
|
2009-08-28 11:40:01 -04:00
|
|
|
"done" print ;
|
|
|
|
|
|
|
|
|
|
MAIN: terrain-generation-benchmark
|
