com-glider ( gadget -- )


Vocabulary
game-of-life

Inputs
gadgetan object


Outputs
None

Definition


:: com-glider ( gadget -- )
gadget grid>> :> grid
{ { 2 1 } { 3 2 } { 1 3 } { 2 3 } { 3 3 } }
[ first2 grid nth t -rot set-nth ] each gadget relayout-1 ;