! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien.c-types colors.constants kernel specialized-arrays tools.test ui.gadgets.labels ui.pens.caching ui.pens.gradient ; SPECIALIZED-ARRAY: float ! compute-pen { { 0 0 } float-array{ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 } 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 } } [ "hi"