How do I paint a shape?

[bplus]

Code: (Select All)

Screen _NewImage(1200, 820, 32)

Dim colr As _Unsigned Long: colr = _RGB32(255, 0, 0)

colr = _RGB32(0, 255, 255)

PSet (500, 300): Draw "C" + Str$(colr) + "R100F100D100G100L100H100U100E100"

Paint (600, 410), &HFFFF0000, colr