jamshred-gadget

Vocabulary

jamshred

Definition

USING: jamshred.game ui.gadgets ;

IN: jamshred

TUPLE: jamshred-gadget < gadget
    { jamshred jamshred initial: T{ jamshred } } last-hand-loc ;

Methods

USING: accessors jamshred jamshred.gl kernel sequences ui.render
;

M: jamshred-gadget draw-gadget*
    [ jamshred>> ] [ dim>> first2 draw-jamshred ] bi ;


USING: jamshred jamshred.gl kernel threads ui.gadgets
ui.gadgets.worlds ;

M: jamshred-gadget graft*
    [ find-gl-context init-graphics ]
    [ [ jamshred-loop ] curry in-thread ] bi ;


USING: arrays jamshred kernel ui.gadgets ;

M: jamshred-gadget pref-dim*
    drop default-width default-height 2array ;


USING: accessors jamshred jamshred.gl kernel ui.gadgets
ui.gadgets.worlds ;

M: jamshred-gadget ungraft*
    dup find-gl-context
    cleanup-graphics jamshred>> t swap quit<< ;