How do I paint a shape?

[TempodiBasic]

Here a more complex shape
a fir tree

Code: (Select All)

Screen _NewImage(1200, 820, 32)
Dim colr As _Unsigned Long
colr = _RGB32(0, 255, 255)
Draw "s6" ' default setting of Draw
Draw "C" + Str$(colr) + "bm600,300" + "g50r10g75r15g100r225D100L50u100r50bm-2,+8 p " + Str$(_RGBA(139, 100, 11, 255)) + "," + Str$(colr) + "c" + Str$(colr) + " bm+2,-8 r175h100r15h75r10h50" + "bm +0,+15 p" + Str$(_RGBA32(0, 255, 0, 255)) + "," + Str$(colr)
_Delay 1
Draw "S2C" + Str$(colr) + "bm200,100" + "g50r10g75r15g100r225D100L50u100r50bm-4,+8 p " + Str$(_RGBA(139, 100, 11, 255)) + "," + Str$(colr) + "c" + Str$(colr) + " bm+4,-8 r175h100r15h75r10h50" + "bm +0,+15 p" + Str$(_RGBA32(0, 255, 0, 255)) + "," + Str$(colr)
_Delay 1

Draw "s1C" + Str$(colr) + "bm50,30" + "g50r10g75r15g100r225D100L50u100r50bm-4,+8 p " + Str$(_RGBA(139, 100, 11, 255)) + "," + Str$(colr) + "c" + Str$(colr) + " bm+4,-8 r175h100r15h75r10h50" + "bm +0,+15 p" + Str$(_RGBA32(0, 255, 0, 255)) + "," + Str$(colr)
_Delay 1

Draw "s4C" + Str$(colr) + "bm800,300" + "g50r10g75r15g100r225D100L50u100r50bm-2,+10 p " + Str$(_RGBA(139, 100, 11, 255)) + "," + Str$(colr) + "c" + Str$(colr) + " bm+2,-10 r175h100r15h75r10h50" + "bm +0,+15 p" + Str$(_RGBA32(0, 255, 0, 255)) + "," + Str$(colr)

you can build a wood!