Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: TrialAndTerror on October 29, 2019, 08:51:26 pm

Title: Convert pictures to 256-colour embedded sprites
Post by: TrialAndTerror on October 29, 2019, 08:51:26 pm
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.  
  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)
  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
  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
  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$ + ","
  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
  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
  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$
  100. PRINT #1, "DATA $$$"
  101.  
  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.  

Title: Re: Convert pictures to 256-colour embedded sprites
Post by: SMcNeill on October 29, 2019, 09:33:06 pm
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.
Title: Re: Convert pictures to 256-colour embedded sprites
Post by: TrialAndTerror on October 29, 2019, 10:08:24 pm
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
Title: Re: Convert pictures to 256-colour embedded sprites
Post by: SMcNeill on October 29, 2019, 11:51:09 pm
Quote from: TrialAndTerror on October 29, 2019, 10:08:24 pm
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.  ;)
Text Only | Text with Attachments