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

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