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

   1 ! Copyright (C) 2009, 2012 Joe Groff.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel math.vectors.simd terrain.generation ;
   4 FROM: alien.c-types => float ;
   5 IN: benchmark.terrain-generation
   6
   7 : terrain-generation-benchmark ( -- )
   8     <terrain> float-4{ 0 0 0 1 } terrain-segment
   9     dim>> { 512 512 } assert= ;
  10
  11 MAIN: terrain-generation-benchmark