Paste: foo

Author: slava
Mode: factor
Date: Wed, 18 Feb 2009 03:50:23
Plain Text |
SINGLETON: new-pen

M: new-pen draw-interior drop T{ rgba f 0 0 0 1 } gl-color { 0 0 } { 2 0 } gl-line ;

: <foo> ( -- gadget )  <gadget> new-pen >>interior { 3 3 } >>dim ;

<foo> gadget.

New Annotation

Summary:
Author:
Mode:
Body: