Converting 24-Bit images to Paletted Images (2-colors to 256-colors)

[SMcNeill]

You need to catch up with QB64PE's capabilities.  Here's  all it takes  to  toggle from 32-bit to  256 colors:

Code: (Select All)

Screen _NewImage(800, 600, 32)

nature = _LoadImage("nature.jpg", 32)

nature256 = _LoadImage("nature.jpg", 256)

nature256a = _LoadImage("nature.jpg", 257)



Do

    Cls , 0

    k = _KeyHit

    Select Case k

        Case 27: System 'escape to end

        Case 19712, 18432: Color32 = Color32 + 1 'right/up

        Case 19200, 20480: Color32 = Color32 - 1 'left/down

    End Select

    If Color32 < 0 Then Color32 = 2

    If Color32 > 2 Then Color32 = 0

    Select Case Color32

        Case 0: _PutImage , nature: Print "32-bit"

        Case 1: _PutImage , nature256: Print "256-color QB64 set  palette"

        Case 2: _PutImage , nature256a: Print "256-color adaptive palette"

    End Select

    _Limit 30

    _Display

Loop

Save image below as "nature.jpg".