add a terrain-generation benchmark so slava will make it fast

db4
Joe Groff 2009-08-28 10:40:01 -05:00
parent b8978446d9
commit c6c22a4d5d
1 changed files with 10 additions and 0 deletions

View File

@ -0,0 +1,10 @@
! (c)Joe Groff bsd license
USING: io kernel terrain.generation threads ;
IN: benchmark.terrain-generation
: terrain-generation-benchmark ( -- )
"Generating terrain segment..." write flush yield
<terrain> { 0.0 0.0 } terrain-segment drop
"done" print ;
MAIN: terrain-generation-benchmark