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.