extra/benchmark/terrain-generation/terrain-generation.factor

   1 ! (c)Joe Groff bsd license
   2 USING: accessors kernel math.vectors.simd terrain.generation ;
   3 FROM: alien.c-types => float ;
   4 IN: benchmark.terrain-generation
   5
   6 : terrain-generation-benchmark ( -- )
   7     <terrain> float-4{ 0 0 0 1 } terrain-segment
   8     dim>> { 512 512 } assert= ;
   9
  10 MAIN: terrain-generation-benchmark