Need a cheaper way to do clearcolor

[NOVARSEG]

The other way to remove grey scale is with alpha channel.

What ELSE?   no ELSE!

Code: QB64: [Select]

1. DIM C AS _UNSIGNED LONG
2. 'DIM C AS LONG
3. DIM X AS INTEGER
4. DIM Y AS INTEGER
5. DIM hSCREEN AS LONG
6. DIM hSHIP AS LONG
7.  
8. hSCREEN = _NEWIMAGE(1280, 768, 32)
9. SCREEN hSCREEN
10.  
11. hSHIP = _LOADIMAGE("lship.png", 32)
12.  
13. _SOURCE hSHIP
14.  
15. FOR Y = 0 TO _HEIGHT(hSHIP) - 1
16.     FOR X = 0 TO _WIDTH(hSHIP) - 1
17.         C = POINT(X, Y)
18.  
19.         IF _ALPHA32(C) = 0 THEN
20.             C = _RGB(255, 0, 0)
21.             PSET (X, Y), C
22.         END IF
23.  
24.         IF _ALPHA32(C) <> 0 THEN
25.             PSET (X, Y), C
26.         END IF
27.  
28.     NEXT X
29. NEXT Y
30.  
31.  
32. END
33.