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.
Done