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 colors.constants kernel
   4 specialized-arrays.instances.alien.c-types.float tools.test
   5 ui.gadgets.labels ui.pens.caching ui.pens.gradient ;
   6 IN: ui.pens.caching.tests
   7
   8 ! compute-pen
   9 {
  10     { 0 0 }
  11     float-array{ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 }
  12     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 }
  13 } [
  14     "hi" <label> { COLOR: white COLOR: black } <gradient>
  15     [ compute-pen ] keep
  16     [ last-dim>> ] [ last-vertices>> ] [ last-colors>> ] tri
  17 ] unit-test