board-one-bg ( parent -- board )


Vocabulary
gamelib.demos.parent-demo

Inputs
parentan object


Outputs
boardan object


Definition


:: board-one-bg ( parent -- board )
8 9 make-board { 2 2 } player add-to-cell {
{ 0 0 }
{ 1 0 }
{ 2 0 }
{ 3 0 }
{ 4 0 }
{ 5 0 }
{ 6 0 }
{ 7 0 }
{ 0 1 }
{ 7 1 }
{ 0 2 }
{ 7 2 }
{ 0 3 }
{ 7 3 }
{ 0 4 }
{ 7 4 }
{ 0 5 }
{ 7 5 }
{ 0 6 }
{ 7 6 }
{ 0 7 }
{ 7 7 }
{ 0 8 }
{ 1 8 }
{ 2 8 }
{ 3 8 }
{ 4 8 }
{ 5 8 }
{ 6 8 }
{ 7 8 }
} "vocab:gamelib/demos/parent-demo/resources/Wall_Brown.png"
add-to-cells
{ { 3 4 } { 4 4 } { 5 4 } { 4 3 } } dup parent swap
>>children drop light-crate parent make-crate
add-copy-to-cells ;