How do I paint a shape?

[bplus]

^
|
Why did you assign "colr" twice? Maybe I should have rewritten my example suggesting to Phil to use another LONG integer variable, one for the border color and the other for the shape color. The 32-bit color doesn't have to be _UNSIGNED -- for those looking to save typing.

If you are asking me, I didn't do that. I just did last line that paints. I didn't even notice it.

It is curious how the whole screen gets painted without a border color argument? Oh wait I added 32 to ends of RGB.

Update: the normal command works without 32's

Code: (Select All)

Screen _NewImage(1200, 820, 32)
Dim colr As _Unsigned Long: colr = _RGB(255, 0, 0)
colr = _RGB(0, 255, 255)
PSet (500, 300): Draw "C" + Str$(colr) + "R100F100D100G100L100H100U100E100"
Paint (600, 410), colr ', colr