ImageToData (and back) by SMcNeill

[The Librarian]

ImageToData (and back)

Contributor(s): @SMcNeill
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=1553.0
Tags: [data] [graphics] [mem]

Description:
The MemImageToData is a specialized version of MemToHex which takes a _MEMIMAGE and converts it to Hex, while placing the DATA statement in front of it for us, for quick use pasting it into another program.  It basically lets us store image files inside a BAS file, without needing to _LOADIMAGE them externally.

Source Code:

Code: QB64: [Select]

1. ' Set graphics mode.
2. SCREEN _NEWIMAGE(640, 480, 32)
3.  
4. ' Prepare mem block(s) and image(s).
5. DIM m AS _MEM
6. t = _NEWIMAGE(16, 16, 32)
7. m = _MEMIMAGE(t)
8.  
9. ' Send colored pixels to the destination "t".
10. _DEST t
11. CIRCLE (8, 8), 7, -1
12. PAINT (8, 8), -1
13.  
14. ' --> So far, nothing has appeared on the screen! <--
15.  
16. ' Copy the contents of "t" to the clipboard and display the result.
17. _CLIPBOARD$ = MemImagetoDATA$(m, "t", 160)
18.  
19. _DEST 0
20.  
21. COLOR _RGB(255, 255, 255)
22. PRINT "Hex representation of a small filled circle:": PRINT
23. COLOR _RGB(155, 155, 155)
24. PRINT LEFT$(_CLIPBOARD$, 800)
25. PRINT "... etc. etc. ..."
26. PRINT RIGHT$(_CLIPBOARD$, 100)
27. PRINT
28. COLOR _RGB(255, 255, 255)
29. PRINT "This information is already contained in the DATA statements in this program."
30. PRINT "Press any key to convert this data back to an image."
31.  
32. DO: LOOP UNTIL INKEY$ <> ""
33.  
34. ' Restore using the proper label associated with the data.
35. RESTORE TheDataLabel
36.  
37. ' Create and display a new image using the data.
38. t1 = DATAtoImage
39. _PUTIMAGE (320, 400), t1
40.  
41. END
42.  
43. TheDataLabel:
44. DATA 16,16,4
45. DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
46. DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000
47. DATA 0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
48. DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
49. DATA 00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
50. DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000
51. DATA 000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
52.  
53. FUNCTION DATAtoImage&
54.     'Requires a RESTORE label for the proper data BEFORE calling this routine
55.     READ w, h, ps
56.     SELECT CASE ps
57.         CASE 1: ps = 256 '256 color screen
58.         CASE 2: ps = 0 'text screen
59.         CASE 4: ps = 32 '32-bit color screen
60.     END SELECT
61.     DATAtoImage& = _NEWIMAGE(w, h, ps)
62.     DIM m AS _MEM
63.     m = _MEMIMAGE(DATAtoImage&)
64.     DIM h AS _UNSIGNED _BYTE
65.     DO
66.         READ hx$
67.         FOR i = 1 TO LEN(hx$) STEP 2
68.             h = VAL("&H" + MID$(hx$, i, 2))
69.             _MEMPUT m, m.OFFSET + o, h
70.             o = o + 1
71.         NEXT
72.         LOCATE 1, 1: PRINT o, m.SIZE
73.     LOOP UNTIL o >= m.SIZE
74.     _MEMFREE m
75. END FUNCTION
76.  
77. FUNCTION MemImagetoDATA$ (m AS _MEM, label$, break)
78.     DIM b AS _UNSIGNED _BYTE
79.     s = ConvertOffset(m.SIZE) - 1
80.     label$ = _TRIM$(label$)
81.     IF label$ = "" THEN label$ = "generic_label_placeholder:"
82.     IF RIGHT$(label$, 1) <> ":" THEN label$ = label$ + ":"
83.     MemImagetoDATA$ = label$ + CHR$(10) + "DATA "
84.     MemImagetoDATA$ = MemImagetoDATA$ + STR$(_WIDTH(m.IMAGE)) + ", "
85.     MemImagetoDATA$ = MemImagetoDATA$ + STR$(_HEIGHT(m.IMAGE)) + ", "
86.     MemImagetoDATA$ = MemImagetoDATA$ + STR$(_PIXELSIZE(m.IMAGE)) + CHR$(10) + "DATA "
87.     FOR i = 0 TO s
88.         _MEMGET m, m.OFFSET + i, b
89.         h$ = HEX$(b)
90.         IF LEN(h$) = 1 THEN h$ = "0" + h$
91.         MemImagetoDATA$ = MemImagetoDATA$ + h$
92.         IF i MOD break = break - 1 AND i < s THEN
93.             MemImagetoDATA$ = MemImagetoDATA$ + CHR$(10) + "DATA "
94.         END IF
95.     NEXT
96. END FUNCTION
97.  
98. FUNCTION ConvertOffset&& (value AS _OFFSET)
99.     DIM m AS _MEM 'Define a memblock
100.     m = _MEM(value) 'Point it to use value
101.     $IF 64BIT THEN
102.         'On 64 bit OSes, an OFFSET is 8 bytes in size.  We can put it directly into an Integer64
103.         _MEMGET m, m.OFFSET, ConvertOffset&& 'Get the contents of the memblock and put the values there directly into ConvertOffset&&
104.     $ELSE
105.         'However, on 32 bit OSes, an OFFSET is only 4 bytes.  We need to put it into a LONG variable first
106.         _MEMGET m, m.OFFSET, temp& 'Like this
107.         ConvertOffset&& = temp& 'And then assign that long value to ConvertOffset&&
108.     $END IF
109.     _MEMFREE m 'Free the memblock
110. END FUNCTION
111.