How do I paint a shape?

[PhilOfPerth]

@PhilofPerth

Do you need the exact same shape in red?

In this way you can save to memory more images - and then place it using _PutImage - it is fastest method.

Code: (Select All)

'how create more images from one in different colors



Dim Images(3) As Long



Screen _NewImage(1200, 820, 32)

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



For ImageCreate = 0 To 3

    Select Case ImageCreate

        Case 0: R = 0: G = 255: B = 255

        Case 1: R = 255: G = 255: B = 255

        Case 2: R = 255: G = 255: B = 0

        Case 3: R = 0: G = 0: B = 255

    End Select



    Images(ImageCreate) = _NewImage(1200, 820, 32)

    _Dest Images(ImageCreate)

    colr = _RGB(R, G, B)

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

Next

_Dest 0

For ImageView = 0 To 3

    Cls

    _PutImage , Images(ImageView), 0

    Print "Press any key for next image..."

    Sleep

Next

Thanks Petr. No, I didn't necessarily want the exact same shape. I wanted a flexible algorithm that I could apply to different shapes to colour them