Convert pictures to 256-colour embedded sprites

[TrialAndTerror]

Hi, here's a piece of code I use to embed sprites in a program when I don'r want to use original PNG, JPG or BMP files.
I'm sure there's a better way to embed graphics. Anyone?

T&T

P.S. it outputs "Data.bas" containing sprite and colour data.

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. SCREEN _NEWIMAGE(640, 480, 32)
4.  
5. LOCATE 10, 18: INPUT "Afbeelding plus extensie (JPG,BMP,PNG) "; I$
6.  
7. IF _FILEEXISTS(I$) = 0 THEN LOCATE 22, 1: PRINT "Bestandsfout. Druk een toets...": SLEEP: SYSTEM
8.  
9. Stam$ = LEFT$(I$, LEN(I$) - 4)
10.  
11. CLS
12.  
13. Afbeelding& = _LOADIMAGE(I$)
14.  
15. Breedte = _WIDTH(Afbeelding&)
16. Hoogte = _HEIGHT(Afbeelding&)
17.  
18. Volgorde$ = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@"
19.  
20. IF Breedte < 1 OR Hoogte < 1 OR Breedte > 320 OR Hoogte > 320 THEN LOCATE 22, 1: PRINT "Foute afmetingen. Druk een toets...": SLEEP: SYSTEM
21.  
22. DIM ch(0 TO 63 + 256 * 63 + 65536 * 63)
23. DIM w&(1 TO Breedte * Hoogte)
24. DIM v&(1 TO Breedte * Hoogte)
25. DIM p&(32 TO Breedte * Hoogte)
26. DIM b$(1 TO LEN(Volgorde$))
27. DIM Kleur(0 TO Breedte - 1, 0 TO Hoogte - 1)
28.  
29. FOR p = 1 TO LEN(Volgorde$)
30.     b$(p) = MID$(Volgorde$, p, 1)
31. NEXT
32.  
33. LINE (320, 0)-(320, 320)
34. LINE (0, 320)-(320, 320)
35.  
36. _PUTIMAGE (0, 0), Afbeelding&
37.  
38. FOR y = 0 TO Hoogte - 1
39.     FOR x = 0 TO Breedte - 1
40.         t = t + 1
41.         w&(t) = POINT(x, y)
42.         v&(t) = (_RED32(w&(t)) \ 4) + 256 * (_GREEN32(w&(t)) \ 4) + 65536 * (_BLUE32(w&(t)) \ 4)
43.     NEXT
44. NEXT
45.  
46. FOR j = 1 TO t
47.     Uniek = 1
48.     FOR m = 1 TO j - 1
49.         IF v&(j) = v&(m) THEN Uniek = 0
50.     NEXT
51.     IF Uniek = 1 THEN
52.         AantalKleuren = AantalKleuren + 1
53.         p&(AantalKleuren + 31) = v&(j)
54.     END IF
55. NEXT
56.  
57. LOCATE 22, 1: PRINT "Aantal gedetecteerde Kleuren:"; AantalKleuren
58.  
59. IF AantalKleuren > LEN(Volgorde$) THEN: LOCATE 22, 1: PRINT "Sorry, maximaal"; LEN(Volgorde$); " verschillende Kleuren per afbeelding. Druk een toets...": SLEEP: SYSTEM
60.  
61. SCREEN _NEWIMAGE(640, 480, 256)
62.  
63. LINE (320, 0)-(320, 320)
64. LINE (0, 320)-(320, 320)
65.  
66. OPEN Stam$ + "Data.bas" FOR OUTPUT AS #1
67.  
68. PRINT #1, "DATA " + LTRIM$(STR$(AantalKleuren))
69. PRINT #1, "DATA " + LEFT$(Volgorde$, AantalKleuren)
70.  
71. WHILE k < AantalKleuren
72.     k = k + 1
73.     t$ = t$ + LTRIM$(RTRIM$(STR$(p&(k + 31))))
74.     t$ = t$ + ","
75. WEND
76. t$ = LEFT$(t$, LEN(t$) - 1)
77. t$ = "DATA " + t$
78. PRINT #1, t$
79.  
80. FOR Kleurkanaal = 32 TO 32 + AantalKleuren - 1
81.     PALETTE Kleurkanaal, p&(Kleurkanaal)
82.     ch(p&(Kleurkanaal)) = Kleurkanaal
83. NEXT
84.  
85. FOR y = 0 TO Hoogte - 1
86.     FOR x = 0 TO Breedte - 1
87.         Teller = Teller + 1
88.         Kleur(x, y) = ch(v&(Teller))
89.         PSET (x, y), Kleur(x, y)
90.     NEXT
91. NEXT
92.  
93. FOR y = 0 TO Hoogte - 1
94.     a$ = "DATA "
95.     FOR x = 0 TO Breedte - 1
96.         a$ = a$ + b$(POINT(x, y) - 31)
97.     NEXT
98.     PRINT #1, a$
99. NEXT
100. PRINT #1, "DATA $$$"
101.  
102. CLOSE #1
103.  
104. LOCATE 22, 1: PRINT Stam$ + "Data.bas weggeschreven."
105. LOCATE 24, 1: PRINT "Druk een toets om af te sluiten.";: SLEEP: SYSTEM
106.  

[SMcNeill]

If you look at my SaveImage library, the latest version has a converter to convert to 256 colors for images, as well as PNG, JPG, BMP, GIF image export ability.

[TrialAndTerror]

I'm new to GitHub but I'll surely have a look at it, SMcNeill, thanks!
I'm specially interested in the 'embedding' part of it, also looking for
a way to embed .WAV or .OGG data in a program.

Is this the good place to ask simple questions BTW?

T&T

[SMcNeill]

I'm new to GitHub but I'll surely have a look at it, SMcNeill, thanks!
I'm specially interested in the 'embedding' part of it, also looking for
a way to embed .WAV or .OGG data in a program.

Is this the good place to ask simple questions BTW?

T&T

Embedding images can be done with the ImageToData routines here: https://www.qb64.org/forum/index.php?topic=1633.0

If you look in the toolbox section of the forum, there’s code up which you can use to embed any data you need into your programs.

Feel free to ask any question you want; just be patient if it takes me a bit to answer them.  Halloween time is always a crazy time here on the farm, and I don’t get to visit the forums as much as I’d like until the holiday passes on by.  ;)