Images inside Blitz Code

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|544\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Images inside Blitz Code
Sun, 07 May 2023, 13:37
spinal	Was there ever a good way in blitz to store an image in the source code? -=-=- Check out my excellent homepage!
Sun, 07 May 2023, 13:37
Jayenkai	Convert pixels to data, then convert them back again? It'd be slow, plotting all those points, though. Alternatively, convert the file's data to a stream of some sort, then undo that, save the data to the disk, load the image. That'd be quicker, I think, because you're only working with data, not having to plot pixels.. .. Maybe.. Plus you'd have the png/jpeg compression working in your favour. -=-=- ''Load, Next List!''
Sun, 07 May 2023, 15:49
spinal	My first attempt failed, I copied the data directly from a bmp file and manually drew it. Weirdly some of the colours were wrong, but most were correct. Odd that. -=-=- Check out my excellent homepage!
Mon, 08 May 2023, 00:27
Jayenkai	Of course, if you were using BlitzMax, it'd be as easy as IncBin, but I've searched the B3D help file, and there's nothing of the sort in there, I'm afraid. -=-=- ''Load, Next List!''
Mon, 08 May 2023, 00:49
Afr0	If this is about Blitz3D, itâ€™s open source now so you can make it do whatever the hell you want! Here is a version thatâ€™ll actually build using a modern version VS rather than the ancient VS 6.0 (man, I remember getting that for Christmas from my dad as a kid - good times!) If you donâ€™t know C++, just ask ChatGPT to help! -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Mon, 08 May 2023, 01:27
Jayenkai	Yeah, but I think that's one of those "If you're already using C++, why not just keep on using C++" things. I think I'd probably just stick to C++, myself. But then, I also had a half-assed C++ engine up and running back in 2018, so maybe I'm not the best person to suggest that. It's certainly a more .. .. let's say, easy to break, language! Honestly, it seems way more complicated trying to wrangle the source of Blitz to include a file than it would just to get C++ to do it, but then you'd have to rewrite everything else in C++, too. I guess it depends on what Spinal's doing in C++. Given he's already coded a ton of the MaxFPS stuff using Python, maybe that might be something to stick with, instead of using Blitz in the first place? -=-=- ''Load, Next List!''
Mon, 08 May 2023, 02:45
Pakz	Could you just save strings of data as a filestream and load it as a image or other data file?
Mon, 08 May 2023, 04:48
Afr0	Yeah, except you should save them as binary data as that makes them faster to work with. And you should save them as COMPRESSED binary data. To that end, here's a variation of LZ compression that I managed to get ChatGPT to wrangle from C++ into a Blitz++ hybrid. It obviously won't compile out of the box, but it should be close enough that you won't have too much trouble with it. Function RefPack_compress(input.LengthInBytes As Long, output.buffer As Byte Ptr) Dim run As Long Dim toffset As Long Dim boffset As Long Dim blen As Long Dim bcost As Long Dim mlen As Long Dim countliterals As Long Dim countshort As Long Dim countlong As Long Dim countvlong As Long Dim hash As Long Dim hoffset As Long Dim minhoffset As Long Dim i As Long Dim link(131071) As Long Dim hashtbl(65535) As Long Dim hashptr As Long Ptr Dim len As Long = input.LengthInBytes Dim tlen As Long Dim tcost As Long Dim cptr As Byte Ptr Dim rptr As Byte Ptr Dim to As Byte Ptr Dim tptr As Byte Ptr output.buffer = New Byte[(input.LengthInBytes * 2) + 8192] to = output.buffer ' Write size into the stream For i = 0 To 3 to[i] = (input.LengthInBytes Shr (i * 8)) And 255 Next i to = to + 4 run = 0 cptr = rptr = input.buffer ' Initialize hash table For i = 0 To 65535 hashtbl(i) = -1 Next i While len > 0 boffset = 0 blen = bcost = 2 mlen = Min(len, 1028) tptr = cptr - 1 hash = HASH(cptr) hoffset = hashtbl(hash) minhoffset = Max(cptr - input.buffer - 131071, 0) If hoffset >= minhoffset Then Repeat tptr = input.buffer + hoffset If cptr[blen] = tptr[blen] Then tlen = matchlen(cptr, tptr, mlen) If tlen > blen Then toffset = (cptr - 1) - tptr If toffset < 1024 And tlen <= 10 Then ' Two byte long form tcost = 2 ElseIf toffset < 16384 And tlen <= 67 Then ' Three byte long form tcost = 3 Else ' Four byte very long form tcost = 4 End If If tlen - tcost + 4 > blen - bcost + 4 Then blen = tlen bcost = tcost boffset = toffset If blen >= 1028 Then Exit End If End If End If hoffset = link[hoffset And 131071] Until hoffset < minhoffset End If If bcost >= blen Then hoffset = (cptr - input.buffer) link(hoffset And 131071) = hashtbl(hash) hashtbl(hash) = hoffset run = run + 1 cptr = cptr + 1 len = len - 1 Else While run > 3 ' Literal block of data tlen = Min(112, run And Not run = run - tlen to = (0xE0 + (tlen >> 2) - 1) to = to + 1 MemCopy(to, rptr, tlen) rptr = rptr + tlen to = to + tlen countliterals = countliterals + 1 Wend If bcost = 2 Then ' Two byte long form to = (((boffset >> 8) << 5) + ((blen - 3) << 2) + run) to = to + 1 to = boffset to = to + 1 countshort = countshort + 1 ElseIf bcost = 3 Then ' Three byte long form to = (0x80 + (blen - 4)) to = to + 1 to = ((run << 6) + (boffset >> 8)) to = to + 1 to = boffset to = to + 1 countlong = countlong + 1 Else ' Four byte very long form to = (0xC0 + ((boffset >> 16) << 4) + (((blen - 5) >> 8) << 2) + run) to = to + 1 to = (boffset >> 8) to = to + 1 to = boffset to = to + 1 to = (blen - 5) to = to + 1 countvlong = countvlong + 1 End If If run > 0 Then MemCopy(to, rptr, run) to = to + run run = 0 End If For i = 0 To blen - 1 hash = HASH(cptr) hoffset = (cptr - input.buffer) link(hoffset And 131071) = hashtbl(hash) hashtbl(hash) = hoffset cptr = cptr + 1 Next i rptr = cptr len = len - blen End If Wend While run > 3 ' No match at end, use literal tlen = Min(112, run And Not 3) run = run - tlen to = (0xE0 + (tlen >> 2) - 1) to = to + 1 MemCopy(to, rptr, tlen) rptr = rptr + tlen to = to + tlen Wend to = (0xFC + run) ' End of stream command + 0..3 literal to = to + 1 If run > 0 Then MemCopy(to, rptr, run) to = to + run End If output.LengthInBytes = (to - output.buffer) End Function Function matchlen(s As Byte Ptr, d As Byte Ptr, maxmatch As UInt) As UInt Local current As UInt current = 0 While current < maxmatch And s = d s = s + 1 d = d + 1 current = current + 1 Wend Return current End Function --v Here's the CRC table that it started converting: Type RefPack Field crctab(255) As Long End Type Function RefPack_New() As RefPack Local rp As RefPack rp = New(RefPack) rp\crctab() = [ $0000, $c0c1, $c181, $0140, $c301, $03c0, $0280, $c241, $c601, $06c0, $0780, $c741, $0500, $c5c1, $c481, $0440, $cc01, $0cc0, $0d80, $cd41, $0f00, $cfc1, $ce81, $0e40, $0a00, $cac1, $cb81, $0b40, $c901, $09c0, $0880, $c841, $d801, $18c0, $1980, $d941, $1b00, $dbc1, $da81, $1a40, $1e00, $dec1, $df81, $1f40, $dd01, $1dc0, $1c80, $dc41, $1400, $d4c1, $d581, $1540, $d701, $17c0, $1680, $d641, $d201, $12c0, $1380, $d341, $1100, $d1c1, $d081, $1040, $f001, $30c0, $3180, $f141, $3300, $f3c1, $f281, $3240, $3600, $f6c1, $f781, $3740, $f501, $35c0, $3480, $f441, $3c00, $fcc1, $fd81, $3d40, $ff01, $3fc0, $3e80, $fe41, $fa01, $3ac0, $3b80, $fb41, $3900, $f9c1, $f881, $3840, $2800, $e8c1, $e981, $2940, $eb01, $2bc0, $2a80, $ea41, $ee01, $2ec0, $2f80, $ef41, $2d00, $edc1, $ec81, $2c40, $e401, $24c0, $2580, $e541, $2700, $e7c1, $e681, $2640, $2200, $e2c1, $e381, $2340, $e101, $21c0, $2080, $e041, $a001, $60c0, $6180, $a141, $6300, $a3c1, $a281, $6240, $6600, $a6c1, $a781, $6740, $a501, $65c0, $6480, $a441, $ --v Sub decompress(input As DecompressorInput, output As CompressorInput) Local index As Byte Ptr Local ref As Byte Ptr Local destIndex As Byte Ptr Local first As Byte Local second As Byte Local third As Byte Local forth As Byte Local run As UInt index = input.buffer output.lengthInBytes = 0 For i = 0 To 3 output.lengthInBytes \| = (index) Shl (i 8) index = index + 1 Next output.buffer = New Byte[output.lengthInBytes] destIndex = output.buffer While True first = index index = index + 1 If (first & $80) = 0 second = index index = index + 1 run = first & 3 While run > 0 destIndex = index destIndex = destIndex + 1 index = index + 1 run = run - 1 Wend ref = destIndex - 1 - (((first & $60) Shl 3) + second) run = ((first & $1C) Shr 2) + 3 - 1 While run > 0 destIndex = ref destIndex = destIndex + 1 ref = ref + 1 run = run - 1 Wend Continue EndIf If (first & $40) = 0 second = index index = index + 1 third = index index = index + 1 run = second Shr 6 While run > 0 destIndex = index destIndex = destIndex + 1 index = index + 1 run = run - 1 Wend ref = destIndex - 1 - (((second & $3F) Shl 8) + third) run = (first & $3F) + 4 - 1 While run > 0 destIndex = ref destIndex = destIndex + 1 ref = ref + 1 run = run - 1 Wend Continue EndIf If (first & $20) = 0 second = index index = index + 1 third = index index = index + 1 forth = index index = index + 1 run = first & 3 While run > 0 destIndex = index destIndex = destIndex + 1 index = index + 1 run = run - 1 Wend ref = destIndex - 1 - (((first & $10) Shr 4 Shl 16) + (second Shl 8) + third) run = ((first & $0C) Shr 2 Shl 8) + forth + 5 - 1 While run > 0 destIndex = ref destIndex = destIndex + 1 ref = ref + 1 run = run - 1 Wend Continue EndIf run = ((first & $1F) Shl 2) run = ((first & $1F) Shl 2) + 4 If run <= 112 While run > 0 destIndex = index destIndex = destIndex + 1 index = index + 1 run = run - 1 Wend Continue EndIf run = first & 3 While run > 0 destIndex = *index destIndex = destIndex + 1 index = index + 1 run = run - 1 Wend Exit Wend End Sub --v The original CRC table: u_int32 RefPack::crctab[256]= { 0x0000, 0xc0c1, 0xc181, 0x0140, 0xc301, 0x03c0, 0x0280, 0xc241, 0xc601, 0x06c0, 0x0780, 0xc741, 0x0500, 0xc5c1, 0xc481, 0x0440, 0xcc01, 0x0cc0, 0x0d80, 0xcd41, 0x0f00, 0xcfc1, 0xce81, 0x0e40, 0x0a00, 0xcac1, 0xcb81, 0x0b40, 0xc901, 0x09c0, 0x0880, 0xc841, 0xd801, 0x18c0, 0x1980, 0xd941, 0x1b00, 0xdbc1, 0xda81, 0x1a40, 0x1e00, 0xdec1, 0xdf81, 0x1f40, 0xdd01, 0x1dc0, 0x1c80, 0xdc41, 0x1400, 0xd4c1, 0xd581, 0x1540, 0xd701, 0x17c0, 0x1680, 0xd641, 0xd201, 0x12c0, 0x1380, 0xd341, 0x1100, 0xd1c1, 0xd081, 0x1040, 0xf001, 0x30c0, 0x3180, 0xf141, 0x3300, 0xf3c1, 0xf281, 0x3240, 0x3600, 0xf6c1, 0xf781, 0x3740, 0xf501, 0x35c0, 0x3480, 0xf441, 0x3c00, 0xfcc1, 0xfd81, 0x3d40, 0xff01, 0x3fc0, 0x3e80, 0xfe41, 0xfa01, 0x3ac0, 0x3b80, 0xfb41, 0x3900, 0xf9c1, 0xf881, 0x3840, 0x2800, 0xe8c1, 0xe981, 0x2940, 0xeb01, 0x2bc0, 0x2a80, 0xea41, 0xee01, 0x2ec0, 0x2f80, 0xef41, 0x2d00, 0xedc1, 0xec81, 0x2c40, 0xe401, 0x24c0, 0x2580, 0xe541, 0x2700, 0xe7c1, 0xe681, 0x2640, 0x2200, 0xe2c1, 0xe381, 0x2340, 0xe101, 0x21c0, 0x2080, 0xe041, 0xa001, 0x60c0, 0x6180, 0xa141, 0x6300, 0xa3c1, 0xa281, 0x6240, 0x6600, 0xa6c1, 0xa781, 0x6740, 0xa501, 0x65c0, 0x6480, 0xa441, 0x6c00, 0xacc1, 0xad81, 0x6d40, 0xaf01, 0x6fc0, 0x6e80, 0xae41, 0xaa01, 0x6ac0, 0x6b80, 0xab41, 0x6900, 0xa9c1, 0xa881, 0x6840, 0x7800, 0xb8c1, 0xb981, 0x7940, 0xbb01, 0x7bc0, 0x7a80, 0xba41, 0xbe01, 0x7ec0, 0x7f80, 0xbf41, 0x7d00, 0xbdc1, 0xbc81, 0x7c40, 0xb401, 0x74c0, 0x7580, 0xb541, 0x7700, 0xb7c1, 0xb681, 0x7640, 0x7200, 0xb2c1, 0xb381, 0x7340, 0xb101, 0x71c0, 0x7080, 0xb041, 0x5000, 0x90c1, 0x9181, 0x5140, 0x9301, 0x53c0, 0x5280, 0x9241, 0x9601, 0x56c0, 0x5780, 0x9741, 0x5500, 0x95c1, 0x9481, 0x5440, 0x9c01, 0x5cc0, 0x5d80, 0x9d41, 0x5f00, 0x9fc1, 0x9e81, 0x5e40, 0x5a00, 0x9ac1, 0x9b81, 0x5b40, 0x9901, 0x59c0, 0x5880, 0x9841, 0x8801, 0x48c0, 0x4980, 0x8941, 0x4b00, 0x8bc1, 0x8a81, 0x4a40, 0x4e00, 0x8ec1, 0x8f81, 0x4f40, 0x8d01, 0x4dc0, 0x4c80, 0x8c41, 0x4400, 0x84c1, 0x8581, 0x4540, 0x8701, 0x47c0, 0x4680, 0x8641, 0x8201, 0x42c0, 0x4380, 0x8341, 0x4100, 0x81c1, 0x8081, 0x4040, }; --v -=-=- Afr0 Games Project Dollhouse on Github - Please fork!