basis/ui/pens/caching/caching-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors alien.c-types colors.constants kernel
   4 specialized-arrays tools.test ui.gadgets.labels
   5 ui.pens.caching ui.pens.gradient ;
   6 IN: ui.pens.caching.tests
   7
   8 SPECIALIZED-ARRAY: float
   9
  10 ! compute-pen
  11 {
  12     { 0 0 }
  13     float-array{ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 }
  14     float-array{ 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 }
  15 } [
  16     "hi" <label> { COLOR: white COLOR: black } <gradient>
  17     [ compute-pen ] keep
  18     [ last-dim>> ] [ last-vertices>> ] [ last-colors>> ] tri
  19 ] unit-test