extra/grid-meshes/grid-meshes-tests.factor

   1 USING: alien.c-types alien.data grid-meshes grid-meshes.private
   2 specialized-arrays tools.test ;
   3 SPECIALIZED-ARRAY: float
   4
   5 {
   6     float-array{
   7         0.0 0.0 0.0 1.0
   8         0.0 0.0 0.5 1.0
   9         0.5 0.0 0.0 1.0
  10         0.5 0.0 0.5 1.0
  11         1.0 0.0 0.0 1.0
  12         1.0 0.0 0.5 1.0
  13         0.0 0.0 0.5 1.0
  14         0.0 0.0 1.0 1.0
  15         0.5 0.0 0.5 1.0
  16         0.5 0.0 1.0 1.0
  17         1.0 0.0 0.5 1.0
  18         1.0 0.0 1.0 1.0
  19     }
  20 } [ { 2 2 } vertex-array float cast-array ] unit-test