fastest way to draw a 2-color 8x8 tile (with variable colors)?

[madscijr]

...
The main change with my code and yours, is that I removed the software rendering completely when I was running the hardware images.
...

The one problem I'm trying to solve, is how to get the color swap version (Sub DrawColorTileHW, Sub DoColorSwapHW) working with hardware images. With that, only one tileset would need to be defined, for any number of foreground/background color combinations. Is that possible, or are we limited by the number of hardware images we can work with at one time?

Code: QB64: [Select]

1. ' BOOLEAN VALUES
2. Const FALSE = 0
3. Const TRUE = Not FALSE
4.  
5. ' START THE MAIN ROUTINE
6. DrawingSpeedTest4
7. 'HardwareImageDemo2
8.  
9. ' FINISH
10. Screen 0
11. System ' return control to the operating system
12. End
13.  
14. ' ################################################################################################################################################################
15. ' BEGIN DRAWING SPEED TEST
16. ' ################################################################################################################################################################
17.  
18. ' /////////////////////////////////////////////////////////////////////////////
19.  
20. Sub DrawingSpeedTest4
21.     Dim sError As String: sError = ""
22.     Dim imgScreen As Long ' the main display
23.     Dim imgHardwareScreen As Long ' copy of the software screen, transformed into a hardware image
24.     Dim imgTiles As Long ' original tileset, black on transparent
25.     Dim imgHardwareTiles As Long ' copy of the tileset, tranformed into a hardware image
26.     Dim imgTilesRed As Long ' colored tileset copy
27.     Dim imgTilesGreen As Long ' colored tileset copy
28.     Dim imgTilesBlue As Long ' colored tileset copy
29.     Dim imgTilesYellow As Long ' colored tileset copy
30.     Dim imgColorTiles As Long ' holds 4 copies of tileset in different colors (red, green, blue, yellow)
31.     Dim iTileNum As Integer
32.     Dim iColorIndex As Integer: iColorIndex = 0
33.     Dim iFirstColor As Integer: iFirstColor = 0
34.     Dim iLastColor As Integer: iLastColor = 3
35.     Dim iCols As Integer
36.     Dim iRows As Integer
37.     Dim iY As Integer
38.     Dim iX As Integer
39.     Dim fgColor As _Unsigned Long
40.     Dim bgColor As _Unsigned Long
41.     Dim iMinY As Integer
42.     Dim iMaxY As Integer
43.     Dim iMinX As Integer
44.     Dim iMaxX As Integer
45.     Dim iCount1 As Long
46.     Dim iCount2 As Long
47.     Dim iCount3 As Long
48.     Dim iCount4 As Long
49.     Dim t# ' for timer
50.  
51.     ' ================================================================================================================================================================
52.     ' INIT SCREEN
53.     ' ================================================================================================================================================================
54.     imgScreen = _NewImage(1024, 768, 32)
55.     _ScreenMove 0, 0
56.     Screen imgScreen
57.     Cls , cGray
58.     Color cWhite, cBlack: Locate 1, 1: Print "Press 1 to test DrawTile8 rooutine using 4 tilesets (1 per color) and regular _putimage using using SOFTWARE images...": Do: Loop Until InKey$ = "1"
59.  
60.     ' ================================================================================================================================================================
61.     ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
62.     ' ================================================================================================================================================================
63.     If Len(sError) = 0 Then
64.         '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
65.         'sFile$ = Left$(Command$(0), _InStrRev(Command$(0), "\")) + "Font_8x8_128x128_v3.png" ' 128x128 pixels, 16 rows x 16 columns of 8x8 tiles
66.         'imgTiles = _LoadImage(sFile$, 32)
67.  
68.         ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
69.         sError = GetTiles$(imgTiles, cBlack, cEmpty)
70.     End If
71.  
72.     ' ================================================================================================================================================================
73.     ' CREATE COLORED TILESET COPIES
74.     ' ================================================================================================================================================================
75.     If Len(sError) = 0 Then
76.         MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
77.         MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
78.         MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
79.         MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
80.  
81.         ' Make one big tileset with all colors
82.         imgColorTiles = _NewImage(512, 128, 32)
83.         _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
84.         _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
85.         _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
86.         _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
87.     End If
88.  
89.     ' ================================================================================================================================================================
90.     ' METHOD #1
91.     ' _PUTIMAGE with SOFTWARE IMAGES
92.     ' ================================================================================================================================================================
93.     If Len(sError) = 0 Then
94.         iCols = _Width(imgScreen) \ 8
95.         iRows = _Height(imgScreen) \ 8
96.         iMinX = 1: iMaxX = 16
97.         iMinY = 3: iMaxY = 18
98.         iCount1 = 0
99.         t# = ExtendedTimer + 3
100.         Do
101.             iCount1 = iCount1 + 1
102.             iFirstColor = iFirstColor Xor 1
103.             iColorIndex = iFirstColor
104.             iY = iMinY
105.             iX = iMinX
106.             For iTileNum = 0 To 255
107.                 Select Case iColorIndex
108.                     Case 0:
109.                         DrawTile8 imgTilesRed, iTileNum, imgScreen, iX, iY
110.                     Case 1:
111.                         DrawTile8 imgTilesGreen, iTileNum, imgScreen, iX, iY
112.                     Case 2:
113.                         DrawTile8 imgTilesBlue, iTileNum, imgScreen, iX, iY
114.                     Case Else:
115.                         DrawTile8 imgTilesYellow, iTileNum, imgScreen, iX, iY
116.                 End Select
117.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
118.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
119.             Next iTileNum
120.             _Display
121.         Loop Until Timer > t#
122.     End If
123.     _AutoDisplay
124.     Color cWhite, cBlack: Locate 11, 1: Print "Press 2 to test DrawColorTile routine using 1 tileset with DoColorSwap using SOFTWARE images...";: Do: Loop Until InKey$ = "2"
125.  
126.     ' ================================================================================================================================================================
127.     ' METHOD #2
128.     ' COLOR SWAP with SOFTWARE IMAGES
129.     ' ================================================================================================================================================================
130.     If Len(sError) = 0 Then
131.         iMinX = 1: iMaxX = 16
132.         iMinY = 23: iMaxY = 38
133.         iCount2 = 0
134.         t# = ExtendedTimer + 3
135.         Do
136.             iCount2 = iCount2 + 1
137.             iFirstColor = iFirstColor Xor 1
138.             iColorIndex = iFirstColor
139.             iY = iMinY
140.             iX = iMinX
141.             For iTileNum = 0 To 255
142.                 Select Case iColorIndex
143.                     Case 0:
144.                         fgColor = cRed: bgColor = cBlack
145.                     Case 1:
146.                         fgColor = cLime: bgColor = cBlack
147.                     Case 2:
148.                         fgColor = cBlue: bgColor = cBlack
149.                     Case Else:
150.                         fgColor = cYellow: bgColor = cBlack
151.                 End Select
152.                 DrawColorTile imgScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
153.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
154.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
155.             Next iTileNum
156.             _Display
157.         Loop Until Timer > t#
158.     End If
159.     _AutoDisplay
160.     Color cWhite, cBlack: Locate 21, 1: Print "Press 3 to test DrawTileHw8 rooutine using 1 big multi-tileset and HARDWARE images...";: Do: Loop Until InKey$ = "3"
161.  
162.     ' ================================================================================================================================================================
163.     ' METHOD #3
164.     ' _PUTIMAGE with HARDWARE IMAGES
165.     ' ================================================================================================================================================================
166.     If Len(sError) = 0 Then
167.         imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
168.         iMinX = 1: iMaxX = 16
169.         iMinY = 43: iMaxY = 58
170.         iCount3 = 0
171.         t# = ExtendedTimer + 3
172.         imgHardwareScreen = _CopyImage(0, 33)
173.         _DisplayOrder _Hardware
174.         Do
175.             iCount3 = iCount3 + 1
176.             iFirstColor = iFirstColor Xor 1
177.             iColorIndex = iFirstColor
178.             iY = iMinY
179.             iX = iMinX
180.             _PutImage , imgHardwareScreen
181.             For iTileNum = 0 To 255
182.                 DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iX, iY, iColorIndex
183.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
184.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
185.             Next iTileNum
186.             _Display
187.         Loop Until Timer > t#
188.         _AutoDisplay
189.         _DisplayOrder _Software , _Hardware
190.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
191.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
192.         Color cWhite, cBlack: Locate 31, 1: Print "Press 4 to test DrawColorTileHW rooutine using 1 tileset with DoColorSwapHW using HARDWARE images...";: Do: Loop Until InKey$ = "3"
193.     End If
194.  
195.     ' ================================================================================================================================================================
196.     ' METHOD #4
197.     ' COLOR SWAP with HARDWARE IMAGES
198.     ' ================================================================================================================================================================
199.     If Len(sError) = 0 Then
200.         imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
201.         iMinX = 1: iMaxX = 16
202.         iMinY = 63: iMaxY = 78
203.         iCount4 = 0
204.         t# = ExtendedTimer + 3
205.         imgHardwareScreen = _CopyImage(0, 33)
206.         _DisplayOrder _Hardware
207.         Do
208.             iCount4 = iCount4 + 1
209.             iFirstColor = iFirstColor Xor 1
210.             iColorIndex = iFirstColor
211.             iY = iMinY
212.             iX = iMinX
213.             _PutImage , imgHardwareScreen
214.             For iTileNum = 0 To 255
215.                 Select Case iColorIndex
216.                     Case 0:
217.                         fgColor = cRed: bgColor = cBlack
218.                     Case 1:
219.                         fgColor = cLime: bgColor = cBlack
220.                     Case 2:
221.                         fgColor = cBlue: bgColor = cBlack
222.                     Case Else:
223.                         fgColor = cYellow: bgColor = cBlack
224.                 End Select
225.                 DrawColorTileHW imgHardwareScreen, imgHardwareTiles, iTileNum, fgColor, bgColor, iX, iY
226.  
227.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
228.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
229.             Next iTileNum
230.             _Display
231.         Loop Until Timer > t#
232.         _AutoDisplay
233.         _DisplayOrder _Software , _Hardware
234.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
235.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
236.         Color cWhite, cBlack: Locate 41, 1: Print "PRESS 5 TO SEE RESULTS...";: Do: Loop Until InKey$ = "5"
237.     End If
238.  
239.     ' ================================================================================================================================================================
240.     ' SHOW RESULTS
241.     ' ================================================================================================================================================================
242.     Color cWhite, cBlack: Locate 33, 1
243.     Print ""
244.     Print "RESULTS:"
245.     Print Using "DrawTile8       ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
246.     Print Using "DrawColorTile   ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
247.     Print Using "DrawTileHw8     ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
248.     Print Using "DrawColorTileHW ###,###,###,###,###,### refreshes in 3 seconds."; iCount4
249.     Print "PRESS ANY KEY TO CONTINUE"
250.     Sleep
251.  
252.     ' ================================================================================================================================================================
253.     ' CLEANUP AND EXIT
254.     ' ================================================================================================================================================================
255.     Screen 0 ' RETURN TO TEXT SCREEN
256.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
257.     If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
258.     If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
259.     If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
260.     If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
261.     If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
262.     If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
263.     If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
264.     If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
265. End Sub ' DrawingSpeedTest4
266.  
267. ' ################################################################################################################################################################
268. ' END DRAWING SPEED TEST
269. ' ################################################################################################################################################################
270.  
271. ' ################################################################################################################################################################
272. ' BEGIN DRAW TILES, COLOR SWAP with HARDWARE IMAGES
273. ' ################################################################################################################################################################
274.  
275. ' /////////////////////////////////////////////////////////////////////////////
276. ' Same as DrawColorTile but using hardware images.
277.  
278. ' Receives:
279. ' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
280. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
281. ' TileColor~& = color to use for tile
282. ' imgScreen& = handle to screen to draw tile on
283. ' dx% = column # to draw tile at (where each column is 16 pixels wide)
284. ' dy% = row # to draw tile at (where each row is 16 pixels high)
285. ' xOffset% = offset tile this many columns over
286. ' yOffset% = offset tile this many rows down
287.  
288. Sub DrawColorTileHW (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
289.     Dim cols%
290.     Dim rows%
291.     Dim sc%
292.     Dim sr%
293.     Dim sx1%
294.     Dim sy1%
295.     Dim sx2%
296.     Dim sy2%
297.     Dim xDest%
298.     Dim yDest%
299.     Dim ColorSprite&
300.     Dim UniversalSprite&
301.  
302.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
303.     cols% = 16
304.     rows% = 16
305.  
306.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
307.     sc% = TileNum% Mod rows%
308.     sr% = TileNum% \ rows%
309.  
310.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
311.     sx1% = sc% * 8
312.  
313.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
314.     sy1% = sr% * 8
315.  
316.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
317.     sx2% = sx1% + 7
318.  
319.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
320.     sy2% = sy1% + 7
321.  
322.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
323.     xDest% = dx% * 8
324.  
325.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
326.     yDest% = dy% * 8
327.  
328.     ' IS THERE A BACKGROUND COLOR?
329.     If BackColor~& <> cEmpty Then
330.         ColorSprite& = _NewImage(8, 8, 32)
331.         _Dest ColorSprite&
332.         Cls , BackColor~&
333.  
334.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
335.         _Source ColorSprite&
336.         _Dest imgScreen&
337.         _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
338.     End If
339.  
340.     ' CREATE A TEMPORARY TILE TO COLOR
341.     UniversalSprite& = _NewImage(8, 8, 32)
342.  
343.     ' COPY THE TILE TO THE TEMPORARY ONE
344.     _Source imgTiles&
345.     _Dest UniversalSprite&
346.     _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
347.  
348.     ' COLOR IN THE TEMPORARY TILE
349.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
350.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
351.     DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
352.  
353.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
354.     _Source ColorSprite&
355.     _Dest imgScreen&
356.     _PutImage (xDest%, yDest%), ColorSprite&, , (0, 0)-(7, 7)
357.  
358.     ' ADDED PER FellipeHeitor
359.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
360.     If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
361.  
362. End Sub ' DrawColorTileHW
363.  
364. ' /////////////////////////////////////////////////////////////////////////////
365. ' Same as DoColorSwap but using hardware images.
366.  
367. ' Latest version with NOVARSEG's changes.
368. ' Based on code from:
369. ' Image color swap?
370. ' https://www.qb64.org/forum/index.php?topic=2312.0
371.  
372. ' Like Function swapcolor& except returns new image in a parameter
373. ' in case being a function causes a memory leak?
374.  
375. Sub DoColorSwapHW (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
376.     Dim m As _MEM
377.     Dim a As _Offset
378.     Dim c As _Unsigned Long
379.     a = 0
380.     imgNew& = _CopyImage(imgOriginal&, 32)
381.     m = _MemImage(imgNew&)
382.     Do Until a = m.SIZE - 4
383.         a = a + 4
384.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
385.         If c = oldcolor~& Then
386.             _MemPut m, m.OFFSET + a, newcolor~&
387.         End If
388.     Loop
389.     _MemFree m
390. End Sub ' DoColorSwapHW
391.  
392. ' ################################################################################################################################################################
393. ' END DRAW TILES, COLOR SWAP with HARDWARE IMAGES
394. ' ################################################################################################################################################################
395.  
396. ' ################################################################################################################################################################
397. ' BEGIN DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
398. ' ################################################################################################################################################################
399.  
400. ' /////////////////////////////////////////////////////////////////////////////
401. ' Simple version which calculates coordinates on tile sheet and destination
402. ' screen every time. For a faster version uses precalculated coordinates,
403. ' see DrawColorTileFast. This version does not support offsetX, offsetY.
404.  
405. ' Receives:
406. ' imgScreen& = handle to screen to draw tile on
407. ' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
408. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
409. ' TileColor~& = foreground color to use for tile
410. ' BackColor~& = background color to use for tile
411. ' dx% = column # to draw tile at (where each column is 8 pixels wide)
412. ' dy% = row # to draw tile at (where each row is 8 pixels high)
413.  
414. ' Usage:
415. ' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
416.  
417. Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
418.     Dim cols%
419.     Dim rows%
420.     Dim sc%
421.     Dim sr%
422.     Dim sx1%
423.     Dim sy1%
424.     Dim sx2%
425.     Dim sy2%
426.     Dim xDest%
427.     Dim yDest%
428.     Dim ColorSprite&
429.     Dim UniversalSprite&
430.  
431.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
432.     cols% = 16
433.     rows% = 16
434.  
435.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
436.     sc% = TileNum% Mod rows%
437.     sr% = TileNum% \ rows%
438.  
439.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
440.     sx1% = sc% * 8
441.  
442.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
443.     sy1% = sr% * 8
444.  
445.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
446.     sx2% = sx1% + 7
447.  
448.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
449.     sy2% = sy1% + 7
450.  
451.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
452.     xDest% = dx% * 8
453.  
454.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
455.     yDest% = dy% * 8
456.  
457.     ' IS THERE A BACKGROUND COLOR?
458.     If BackColor~& <> cEmpty Then
459.         ColorSprite& = _NewImage(8, 8, 32)
460.         _Dest ColorSprite&
461.         Cls , BackColor~&
462.  
463.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
464.         _Source ColorSprite&
465.         _Dest imgScreen&
466.         _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
467.     End If
468.  
469.     ' CREATE A TEMPORARY TILE TO COLOR
470.     UniversalSprite& = _NewImage(8, 8, 32)
471.  
472.     ' COPY THE TILE TO THE TEMPORARY ONE
473.     _Source imgTiles&
474.     _Dest UniversalSprite&
475.     _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
476.  
477.     ' COLOR IN THE TEMPORARY TILE
478.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
479.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
480.     DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
481.  
482.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
483.     _Source ColorSprite&
484.     _Dest imgScreen&
485.     _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
486.  
487.     ' ADDED PER FellipeHeitor
488.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
489.     If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
490. End Sub ' DrawColorTile
491.  
492. ' /////////////////////////////////////////////////////////////////////////////
493. ' Latest version with NOVARSEG's changes.
494.  
495. ' Based on code from:
496.  
497. ' Image color swap?
498. ' https://www.qb64.org/forum/index.php?topic=2312.0
499.  
500. ' Like Function swapcolor& except returns new image in a parameter
501. ' in case being a function causes a memory leak?
502.  
503. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
504.     Dim m As _MEM
505.     Dim a As _Offset
506.     Dim c As _Unsigned Long
507.     a = 0
508.     imgNew& = _CopyImage(imgOriginal&, 32)
509.     m = _MemImage(imgNew&)
510.     Do Until a = m.SIZE - 4
511.         a = a + 4
512.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
513.         If c = oldcolor~& Then
514.             _MemPut m, m.OFFSET + a, newcolor~&
515.         End If
516.     Loop
517.     _MemFree m
518. End Sub ' DoColorSwap&
519.  
520. ' ################################################################################################################################################################
521. ' END DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
522. ' ################################################################################################################################################################
523.  
524. ' ################################################################################################################################################################
525. ' BEGIN DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
526. ' ################################################################################################################################################################
527.  
528. ' /////////////////////////////////////////////////////////////////////////////
529. ' Draws an 8x8 tile at the specified column/row dx%, dy%
530.  
531. ' Original version which calculates coordinates on tile sheet and destination
532. ' screen every time. For a faster version uses precalculated coordinates,
533. ' see DrawTileFast.
534.  
535. ' tw% = tile width/height (in pixels)
536.  
537. ' DIV and MOD:
538. ' c% = a% \ b% ' DIV (INTEGER DIVISION)
539. ' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
540.  
541. '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
542. '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
543. '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
544. '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
545.  
546. Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
547.     Dim tw% ' width/height of tile
548.     Dim tw_minus1% ' width/height of tile -1
549.     Dim cols% ' # tiles across on tile sheet
550.     Dim rows% ' # tile rows on tile sheet
551.     Dim sc% ' source column on tile sheet
552.     Dim sr% ' source row on tile sheet
553.     Dim sx1% ' source start x
554.     Dim sx2% ' source end x
555.     Dim sy1% ' source start y
556.     Dim sy2% ' source end y
557.     Dim xDest% ' destination x
558.     Dim yDest% ' destination y
559.  
560.     ' SIZE OF TILE
561.     tw% = 8
562.     tw_minus1% = 7
563.  
564.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
565.     cols% = 16
566.     rows% = 16
567.  
568.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
569.     sc% = TileNum% Mod rows%
570.     sr% = TileNum% \ rows%
571.  
572.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
573.  
574.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
575.     sx1% = sc% * tw%
576.  
577.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
578.     sy1% = sr% * tw%
579.  
580.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
581.     sx2% = sx1% + tw_minus1%
582.  
583.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
584.     sy2% = sy1% + tw_minus1%
585.  
586.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
587.     xDest% = dx% * tw%
588.  
589.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
590.     yDest% = (dy% * tw%) '+ yOffset%
591.  
592.     'Print "Tile#" + cstr$(TileNum%) + _
593.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
594.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
595.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
596.  
597.     _Dest imgScreen&
598.  
599.     ' portion of source to the top-left corner of the destination page
600.     _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
601.  
602. End Sub ' DrawTile8
603.  
604. ' ################################################################################################################################################################
605. ' END DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
606. ' ################################################################################################################################################################
607.  
608. ' ################################################################################################################################################################
609. ' BEGIN DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
610. ' ################################################################################################################################################################
611.  
612. ' /////////////////////////////////////////////////////////////////////////////
613. ' Draws an 8x8 tile at the specified column/row dx%, dy%
614. ' using hardware images
615.  
616. ' Usage:
617. ' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
618. ' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
619. ' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
620.  
621. Sub DrawTileHw8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
622.     Dim tw% ' width/height of tile
623.     Dim tw_minus1% ' width/height of tile -1
624.     Dim cols% ' # tiles across on tile sheet
625.     Dim rows% ' # tile rows on tile sheet
626.     Dim sc% ' source column on tile sheet
627.     Dim sr% ' source row on tile sheet
628.     Dim sx1% ' source start x
629.     Dim sx2% ' source end x
630.     Dim sy1% ' source start y
631.     Dim sy2% ' source end y
632.     Dim xDest% ' destination x
633.     Dim yDest% ' destination y
634.     Dim xOffset%
635.  
636.     ' CALCULATE OFFSET
637.     xOffset% = 128 * iSubTileset%
638.  
639.     ' SIZE OF TILE
640.     tw% = 8
641.     tw_minus1% = 7
642.  
643.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
644.     cols% = 16
645.     rows% = 16
646.  
647.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
648.     sc% = TileNum% Mod rows%
649.     sr% = TileNum% \ rows%
650.  
651.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
652.  
653.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
654.     sx1% = (sc% * tw%) + xOffset%
655.  
656.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
657.     sy1% = sr% * tw%
658.  
659.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
660.     sx2% = sx1% + tw_minus1%
661.  
662.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
663.     sy2% = sy1% + tw_minus1%
664.  
665.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
666.     xDest% = dx% * tw%
667.  
668.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
669.     yDest% = (dy% * tw%) '+ yOffset%
670.  
671.     'Print "Tile#" + cstr$(TileNum%) + _
672.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
673.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
674.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
675.  
676.     _Dest imgScreen&
677.  
678.     ' portion of source to the top-left corner of the destination page
679.     '_PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
680.     '_PutImage (200, 100)-Step(100, 100), imgHardware&, , (0, 0)-(40, 40)
681.     _PutImage (xDest%, yDest%), imgTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
682.  
683. End Sub ' DrawTileHw8
684.  
685. ' /////////////////////////////////////////////////////////////////////////////
686. ' Receives an image imgTiles of 8x8 tiles
687. ' colored black on transparent background
688. ' and returns a new image imgNew
689. ' copied from the tiles in imgTiles,
690. ' except colored to foreground color fgColor,
691. ' and background color bgColor
692.  
693. ' Usage:
694. ' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
695.  
696. Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
697.     Dim iTileNum As Integer
698.     Dim iY As Integer
699.     Dim iX As Integer
700.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
701.     imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
702.     iTileNum = 0
703.     For iY = 0 To (_Height(imgTiles) \ 8) - 1
704.         For iX = 0 To (_Width(imgTiles) \ 8) - 1
705.             DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
706.             iTileNum = iTileNum + 1
707.             If iTileNum > 255 Then Exit For
708.         Next iX
709.         If iTileNum > 255 Then Exit For
710.     Next iY
711. End Sub ' MakeColoredTileset
712.  
713. ' ################################################################################################################################################################
714. ' END DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
715. ' ################################################################################################################################################################
716.  
717. ' ################################################################################################################################################################
718. ' BEGIN TILE DEFINITIONS
719. ' ################################################################################################################################################################
720.  
721. ' /////////////////////////////////////////////////////////////////////////////
722. ' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
723. ' where tiles are a single color.
724.  
725. ' Parameters:
726. ' imgTiles& = contains the resulting tileset image
727. ' fgColor = tile color
728. ' bgColor = tile background color
729.  
730. Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
731.     Dim RoutineName As String: RoutineName = "GetTiles$"
732.     Dim sResult As String: sResult = ""
733.     ReDim arrTileText(0 To 255) As String
734.  
735.     Dim iTileNum As Integer
736.  
737.     ReDim arrLines(-1) As String
738.     Dim iFromX As Integer
739.     Dim iFromY As Integer
740.     Dim sLine As String
741.     Dim sChar As String
742.  
743.     Dim iTileX As Integer
744.     Dim iTileY As Integer
745.     Dim iToX As Integer
746.     Dim iToY As Integer
747.     Dim pixelColor As _Unsigned Long
748.     Dim bFinished As Integer
749.  
750.     ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
751.     ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
752.     If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
753.     imgTiles& = _NewImage(128, 128, 32)
754.     '    Cls , cEmpty ' set the background color as transparent
755.  
756.     'Screen imgTiles&
757.     'Cls , bgColor ' set the background color as transparent
758.     _Dest imgTiles&
759.     'DrawRect 0, 0, 128, 128, cEmpty
760.     'DrawBox 0, 0, 128, cWhite
761.     Cls , cEmpty ' set the background color as transparent
762.  
763.     GetTileText arrTileText()
764.     iTileX = 0
765.     iTileY = 0
766.     bFinished = FALSE
767.     For iTileNum = 0 To 255
768.         split arrTileText(iTileNum), Chr$(13), arrLines()
769.         iToY = iTileY * 8
770.         If (iToY > _Height(imgTiles&)) Then
771.             sResult = "iToY value " + cstr$(iToY) + " " + _
772.                 "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
773.                 "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
774.             bFinished = TRUE
775.             Exit For
776.         End If
777.  
778.         For iFromY = LBound(arrLines) To UBound(arrLines)
779.             sLine = arrLines(iFromY)
780.             If Len(sLine) > 0 Then
781.                 iToX = iTileX * 8
782.                 For iFromX = 1 To Len(sLine)
783.                     sChar = Mid$(sLine, iFromX, 1)
784.                     If sChar = "." Then
785.                         pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
786.                     Else
787.                         pixelColor = fgColor ' cBlack
788.                     End If
789.                     PSet (iToX, iToY), pixelColor
790.                     iToX = iToX + 1
791.                     If (iToX > _Width(imgTiles&)) Then
792.                         sResult = "iToX value " + cstr$(iToX) + " " + _
793.                             "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
794.                             "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
795.                         bFinished = TRUE
796.                         Exit For
797.                     End If
798.                 Next iFromX
799.                 iToY = iToY + 1
800.                 If bFinished = TRUE Then Exit For
801.             End If
802.         Next iFromY
803.         If bFinished = TRUE Then Exit For
804.  
805.         iTileX = iTileX + 1
806.         If iTileX > 15 Then
807.             iTileX = 0
808.             iTileY = iTileY + 1
809.             'if iTileY > 15 then
810.             '    sResult = "Exceeded max 16 rows of tiles." + _
811.             '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
812.             '    bFinished = TRUE
813.             '    exit for
814.             'end if
815.         End If
816.     Next iTileNum
817.  
818.     GetTiles$ = sResult
819. End Function ' GetTiles$
820.  
821. ' /////////////////////////////////////////////////////////////////////////////
822. ' Returns an array of 256 8x8 tiles defined in text
823. ' where each tile is defined by "." as blank and anything else is a pixel
824. ' and each row is delimited by chr$(13)
825.  
826. Sub GetTileText (arrTileText() As String)
827.     ReDim arrTileText(0 To 255) As String
828.  
829.     m$ = ""
830.     m$ = m$ + "22....22" + Chr$(13)
831.     m$ = m$ + "2..22..2" + Chr$(13)
832.     m$ = m$ + "2..2...2" + Chr$(13)
833.     m$ = m$ + "2...2..2" + Chr$(13)
834.     m$ = m$ + "2..22..2" + Chr$(13)
835.     m$ = m$ + "2..22..2" + Chr$(13)
836.     m$ = m$ + "22....22" + Chr$(13)
837.     m$ = m$ + "22222222" + Chr$(13)
838.     arrTileText(0) = m$
839.  
840.     m$ = ""
841.     m$ = m$ + "........" + Chr$(13)
842.     m$ = m$ + "........" + Chr$(13)
843.     m$ = m$ + "........" + Chr$(13)
844.     m$ = m$ + "........" + Chr$(13)
845.     m$ = m$ + "........" + Chr$(13)
846.     m$ = m$ + "........" + Chr$(13)
847.     m$ = m$ + "........" + Chr$(13)
848.     m$ = m$ + "........" + Chr$(13)
849.     arrTileText(1) = m$
850.  
851.     m$ = ""
852.     m$ = m$ + "........" + Chr$(13)
853.     m$ = m$ + "........" + Chr$(13)
854.     m$ = m$ + "........" + Chr$(13)
855.     m$ = m$ + "........" + Chr$(13)
856.     m$ = m$ + "........" + Chr$(13)
857.     m$ = m$ + "........" + Chr$(13)
858.     m$ = m$ + "........" + Chr$(13)
859.     m$ = m$ + "........" + Chr$(13)
860.     arrTileText(2) = m$
861.  
862.     m$ = ""
863.     m$ = m$ + "........" + Chr$(13)
864.     m$ = m$ + "........" + Chr$(13)
865.     m$ = m$ + "........" + Chr$(13)
866.     m$ = m$ + "........" + Chr$(13)
867.     m$ = m$ + "........" + Chr$(13)
868.     m$ = m$ + "........" + Chr$(13)
869.     m$ = m$ + "........" + Chr$(13)
870.     m$ = m$ + "........" + Chr$(13)
871.     arrTileText(3) = m$
872.  
873.     m$ = ""
874.     m$ = m$ + "........" + Chr$(13)
875.     m$ = m$ + "........" + Chr$(13)
876.     m$ = m$ + "........" + Chr$(13)
877.     m$ = m$ + "........" + Chr$(13)
878.     m$ = m$ + "........" + Chr$(13)
879.     m$ = m$ + "........" + Chr$(13)
880.     m$ = m$ + "........" + Chr$(13)
881.     m$ = m$ + "........" + Chr$(13)
882.     arrTileText(4) = m$
883.  
884.     m$ = ""
885.     m$ = m$ + "........" + Chr$(13)
886.     m$ = m$ + "........" + Chr$(13)
887.     m$ = m$ + "........" + Chr$(13)
888.     m$ = m$ + "........" + Chr$(13)
889.     m$ = m$ + "........" + Chr$(13)
890.     m$ = m$ + "........" + Chr$(13)
891.     m$ = m$ + "........" + Chr$(13)
892.     m$ = m$ + "........" + Chr$(13)
893.     arrTileText(5) = m$
894.  
895.     m$ = ""
896.     m$ = m$ + "........" + Chr$(13)
897.     m$ = m$ + "........" + Chr$(13)
898.     m$ = m$ + "........" + Chr$(13)
899.     m$ = m$ + "........" + Chr$(13)
900.     m$ = m$ + "........" + Chr$(13)
901.     m$ = m$ + "........" + Chr$(13)
902.     m$ = m$ + "........" + Chr$(13)
903.     m$ = m$ + "........" + Chr$(13)
904.     arrTileText(6) = m$
905.  
906.     m$ = ""
907.     m$ = m$ + "........" + Chr$(13)
908.     m$ = m$ + "........" + Chr$(13)
909.     m$ = m$ + "........" + Chr$(13)
910.     m$ = m$ + "........" + Chr$(13)
911.     m$ = m$ + "........" + Chr$(13)
912.     m$ = m$ + "........" + Chr$(13)
913.     m$ = m$ + "........" + Chr$(13)
914.     m$ = m$ + "........" + Chr$(13)
915.     arrTileText(7) = m$
916.  
917.     m$ = ""
918.     m$ = m$ + "........" + Chr$(13)
919.     m$ = m$ + "........" + Chr$(13)
920.     m$ = m$ + "........" + Chr$(13)
921.     m$ = m$ + "........" + Chr$(13)
922.     m$ = m$ + "........" + Chr$(13)
923.     m$ = m$ + "........" + Chr$(13)
924.     m$ = m$ + "........" + Chr$(13)
925.     m$ = m$ + "........" + Chr$(13)
926.     arrTileText(8) = m$
927.  
928.     m$ = ""
929.     m$ = m$ + "........" + Chr$(13)
930.     m$ = m$ + "........" + Chr$(13)
931.     m$ = m$ + "........" + Chr$(13)
932.     m$ = m$ + "........" + Chr$(13)
933.     m$ = m$ + "........" + Chr$(13)
934.     m$ = m$ + "........" + Chr$(13)
935.     m$ = m$ + "........" + Chr$(13)
936.     m$ = m$ + "........" + Chr$(13)
937.     arrTileText(9) = m$
938.  
939.     m$ = ""
940.     m$ = m$ + "........" + Chr$(13)
941.     m$ = m$ + "........" + Chr$(13)
942.     m$ = m$ + "........" + Chr$(13)
943.     m$ = m$ + "........" + Chr$(13)
944.     m$ = m$ + "........" + Chr$(13)
945.     m$ = m$ + "........" + Chr$(13)
946.     m$ = m$ + "........" + Chr$(13)
947.     m$ = m$ + "........" + Chr$(13)
948.     arrTileText(10) = m$
949.  
950.     m$ = ""
951.     m$ = m$ + "........" + Chr$(13)
952.     m$ = m$ + "........" + Chr$(13)
953.     m$ = m$ + "........" + Chr$(13)
954.     m$ = m$ + "........" + Chr$(13)
955.     m$ = m$ + "........" + Chr$(13)
956.     m$ = m$ + "........" + Chr$(13)
957.     m$ = m$ + "........" + Chr$(13)
958.     m$ = m$ + "........" + Chr$(13)
959.     arrTileText(11) = m$
960.  
961.     m$ = ""
962.     m$ = m$ + "........" + Chr$(13)
963.     m$ = m$ + "........" + Chr$(13)
964.     m$ = m$ + "........" + Chr$(13)
965.     m$ = m$ + "........" + Chr$(13)
966.     m$ = m$ + "........" + Chr$(13)
967.     m$ = m$ + "........" + Chr$(13)
968.     m$ = m$ + "........" + Chr$(13)
969.     m$ = m$ + "........" + Chr$(13)
970.     arrTileText(12) = m$
971.  
972.     m$ = ""
973.     m$ = m$ + "........" + Chr$(13)
974.     m$ = m$ + "........" + Chr$(13)
975.     m$ = m$ + "........" + Chr$(13)
976.     m$ = m$ + "........" + Chr$(13)
977.     m$ = m$ + "........" + Chr$(13)
978.     m$ = m$ + "........" + Chr$(13)
979.     m$ = m$ + "........" + Chr$(13)
980.     m$ = m$ + "........" + Chr$(13)
981.     arrTileText(13) = m$
982.  
983.     m$ = ""
984.     m$ = m$ + "........" + Chr$(13)
985.     m$ = m$ + "........" + Chr$(13)
986.     m$ = m$ + "........" + Chr$(13)
987.     m$ = m$ + "........" + Chr$(13)
988.     m$ = m$ + "........" + Chr$(13)
989.     m$ = m$ + "........" + Chr$(13)
990.     m$ = m$ + "........" + Chr$(13)
991.     m$ = m$ + "........" + Chr$(13)
992.     arrTileText(14) = m$
993.  
994.     m$ = ""
995.     m$ = m$ + "........" + Chr$(13)
996.     m$ = m$ + "........" + Chr$(13)
997.     m$ = m$ + "........" + Chr$(13)
998.     m$ = m$ + "........" + Chr$(13)
999.     m$ = m$ + "........" + Chr$(13)
1000.     m$ = m$ + "........" + Chr$(13)
1001.     m$ = m$ + "........" + Chr$(13)
1002.     m$ = m$ + "........" + Chr$(13)
1003.     arrTileText(15) = m$
1004.  
1005.     m$ = ""
1006.     m$ = m$ + "........" + Chr$(13)
1007.     m$ = m$ + "........" + Chr$(13)
1008.     m$ = m$ + "........" + Chr$(13)
1009.     m$ = m$ + "........" + Chr$(13)
1010.     m$ = m$ + "........" + Chr$(13)
1011.     m$ = m$ + "........" + Chr$(13)
1012.     m$ = m$ + "........" + Chr$(13)
1013.     m$ = m$ + "........" + Chr$(13)
1014.     arrTileText(16) = m$
1015.  
1016.     m$ = ""
1017.     m$ = m$ + "........" + Chr$(13)
1018.     m$ = m$ + "........" + Chr$(13)
1019.     m$ = m$ + "........" + Chr$(13)
1020.     m$ = m$ + "........" + Chr$(13)
1021.     m$ = m$ + "........" + Chr$(13)
1022.     m$ = m$ + "........" + Chr$(13)
1023.     m$ = m$ + "........" + Chr$(13)
1024.     m$ = m$ + "........" + Chr$(13)
1025.     arrTileText(17) = m$
1026.  
1027.     m$ = ""
1028.     m$ = m$ + "........" + Chr$(13)
1029.     m$ = m$ + "........" + Chr$(13)
1030.     m$ = m$ + "........" + Chr$(13)
1031.     m$ = m$ + "........" + Chr$(13)
1032.     m$ = m$ + "........" + Chr$(13)
1033.     m$ = m$ + "........" + Chr$(13)
1034.     m$ = m$ + "........" + Chr$(13)
1035.     m$ = m$ + "........" + Chr$(13)
1036.     arrTileText(18) = m$
1037.  
1038.     m$ = ""
1039.     m$ = m$ + "........" + Chr$(13)
1040.     m$ = m$ + "........" + Chr$(13)
1041.     m$ = m$ + "........" + Chr$(13)
1042.     m$ = m$ + "........" + Chr$(13)
1043.     m$ = m$ + "........" + Chr$(13)
1044.     m$ = m$ + "........" + Chr$(13)
1045.     m$ = m$ + "........" + Chr$(13)
1046.     m$ = m$ + "........" + Chr$(13)
1047.     arrTileText(19) = m$
1048.  
1049.     m$ = ""
1050.     m$ = m$ + "........" + Chr$(13)
1051.     m$ = m$ + "........" + Chr$(13)
1052.     m$ = m$ + "........" + Chr$(13)
1053.     m$ = m$ + "........" + Chr$(13)
1054.     m$ = m$ + "........" + Chr$(13)
1055.     m$ = m$ + "........" + Chr$(13)
1056.     m$ = m$ + "........" + Chr$(13)
1057.     m$ = m$ + "........" + Chr$(13)
1058.     arrTileText(20) = m$
1059.  
1060.     m$ = ""
1061.     m$ = m$ + "........" + Chr$(13)
1062.     m$ = m$ + "........" + Chr$(13)
1063.     m$ = m$ + "........" + Chr$(13)
1064.     m$ = m$ + "........" + Chr$(13)
1065.     m$ = m$ + "........" + Chr$(13)
1066.     m$ = m$ + "........" + Chr$(13)
1067.     m$ = m$ + "........" + Chr$(13)
1068.     m$ = m$ + "........" + Chr$(13)
1069.     arrTileText(21) = m$
1070.  
1071.     m$ = ""
1072.     m$ = m$ + "........" + Chr$(13)
1073.     m$ = m$ + "........" + Chr$(13)
1074.     m$ = m$ + "........" + Chr$(13)
1075.     m$ = m$ + "........" + Chr$(13)
1076.     m$ = m$ + "........" + Chr$(13)
1077.     m$ = m$ + "........" + Chr$(13)
1078.     m$ = m$ + "........" + Chr$(13)
1079.     m$ = m$ + "........" + Chr$(13)
1080.     arrTileText(22) = m$
1081.  
1082.     m$ = ""
1083.     m$ = m$ + "........" + Chr$(13)
1084.     m$ = m$ + "........" + Chr$(13)
1085.     m$ = m$ + "........" + Chr$(13)
1086.     m$ = m$ + "........" + Chr$(13)
1087.     m$ = m$ + "........" + Chr$(13)
1088.     m$ = m$ + "........" + Chr$(13)
1089.     m$ = m$ + "........" + Chr$(13)
1090.     m$ = m$ + "........" + Chr$(13)
1091.     arrTileText(23) = m$
1092.  
1093.     m$ = ""
1094.     m$ = m$ + "........" + Chr$(13)
1095.     m$ = m$ + "........" + Chr$(13)
1096.     m$ = m$ + "........" + Chr$(13)
1097.     m$ = m$ + "........" + Chr$(13)
1098.     m$ = m$ + "........" + Chr$(13)
1099.     m$ = m$ + "........" + Chr$(13)
1100.     m$ = m$ + "........" + Chr$(13)
1101.     m$ = m$ + "........" + Chr$(13)
1102.     arrTileText(24) = m$
1103.  
1104.     m$ = ""
1105.     m$ = m$ + "........" + Chr$(13)
1106.     m$ = m$ + "........" + Chr$(13)
1107.     m$ = m$ + "........" + Chr$(13)
1108.     m$ = m$ + "........" + Chr$(13)
1109.     m$ = m$ + "........" + Chr$(13)
1110.     m$ = m$ + "........" + Chr$(13)
1111.     m$ = m$ + "........" + Chr$(13)
1112.     m$ = m$ + "........" + Chr$(13)
1113.     arrTileText(25) = m$
1114.  
1115.     m$ = ""
1116.     m$ = m$ + "........" + Chr$(13)
1117.     m$ = m$ + "........" + Chr$(13)
1118.     m$ = m$ + "........" + Chr$(13)
1119.     m$ = m$ + "........" + Chr$(13)
1120.     m$ = m$ + "........" + Chr$(13)
1121.     m$ = m$ + "........" + Chr$(13)
1122.     m$ = m$ + "........" + Chr$(13)
1123.     m$ = m$ + "........" + Chr$(13)
1124.     arrTileText(26) = m$
1125.  
1126.     m$ = ""
1127.     m$ = m$ + "........" + Chr$(13)
1128.     m$ = m$ + "........" + Chr$(13)
1129.     m$ = m$ + "........" + Chr$(13)
1130.     m$ = m$ + "........" + Chr$(13)
1131.     m$ = m$ + "........" + Chr$(13)
1132.     m$ = m$ + "........" + Chr$(13)
1133.     m$ = m$ + "........" + Chr$(13)
1134.     m$ = m$ + "........" + Chr$(13)
1135.     arrTileText(27) = m$
1136.  
1137.     m$ = ""
1138.     m$ = m$ + "........" + Chr$(13)
1139.     m$ = m$ + "........" + Chr$(13)
1140.     m$ = m$ + "........" + Chr$(13)
1141.     m$ = m$ + "........" + Chr$(13)
1142.     m$ = m$ + "........" + Chr$(13)
1143.     m$ = m$ + "........" + Chr$(13)
1144.     m$ = m$ + "........" + Chr$(13)
1145.     m$ = m$ + "........" + Chr$(13)
1146.     arrTileText(28) = m$
1147.  
1148.     m$ = ""
1149.     m$ = m$ + "........" + Chr$(13)
1150.     m$ = m$ + "........" + Chr$(13)
1151.     m$ = m$ + "........" + Chr$(13)
1152.     m$ = m$ + "........" + Chr$(13)
1153.     m$ = m$ + "........" + Chr$(13)
1154.     m$ = m$ + "........" + Chr$(13)
1155.     m$ = m$ + "........" + Chr$(13)
1156.     m$ = m$ + "........" + Chr$(13)
1157.     arrTileText(29) = m$
1158.  
1159.     m$ = ""
1160.     m$ = m$ + "........" + Chr$(13)
1161.     m$ = m$ + "........" + Chr$(13)
1162.     m$ = m$ + "........" + Chr$(13)
1163.     m$ = m$ + "........" + Chr$(13)
1164.     m$ = m$ + "........" + Chr$(13)
1165.     m$ = m$ + "........" + Chr$(13)
1166.     m$ = m$ + "........" + Chr$(13)
1167.     m$ = m$ + "........" + Chr$(13)
1168.     arrTileText(30) = m$
1169.  
1170.     m$ = ""
1171.     m$ = m$ + "........" + Chr$(13)
1172.     m$ = m$ + "........" + Chr$(13)
1173.     m$ = m$ + "........" + Chr$(13)
1174.     m$ = m$ + "........" + Chr$(13)
1175.     m$ = m$ + "........" + Chr$(13)
1176.     m$ = m$ + "........" + Chr$(13)
1177.     m$ = m$ + "........" + Chr$(13)
1178.     m$ = m$ + "........" + Chr$(13)
1179.     arrTileText(31) = m$
1180.  
1181.     m$ = ""
1182.     m$ = m$ + "........" + Chr$(13)
1183.     m$ = m$ + "........" + Chr$(13)
1184.     m$ = m$ + "........" + Chr$(13)
1185.     m$ = m$ + "........" + Chr$(13)
1186.     m$ = m$ + "........" + Chr$(13)
1187.     m$ = m$ + "........" + Chr$(13)
1188.     m$ = m$ + "........" + Chr$(13)
1189.     m$ = m$ + "........" + Chr$(13)
1190.     arrTileText(32) = m$
1191.  
1192.     m$ = ""
1193.     m$ = m$ + "...22..." + Chr$(13)
1194.     m$ = m$ + "...22..." + Chr$(13)
1195.     m$ = m$ + "...22..." + Chr$(13)
1196.     m$ = m$ + "...22..." + Chr$(13)
1197.     m$ = m$ + "........" + Chr$(13)
1198.     m$ = m$ + "........" + Chr$(13)
1199.     m$ = m$ + "...22..." + Chr$(13)
1200.     m$ = m$ + "........" + Chr$(13)
1201.     arrTileText(33) = m$
1202.  
1203.     m$ = ""
1204.     m$ = m$ + ".22..22." + Chr$(13)
1205.     m$ = m$ + ".22..22." + Chr$(13)
1206.     m$ = m$ + ".22..22." + Chr$(13)
1207.     m$ = m$ + "........" + Chr$(13)
1208.     m$ = m$ + "........" + Chr$(13)
1209.     m$ = m$ + "........" + Chr$(13)
1210.     m$ = m$ + "........" + Chr$(13)
1211.     m$ = m$ + "........" + Chr$(13)
1212.     arrTileText(34) = m$
1213.  
1214.     m$ = ""
1215.     m$ = m$ + ".22..22." + Chr$(13)
1216.     m$ = m$ + ".22..22." + Chr$(13)
1217.     m$ = m$ + "22222222" + Chr$(13)
1218.     m$ = m$ + ".22..22." + Chr$(13)
1219.     m$ = m$ + "22222222" + Chr$(13)
1220.     m$ = m$ + ".22..22." + Chr$(13)
1221.     m$ = m$ + ".22..22." + Chr$(13)
1222.     m$ = m$ + "........" + Chr$(13)
1223.     arrTileText(35) = m$
1224.  
1225.     m$ = ""
1226.     m$ = m$ + "...22..." + Chr$(13)
1227.     m$ = m$ + "..22222." + Chr$(13)
1228.     m$ = m$ + ".22....." + Chr$(13)
1229.     m$ = m$ + "..2222.." + Chr$(13)
1230.     m$ = m$ + ".....22." + Chr$(13)
1231.     m$ = m$ + ".22222.." + Chr$(13)
1232.     m$ = m$ + "...22..." + Chr$(13)
1233.     m$ = m$ + "........" + Chr$(13)
1234.     arrTileText(36) = m$
1235.  
1236.     m$ = ""
1237.     m$ = m$ + ".22...2." + Chr$(13)
1238.     m$ = m$ + ".22..22." + Chr$(13)
1239.     m$ = m$ + "....22.." + Chr$(13)
1240.     m$ = m$ + "...22..." + Chr$(13)
1241.     m$ = m$ + "..22...." + Chr$(13)
1242.     m$ = m$ + ".22..22." + Chr$(13)
1243.     m$ = m$ + ".2...22." + Chr$(13)
1244.     m$ = m$ + "........" + Chr$(13)
1245.     arrTileText(37) = m$
1246.  
1247.     m$ = ""
1248.     m$ = m$ + "..2222.." + Chr$(13)
1249.     m$ = m$ + ".22..22." + Chr$(13)
1250.     m$ = m$ + "..2222.." + Chr$(13)
1251.     m$ = m$ + "..222..." + Chr$(13)
1252.     m$ = m$ + ".22..222" + Chr$(13)
1253.     m$ = m$ + ".22..22." + Chr$(13)
1254.     m$ = m$ + "..222222" + Chr$(13)
1255.     m$ = m$ + "........" + Chr$(13)
1256.     arrTileText(38) = m$
1257.  
1258.     m$ = ""
1259.     m$ = m$ + ".....22." + Chr$(13)
1260.     m$ = m$ + "....22.." + Chr$(13)
1261.     m$ = m$ + "...22..." + Chr$(13)
1262.     m$ = m$ + "........" + Chr$(13)
1263.     m$ = m$ + "........" + Chr$(13)
1264.     m$ = m$ + "........" + Chr$(13)
1265.     m$ = m$ + "........" + Chr$(13)
1266.     m$ = m$ + "........" + Chr$(13)
1267.     arrTileText(39) = m$
1268.  
1269.     m$ = ""
1270.     m$ = m$ + "....22.." + Chr$(13)
1271.     m$ = m$ + "...22..." + Chr$(13)
1272.     m$ = m$ + "..22...." + Chr$(13)
1273.     m$ = m$ + "..22...." + Chr$(13)
1274.     m$ = m$ + "..22...." + Chr$(13)
1275.     m$ = m$ + "...22..." + Chr$(13)
1276.     m$ = m$ + "....22.." + Chr$(13)
1277.     m$ = m$ + "........" + Chr$(13)
1278.     arrTileText(40) = m$
1279.  
1280.     m$ = ""
1281.     m$ = m$ + "..22...." + Chr$(13)
1282.     m$ = m$ + "...22..." + Chr$(13)
1283.     m$ = m$ + "....22.." + Chr$(13)
1284.     m$ = m$ + "....22.." + Chr$(13)
1285.     m$ = m$ + "....22.." + Chr$(13)
1286.     m$ = m$ + "...22..." + Chr$(13)
1287.     m$ = m$ + "..22...." + Chr$(13)
1288.     m$ = m$ + "........" + Chr$(13)
1289.     arrTileText(41) = m$
1290.  
1291.     m$ = ""
1292.     m$ = m$ + "........" + Chr$(13)
1293.     m$ = m$ + ".22..22." + Chr$(13)
1294.     m$ = m$ + "..2222.." + Chr$(13)
1295.     m$ = m$ + "22222222" + Chr$(13)
1296.     m$ = m$ + "..2222.." + Chr$(13)
1297.     m$ = m$ + ".22..22." + Chr$(13)
1298.     m$ = m$ + "........" + Chr$(13)
1299.     m$ = m$ + "........" + Chr$(13)
1300.     arrTileText(42) = m$
1301.  
1302.     m$ = ""
1303.     m$ = m$ + "........" + Chr$(13)
1304.     m$ = m$ + "...22..." + Chr$(13)
1305.     m$ = m$ + "...22..." + Chr$(13)
1306.     m$ = m$ + ".222222." + Chr$(13)
1307.     m$ = m$ + "...22..." + Chr$(13)
1308.     m$ = m$ + "...22..." + Chr$(13)
1309.     m$ = m$ + "........" + Chr$(13)
1310.     m$ = m$ + "........" + Chr$(13)
1311.     arrTileText(43) = m$
1312.  
1313.     m$ = ""
1314.     m$ = m$ + "........" + Chr$(13)
1315.     m$ = m$ + "........" + Chr$(13)
1316.     m$ = m$ + "........" + Chr$(13)
1317.     m$ = m$ + "........" + Chr$(13)
1318.     m$ = m$ + "........" + Chr$(13)
1319.     m$ = m$ + "...22..." + Chr$(13)
1320.     m$ = m$ + "...22..." + Chr$(13)
1321.     m$ = m$ + "..22...." + Chr$(13)
1322.     arrTileText(44) = m$
1323.  
1324.     m$ = ""
1325.     m$ = m$ + "........" + Chr$(13)
1326.     m$ = m$ + "........" + Chr$(13)
1327.     m$ = m$ + "........" + Chr$(13)
1328.     m$ = m$ + ".222222." + Chr$(13)
1329.     m$ = m$ + "........" + Chr$(13)
1330.     m$ = m$ + "........" + Chr$(13)
1331.     m$ = m$ + "........" + Chr$(13)
1332.     m$ = m$ + "........" + Chr$(13)
1333.     arrTileText(45) = m$
1334.  
1335.     m$ = ""
1336.     m$ = m$ + "........" + Chr$(13)
1337.     m$ = m$ + "........" + Chr$(13)
1338.     m$ = m$ + "........" + Chr$(13)
1339.     m$ = m$ + "........" + Chr$(13)
1340.     m$ = m$ + "........" + Chr$(13)
1341.     m$ = m$ + "...22..." + Chr$(13)
1342.     m$ = m$ + "...22..." + Chr$(13)
1343.     m$ = m$ + "........" + Chr$(13)
1344.     arrTileText(46) = m$
1345.  
1346.     m$ = ""
1347.     m$ = m$ + "........" + Chr$(13)
1348.     m$ = m$ + "......22" + Chr$(13)
1349.     m$ = m$ + ".....22." + Chr$(13)
1350.     m$ = m$ + "....22.." + Chr$(13)
1351.     m$ = m$ + "...22..." + Chr$(13)
1352.     m$ = m$ + "..22...." + Chr$(13)
1353.     m$ = m$ + ".22....." + Chr$(13)
1354.     m$ = m$ + "........" + Chr$(13)
1355.     arrTileText(47) = m$
1356.  
1357.     m$ = ""
1358.     m$ = m$ + "..2222.." + Chr$(13)
1359.     m$ = m$ + ".22..22." + Chr$(13)
1360.     m$ = m$ + ".22.222." + Chr$(13)
1361.     m$ = m$ + ".222.22." + Chr$(13)
1362.     m$ = m$ + ".22..22." + Chr$(13)
1363.     m$ = m$ + ".22..22." + Chr$(13)
1364.     m$ = m$ + "..2222.." + Chr$(13)
1365.     m$ = m$ + "........" + Chr$(13)
1366.     arrTileText(48) = m$
1367.  
1368.     m$ = ""
1369.     m$ = m$ + "...22..." + Chr$(13)
1370.     m$ = m$ + "...22..." + Chr$(13)
1371.     m$ = m$ + "..222..." + Chr$(13)
1372.     m$ = m$ + "...22..." + Chr$(13)
1373.     m$ = m$ + "...22..." + Chr$(13)
1374.     m$ = m$ + "...22..." + Chr$(13)
1375.     m$ = m$ + ".222222." + Chr$(13)
1376.     m$ = m$ + "........" + Chr$(13)
1377.     arrTileText(49) = m$
1378.  
1379.     m$ = ""
1380.     m$ = m$ + "..2222.." + Chr$(13)
1381.     m$ = m$ + ".22..22." + Chr$(13)
1382.     m$ = m$ + ".....22." + Chr$(13)
1383.     m$ = m$ + "....22.." + Chr$(13)
1384.     m$ = m$ + "..22...." + Chr$(13)
1385.     m$ = m$ + ".22....." + Chr$(13)
1386.     m$ = m$ + ".222222." + Chr$(13)
1387.     m$ = m$ + "........" + Chr$(13)
1388.     arrTileText(50) = m$
1389.  
1390.     m$ = ""
1391.     m$ = m$ + "..2222.." + Chr$(13)
1392.     m$ = m$ + ".22..22." + Chr$(13)
1393.     m$ = m$ + ".....22." + Chr$(13)
1394.     m$ = m$ + "...222.." + Chr$(13)
1395.     m$ = m$ + ".....22." + Chr$(13)
1396.     m$ = m$ + ".22..22." + Chr$(13)
1397.     m$ = m$ + "..2222.." + Chr$(13)
1398.     m$ = m$ + "........" + Chr$(13)
1399.     arrTileText(51) = m$
1400.  
1401.     m$ = ""
1402.     m$ = m$ + ".....22." + Chr$(13)
1403.     m$ = m$ + "....222." + Chr$(13)
1404.     m$ = m$ + "...2222." + Chr$(13)
1405.     m$ = m$ + ".22..22." + Chr$(13)
1406.     m$ = m$ + ".2222222" + Chr$(13)
1407.     m$ = m$ + ".....22." + Chr$(13)
1408.     m$ = m$ + ".....22." + Chr$(13)
1409.     m$ = m$ + "........" + Chr$(13)
1410.     arrTileText(52) = m$
1411.  
1412.     m$ = ""
1413.     m$ = m$ + ".222222." + Chr$(13)
1414.     m$ = m$ + ".22....." + Chr$(13)
1415.     m$ = m$ + ".22222.." + Chr$(13)
1416.     m$ = m$ + ".....22." + Chr$(13)
1417.     m$ = m$ + ".....22." + Chr$(13)
1418.     m$ = m$ + ".22..22." + Chr$(13)
1419.     m$ = m$ + "..2222.." + Chr$(13)
1420.     m$ = m$ + "........" + Chr$(13)
1421.     arrTileText(53) = m$
1422.  
1423.     m$ = ""
1424.     m$ = m$ + "..2222.." + Chr$(13)
1425.     m$ = m$ + ".22..22." + Chr$(13)
1426.     m$ = m$ + ".22....." + Chr$(13)
1427.     m$ = m$ + ".22222.." + Chr$(13)
1428.     m$ = m$ + ".22..22." + Chr$(13)
1429.     m$ = m$ + ".22..22." + Chr$(13)
1430.     m$ = m$ + "..2222.." + Chr$(13)
1431.     m$ = m$ + "........" + Chr$(13)
1432.     arrTileText(54) = m$
1433.  
1434.     m$ = ""
1435.     m$ = m$ + ".222222." + Chr$(13)
1436.     m$ = m$ + ".22..22." + Chr$(13)
1437.     m$ = m$ + "....22.." + Chr$(13)
1438.     m$ = m$ + "...22..." + Chr$(13)
1439.     m$ = m$ + "...22..." + Chr$(13)
1440.     m$ = m$ + "...22..." + Chr$(13)
1441.     m$ = m$ + "...22..." + Chr$(13)
1442.     m$ = m$ + "........" + Chr$(13)
1443.     arrTileText(55) = m$
1444.  
1445.     m$ = ""
1446.     m$ = m$ + "..2222.." + Chr$(13)
1447.     m$ = m$ + ".22..22." + Chr$(13)
1448.     m$ = m$ + ".22..22." + Chr$(13)
1449.     m$ = m$ + "..2222.." + Chr$(13)
1450.     m$ = m$ + ".22..22." + Chr$(13)
1451.     m$ = m$ + ".22..22." + Chr$(13)
1452.     m$ = m$ + "..2222.." + Chr$(13)
1453.     m$ = m$ + "........" + Chr$(13)
1454.     arrTileText(56) = m$
1455.  
1456.     m$ = ""
1457.     m$ = m$ + "..2222.." + Chr$(13)
1458.     m$ = m$ + ".22..22." + Chr$(13)
1459.     m$ = m$ + ".22..22." + Chr$(13)
1460.     m$ = m$ + "..22222." + Chr$(13)
1461.     m$ = m$ + ".....22." + Chr$(13)
1462.     m$ = m$ + ".22..22." + Chr$(13)
1463.     m$ = m$ + "..2222.." + Chr$(13)
1464.     m$ = m$ + "........" + Chr$(13)
1465.     arrTileText(57) = m$
1466.  
1467.     m$ = ""
1468.     m$ = m$ + "........" + Chr$(13)
1469.     m$ = m$ + "........" + Chr$(13)
1470.     m$ = m$ + "...22..." + Chr$(13)
1471.     m$ = m$ + "........" + Chr$(13)
1472.     m$ = m$ + "........" + Chr$(13)
1473.     m$ = m$ + "...22..." + Chr$(13)
1474.     m$ = m$ + "........" + Chr$(13)
1475.     m$ = m$ + "........" + Chr$(13)
1476.     arrTileText(58) = m$
1477.  
1478.     m$ = ""
1479.     m$ = m$ + "........" + Chr$(13)
1480.     m$ = m$ + "........" + Chr$(13)
1481.     m$ = m$ + "...22..." + Chr$(13)
1482.     m$ = m$ + "........" + Chr$(13)
1483.     m$ = m$ + "........" + Chr$(13)
1484.     m$ = m$ + "...22..." + Chr$(13)
1485.     m$ = m$ + "...22..." + Chr$(13)
1486.     m$ = m$ + "..22...." + Chr$(13)
1487.     arrTileText(59) = m$
1488.  
1489.     m$ = ""
1490.     m$ = m$ + "....222." + Chr$(13)
1491.     m$ = m$ + "...22..." + Chr$(13)
1492.     m$ = m$ + "..22...." + Chr$(13)
1493.     m$ = m$ + ".22....." + Chr$(13)
1494.     m$ = m$ + "..22...." + Chr$(13)
1495.     m$ = m$ + "...22..." + Chr$(13)
1496.     m$ = m$ + "....222." + Chr$(13)
1497.     m$ = m$ + "........" + Chr$(13)
1498.     arrTileText(60) = m$
1499.  
1500.     m$ = ""
1501.     m$ = m$ + "........" + Chr$(13)
1502.     m$ = m$ + "........" + Chr$(13)
1503.     m$ = m$ + ".222222." + Chr$(13)
1504.     m$ = m$ + "........" + Chr$(13)
1505.     m$ = m$ + ".222222." + Chr$(13)
1506.     m$ = m$ + "........" + Chr$(13)
1507.     m$ = m$ + "........" + Chr$(13)
1508.     m$ = m$ + "........" + Chr$(13)
1509.     arrTileText(61) = m$
1510.  
1511.     m$ = ""
1512.     m$ = m$ + ".222...." + Chr$(13)
1513.     m$ = m$ + "...22..." + Chr$(13)
1514.     m$ = m$ + "....22.." + Chr$(13)
1515.     m$ = m$ + ".....22." + Chr$(13)
1516.     m$ = m$ + "....22.." + Chr$(13)
1517.     m$ = m$ + "...22..." + Chr$(13)
1518.     m$ = m$ + ".222...." + Chr$(13)
1519.     m$ = m$ + "........" + Chr$(13)
1520.     arrTileText(62) = m$
1521.  
1522.     m$ = ""
1523.     m$ = m$ + "..2222.." + Chr$(13)
1524.     m$ = m$ + ".22..22." + Chr$(13)
1525.     m$ = m$ + ".....22." + Chr$(13)
1526.     m$ = m$ + "....22.." + Chr$(13)
1527.     m$ = m$ + "...22..." + Chr$(13)
1528.     m$ = m$ + "........" + Chr$(13)
1529.     m$ = m$ + "...22..." + Chr$(13)
1530.     m$ = m$ + "........" + Chr$(13)
1531.     arrTileText(63) = m$
1532.  
1533.     m$ = ""
1534.     m$ = m$ + "..2222.." + Chr$(13)
1535.     m$ = m$ + ".22..22." + Chr$(13)
1536.     m$ = m$ + ".22.222." + Chr$(13)
1537.     m$ = m$ + ".22.222." + Chr$(13)
1538.     m$ = m$ + ".22....." + Chr$(13)
1539.     m$ = m$ + ".22...2." + Chr$(13)
1540.     m$ = m$ + "..2222.." + Chr$(13)
1541.     m$ = m$ + "........" + Chr$(13)
1542.     arrTileText(64) = m$
1543.  
1544.     m$ = ""
1545.     m$ = m$ + "...22..." + Chr$(13)
1546.     m$ = m$ + "..2222.." + Chr$(13)
1547.     m$ = m$ + ".22..22." + Chr$(13)
1548.     m$ = m$ + ".222222." + Chr$(13)
1549.     m$ = m$ + ".22..22." + Chr$(13)
1550.     m$ = m$ + ".22..22." + Chr$(13)
1551.     m$ = m$ + ".22..22." + Chr$(13)
1552.     m$ = m$ + "........" + Chr$(13)
1553.     arrTileText(65) = m$
1554.  
1555.     m$ = ""
1556.     m$ = m$ + ".22222.." + Chr$(13)
1557.     m$ = m$ + ".22..22." + Chr$(13)
1558.     m$ = m$ + ".22..22." + Chr$(13)
1559.     m$ = m$ + ".22222.." + Chr$(13)
1560.     m$ = m$ + ".22..22." + Chr$(13)
1561.     m$ = m$ + ".22..22." + Chr$(13)
1562.     m$ = m$ + ".22222.." + Chr$(13)
1563.     m$ = m$ + "........" + Chr$(13)
1564.     arrTileText(66) = m$
1565.  
1566.     m$ = ""
1567.     m$ = m$ + "..2222.." + Chr$(13)
1568.     m$ = m$ + ".22..22." + Chr$(13)
1569.     m$ = m$ + ".22....." + Chr$(13)
1570.     m$ = m$ + ".22....." + Chr$(13)
1571.     m$ = m$ + ".22....." + Chr$(13)
1572.     m$ = m$ + ".22..22." + Chr$(13)
1573.     m$ = m$ + "..2222.." + Chr$(13)
1574.     m$ = m$ + "........" + Chr$(13)
1575.     arrTileText(67) = m$
1576.  
1577.     m$ = ""
1578.     m$ = m$ + ".2222..." + Chr$(13)
1579.     m$ = m$ + ".22.22.." + Chr$(13)
1580.     m$ = m$ + ".22..22." + Chr$(13)
1581.     m$ = m$ + ".22..22." + Chr$(13)
1582.     m$ = m$ + ".22..22." + Chr$(13)
1583.     m$ = m$ + ".22.22.." + Chr$(13)
1584.     m$ = m$ + ".2222..." + Chr$(13)
1585.     m$ = m$ + "........" + Chr$(13)
1586.     arrTileText(68) = m$
1587.  
1588.     m$ = ""
1589.     m$ = m$ + ".222222." + Chr$(13)
1590.     m$ = m$ + ".22....." + Chr$(13)
1591.     m$ = m$ + ".22....." + Chr$(13)
1592.     m$ = m$ + ".2222..." + Chr$(13)
1593.     m$ = m$ + ".22....." + Chr$(13)
1594.     m$ = m$ + ".22....." + Chr$(13)
1595.     m$ = m$ + ".222222." + Chr$(13)
1596.     m$ = m$ + "........" + Chr$(13)
1597.     arrTileText(69) = m$
1598.  
1599.     m$ = ""
1600.     m$ = m$ + ".222222." + Chr$(13)
1601.     m$ = m$ + ".22....." + Chr$(13)
1602.     m$ = m$ + ".22....." + Chr$(13)
1603.     m$ = m$ + ".2222..." + Chr$(13)
1604.     m$ = m$ + ".22....." + Chr$(13)
1605.     m$ = m$ + ".22....." + Chr$(13)
1606.     m$ = m$ + ".22....." + Chr$(13)
1607.     m$ = m$ + "........" + Chr$(13)
1608.     arrTileText(70) = m$
1609.  
1610.     m$ = ""
1611.     m$ = m$ + "..2222.." + Chr$(13)
1612.     m$ = m$ + ".22..22." + Chr$(13)
1613.     m$ = m$ + ".22....." + Chr$(13)
1614.     m$ = m$ + ".22.222." + Chr$(13)
1615.     m$ = m$ + ".22..22." + Chr$(13)
1616.     m$ = m$ + ".22..22." + Chr$(13)
1617.     m$ = m$ + "..2222.." + Chr$(13)
1618.     m$ = m$ + "........" + Chr$(13)
1619.     arrTileText(71) = m$
1620.  
1621.     m$ = ""
1622.     m$ = m$ + ".22..22." + Chr$(13)
1623.     m$ = m$ + ".22..22." + Chr$(13)
1624.     m$ = m$ + ".22..22." + Chr$(13)
1625.     m$ = m$ + ".222222." + Chr$(13)
1626.     m$ = m$ + ".22..22." + Chr$(13)
1627.     m$ = m$ + ".22..22." + Chr$(13)
1628.     m$ = m$ + ".22..22." + Chr$(13)
1629.     m$ = m$ + "........" + Chr$(13)
1630.     arrTileText(72) = m$
1631.  
1632.     m$ = ""
1633.     m$ = m$ + "..2222.." + Chr$(13)
1634.     m$ = m$ + "...22..." + Chr$(13)
1635.     m$ = m$ + "...22..." + Chr$(13)
1636.     m$ = m$ + "...22..." + Chr$(13)
1637.     m$ = m$ + "...22..." + Chr$(13)
1638.     m$ = m$ + "...22..." + Chr$(13)
1639.     m$ = m$ + "..2222.." + Chr$(13)
1640.     m$ = m$ + "........" + Chr$(13)
1641.     arrTileText(73) = m$
1642.  
1643.     m$ = ""
1644.     m$ = m$ + "...2222." + Chr$(13)
1645.     m$ = m$ + "....22.." + Chr$(13)
1646.     m$ = m$ + "....22.." + Chr$(13)
1647.     m$ = m$ + "....22.." + Chr$(13)
1648.     m$ = m$ + "....22.." + Chr$(13)
1649.     m$ = m$ + ".22.22.." + Chr$(13)
1650.     m$ = m$ + "..222..." + Chr$(13)
1651.     m$ = m$ + "........" + Chr$(13)
1652.     arrTileText(74) = m$
1653.  
1654.     m$ = ""
1655.     m$ = m$ + ".22..22." + Chr$(13)
1656.     m$ = m$ + ".22.22.." + Chr$(13)
1657.     m$ = m$ + ".2222..." + Chr$(13)
1658.     m$ = m$ + ".222...." + Chr$(13)
1659.     m$ = m$ + ".2222..." + Chr$(13)
1660.     m$ = m$ + ".22.22.." + Chr$(13)
1661.     m$ = m$ + ".22..22." + Chr$(13)
1662.     m$ = m$ + "........" + Chr$(13)
1663.     arrTileText(75) = m$
1664.  
1665.     m$ = ""
1666.     m$ = m$ + ".22....." + Chr$(13)
1667.     m$ = m$ + ".22....." + Chr$(13)
1668.     m$ = m$ + ".22....." + Chr$(13)
1669.     m$ = m$ + ".22....." + Chr$(13)
1670.     m$ = m$ + ".22....." + Chr$(13)
1671.     m$ = m$ + ".22....." + Chr$(13)
1672.     m$ = m$ + ".222222." + Chr$(13)
1673.     m$ = m$ + "........" + Chr$(13)
1674.     arrTileText(76) = m$
1675.  
1676.     m$ = ""
1677.     m$ = m$ + ".22...22" + Chr$(13)
1678.     m$ = m$ + ".222.222" + Chr$(13)
1679.     m$ = m$ + ".2222222" + Chr$(13)
1680.     m$ = m$ + ".22.2.22" + Chr$(13)
1681.     m$ = m$ + ".22...22" + Chr$(13)
1682.     m$ = m$ + ".22...22" + Chr$(13)
1683.     m$ = m$ + ".22...22" + Chr$(13)
1684.     m$ = m$ + "........" + Chr$(13)
1685.     arrTileText(77) = m$
1686.  
1687.     m$ = ""
1688.     m$ = m$ + ".22..22." + Chr$(13)
1689.     m$ = m$ + ".222.22." + Chr$(13)
1690.     m$ = m$ + ".222222." + Chr$(13)
1691.     m$ = m$ + ".222222." + Chr$(13)
1692.     m$ = m$ + ".22.222." + Chr$(13)
1693.     m$ = m$ + ".22..22." + Chr$(13)
1694.     m$ = m$ + ".22..22." + Chr$(13)
1695.     m$ = m$ + "........" + Chr$(13)
1696.     arrTileText(78) = m$
1697.  
1698.     m$ = ""
1699.     m$ = m$ + "..2222.." + Chr$(13)
1700.     m$ = m$ + ".22..22." + Chr$(13)
1701.     m$ = m$ + ".22..22." + Chr$(13)
1702.     m$ = m$ + ".22..22." + Chr$(13)
1703.     m$ = m$ + ".22..22." + Chr$(13)
1704.     m$ = m$ + ".22..22." + Chr$(13)
1705.     m$ = m$ + "..2222.." + Chr$(13)
1706.     m$ = m$ + "........" + Chr$(13)
1707.     arrTileText(79) = m$
1708.  
1709.     m$ = ""
1710.     m$ = m$ + ".22222.." + Chr$(13)
1711.     m$ = m$ + ".22..22." + Chr$(13)
1712.     m$ = m$ + ".22..22." + Chr$(13)
1713.     m$ = m$ + ".22222.." + Chr$(13)
1714.     m$ = m$ + ".22....." + Chr$(13)
1715.     m$ = m$ + ".22....." + Chr$(13)
1716.     m$ = m$ + ".22....." + Chr$(13)
1717.     m$ = m$ + "........" + Chr$(13)
1718.     arrTileText(80) = m$
1719.  
1720.     m$ = ""
1721.     m$ = m$ + "..2222.." + Chr$(13)
1722.     m$ = m$ + ".22..22." + Chr$(13)
1723.     m$ = m$ + ".22..22." + Chr$(13)
1724.     m$ = m$ + ".22..22." + Chr$(13)
1725.     m$ = m$ + ".22..22." + Chr$(13)
1726.     m$ = m$ + "..2222.." + Chr$(13)
1727.     m$ = m$ + "....222." + Chr$(13)
1728.     m$ = m$ + "........" + Chr$(13)
1729.     arrTileText(81) = m$
1730.  
1731.     m$ = ""
1732.     m$ = m$ + ".22222.." + Chr$(13)
1733.     m$ = m$ + ".22..22." + Chr$(13)
1734.     m$ = m$ + ".22..22." + Chr$(13)
1735.     m$ = m$ + ".22222.." + Chr$(13)
1736.     m$ = m$ + ".2222..." + Chr$(13)
1737.     m$ = m$ + ".22.22.." + Chr$(13)
1738.     m$ = m$ + ".22..22." + Chr$(13)
1739.     m$ = m$ + "........" + Chr$(13)
1740.     arrTileText(82) = m$
1741.  
1742.     m$ = ""
1743.     m$ = m$ + "..2222.." + Chr$(13)
1744.     m$ = m$ + ".22..22." + Chr$(13)
1745.     m$ = m$ + ".22....." + Chr$(13)
1746.     m$ = m$ + "..2222.." + Chr$(13)
1747.     m$ = m$ + ".....22." + Chr$(13)
1748.     m$ = m$ + ".22..22." + Chr$(13)
1749.     m$ = m$ + "..2222.." + Chr$(13)
1750.     m$ = m$ + "........" + Chr$(13)
1751.     arrTileText(83) = m$
1752.  
1753.     m$ = ""
1754.     m$ = m$ + ".222222." + Chr$(13)
1755.     m$ = m$ + "...22..." + Chr$(13)
1756.     m$ = m$ + "...22..." + Chr$(13)
1757.     m$ = m$ + "...22..." + Chr$(13)
1758.     m$ = m$ + "...22..." + Chr$(13)
1759.     m$ = m$ + "...22..." + Chr$(13)
1760.     m$ = m$ + "...22..." + Chr$(13)
1761.     m$ = m$ + "........" + Chr$(13)
1762.     arrTileText(84) = m$
1763.  
1764.     m$ = ""
1765.     m$ = m$ + ".22..22." + Chr$(13)
1766.     m$ = m$ + ".22..22." + Chr$(13)
1767.     m$ = m$ + ".22..22." + Chr$(13)
1768.     m$ = m$ + ".22..22." + Chr$(13)
1769.     m$ = m$ + ".22..22." + Chr$(13)
1770.     m$ = m$ + ".22..22." + Chr$(13)
1771.     m$ = m$ + "..2222.." + Chr$(13)
1772.     m$ = m$ + "........" + Chr$(13)
1773.     arrTileText(85) = m$
1774.  
1775.     m$ = ""
1776.     m$ = m$ + ".22..22." + Chr$(13)
1777.     m$ = m$ + ".22..22." + Chr$(13)
1778.     m$ = m$ + ".22..22." + Chr$(13)
1779.     m$ = m$ + ".22..22." + Chr$(13)
1780.     m$ = m$ + ".22..22." + Chr$(13)
1781.     m$ = m$ + "..2222.." + Chr$(13)
1782.     m$ = m$ + "...22..." + Chr$(13)
1783.     m$ = m$ + "........" + Chr$(13)
1784.     arrTileText(86) = m$
1785.  
1786.     m$ = ""
1787.     m$ = m$ + ".22...22" + Chr$(13)
1788.     m$ = m$ + ".22...22" + Chr$(13)
1789.     m$ = m$ + ".22...22" + Chr$(13)
1790.     m$ = m$ + ".22.2.22" + Chr$(13)
1791.     m$ = m$ + ".2222222" + Chr$(13)
1792.     m$ = m$ + ".222.222" + Chr$(13)
1793.     m$ = m$ + ".22...22" + Chr$(13)
1794.     m$ = m$ + "........" + Chr$(13)
1795.     arrTileText(87) = m$
1796.  
1797.     m$ = ""
1798.     m$ = m$ + ".22..22." + Chr$(13)
1799.     m$ = m$ + ".22..22." + Chr$(13)
1800.     m$ = m$ + "..2222.." + Chr$(13)
1801.     m$ = m$ + "...22..." + Chr$(13)
1802.     m$ = m$ + "..2222.." + Chr$(13)
1803.     m$ = m$ + ".22..22." + Chr$(13)
1804.     m$ = m$ + ".22..22." + Chr$(13)
1805.     m$ = m$ + "........" + Chr$(13)
1806.     arrTileText(88) = m$
1807.  
1808.     m$ = ""
1809.     m$ = m$ + ".22..22." + Chr$(13)
1810.     m$ = m$ + ".22..22." + Chr$(13)
1811.     m$ = m$ + ".22..22." + Chr$(13)
1812.     m$ = m$ + "..2222.." + Chr$(13)
1813.     m$ = m$ + "...22..." + Chr$(13)
1814.     m$ = m$ + "...22..." + Chr$(13)
1815.     m$ = m$ + "...22..." + Chr$(13)
1816.     m$ = m$ + "........" + Chr$(13)
1817.     arrTileText(89) = m$
1818.  
1819.     m$ = ""
1820.     m$ = m$ + ".222222." + Chr$(13)
1821.     m$ = m$ + ".....22." + Chr$(13)
1822.     m$ = m$ + "....22.." + Chr$(13)
1823.     m$ = m$ + "...22..." + Chr$(13)
1824.     m$ = m$ + "..22...." + Chr$(13)
1825.     m$ = m$ + ".22....." + Chr$(13)
1826.     m$ = m$ + ".222222." + Chr$(13)
1827.     m$ = m$ + "........" + Chr$(13)
1828.     arrTileText(90) = m$
1829.  
1830.     m$ = ""
1831.     m$ = m$ + "..2222.." + Chr$(13)
1832.     m$ = m$ + "..22...." + Chr$(13)
1833.     m$ = m$ + "..22...." + Chr$(13)
1834.     m$ = m$ + "..22...." + Chr$(13)
1835.     m$ = m$ + "..22...." + Chr$(13)
1836.     m$ = m$ + "..22...." + Chr$(13)
1837.     m$ = m$ + "..2222.." + Chr$(13)
1838.     m$ = m$ + "........" + Chr$(13)
1839.     arrTileText(91) = m$
1840.  
1841.     m$ = ""
1842.     m$ = m$ + "........" + Chr$(13)
1843.     m$ = m$ + ".22....." + Chr$(13)
1844.     m$ = m$ + "..22...." + Chr$(13)
1845.     m$ = m$ + "...22..." + Chr$(13)
1846.     m$ = m$ + "....22.." + Chr$(13)
1847.     m$ = m$ + ".....22." + Chr$(13)
1848.     m$ = m$ + "......22" + Chr$(13)
1849.     m$ = m$ + "........" + Chr$(13)
1850.     arrTileText(92) = m$
1851.  
1852.     m$ = ""
1853.     m$ = m$ + "..2222.." + Chr$(13)
1854.     m$ = m$ + "....22.." + Chr$(13)
1855.     m$ = m$ + "....22.." + Chr$(13)
1856.     m$ = m$ + "....22.." + Chr$(13)
1857.     m$ = m$ + "....22.." + Chr$(13)
1858.     m$ = m$ + "....22.." + Chr$(13)
1859.     m$ = m$ + "..2222.." + Chr$(13)
1860.     m$ = m$ + "........" + Chr$(13)
1861.     arrTileText(93) = m$
1862.  
1863.     m$ = ""
1864.     m$ = m$ + "...22..." + Chr$(13)
1865.     m$ = m$ + "..2222.." + Chr$(13)
1866.     m$ = m$ + ".22..22." + Chr$(13)
1867.     m$ = m$ + "........" + Chr$(13)
1868.     m$ = m$ + "........" + Chr$(13)
1869.     m$ = m$ + "........" + Chr$(13)
1870.     m$ = m$ + "........" + Chr$(13)
1871.     m$ = m$ + "........" + Chr$(13)
1872.     arrTileText(94) = m$
1873.  
1874.     m$ = ""
1875.     m$ = m$ + "........" + Chr$(13)
1876.     m$ = m$ + "........" + Chr$(13)
1877.     m$ = m$ + "........" + Chr$(13)
1878.     m$ = m$ + "........" + Chr$(13)
1879.     m$ = m$ + "........" + Chr$(13)
1880.     m$ = m$ + ".222222." + Chr$(13)
1881.     m$ = m$ + "........" + Chr$(13)
1882.     m$ = m$ + "........" + Chr$(13)
1883.     arrTileText(95) = m$
1884.  
1885.     m$ = ""
1886.     m$ = m$ + "........" + Chr$(13)
1887.     m$ = m$ + "........" + Chr$(13)
1888.     m$ = m$ + "........" + Chr$(13)
1889.     m$ = m$ + "........" + Chr$(13)
1890.     m$ = m$ + "........" + Chr$(13)
1891.     m$ = m$ + "........" + Chr$(13)
1892.     m$ = m$ + "........" + Chr$(13)
1893.     m$ = m$ + "........" + Chr$(13)
1894.     arrTileText(96) = m$
1895.  
1896.     m$ = ""
1897.     m$ = m$ + "........" + Chr$(13)
1898.     m$ = m$ + "..2222.." + Chr$(13)
1899.     m$ = m$ + ".....22." + Chr$(13)
1900.     m$ = m$ + "..22222." + Chr$(13)
1901.     m$ = m$ + ".22..22." + Chr$(13)
1902.     m$ = m$ + "..22222." + Chr$(13)
1903.     m$ = m$ + "........" + Chr$(13)
1904.     m$ = m$ + "........" + Chr$(13)
1905.     arrTileText(97) = m$
1906.  
1907.     m$ = ""
1908.     m$ = m$ + ".22....." + Chr$(13)
1909.     m$ = m$ + ".22....." + Chr$(13)
1910.     m$ = m$ + ".22222.." + Chr$(13)
1911.     m$ = m$ + ".22..22." + Chr$(13)
1912.     m$ = m$ + ".22..22." + Chr$(13)
1913.     m$ = m$ + ".22222.." + Chr$(13)
1914.     m$ = m$ + "........" + Chr$(13)
1915.     m$ = m$ + "........" + Chr$(13)
1916.     arrTileText(98) = m$
1917.  
1918.     m$ = ""
1919.     m$ = m$ + "........" + Chr$(13)
1920.     m$ = m$ + "..2222.." + Chr$(13)
1921.     m$ = m$ + ".22....." + Chr$(13)
1922.     m$ = m$ + ".22....." + Chr$(13)
1923.     m$ = m$ + ".22....." + Chr$(13)
1924.     m$ = m$ + "..2222.." + Chr$(13)
1925.     m$ = m$ + "........" + Chr$(13)
1926.     m$ = m$ + "........" + Chr$(13)
1927.     arrTileText(99) = m$
1928.  
1929.     m$ = ""
1930.     m$ = m$ + ".....22." + Chr$(13)
1931.     m$ = m$ + ".....22." + Chr$(13)
1932.     m$ = m$ + "..22222." + Chr$(13)
1933.     m$ = m$ + ".22..22." + Chr$(13)
1934.     m$ = m$ + ".22..22." + Chr$(13)
1935.     m$ = m$ + "..22222." + Chr$(13)
1936.     m$ = m$ + "........" + Chr$(13)
1937.     m$ = m$ + "........" + Chr$(13)
1938.     arrTileText(100) = m$
1939.  
1940.     m$ = ""
1941.     m$ = m$ + "........" + Chr$(13)
1942.     m$ = m$ + "..2222.." + Chr$(13)
1943.     m$ = m$ + ".22..22." + Chr$(13)
1944.     m$ = m$ + ".222222." + Chr$(13)
1945.     m$ = m$ + ".22....." + Chr$(13)
1946.     m$ = m$ + "..2222.." + Chr$(13)
1947.     m$ = m$ + "........" + Chr$(13)
1948.     m$ = m$ + "........" + Chr$(13)
1949.     arrTileText(101) = m$
1950.  
1951.     m$ = ""
1952.     m$ = m$ + "....222." + Chr$(13)
1953.     m$ = m$ + "...22..." + Chr$(13)
1954.     m$ = m$ + "..22222." + Chr$(13)
1955.     m$ = m$ + "...22..." + Chr$(13)
1956.     m$ = m$ + "...22..." + Chr$(13)
1957.     m$ = m$ + "...22..." + Chr$(13)
1958.     m$ = m$ + "........" + Chr$(13)
1959.     m$ = m$ + "........" + Chr$(13)
1960.     arrTileText(102) = m$
1961.  
1962.     m$ = ""
1963.     m$ = m$ + "........" + Chr$(13)
1964.     m$ = m$ + "..22222." + Chr$(13)
1965.     m$ = m$ + ".22..22." + Chr$(13)
1966.     m$ = m$ + ".22..22." + Chr$(13)
1967.     m$ = m$ + "..22222." + Chr$(13)
1968.     m$ = m$ + ".....22." + Chr$(13)
1969.     m$ = m$ + ".22222.." + Chr$(13)
1970.     m$ = m$ + "........" + Chr$(13)
1971.     arrTileText(103) = m$
1972.  
1973.     m$ = ""
1974.     m$ = m$ + ".22....." + Chr$(13)
1975.     m$ = m$ + ".22....." + Chr$(13)
1976.     m$ = m$ + ".22222.." + Chr$(13)
1977.     m$ = m$ + ".22..22." + Chr$(13)
1978.     m$ = m$ + ".22..22." + Chr$(13)
1979.     m$ = m$ + ".22..22." + Chr$(13)
1980.     m$ = m$ + "........" + Chr$(13)
1981.     m$ = m$ + "........" + Chr$(13)
1982.     arrTileText(104) = m$
1983.  
1984.     m$ = ""
1985.     m$ = m$ + "...22..." + Chr$(13)
1986.     m$ = m$ + "........" + Chr$(13)
1987.     m$ = m$ + "..222..." + Chr$(13)
1988.     m$ = m$ + "...22..." + Chr$(13)
1989.     m$ = m$ + "...22..." + Chr$(13)
1990.     m$ = m$ + "..2222.." + Chr$(13)
1991.     m$ = m$ + "........" + Chr$(13)
1992.     m$ = m$ + "........" + Chr$(13)
1993.     arrTileText(105) = m$
1994.  
1995.     m$ = ""
1996.     m$ = m$ + ".....22." + Chr$(13)
1997.     m$ = m$ + "........" + Chr$(13)
1998.     m$ = m$ + ".....22." + Chr$(13)
1999.     m$ = m$ + ".....22." + Chr$(13)
2000.     m$ = m$ + ".....22." + Chr$(13)
2001.     m$ = m$ + ".....22." + Chr$(13)
2002.     m$ = m$ + "..2222.." + Chr$(13)
2003.     m$ = m$ + "........" + Chr$(13)
2004.     arrTileText(106) = m$
2005.  
2006.     m$ = ""
2007.     m$ = m$ + ".22....." + Chr$(13)
2008.     m$ = m$ + ".22....." + Chr$(13)
2009.     m$ = m$ + ".22.22.." + Chr$(13)
2010.     m$ = m$ + ".2222..." + Chr$(13)
2011.     m$ = m$ + ".22.22.." + Chr$(13)
2012.     m$ = m$ + ".22..22." + Chr$(13)
2013.     m$ = m$ + "........" + Chr$(13)
2014.     m$ = m$ + "........" + Chr$(13)
2015.     arrTileText(107) = m$
2016.  
2017.     m$ = ""
2018.     m$ = m$ + "..222..." + Chr$(13)
2019.     m$ = m$ + "...22..." + Chr$(13)
2020.     m$ = m$ + "...22..." + Chr$(13)
2021.     m$ = m$ + "...22..." + Chr$(13)
2022.     m$ = m$ + "...22..." + Chr$(13)
2023.     m$ = m$ + "..2222.." + Chr$(13)
2024.     m$ = m$ + "........" + Chr$(13)
2025.     m$ = m$ + "........" + Chr$(13)
2026.     arrTileText(108) = m$
2027.  
2028.     m$ = ""
2029.     m$ = m$ + "........" + Chr$(13)
2030.     m$ = m$ + ".22..22." + Chr$(13)
2031.     m$ = m$ + ".2222222" + Chr$(13)
2032.     m$ = m$ + ".2222222" + Chr$(13)
2033.     m$ = m$ + ".22.2.22" + Chr$(13)
2034.     m$ = m$ + ".22...22" + Chr$(13)
2035.     m$ = m$ + "........" + Chr$(13)
2036.     m$ = m$ + "........" + Chr$(13)
2037.     arrTileText(109) = m$
2038.  
2039.     m$ = ""
2040.     m$ = m$ + "........" + Chr$(13)
2041.     m$ = m$ + ".22222.." + Chr$(13)
2042.     m$ = m$ + ".22..22." + Chr$(13)
2043.     m$ = m$ + ".22..22." + Chr$(13)
2044.     m$ = m$ + ".22..22." + Chr$(13)
2045.     m$ = m$ + ".22..22." + Chr$(13)
2046.     m$ = m$ + "........" + Chr$(13)
2047.     m$ = m$ + "........" + Chr$(13)
2048.     arrTileText(110) = m$
2049.  
2050.     m$ = ""
2051.     m$ = m$ + "........" + Chr$(13)
2052.     m$ = m$ + "..2222.." + Chr$(13)
2053.     m$ = m$ + ".22..22." + Chr$(13)
2054.     m$ = m$ + ".22..22." + Chr$(13)
2055.     m$ = m$ + ".22..22." + Chr$(13)
2056.     m$ = m$ + "..2222.." + Chr$(13)
2057.     m$ = m$ + "........" + Chr$(13)
2058.     m$ = m$ + "........" + Chr$(13)
2059.     arrTileText(111) = m$
2060.  
2061.     m$ = ""
2062.     m$ = m$ + "........" + Chr$(13)
2063.     m$ = m$ + ".22222.." + Chr$(13)
2064.     m$ = m$ + ".22..22." + Chr$(13)
2065.     m$ = m$ + ".22..22." + Chr$(13)
2066.     m$ = m$ + ".22222.." + Chr$(13)
2067.     m$ = m$ + ".22....." + Chr$(13)
2068.     m$ = m$ + ".22....." + Chr$(13)
2069.     m$ = m$ + "........" + Chr$(13)
2070.     arrTileText(112) = m$
2071.  
2072.     m$ = ""
2073.     m$ = m$ + "........" + Chr$(13)
2074.     m$ = m$ + "..22222." + Chr$(13)
2075.     m$ = m$ + ".22..22." + Chr$(13)
2076.     m$ = m$ + ".22..22." + Chr$(13)
2077.     m$ = m$ + "..22222." + Chr$(13)
2078.     m$ = m$ + ".....22." + Chr$(13)
2079.     m$ = m$ + ".....22." + Chr$(13)
2080.     m$ = m$ + "........" + Chr$(13)
2081.     arrTileText(113) = m$
2082.  
2083.     m$ = ""
2084.     m$ = m$ + "........" + Chr$(13)
2085.     m$ = m$ + ".22222.." + Chr$(13)
2086.     m$ = m$ + ".22..22." + Chr$(13)
2087.     m$ = m$ + ".22....." + Chr$(13)
2088.     m$ = m$ + ".22....." + Chr$(13)
2089.     m$ = m$ + ".22....." + Chr$(13)
2090.     m$ = m$ + "........" + Chr$(13)
2091.     m$ = m$ + "........" + Chr$(13)
2092.     arrTileText(114) = m$
2093.  
2094.     m$ = ""
2095.     m$ = m$ + "........" + Chr$(13)
2096.     m$ = m$ + "..22222." + Chr$(13)
2097.     m$ = m$ + ".22....." + Chr$(13)
2098.     m$ = m$ + "..2222.." + Chr$(13)
2099.     m$ = m$ + ".....22." + Chr$(13)
2100.     m$ = m$ + ".22222.." + Chr$(13)
2101.     m$ = m$ + "........" + Chr$(13)
2102.     m$ = m$ + "........" + Chr$(13)
2103.     arrTileText(115) = m$
2104.  
2105.     m$ = ""
2106.     m$ = m$ + "...22..." + Chr$(13)
2107.     m$ = m$ + ".222222." + Chr$(13)
2108.     m$ = m$ + "...22..." + Chr$(13)
2109.     m$ = m$ + "...22..." + Chr$(13)
2110.     m$ = m$ + "...22..." + Chr$(13)
2111.     m$ = m$ + "....222." + Chr$(13)
2112.     m$ = m$ + "........" + Chr$(13)
2113.     m$ = m$ + "........" + Chr$(13)
2114.     arrTileText(116) = m$
2115.  
2116.     m$ = ""
2117.     m$ = m$ + "........" + Chr$(13)
2118.     m$ = m$ + ".22..22." + Chr$(13)
2119.     m$ = m$ + ".22..22." + Chr$(13)
2120.     m$ = m$ + ".22..22." + Chr$(13)
2121.     m$ = m$ + ".22..22." + Chr$(13)
2122.     m$ = m$ + "..22222." + Chr$(13)
2123.     m$ = m$ + "........" + Chr$(13)
2124.     m$ = m$ + "........" + Chr$(13)
2125.     arrTileText(117) = m$
2126.  
2127.     m$ = ""
2128.     m$ = m$ + "........" + Chr$(13)
2129.     m$ = m$ + ".22..22." + Chr$(13)
2130.     m$ = m$ + ".22..22." + Chr$(13)
2131.     m$ = m$ + ".22..22." + Chr$(13)
2132.     m$ = m$ + "..2222.." + Chr$(13)
2133.     m$ = m$ + "...22..." + Chr$(13)
2134.     m$ = m$ + "........" + Chr$(13)
2135.     m$ = m$ + "........" + Chr$(13)
2136.     arrTileText(118) = m$
2137.  
2138.     m$ = ""
2139.     m$ = m$ + "........" + Chr$(13)
2140.     m$ = m$ + ".22...22" + Chr$(13)
2141.     m$ = m$ + ".22.2.22" + Chr$(13)
2142.     m$ = m$ + ".2222222" + Chr$(13)
2143.     m$ = m$ + "..22222." + Chr$(13)
2144.     m$ = m$ + "..22.22." + Chr$(13)
2145.     m$ = m$ + "........" + Chr$(13)
2146.     m$ = m$ + "........" + Chr$(13)
2147.     arrTileText(119) = m$
2148.  
2149.     m$ = ""
2150.     m$ = m$ + "........" + Chr$(13)
2151.     m$ = m$ + ".22..22." + Chr$(13)
2152.     m$ = m$ + "..2222.." + Chr$(13)
2153.     m$ = m$ + "...22..." + Chr$(13)
2154.     m$ = m$ + "..2222.." + Chr$(13)
2155.     m$ = m$ + ".22..22." + Chr$(13)
2156.     m$ = m$ + "........" + Chr$(13)
2157.     m$ = m$ + "........" + Chr$(13)
2158.     arrTileText(120) = m$
2159.  
2160.     m$ = ""
2161.     m$ = m$ + "........" + Chr$(13)
2162.     m$ = m$ + ".22..22." + Chr$(13)
2163.     m$ = m$ + ".22..22." + Chr$(13)
2164.     m$ = m$ + ".22..22." + Chr$(13)
2165.     m$ = m$ + "..22222." + Chr$(13)
2166.     m$ = m$ + "....22.." + Chr$(13)
2167.     m$ = m$ + ".2222..." + Chr$(13)
2168.     m$ = m$ + "........" + Chr$(13)
2169.     arrTileText(121) = m$
2170.  
2171.     m$ = ""
2172.     m$ = m$ + "........" + Chr$(13)
2173.     m$ = m$ + ".222222." + Chr$(13)
2174.     m$ = m$ + "....22.." + Chr$(13)
2175.     m$ = m$ + "...22..." + Chr$(13)
2176.     m$ = m$ + "..22...." + Chr$(13)
2177.     m$ = m$ + ".222222." + Chr$(13)
2178.     m$ = m$ + "........" + Chr$(13)
2179.     m$ = m$ + "........" + Chr$(13)
2180.     arrTileText(122) = m$
2181.  
2182.     m$ = ""
2183.     m$ = m$ + "...222.." + Chr$(13)
2184.     m$ = m$ + "..22...." + Chr$(13)
2185.     m$ = m$ + "..2....." + Chr$(13)
2186.     m$ = m$ + ".22....." + Chr$(13)
2187.     m$ = m$ + "..2....." + Chr$(13)
2188.     m$ = m$ + "..22...." + Chr$(13)
2189.     m$ = m$ + "...222.." + Chr$(13)
2190.     m$ = m$ + "........" + Chr$(13)
2191.     arrTileText(123) = m$
2192.  
2193.     m$ = ""
2194.     m$ = m$ + "....2..." + Chr$(13)
2195.     m$ = m$ + "....2..." + Chr$(13)
2196.     m$ = m$ + "....2..." + Chr$(13)
2197.     m$ = m$ + "....2..." + Chr$(13)
2198.     m$ = m$ + "....2..." + Chr$(13)
2199.     m$ = m$ + "....2..." + Chr$(13)
2200.     m$ = m$ + "....2..." + Chr$(13)
2201.     m$ = m$ + "........" + Chr$(13)
2202.     arrTileText(124) = m$
2203.  
2204.     m$ = ""
2205.     m$ = m$ + "..222..." + Chr$(13)
2206.     m$ = m$ + "....22.." + Chr$(13)
2207.     m$ = m$ + ".....2.." + Chr$(13)
2208.     m$ = m$ + ".....22." + Chr$(13)
2209.     m$ = m$ + ".....2.." + Chr$(13)
2210.     m$ = m$ + "....22.." + Chr$(13)
2211.     m$ = m$ + "..222..." + Chr$(13)
2212.     m$ = m$ + "........" + Chr$(13)
2213.     arrTileText(125) = m$
2214.  
2215.     m$ = ""
2216.     m$ = m$ + "........" + Chr$(13)
2217.     m$ = m$ + ".22....2" + Chr$(13)
2218.     m$ = m$ + "2..2..2." + Chr$(13)
2219.     m$ = m$ + "....22.." + Chr$(13)
2220.     m$ = m$ + "........" + Chr$(13)
2221.     m$ = m$ + "........" + Chr$(13)
2222.     m$ = m$ + "........" + Chr$(13)
2223.     m$ = m$ + "........" + Chr$(13)
2224.     arrTileText(126) = m$
2225.  
2226.     m$ = ""
2227.     m$ = m$ + "........" + Chr$(13)
2228.     m$ = m$ + "........" + Chr$(13)
2229.     m$ = m$ + "........" + Chr$(13)
2230.     m$ = m$ + "........" + Chr$(13)
2231.     m$ = m$ + "........" + Chr$(13)
2232.     m$ = m$ + "........" + Chr$(13)
2233.     m$ = m$ + "........" + Chr$(13)
2234.     m$ = m$ + "........" + Chr$(13)
2235.     arrTileText(127) = m$
2236.  
2237.     m$ = ""
2238.     m$ = m$ + "........" + Chr$(13)
2239.     m$ = m$ + "........" + Chr$(13)
2240.     m$ = m$ + "........" + Chr$(13)
2241.     m$ = m$ + "22222222" + Chr$(13)
2242.     m$ = m$ + "22222222" + Chr$(13)
2243.     m$ = m$ + "........" + Chr$(13)
2244.     m$ = m$ + "........" + Chr$(13)
2245.     m$ = m$ + "........" + Chr$(13)
2246.     arrTileText(128) = m$
2247.  
2248.     m$ = ""
2249.     m$ = m$ + "....2..." + Chr$(13)
2250.     m$ = m$ + "...222.." + Chr$(13)
2251.     m$ = m$ + "..22222." + Chr$(13)
2252.     m$ = m$ + ".2222222" + Chr$(13)
2253.     m$ = m$ + ".2222222" + Chr$(13)
2254.     m$ = m$ + "...222.." + Chr$(13)
2255.     m$ = m$ + "..22222." + Chr$(13)
2256.     m$ = m$ + "........" + Chr$(13)
2257.     arrTileText(129) = m$
2258.  
2259.     m$ = ""
2260.     m$ = m$ + "...22..." + Chr$(13)
2261.     m$ = m$ + "...22..." + Chr$(13)
2262.     m$ = m$ + "...22..." + Chr$(13)
2263.     m$ = m$ + "...22..." + Chr$(13)
2264.     m$ = m$ + "...22..." + Chr$(13)
2265.     m$ = m$ + "...22..." + Chr$(13)
2266.     m$ = m$ + "...22..." + Chr$(13)
2267.     m$ = m$ + "...22..." + Chr$(13)
2268.     arrTileText(130) = m$
2269.  
2270.     m$ = ""
2271.     m$ = m$ + "........" + Chr$(13)
2272.     m$ = m$ + "........" + Chr$(13)
2273.     m$ = m$ + "........" + Chr$(13)
2274.     m$ = m$ + "22222222" + Chr$(13)
2275.     m$ = m$ + "22222222" + Chr$(13)
2276.     m$ = m$ + "........" + Chr$(13)
2277.     m$ = m$ + "........" + Chr$(13)
2278.     m$ = m$ + "........" + Chr$(13)
2279.     arrTileText(131) = m$
2280.  
2281.     m$ = ""
2282.     m$ = m$ + "........" + Chr$(13)
2283.     m$ = m$ + "........" + Chr$(13)
2284.     m$ = m$ + "22222222" + Chr$(13)
2285.     m$ = m$ + "22222222" + Chr$(13)
2286.     m$ = m$ + "........" + Chr$(13)
2287.     m$ = m$ + "........" + Chr$(13)
2288.     m$ = m$ + "........" + Chr$(13)
2289.     m$ = m$ + "........" + Chr$(13)
2290.     arrTileText(132) = m$
2291.  
2292.     m$ = ""
2293.     m$ = m$ + "........" + Chr$(13)
2294.     m$ = m$ + "22222222" + Chr$(13)
2295.     m$ = m$ + "22222222" + Chr$(13)
2296.     m$ = m$ + "........" + Chr$(13)
2297.     m$ = m$ + "........" + Chr$(13)
2298.     m$ = m$ + "........" + Chr$(13)
2299.     m$ = m$ + "........" + Chr$(13)
2300.     m$ = m$ + "........" + Chr$(13)
2301.     arrTileText(133) = m$
2302.  
2303.     m$ = ""
2304.     m$ = m$ + "........" + Chr$(13)
2305.     m$ = m$ + "........" + Chr$(13)
2306.     m$ = m$ + "........" + Chr$(13)
2307.     m$ = m$ + "........" + Chr$(13)
2308.     m$ = m$ + "22222222" + Chr$(13)
2309.     m$ = m$ + "22222222" + Chr$(13)
2310.     m$ = m$ + "........" + Chr$(13)
2311.     m$ = m$ + "........" + Chr$(13)
2312.     arrTileText(134) = m$
2313.  
2314.     m$ = ""
2315.     m$ = m$ + "..22...." + Chr$(13)
2316.     m$ = m$ + "..22...." + Chr$(13)
2317.     m$ = m$ + "..22...." + Chr$(13)
2318.     m$ = m$ + "..22...." + Chr$(13)
2319.     m$ = m$ + "..22...." + Chr$(13)
2320.     m$ = m$ + "..22...." + Chr$(13)
2321.     m$ = m$ + "..22...." + Chr$(13)
2322.     m$ = m$ + "..22...." + Chr$(13)
2323.     arrTileText(135) = m$
2324.  
2325.     m$ = ""
2326.     m$ = m$ + "....22.." + Chr$(13)
2327.     m$ = m$ + "....22.." + Chr$(13)
2328.     m$ = m$ + "....22.." + Chr$(13)
2329.     m$ = m$ + "....22.." + Chr$(13)
2330.     m$ = m$ + "....22.." + Chr$(13)
2331.     m$ = m$ + "....22.." + Chr$(13)
2332.     m$ = m$ + "....22.." + Chr$(13)
2333.     m$ = m$ + "....22.." + Chr$(13)
2334.     arrTileText(136) = m$
2335.  
2336.     m$ = ""
2337.     m$ = m$ + "........" + Chr$(13)
2338.     m$ = m$ + "........" + Chr$(13)
2339.     m$ = m$ + "........" + Chr$(13)
2340.     m$ = m$ + "222....." + Chr$(13)
2341.     m$ = m$ + "2222...." + Chr$(13)
2342.     m$ = m$ + "..222..." + Chr$(13)
2343.     m$ = m$ + "...22..." + Chr$(13)
2344.     m$ = m$ + "...22..." + Chr$(13)
2345.     arrTileText(137) = m$
2346.  
2347.     m$ = ""
2348.     m$ = m$ + "...22..." + Chr$(13)
2349.     m$ = m$ + "...22..." + Chr$(13)
2350.     m$ = m$ + "...222.." + Chr$(13)
2351.     m$ = m$ + "....2222" + Chr$(13)
2352.     m$ = m$ + ".....222" + Chr$(13)
2353.     m$ = m$ + "........" + Chr$(13)
2354.     m$ = m$ + "........" + Chr$(13)
2355.     m$ = m$ + "........" + Chr$(13)
2356.     arrTileText(138) = m$
2357.  
2358.     m$ = ""
2359.     m$ = m$ + "...22..." + Chr$(13)
2360.     m$ = m$ + "...22..." + Chr$(13)
2361.     m$ = m$ + "..222..." + Chr$(13)
2362.     m$ = m$ + "2222...." + Chr$(13)
2363.     m$ = m$ + "222....." + Chr$(13)
2364.     m$ = m$ + "........" + Chr$(13)
2365.     m$ = m$ + "........" + Chr$(13)
2366.     m$ = m$ + "........" + Chr$(13)
2367.     arrTileText(139) = m$
2368.  
2369.     m$ = ""
2370.     m$ = m$ + "22......" + Chr$(13)
2371.     m$ = m$ + "22......" + Chr$(13)
2372.     m$ = m$ + "22......" + Chr$(13)
2373.     m$ = m$ + "22......" + Chr$(13)
2374.     m$ = m$ + "22......" + Chr$(13)
2375.     m$ = m$ + "22......" + Chr$(13)
2376.     m$ = m$ + "22222222" + Chr$(13)
2377.     m$ = m$ + "22222222" + Chr$(13)
2378.     arrTileText(140) = m$
2379.  
2380.     m$ = ""
2381.     m$ = m$ + "22......" + Chr$(13)
2382.     m$ = m$ + "222....." + Chr$(13)
2383.     m$ = m$ + ".222...." + Chr$(13)
2384.     m$ = m$ + "..222..." + Chr$(13)
2385.     m$ = m$ + "...222.." + Chr$(13)
2386.     m$ = m$ + "....222." + Chr$(13)
2387.     m$ = m$ + ".....222" + Chr$(13)
2388.     m$ = m$ + "......22" + Chr$(13)
2389.     arrTileText(141) = m$
2390.  
2391.     m$ = ""
2392.     m$ = m$ + "......22" + Chr$(13)
2393.     m$ = m$ + ".....222" + Chr$(13)
2394.     m$ = m$ + "....222." + Chr$(13)
2395.     m$ = m$ + "...222.." + Chr$(13)
2396.     m$ = m$ + "..222..." + Chr$(13)
2397.     m$ = m$ + ".222...." + Chr$(13)
2398.     m$ = m$ + "222....." + Chr$(13)
2399.     m$ = m$ + "22......" + Chr$(13)
2400.     arrTileText(142) = m$
2401.  
2402.     m$ = ""
2403.     m$ = m$ + "22222222" + Chr$(13)
2404.     m$ = m$ + "22222222" + Chr$(13)
2405.     m$ = m$ + "22......" + Chr$(13)
2406.     m$ = m$ + "22......" + Chr$(13)
2407.     m$ = m$ + "22......" + Chr$(13)
2408.     m$ = m$ + "22......" + Chr$(13)
2409.     m$ = m$ + "22......" + Chr$(13)
2410.     m$ = m$ + "22......" + Chr$(13)
2411.     arrTileText(143) = m$
2412.  
2413.     m$ = ""
2414.     m$ = m$ + "22222222" + Chr$(13)
2415.     m$ = m$ + "22222222" + Chr$(13)
2416.     m$ = m$ + "......22" + Chr$(13)
2417.     m$ = m$ + "......22" + Chr$(13)
2418.     m$ = m$ + "......22" + Chr$(13)
2419.     m$ = m$ + "......22" + Chr$(13)
2420.     m$ = m$ + "......22" + Chr$(13)
2421.     m$ = m$ + "......22" + Chr$(13)
2422.     arrTileText(144) = m$
2423.  
2424.     m$ = ""
2425.     m$ = m$ + "........" + Chr$(13)
2426.     m$ = m$ + "..2222.." + Chr$(13)
2427.     m$ = m$ + ".222222." + Chr$(13)
2428.     m$ = m$ + ".222222." + Chr$(13)
2429.     m$ = m$ + ".222222." + Chr$(13)
2430.     m$ = m$ + ".222222." + Chr$(13)
2431.     m$ = m$ + "..2222.." + Chr$(13)
2432.     m$ = m$ + "........" + Chr$(13)
2433.     arrTileText(145) = m$
2434.  
2435.     m$ = ""
2436.     m$ = m$ + "........" + Chr$(13)
2437.     m$ = m$ + "........" + Chr$(13)
2438.     m$ = m$ + "........" + Chr$(13)
2439.     m$ = m$ + "........" + Chr$(13)
2440.     m$ = m$ + "........" + Chr$(13)
2441.     m$ = m$ + "22222222" + Chr$(13)
2442.     m$ = m$ + "22222222" + Chr$(13)
2443.     m$ = m$ + "........" + Chr$(13)
2444.     arrTileText(146) = m$
2445.  
2446.     m$ = ""
2447.     m$ = m$ + "..22.22." + Chr$(13)
2448.     m$ = m$ + ".2222222" + Chr$(13)
2449.     m$ = m$ + ".2222222" + Chr$(13)
2450.     m$ = m$ + ".2222222" + Chr$(13)
2451.     m$ = m$ + "..22222." + Chr$(13)
2452.     m$ = m$ + "...222.." + Chr$(13)
2453.     m$ = m$ + "....2..." + Chr$(13)
2454.     m$ = m$ + "........" + Chr$(13)
2455.     arrTileText(147) = m$
2456.  
2457.     m$ = ""
2458.     m$ = m$ + ".22....." + Chr$(13)
2459.     m$ = m$ + ".22....." + Chr$(13)
2460.     m$ = m$ + ".22....." + Chr$(13)
2461.     m$ = m$ + ".22....." + Chr$(13)
2462.     m$ = m$ + ".22....." + Chr$(13)
2463.     m$ = m$ + ".22....." + Chr$(13)
2464.     m$ = m$ + ".22....." + Chr$(13)
2465.     m$ = m$ + ".22....." + Chr$(13)
2466.     arrTileText(148) = m$
2467.  
2468.     m$ = ""
2469.     m$ = m$ + "........" + Chr$(13)
2470.     m$ = m$ + "........" + Chr$(13)
2471.     m$ = m$ + "........" + Chr$(13)
2472.     m$ = m$ + ".....222" + Chr$(13)
2473.     m$ = m$ + "....2222" + Chr$(13)
2474.     m$ = m$ + "...222.." + Chr$(13)
2475.     m$ = m$ + "...22..." + Chr$(13)
2476.     m$ = m$ + "...22..." + Chr$(13)
2477.     arrTileText(149) = m$
2478.  
2479.     m$ = ""
2480.     m$ = m$ + "22....22" + Chr$(13)
2481.     m$ = m$ + "222..222" + Chr$(13)
2482.     m$ = m$ + ".222222." + Chr$(13)
2483.     m$ = m$ + "..2222.." + Chr$(13)
2484.     m$ = m$ + "..2222.." + Chr$(13)
2485.     m$ = m$ + ".222222." + Chr$(13)
2486.     m$ = m$ + "222..222" + Chr$(13)
2487.     m$ = m$ + "22....22" + Chr$(13)
2488.     arrTileText(150) = m$
2489.  
2490.     m$ = ""
2491.     m$ = m$ + "........" + Chr$(13)
2492.     m$ = m$ + "..2222.." + Chr$(13)
2493.     m$ = m$ + ".222222." + Chr$(13)
2494.     m$ = m$ + ".22..22." + Chr$(13)
2495.     m$ = m$ + ".22..22." + Chr$(13)
2496.     m$ = m$ + ".222222." + Chr$(13)
2497.     m$ = m$ + "..2222.." + Chr$(13)
2498.     m$ = m$ + "........" + Chr$(13)
2499.     arrTileText(151) = m$
2500.  
2501.     m$ = ""
2502.     m$ = m$ + "...22..." + Chr$(13)
2503.     m$ = m$ + "...22..." + Chr$(13)
2504.     m$ = m$ + ".22..22." + Chr$(13)
2505.     m$ = m$ + ".22..22." + Chr$(13)
2506.     m$ = m$ + "...22..." + Chr$(13)
2507.     m$ = m$ + "...22..." + Chr$(13)
2508.     m$ = m$ + "..2222.." + Chr$(13)
2509.     m$ = m$ + "........" + Chr$(13)
2510.     arrTileText(152) = m$
2511.  
2512.     m$ = ""
2513.     m$ = m$ + ".....22." + Chr$(13)
2514.     m$ = m$ + ".....22." + Chr$(13)
2515.     m$ = m$ + ".....22." + Chr$(13)
2516.     m$ = m$ + ".....22." + Chr$(13)
2517.     m$ = m$ + ".....22." + Chr$(13)
2518.     m$ = m$ + ".....22." + Chr$(13)
2519.     m$ = m$ + ".....22." + Chr$(13)
2520.     m$ = m$ + ".....22." + Chr$(13)
2521.     arrTileText(153) = m$
2522.  
2523.     m$ = ""
2524.     m$ = m$ + "....2..." + Chr$(13)
2525.     m$ = m$ + "...222.." + Chr$(13)
2526.     m$ = m$ + "..22222." + Chr$(13)
2527.     m$ = m$ + ".2222222" + Chr$(13)
2528.     m$ = m$ + "..22222." + Chr$(13)
2529.     m$ = m$ + "...222.." + Chr$(13)
2530.     m$ = m$ + "....2..." + Chr$(13)
2531.     m$ = m$ + "........" + Chr$(13)
2532.     arrTileText(154) = m$
2533.  
2534.     m$ = ""
2535.     m$ = m$ + "...22..." + Chr$(13)
2536.     m$ = m$ + "...22..." + Chr$(13)
2537.     m$ = m$ + "...22..." + Chr$(13)
2538.     m$ = m$ + "22222222" + Chr$(13)
2539.     m$ = m$ + "22222222" + Chr$(13)
2540.     m$ = m$ + "...22..." + Chr$(13)
2541.     m$ = m$ + "...22..." + Chr$(13)
2542.     m$ = m$ + "...22..." + Chr$(13)
2543.     arrTileText(155) = m$
2544.  
2545.     m$ = ""
2546.     m$ = m$ + "22......" + Chr$(13)
2547.     m$ = m$ + "22......" + Chr$(13)
2548.     m$ = m$ + "..22...." + Chr$(13)
2549.     m$ = m$ + "..22...." + Chr$(13)
2550.     m$ = m$ + "22......" + Chr$(13)
2551.     m$ = m$ + "22......" + Chr$(13)
2552.     m$ = m$ + "..22...." + Chr$(13)
2553.     m$ = m$ + "..22...." + Chr$(13)
2554.     arrTileText(156) = m$
2555.  
2556.     m$ = ""
2557.     m$ = m$ + "...22..." + Chr$(13)
2558.     m$ = m$ + "...22..." + Chr$(13)
2559.     m$ = m$ + "...22..." + Chr$(13)
2560.     m$ = m$ + "...22..." + Chr$(13)
2561.     m$ = m$ + "...22..." + Chr$(13)
2562.     m$ = m$ + "...22..." + Chr$(13)
2563.     m$ = m$ + "...22..." + Chr$(13)
2564.     m$ = m$ + "...22..." + Chr$(13)
2565.     arrTileText(157) = m$
2566.  
2567.     m$ = ""
2568.     m$ = m$ + "........" + Chr$(13)
2569.     m$ = m$ + "........" + Chr$(13)
2570.     m$ = m$ + "......22" + Chr$(13)
2571.     m$ = m$ + "..22222." + Chr$(13)
2572.     m$ = m$ + ".222.22." + Chr$(13)
2573.     m$ = m$ + "..22.22." + Chr$(13)
2574.     m$ = m$ + "..22.22." + Chr$(13)
2575.     m$ = m$ + "........" + Chr$(13)
2576.     arrTileText(158) = m$
2577.  
2578.     m$ = ""
2579.     m$ = m$ + "22222222" + Chr$(13)
2580.     m$ = m$ + ".2222222" + Chr$(13)
2581.     m$ = m$ + "..222222" + Chr$(13)
2582.     m$ = m$ + "...22222" + Chr$(13)
2583.     m$ = m$ + "....2222" + Chr$(13)
2584.     m$ = m$ + ".....222" + Chr$(13)
2585.     m$ = m$ + "......22" + Chr$(13)
2586.     m$ = m$ + ".......2" + Chr$(13)
2587.     arrTileText(159) = m$
2588.  
2589.     m$ = ""
2590.     m$ = m$ + "........" + Chr$(13)
2591.     m$ = m$ + "........" + Chr$(13)
2592.     m$ = m$ + "........" + Chr$(13)
2593.     m$ = m$ + "........" + Chr$(13)
2594.     m$ = m$ + "........" + Chr$(13)
2595.     m$ = m$ + "........" + Chr$(13)
2596.     m$ = m$ + "........" + Chr$(13)
2597.     m$ = m$ + "........" + Chr$(13)
2598.     arrTileText(160) = m$
2599.  
2600.     m$ = ""
2601.     m$ = m$ + "2222...." + Chr$(13)
2602.     m$ = m$ + "2222...." + Chr$(13)
2603.     m$ = m$ + "2222...." + Chr$(13)
2604.     m$ = m$ + "2222...." + Chr$(13)
2605.     m$ = m$ + "2222...." + Chr$(13)
2606.     m$ = m$ + "2222...." + Chr$(13)
2607.     m$ = m$ + "2222...." + Chr$(13)
2608.     m$ = m$ + "2222...." + Chr$(13)
2609.     arrTileText(161) = m$
2610.  
2611.     m$ = ""
2612.     m$ = m$ + "........" + Chr$(13)
2613.     m$ = m$ + "........" + Chr$(13)
2614.     m$ = m$ + "........" + Chr$(13)
2615.     m$ = m$ + "........" + Chr$(13)
2616.     m$ = m$ + "22222222" + Chr$(13)
2617.     m$ = m$ + "22222222" + Chr$(13)
2618.     m$ = m$ + "22222222" + Chr$(13)
2619.     m$ = m$ + "22222222" + Chr$(13)
2620.     arrTileText(162) = m$
2621.  
2622.     m$ = ""
2623.     m$ = m$ + "22222222" + Chr$(13)
2624.     m$ = m$ + "........" + Chr$(13)
2625.     m$ = m$ + "........" + Chr$(13)
2626.     m$ = m$ + "........" + Chr$(13)
2627.     m$ = m$ + "........" + Chr$(13)
2628.     m$ = m$ + "........" + Chr$(13)
2629.     m$ = m$ + "........" + Chr$(13)
2630.     m$ = m$ + "........" + Chr$(13)
2631.     arrTileText(163) = m$
2632.  
2633.     m$ = ""
2634.     m$ = m$ + "........" + Chr$(13)
2635.     m$ = m$ + "........" + Chr$(13)
2636.     m$ = m$ + "........" + Chr$(13)
2637.     m$ = m$ + "........" + Chr$(13)
2638.     m$ = m$ + "........" + Chr$(13)
2639.     m$ = m$ + "........" + Chr$(13)
2640.     m$ = m$ + "........" + Chr$(13)
2641.     m$ = m$ + "22222222" + Chr$(13)
2642.     arrTileText(164) = m$
2643.  
2644.     m$ = ""
2645.     m$ = m$ + "22......" + Chr$(13)
2646.     m$ = m$ + "22......" + Chr$(13)
2647.     m$ = m$ + "22......" + Chr$(13)
2648.     m$ = m$ + "22......" + Chr$(13)
2649.     m$ = m$ + "22......" + Chr$(13)
2650.     m$ = m$ + "22......" + Chr$(13)
2651.     m$ = m$ + "22......" + Chr$(13)
2652.     m$ = m$ + "22......" + Chr$(13)
2653.     arrTileText(165) = m$
2654.  
2655.     m$ = ""
2656.     m$ = m$ + "22..22.." + Chr$(13)
2657.     m$ = m$ + "22..22.." + Chr$(13)
2658.     m$ = m$ + "..22..22" + Chr$(13)
2659.     m$ = m$ + "..22..22" + Chr$(13)
2660.     m$ = m$ + "22..22.." + Chr$(13)
2661.     m$ = m$ + "22..22.." + Chr$(13)
2662.     m$ = m$ + "..22..22" + Chr$(13)
2663.     m$ = m$ + "..22..22" + Chr$(13)
2664.     arrTileText(166) = m$
2665.  
2666.     m$ = ""
2667.     m$ = m$ + "......22" + Chr$(13)
2668.     m$ = m$ + "......22" + Chr$(13)
2669.     m$ = m$ + "......22" + Chr$(13)
2670.     m$ = m$ + "......22" + Chr$(13)
2671.     m$ = m$ + "......22" + Chr$(13)
2672.     m$ = m$ + "......22" + Chr$(13)
2673.     m$ = m$ + "......22" + Chr$(13)
2674.     m$ = m$ + "......22" + Chr$(13)
2675.     arrTileText(167) = m$
2676.  
2677.     m$ = ""
2678.     m$ = m$ + "........" + Chr$(13)
2679.     m$ = m$ + "........" + Chr$(13)
2680.     m$ = m$ + "........" + Chr$(13)
2681.     m$ = m$ + "........" + Chr$(13)
2682.     m$ = m$ + "22..22.." + Chr$(13)
2683.     m$ = m$ + "22..22.." + Chr$(13)
2684.     m$ = m$ + "..22..22" + Chr$(13)
2685.     m$ = m$ + "..22..22" + Chr$(13)
2686.     arrTileText(168) = m$
2687.  
2688.     m$ = ""
2689.     m$ = m$ + "22222222" + Chr$(13)
2690.     m$ = m$ + "2222222." + Chr$(13)
2691.     m$ = m$ + "222222.." + Chr$(13)
2692.     m$ = m$ + "22222..." + Chr$(13)
2693.     m$ = m$ + "2222...." + Chr$(13)
2694.     m$ = m$ + "222....." + Chr$(13)
2695.     m$ = m$ + "22......" + Chr$(13)
2696.     m$ = m$ + "2......." + Chr$(13)
2697.     arrTileText(169) = m$
2698.  
2699.     m$ = ""
2700.     m$ = m$ + "......22" + Chr$(13)
2701.     m$ = m$ + "......22" + Chr$(13)
2702.     m$ = m$ + "......22" + Chr$(13)
2703.     m$ = m$ + "......22" + Chr$(13)
2704.     m$ = m$ + "......22" + Chr$(13)
2705.     m$ = m$ + "......22" + Chr$(13)
2706.     m$ = m$ + "......22" + Chr$(13)
2707.     m$ = m$ + "......22" + Chr$(13)
2708.     arrTileText(170) = m$
2709.  
2710.     m$ = ""
2711.     m$ = m$ + "...22..." + Chr$(13)
2712.     m$ = m$ + "...22..." + Chr$(13)
2713.     m$ = m$ + "...22..." + Chr$(13)
2714.     m$ = m$ + "...22222" + Chr$(13)
2715.     m$ = m$ + "...22222" + Chr$(13)
2716.     m$ = m$ + "...22..." + Chr$(13)
2717.     m$ = m$ + "...22..." + Chr$(13)
2718.     m$ = m$ + "...22..." + Chr$(13)
2719.     arrTileText(171) = m$
2720.  
2721.     m$ = ""
2722.     m$ = m$ + "........" + Chr$(13)
2723.     m$ = m$ + "........" + Chr$(13)
2724.     m$ = m$ + "........" + Chr$(13)
2725.     m$ = m$ + "........" + Chr$(13)
2726.     m$ = m$ + "....2222" + Chr$(13)
2727.     m$ = m$ + "....2222" + Chr$(13)
2728.     m$ = m$ + "....2222" + Chr$(13)
2729.     m$ = m$ + "....2222" + Chr$(13)
2730.     arrTileText(172) = m$
2731.  
2732.     m$ = ""
2733.     m$ = m$ + "...22..." + Chr$(13)
2734.     m$ = m$ + "...22..." + Chr$(13)
2735.     m$ = m$ + "...22..." + Chr$(13)
2736.     m$ = m$ + "...22222" + Chr$(13)
2737.     m$ = m$ + "...22222" + Chr$(13)
2738.     m$ = m$ + "........" + Chr$(13)
2739.     m$ = m$ + "........" + Chr$(13)
2740.     m$ = m$ + "........" + Chr$(13)
2741.     arrTileText(173) = m$
2742.  
2743.     m$ = ""
2744.     m$ = m$ + "........" + Chr$(13)
2745.     m$ = m$ + "........" + Chr$(13)
2746.     m$ = m$ + "........" + Chr$(13)
2747.     m$ = m$ + "22222..." + Chr$(13)
2748.     m$ = m$ + "22222..." + Chr$(13)
2749.     m$ = m$ + "...22..." + Chr$(13)
2750.     m$ = m$ + "...22..." + Chr$(13)
2751.     m$ = m$ + "...22..." + Chr$(13)
2752.     arrTileText(174) = m$
2753.  
2754.     m$ = ""
2755.     m$ = m$ + "........" + Chr$(13)
2756.     m$ = m$ + "........" + Chr$(13)
2757.     m$ = m$ + "........" + Chr$(13)
2758.     m$ = m$ + "........" + Chr$(13)
2759.     m$ = m$ + "........" + Chr$(13)
2760.     m$ = m$ + "........" + Chr$(13)
2761.     m$ = m$ + "22222222" + Chr$(13)
2762.     m$ = m$ + "22222222" + Chr$(13)
2763.     arrTileText(175) = m$
2764.  
2765.     m$ = ""
2766.     m$ = m$ + "........" + Chr$(13)
2767.     m$ = m$ + "........" + Chr$(13)
2768.     m$ = m$ + "........" + Chr$(13)
2769.     m$ = m$ + "...22222" + Chr$(13)
2770.     m$ = m$ + "...22222" + Chr$(13)
2771.     m$ = m$ + "...22..." + Chr$(13)
2772.     m$ = m$ + "...22..." + Chr$(13)
2773.     m$ = m$ + "...22..." + Chr$(13)
2774.     arrTileText(176) = m$
2775.  
2776.     m$ = ""
2777.     m$ = m$ + "...22..." + Chr$(13)
2778.     m$ = m$ + "...22..." + Chr$(13)
2779.     m$ = m$ + "...22..." + Chr$(13)
2780.     m$ = m$ + "22222222" + Chr$(13)
2781.     m$ = m$ + "22222222" + Chr$(13)
2782.     m$ = m$ + "........" + Chr$(13)
2783.     m$ = m$ + "........" + Chr$(13)
2784.     m$ = m$ + "........" + Chr$(13)
2785.     arrTileText(177) = m$
2786.  
2787.     m$ = ""
2788.     m$ = m$ + "........" + Chr$(13)
2789.     m$ = m$ + "........" + Chr$(13)
2790.     m$ = m$ + "........" + Chr$(13)
2791.     m$ = m$ + "22222222" + Chr$(13)
2792.     m$ = m$ + "22222222" + Chr$(13)
2793.     m$ = m$ + "...22..." + Chr$(13)
2794.     m$ = m$ + "...22..." + Chr$(13)
2795.     m$ = m$ + "...22..." + Chr$(13)
2796.     arrTileText(178) = m$
2797.  
2798.     m$ = ""
2799.     m$ = m$ + "...22..." + Chr$(13)
2800.     m$ = m$ + "...22..." + Chr$(13)
2801.     m$ = m$ + "...22..." + Chr$(13)
2802.     m$ = m$ + "22222..." + Chr$(13)
2803.     m$ = m$ + "22222..." + Chr$(13)
2804.     m$ = m$ + "...22..." + Chr$(13)
2805.     m$ = m$ + "...22..." + Chr$(13)
2806.     m$ = m$ + "...22..." + Chr$(13)
2807.     arrTileText(179) = m$
2808.  
2809.     m$ = ""
2810.     m$ = m$ + "22......" + Chr$(13)
2811.     m$ = m$ + "22......" + Chr$(13)
2812.     m$ = m$ + "22......" + Chr$(13)
2813.     m$ = m$ + "22......" + Chr$(13)
2814.     m$ = m$ + "22......" + Chr$(13)
2815.     m$ = m$ + "22......" + Chr$(13)
2816.     m$ = m$ + "22......" + Chr$(13)
2817.     m$ = m$ + "22......" + Chr$(13)
2818.     arrTileText(180) = m$
2819.  
2820.     m$ = ""
2821.     m$ = m$ + "222....." + Chr$(13)
2822.     m$ = m$ + "222....." + Chr$(13)
2823.     m$ = m$ + "222....." + Chr$(13)
2824.     m$ = m$ + "222....." + Chr$(13)
2825.     m$ = m$ + "222....." + Chr$(13)
2826.     m$ = m$ + "222....." + Chr$(13)
2827.     m$ = m$ + "222....." + Chr$(13)
2828.     m$ = m$ + "222....." + Chr$(13)
2829.     arrTileText(181) = m$
2830.  
2831.     m$ = ""
2832.     m$ = m$ + ".....222" + Chr$(13)
2833.     m$ = m$ + ".....222" + Chr$(13)
2834.     m$ = m$ + ".....222" + Chr$(13)
2835.     m$ = m$ + ".....222" + Chr$(13)
2836.     m$ = m$ + ".....222" + Chr$(13)
2837.     m$ = m$ + ".....222" + Chr$(13)
2838.     m$ = m$ + ".....222" + Chr$(13)
2839.     m$ = m$ + ".....222" + Chr$(13)
2840.     arrTileText(182) = m$
2841.  
2842.     m$ = ""
2843.     m$ = m$ + "22222222" + Chr$(13)
2844.     m$ = m$ + "22222222" + Chr$(13)
2845.     m$ = m$ + "........" + Chr$(13)
2846.     m$ = m$ + "........" + Chr$(13)
2847.     m$ = m$ + "........" + Chr$(13)
2848.     m$ = m$ + "........" + Chr$(13)
2849.     m$ = m$ + "........" + Chr$(13)
2850.     m$ = m$ + "........" + Chr$(13)
2851.     arrTileText(183) = m$
2852.  
2853.     m$ = ""
2854.     m$ = m$ + "22222222" + Chr$(13)
2855.     m$ = m$ + "22222222" + Chr$(13)
2856.     m$ = m$ + "22222222" + Chr$(13)
2857.     m$ = m$ + "........" + Chr$(13)
2858.     m$ = m$ + "........" + Chr$(13)
2859.     m$ = m$ + "........" + Chr$(13)
2860.     m$ = m$ + "........" + Chr$(13)
2861.     m$ = m$ + "........" + Chr$(13)
2862.     arrTileText(184) = m$
2863.  
2864.     m$ = ""
2865.     m$ = m$ + "........" + Chr$(13)
2866.     m$ = m$ + "........" + Chr$(13)
2867.     m$ = m$ + "........" + Chr$(13)
2868.     m$ = m$ + "........" + Chr$(13)
2869.     m$ = m$ + "........" + Chr$(13)
2870.     m$ = m$ + "22222222" + Chr$(13)
2871.     m$ = m$ + "22222222" + Chr$(13)
2872.     m$ = m$ + "22222222" + Chr$(13)
2873.     arrTileText(185) = m$
2874.  
2875.     m$ = ""
2876.     m$ = m$ + "......22" + Chr$(13)
2877.     m$ = m$ + "......22" + Chr$(13)
2878.     m$ = m$ + "......22" + Chr$(13)
2879.     m$ = m$ + "......22" + Chr$(13)
2880.     m$ = m$ + "......22" + Chr$(13)
2881.     m$ = m$ + "......22" + Chr$(13)
2882.     m$ = m$ + "22222222" + Chr$(13)
2883.     m$ = m$ + "22222222" + Chr$(13)
2884.     arrTileText(186) = m$
2885.  
2886.     m$ = ""
2887.     m$ = m$ + "........" + Chr$(13)
2888.     m$ = m$ + "........" + Chr$(13)
2889.     m$ = m$ + "........" + Chr$(13)
2890.     m$ = m$ + "........" + Chr$(13)
2891.     m$ = m$ + "2222...." + Chr$(13)
2892.     m$ = m$ + "2222...." + Chr$(13)
2893.     m$ = m$ + "2222...." + Chr$(13)
2894.     m$ = m$ + "2222...." + Chr$(13)
2895.     arrTileText(187) = m$
2896.  
2897.     m$ = ""
2898.     m$ = m$ + "....2222" + Chr$(13)
2899.     m$ = m$ + "....2222" + Chr$(13)
2900.     m$ = m$ + "....2222" + Chr$(13)
2901.     m$ = m$ + "....2222" + Chr$(13)
2902.     m$ = m$ + "........" + Chr$(13)
2903.     m$ = m$ + "........" + Chr$(13)
2904.     m$ = m$ + "........" + Chr$(13)
2905.     m$ = m$ + "........" + Chr$(13)
2906.     arrTileText(188) = m$
2907.  
2908.     m$ = ""
2909.     m$ = m$ + "...22..." + Chr$(13)
2910.     m$ = m$ + "...22..." + Chr$(13)
2911.     m$ = m$ + "...22..." + Chr$(13)
2912.     m$ = m$ + "22222..." + Chr$(13)
2913.     m$ = m$ + "22222..." + Chr$(13)
2914.     m$ = m$ + "........" + Chr$(13)
2915.     m$ = m$ + "........" + Chr$(13)
2916.     m$ = m$ + "........" + Chr$(13)
2917.     arrTileText(189) = m$
2918.  
2919.     m$ = ""
2920.     m$ = m$ + "2222...." + Chr$(13)
2921.     m$ = m$ + "2222...." + Chr$(13)
2922.     m$ = m$ + "2222...." + Chr$(13)
2923.     m$ = m$ + "2222...." + Chr$(13)
2924.     m$ = m$ + "........" + Chr$(13)
2925.     m$ = m$ + "........" + Chr$(13)
2926.     m$ = m$ + "........" + Chr$(13)
2927.     m$ = m$ + "........" + Chr$(13)
2928.     arrTileText(190) = m$
2929.  
2930.     m$ = ""
2931.     m$ = m$ + "2222...." + Chr$(13)
2932.     m$ = m$ + "2222...." + Chr$(13)
2933.     m$ = m$ + "2222...." + Chr$(13)
2934.     m$ = m$ + "2222...." + Chr$(13)
2935.     m$ = m$ + "....2222" + Chr$(13)
2936.     m$ = m$ + "....2222" + Chr$(13)
2937.     m$ = m$ + "....2222" + Chr$(13)
2938.     m$ = m$ + "....2222" + Chr$(13)
2939.     arrTileText(191) = m$
2940.  
2941.     m$ = ""
2942.     m$ = m$ + "........" + Chr$(13)
2943.     m$ = m$ + ".2222222" + Chr$(13)
2944.     m$ = m$ + ".2.....2" + Chr$(13)
2945.     m$ = m$ + ".2.....2" + Chr$(13)
2946.     m$ = m$ + ".2.....2" + Chr$(13)
2947.     m$ = m$ + ".2.....2" + Chr$(13)
2948.     m$ = m$ + ".2.....2" + Chr$(13)
2949.     m$ = m$ + ".2222222" + Chr$(13)
2950.     arrTileText(192) = m$
2951.  
2952.     m$ = ""
2953.     m$ = m$ + "........" + Chr$(13)
2954.     m$ = m$ + ".2222222" + Chr$(13)
2955.     m$ = m$ + ".2222222" + Chr$(13)
2956.     m$ = m$ + ".2222222" + Chr$(13)
2957.     m$ = m$ + ".2222222" + Chr$(13)
2958.     m$ = m$ + ".2222222" + Chr$(13)
2959.     m$ = m$ + ".2222222" + Chr$(13)
2960.     m$ = m$ + ".2222222" + Chr$(13)
2961.     arrTileText(193) = m$
2962.  
2963.     m$ = ""
2964.     m$ = m$ + "........" + Chr$(13)
2965.     m$ = m$ + "...22..." + Chr$(13)
2966.     m$ = m$ + "..2222.." + Chr$(13)
2967.     m$ = m$ + ".222222." + Chr$(13)
2968.     m$ = m$ + "...22..." + Chr$(13)
2969.     m$ = m$ + "...22..." + Chr$(13)
2970.     m$ = m$ + "...22..." + Chr$(13)
2971.     m$ = m$ + "...22..." + Chr$(13)
2972.     arrTileText(194) = m$
2973.  
2974.     m$ = ""
2975.     m$ = m$ + "........" + Chr$(13)
2976.     m$ = m$ + "...22..." + Chr$(13)
2977.     m$ = m$ + "...22..." + Chr$(13)
2978.     m$ = m$ + "...22..." + Chr$(13)
2979.     m$ = m$ + "...22..." + Chr$(13)
2980.     m$ = m$ + ".222222." + Chr$(13)
2981.     m$ = m$ + "..2222.." + Chr$(13)
2982.     m$ = m$ + "...22..." + Chr$(13)
2983.     arrTileText(195) = m$
2984.  
2985.     m$ = ""
2986.     m$ = m$ + "........" + Chr$(13)
2987.     m$ = m$ + "...2...." + Chr$(13)
2988.     m$ = m$ + "..22...." + Chr$(13)
2989.     m$ = m$ + ".2222222" + Chr$(13)
2990.     m$ = m$ + ".2222222" + Chr$(13)
2991.     m$ = m$ + "..22...." + Chr$(13)
2992.     m$ = m$ + "...2...." + Chr$(13)
2993.     m$ = m$ + "........" + Chr$(13)
2994.     arrTileText(196) = m$
2995.  
2996.     m$ = ""
2997.     m$ = m$ + "........" + Chr$(13)
2998.     m$ = m$ + ".....2.." + Chr$(13)
2999.     m$ = m$ + ".....22." + Chr$(13)
3000.     m$ = m$ + ".2222222" + Chr$(13)
3001.     m$ = m$ + ".2222222" + Chr$(13)
3002.     m$ = m$ + ".....22." + Chr$(13)
3003.     m$ = m$ + ".....2.." + Chr$(13)
3004.     m$ = m$ + "........" + Chr$(13)
3005.     arrTileText(197) = m$
3006.  
3007.     m$ = ""
3008.     m$ = m$ + "........" + Chr$(13)
3009.     m$ = m$ + "........" + Chr$(13)
3010.     m$ = m$ + "........" + Chr$(13)
3011.     m$ = m$ + "........" + Chr$(13)
3012.     m$ = m$ + "........" + Chr$(13)
3013.     m$ = m$ + "........" + Chr$(13)
3014.     m$ = m$ + "........" + Chr$(13)
3015.     m$ = m$ + "........" + Chr$(13)
3016.     arrTileText(198) = m$
3017.  
3018.     m$ = ""
3019.     m$ = m$ + ".222222." + Chr$(13)
3020.     m$ = m$ + "2......2" + Chr$(13)
3021.     m$ = m$ + "2.2..2.2" + Chr$(13)
3022.     m$ = m$ + "2......2" + Chr$(13)
3023.     m$ = m$ + "2.2..2.2" + Chr$(13)
3024.     m$ = m$ + "2.2222.2" + Chr$(13)
3025.     m$ = m$ + "2......2" + Chr$(13)
3026.     m$ = m$ + ".222222." + Chr$(13)
3027.     arrTileText(199) = m$
3028.  
3029.     m$ = ""
3030.     m$ = m$ + ".222222." + Chr$(13)
3031.     m$ = m$ + "2......2" + Chr$(13)
3032.     m$ = m$ + "2.2..2.2" + Chr$(13)
3033.     m$ = m$ + "2......2" + Chr$(13)
3034.     m$ = m$ + "2.2222.2" + Chr$(13)
3035.     m$ = m$ + "2.2..2.2" + Chr$(13)
3036.     m$ = m$ + "2......2" + Chr$(13)
3037.     m$ = m$ + ".222222." + Chr$(13)
3038.     arrTileText(200) = m$
3039.  
3040.     m$ = ""
3041.     m$ = m$ + "........" + Chr$(13)
3042.     m$ = m$ + "........" + Chr$(13)
3043.     m$ = m$ + "........" + Chr$(13)
3044.     m$ = m$ + "........" + Chr$(13)
3045.     m$ = m$ + "........" + Chr$(13)
3046.     m$ = m$ + "........" + Chr$(13)
3047.     m$ = m$ + "........" + Chr$(13)
3048.     m$ = m$ + "........" + Chr$(13)
3049.     arrTileText(201) = m$
3050.  
3051.     m$ = ""
3052.     m$ = m$ + ".222222." + Chr$(13)
3053.     m$ = m$ + ".....22." + Chr$(13)
3054.     m$ = m$ + "....22.." + Chr$(13)
3055.     m$ = m$ + "...22..." + Chr$(13)
3056.     m$ = m$ + "..22...." + Chr$(13)
3057.     m$ = m$ + ".22....." + Chr$(13)
3058.     m$ = m$ + ".222222." + Chr$(13)
3059.     m$ = m$ + "........" + Chr$(13)
3060.     arrTileText(202) = m$
3061.  
3062.     m$ = ""
3063.     m$ = m$ + "...22..." + Chr$(13)
3064.     m$ = m$ + "...22..." + Chr$(13)
3065.     m$ = m$ + "...22..." + Chr$(13)
3066.     m$ = m$ + "22222222" + Chr$(13)
3067.     m$ = m$ + "22222222" + Chr$(13)
3068.     m$ = m$ + "...22..." + Chr$(13)
3069.     m$ = m$ + "...22..." + Chr$(13)
3070.     m$ = m$ + "...22..." + Chr$(13)
3071.     arrTileText(203) = m$
3072.  
3073.     m$ = ""
3074.     m$ = m$ + "22......" + Chr$(13)
3075.     m$ = m$ + "22......" + Chr$(13)
3076.     m$ = m$ + "..22...." + Chr$(13)
3077.     m$ = m$ + "..22...." + Chr$(13)
3078.     m$ = m$ + "22......" + Chr$(13)
3079.     m$ = m$ + "22......" + Chr$(13)
3080.     m$ = m$ + "..22...." + Chr$(13)
3081.     m$ = m$ + "..22...." + Chr$(13)
3082.     arrTileText(204) = m$
3083.  
3084.     m$ = ""
3085.     m$ = m$ + "...22..." + Chr$(13)
3086.     m$ = m$ + "...22..." + Chr$(13)
3087.     m$ = m$ + "...22..." + Chr$(13)
3088.     m$ = m$ + "...22..." + Chr$(13)
3089.     m$ = m$ + "...22..." + Chr$(13)
3090.     m$ = m$ + "...22..." + Chr$(13)
3091.     m$ = m$ + "...22..." + Chr$(13)
3092.     m$ = m$ + "...22..." + Chr$(13)
3093.     arrTileText(205) = m$
3094.  
3095.     m$ = ""
3096.     m$ = m$ + "..22..22" + Chr$(13)
3097.     m$ = m$ + "..22..22" + Chr$(13)
3098.     m$ = m$ + "22..22.." + Chr$(13)
3099.     m$ = m$ + "22..22.." + Chr$(13)
3100.     m$ = m$ + "..22..22" + Chr$(13)
3101.     m$ = m$ + "..22..22" + Chr$(13)
3102.     m$ = m$ + "22..22.." + Chr$(13)
3103.     m$ = m$ + "22..22.." + Chr$(13)
3104.     arrTileText(206) = m$
3105.  
3106.     m$ = ""
3107.     m$ = m$ + "..22..22" + Chr$(13)
3108.     m$ = m$ + "2..22..2" + Chr$(13)
3109.     m$ = m$ + "22..22.." + Chr$(13)
3110.     m$ = m$ + ".22..22." + Chr$(13)
3111.     m$ = m$ + "..22..22" + Chr$(13)
3112.     m$ = m$ + "2..22..2" + Chr$(13)
3113.     m$ = m$ + "22..22.." + Chr$(13)
3114.     m$ = m$ + ".22..22." + Chr$(13)
3115.     arrTileText(207) = m$
3116.  
3117.     m$ = ""
3118.     m$ = m$ + "........" + Chr$(13)
3119.     m$ = m$ + "........" + Chr$(13)
3120.     m$ = m$ + "........" + Chr$(13)
3121.     m$ = m$ + "........" + Chr$(13)
3122.     m$ = m$ + "........" + Chr$(13)
3123.     m$ = m$ + "........" + Chr$(13)
3124.     m$ = m$ + "........" + Chr$(13)
3125.     m$ = m$ + "........" + Chr$(13)
3126.     arrTileText(208) = m$
3127.  
3128.     m$ = ""
3129.     m$ = m$ + "2222...." + Chr$(13)
3130.     m$ = m$ + "2222...." + Chr$(13)
3131.     m$ = m$ + "2222...." + Chr$(13)
3132.     m$ = m$ + "2222...." + Chr$(13)
3133.     m$ = m$ + "2222...." + Chr$(13)
3134.     m$ = m$ + "2222...." + Chr$(13)
3135.     m$ = m$ + "2222...." + Chr$(13)
3136.     m$ = m$ + "2222...." + Chr$(13)
3137.     arrTileText(209) = m$
3138.  
3139.     m$ = ""
3140.     m$ = m$ + "........" + Chr$(13)
3141.     m$ = m$ + "........" + Chr$(13)
3142.     m$ = m$ + "........" + Chr$(13)
3143.     m$ = m$ + "........" + Chr$(13)
3144.     m$ = m$ + "22222222" + Chr$(13)
3145.     m$ = m$ + "22222222" + Chr$(13)
3146.     m$ = m$ + "22222222" + Chr$(13)
3147.     m$ = m$ + "22222222" + Chr$(13)
3148.     arrTileText(210) = m$
3149.  
3150.     m$ = ""
3151.     m$ = m$ + "22222222" + Chr$(13)
3152.     m$ = m$ + "........" + Chr$(13)
3153.     m$ = m$ + "........" + Chr$(13)
3154.     m$ = m$ + "........" + Chr$(13)
3155.     m$ = m$ + "........" + Chr$(13)
3156.     m$ = m$ + "........" + Chr$(13)
3157.     m$ = m$ + "........" + Chr$(13)
3158.     m$ = m$ + "........" + Chr$(13)
3159.     arrTileText(211) = m$
3160.  
3161.     m$ = ""
3162.     m$ = m$ + "........" + Chr$(13)
3163.     m$ = m$ + "........" + Chr$(13)
3164.     m$ = m$ + "........" + Chr$(13)
3165.     m$ = m$ + "........" + Chr$(13)
3166.     m$ = m$ + "........" + Chr$(13)
3167.     m$ = m$ + "........" + Chr$(13)
3168.     m$ = m$ + "........" + Chr$(13)
3169.     m$ = m$ + "22222222" + Chr$(13)
3170.     arrTileText(212) = m$
3171.  
3172.     m$ = ""
3173.     m$ = m$ + "22......" + Chr$(13)
3174.     m$ = m$ + "22......" + Chr$(13)
3175.     m$ = m$ + "22......" + Chr$(13)
3176.     m$ = m$ + "22......" + Chr$(13)
3177.     m$ = m$ + "22......" + Chr$(13)
3178.     m$ = m$ + "22......" + Chr$(13)
3179.     m$ = m$ + "22......" + Chr$(13)
3180.     m$ = m$ + "22......" + Chr$(13)
3181.     arrTileText(213) = m$
3182.  
3183.     m$ = ""
3184.     m$ = m$ + "22..22.." + Chr$(13)
3185.     m$ = m$ + "22..22.." + Chr$(13)
3186.     m$ = m$ + "..22..22" + Chr$(13)
3187.     m$ = m$ + "..22..22" + Chr$(13)
3188.     m$ = m$ + "22..22.." + Chr$(13)
3189.     m$ = m$ + "22..22.." + Chr$(13)
3190.     m$ = m$ + "..22..22" + Chr$(13)
3191.     m$ = m$ + "..22..22" + Chr$(13)
3192.     arrTileText(214) = m$
3193.  
3194.     m$ = ""
3195.     m$ = m$ + "......22" + Chr$(13)
3196.     m$ = m$ + "......22" + Chr$(13)
3197.     m$ = m$ + "......22" + Chr$(13)
3198.     m$ = m$ + "......22" + Chr$(13)
3199.     m$ = m$ + "......22" + Chr$(13)
3200.     m$ = m$ + "......22" + Chr$(13)
3201.     m$ = m$ + "......22" + Chr$(13)
3202.     m$ = m$ + "......22" + Chr$(13)
3203.     arrTileText(215) = m$
3204.  
3205.     m$ = ""
3206.     m$ = m$ + "........" + Chr$(13)
3207.     m$ = m$ + "........" + Chr$(13)
3208.     m$ = m$ + "........" + Chr$(13)
3209.     m$ = m$ + "........" + Chr$(13)
3210.     m$ = m$ + "22..22.." + Chr$(13)
3211.     m$ = m$ + "22..22.." + Chr$(13)
3212.     m$ = m$ + "..22..22" + Chr$(13)
3213.     m$ = m$ + "..22..22" + Chr$(13)
3214.     arrTileText(216) = m$
3215.  
3216.     m$ = ""
3217.     m$ = m$ + "22..22.." + Chr$(13)
3218.     m$ = m$ + "2..22..2" + Chr$(13)
3219.     m$ = m$ + "..22..22" + Chr$(13)
3220.     m$ = m$ + ".22..22." + Chr$(13)
3221.     m$ = m$ + "22..22.." + Chr$(13)
3222.     m$ = m$ + "2..22..2" + Chr$(13)
3223.     m$ = m$ + "..22..22" + Chr$(13)
3224.     m$ = m$ + ".22..22." + Chr$(13)
3225.     arrTileText(217) = m$
3226.  
3227.     m$ = ""
3228.     m$ = m$ + "......22" + Chr$(13)
3229.     m$ = m$ + "......22" + Chr$(13)
3230.     m$ = m$ + "......22" + Chr$(13)
3231.     m$ = m$ + "......22" + Chr$(13)
3232.     m$ = m$ + "......22" + Chr$(13)
3233.     m$ = m$ + "......22" + Chr$(13)
3234.     m$ = m$ + "......22" + Chr$(13)
3235.     m$ = m$ + "......22" + Chr$(13)
3236.     arrTileText(218) = m$
3237.  
3238.     m$ = ""
3239.     m$ = m$ + "...22..." + Chr$(13)
3240.     m$ = m$ + "...22..." + Chr$(13)
3241.     m$ = m$ + "...22..." + Chr$(13)
3242.     m$ = m$ + "...22222" + Chr$(13)
3243.     m$ = m$ + "...22222" + Chr$(13)
3244.     m$ = m$ + "...22..." + Chr$(13)
3245.     m$ = m$ + "...22..." + Chr$(13)
3246.     m$ = m$ + "...22..." + Chr$(13)
3247.     arrTileText(219) = m$
3248.  
3249.     m$ = ""
3250.     m$ = m$ + "........" + Chr$(13)
3251.     m$ = m$ + "........" + Chr$(13)
3252.     m$ = m$ + "........" + Chr$(13)
3253.     m$ = m$ + "........" + Chr$(13)
3254.     m$ = m$ + "....2222" + Chr$(13)
3255.     m$ = m$ + "....2222" + Chr$(13)
3256.     m$ = m$ + "....2222" + Chr$(13)
3257.     m$ = m$ + "....2222" + Chr$(13)
3258.     arrTileText(220) = m$
3259.  
3260.     m$ = ""
3261.     m$ = m$ + "...22..." + Chr$(13)
3262.     m$ = m$ + "...22..." + Chr$(13)
3263.     m$ = m$ + "...22..." + Chr$(13)
3264.     m$ = m$ + "...22222" + Chr$(13)
3265.     m$ = m$ + "...22222" + Chr$(13)
3266.     m$ = m$ + "........" + Chr$(13)
3267.     m$ = m$ + "........" + Chr$(13)
3268.     m$ = m$ + "........" + Chr$(13)
3269.     arrTileText(221) = m$
3270.  
3271.     m$ = ""
3272.     m$ = m$ + "........" + Chr$(13)
3273.     m$ = m$ + "........" + Chr$(13)
3274.     m$ = m$ + "........" + Chr$(13)
3275.     m$ = m$ + "22222..." + Chr$(13)
3276.     m$ = m$ + "22222..." + Chr$(13)
3277.     m$ = m$ + "...22..." + Chr$(13)
3278.     m$ = m$ + "...22..." + Chr$(13)
3279.     m$ = m$ + "...22..." + Chr$(13)
3280.     arrTileText(222) = m$
3281.  
3282.     m$ = ""
3283.     m$ = m$ + "........" + Chr$(13)
3284.     m$ = m$ + "........" + Chr$(13)
3285.     m$ = m$ + "........" + Chr$(13)
3286.     m$ = m$ + "........" + Chr$(13)
3287.     m$ = m$ + "........" + Chr$(13)
3288.     m$ = m$ + "........" + Chr$(13)
3289.     m$ = m$ + "22222222" + Chr$(13)
3290.     m$ = m$ + "22222222" + Chr$(13)
3291.     arrTileText(223) = m$
3292.  
3293.     m$ = ""
3294.     m$ = m$ + "........" + Chr$(13)
3295.     m$ = m$ + "........" + Chr$(13)
3296.     m$ = m$ + "........" + Chr$(13)
3297.     m$ = m$ + "...22222" + Chr$(13)
3298.     m$ = m$ + "...22222" + Chr$(13)
3299.     m$ = m$ + "...22..." + Chr$(13)
3300.     m$ = m$ + "...22..." + Chr$(13)
3301.     m$ = m$ + "...22..." + Chr$(13)
3302.     arrTileText(224) = m$
3303.  
3304.     m$ = ""
3305.     m$ = m$ + "...22..." + Chr$(13)
3306.     m$ = m$ + "...22..." + Chr$(13)
3307.     m$ = m$ + "...22..." + Chr$(13)
3308.     m$ = m$ + "22222222" + Chr$(13)
3309.     m$ = m$ + "22222222" + Chr$(13)
3310.     m$ = m$ + "........" + Chr$(13)
3311.     m$ = m$ + "........" + Chr$(13)
3312.     m$ = m$ + "........" + Chr$(13)
3313.     arrTileText(225) = m$
3314.  
3315.     m$ = ""
3316.     m$ = m$ + "........" + Chr$(13)
3317.     m$ = m$ + "........" + Chr$(13)
3318.     m$ = m$ + "........" + Chr$(13)
3319.     m$ = m$ + "22222222" + Chr$(13)
3320.     m$ = m$ + "22222222" + Chr$(13)
3321.     m$ = m$ + "...22..." + Chr$(13)
3322.     m$ = m$ + "...22..." + Chr$(13)
3323.     m$ = m$ + "...22..." + Chr$(13)
3324.     arrTileText(226) = m$
3325.  
3326.     m$ = ""
3327.     m$ = m$ + "...22..." + Chr$(13)
3328.     m$ = m$ + "...22..." + Chr$(13)
3329.     m$ = m$ + "...22..." + Chr$(13)
3330.     m$ = m$ + "22222..." + Chr$(13)
3331.     m$ = m$ + "22222..." + Chr$(13)
3332.     m$ = m$ + "...22..." + Chr$(13)
3333.     m$ = m$ + "...22..." + Chr$(13)
3334.     m$ = m$ + "...22..." + Chr$(13)
3335.     arrTileText(227) = m$
3336.  
3337.     m$ = ""
3338.     m$ = m$ + "22......" + Chr$(13)
3339.     m$ = m$ + "22......" + Chr$(13)
3340.     m$ = m$ + "22......" + Chr$(13)
3341.     m$ = m$ + "22......" + Chr$(13)
3342.     m$ = m$ + "22......" + Chr$(13)
3343.     m$ = m$ + "22......" + Chr$(13)
3344.     m$ = m$ + "22......" + Chr$(13)
3345.     m$ = m$ + "22......" + Chr$(13)
3346.     arrTileText(228) = m$
3347.  
3348.     m$ = ""
3349.     m$ = m$ + "222....." + Chr$(13)
3350.     m$ = m$ + "222....." + Chr$(13)
3351.     m$ = m$ + "222....." + Chr$(13)
3352.     m$ = m$ + "222....." + Chr$(13)
3353.     m$ = m$ + "222....." + Chr$(13)
3354.     m$ = m$ + "222....." + Chr$(13)
3355.     m$ = m$ + "222....." + Chr$(13)
3356.     m$ = m$ + "222....." + Chr$(13)
3357.     arrTileText(229) = m$
3358.  
3359.     m$ = ""
3360.     m$ = m$ + ".....222" + Chr$(13)
3361.     m$ = m$ + ".....222" + Chr$(13)
3362.     m$ = m$ + ".....222" + Chr$(13)
3363.     m$ = m$ + ".....222" + Chr$(13)
3364.     m$ = m$ + ".....222" + Chr$(13)
3365.     m$ = m$ + ".....222" + Chr$(13)
3366.     m$ = m$ + ".....222" + Chr$(13)
3367.     m$ = m$ + ".....222" + Chr$(13)
3368.     arrTileText(230) = m$
3369.  
3370.     m$ = ""
3371.     m$ = m$ + "22222222" + Chr$(13)
3372.     m$ = m$ + "22222222" + Chr$(13)
3373.     m$ = m$ + "........" + Chr$(13)
3374.     m$ = m$ + "........" + Chr$(13)
3375.     m$ = m$ + "........" + Chr$(13)
3376.     m$ = m$ + "........" + Chr$(13)
3377.     m$ = m$ + "........" + Chr$(13)
3378.     m$ = m$ + "........" + Chr$(13)
3379.     arrTileText(231) = m$
3380.  
3381.     m$ = ""
3382.     m$ = m$ + "22222222" + Chr$(13)
3383.     m$ = m$ + "22222222" + Chr$(13)
3384.     m$ = m$ + "22222222" + Chr$(13)
3385.     m$ = m$ + "........" + Chr$(13)
3386.     m$ = m$ + "........" + Chr$(13)
3387.     m$ = m$ + "........" + Chr$(13)
3388.     m$ = m$ + "........" + Chr$(13)
3389.     m$ = m$ + "........" + Chr$(13)
3390.     arrTileText(232) = m$
3391.  
3392.     m$ = ""
3393.     m$ = m$ + "........" + Chr$(13)
3394.     m$ = m$ + "........" + Chr$(13)
3395.     m$ = m$ + "........" + Chr$(13)
3396.     m$ = m$ + "........" + Chr$(13)
3397.     m$ = m$ + "........" + Chr$(13)
3398.     m$ = m$ + "22222222" + Chr$(13)
3399.     m$ = m$ + "22222222" + Chr$(13)
3400.     m$ = m$ + "22222222" + Chr$(13)
3401.     arrTileText(233) = m$
3402.  
3403.     m$ = ""
3404.     m$ = m$ + ".......2" + Chr$(13)
3405.     m$ = m$ + "......22" + Chr$(13)
3406.     m$ = m$ + ".....22." + Chr$(13)
3407.     m$ = m$ + ".22.22.." + Chr$(13)
3408.     m$ = m$ + ".2222..." + Chr$(13)
3409.     m$ = m$ + ".222...." + Chr$(13)
3410.     m$ = m$ + ".22....." + Chr$(13)
3411.     m$ = m$ + "........" + Chr$(13)
3412.     arrTileText(234) = m$
3413.  
3414.     m$ = ""
3415.     m$ = m$ + "........" + Chr$(13)
3416.     m$ = m$ + "........" + Chr$(13)
3417.     m$ = m$ + "........" + Chr$(13)
3418.     m$ = m$ + "........" + Chr$(13)
3419.     m$ = m$ + "2222...." + Chr$(13)
3420.     m$ = m$ + "2222...." + Chr$(13)
3421.     m$ = m$ + "2222...." + Chr$(13)
3422.     m$ = m$ + "2222...." + Chr$(13)
3423.     arrTileText(235) = m$
3424.  
3425.     m$ = ""
3426.     m$ = m$ + "....2222" + Chr$(13)
3427.     m$ = m$ + "....2222" + Chr$(13)
3428.     m$ = m$ + "....2222" + Chr$(13)
3429.     m$ = m$ + "....2222" + Chr$(13)
3430.     m$ = m$ + "........" + Chr$(13)
3431.     m$ = m$ + "........" + Chr$(13)
3432.     m$ = m$ + "........" + Chr$(13)
3433.     m$ = m$ + "........" + Chr$(13)
3434.     arrTileText(236) = m$
3435.  
3436.     m$ = ""
3437.     m$ = m$ + "...22..." + Chr$(13)
3438.     m$ = m$ + "...22..." + Chr$(13)
3439.     m$ = m$ + "...22..." + Chr$(13)
3440.     m$ = m$ + "22222..." + Chr$(13)
3441.     m$ = m$ + "22222..." + Chr$(13)
3442.     m$ = m$ + "........" + Chr$(13)
3443.     m$ = m$ + "........" + Chr$(13)
3444.     m$ = m$ + "........" + Chr$(13)
3445.     arrTileText(237) = m$
3446.  
3447.     m$ = ""
3448.     m$ = m$ + "2222...." + Chr$(13)
3449.     m$ = m$ + "2222...." + Chr$(13)
3450.     m$ = m$ + "2222...." + Chr$(13)
3451.     m$ = m$ + "2222...." + Chr$(13)
3452.     m$ = m$ + "........" + Chr$(13)
3453.     m$ = m$ + "........" + Chr$(13)
3454.     m$ = m$ + "........" + Chr$(13)
3455.     m$ = m$ + "........" + Chr$(13)
3456.     arrTileText(238) = m$
3457.  
3458.     m$ = ""
3459.     m$ = m$ + "2222...." + Chr$(13)
3460.     m$ = m$ + "2222...." + Chr$(13)
3461.     m$ = m$ + "2222...." + Chr$(13)
3462.     m$ = m$ + "2222...." + Chr$(13)
3463.     m$ = m$ + "....2222" + Chr$(13)
3464.     m$ = m$ + "....2222" + Chr$(13)
3465.     m$ = m$ + "....2222" + Chr$(13)
3466.     m$ = m$ + "....2222" + Chr$(13)
3467.     arrTileText(239) = m$
3468.  
3469.     m$ = ""
3470.     m$ = m$ + "........" + Chr$(13)
3471.     m$ = m$ + "........" + Chr$(13)
3472.     m$ = m$ + "........" + Chr$(13)
3473.     m$ = m$ + "........" + Chr$(13)
3474.     m$ = m$ + "........" + Chr$(13)
3475.     m$ = m$ + "........" + Chr$(13)
3476.     m$ = m$ + "........" + Chr$(13)
3477.     m$ = m$ + "........" + Chr$(13)
3478.     arrTileText(240) = m$
3479.  
3480.     m$ = ""
3481.     m$ = m$ + "22222.22" + Chr$(13)
3482.     m$ = m$ + "22222.22" + Chr$(13)
3483.     m$ = m$ + "22222.22" + Chr$(13)
3484.     m$ = m$ + "........" + Chr$(13)
3485.     m$ = m$ + "22.22222" + Chr$(13)
3486.     m$ = m$ + "22.22222" + Chr$(13)
3487.     m$ = m$ + "22.22222" + Chr$(13)
3488.     m$ = m$ + "........" + Chr$(13)
3489.     arrTileText(241) = m$
3490.  
3491.     m$ = ""
3492.     m$ = m$ + "........" + Chr$(13)
3493.     m$ = m$ + "........" + Chr$(13)
3494.     m$ = m$ + "........" + Chr$(13)
3495.     m$ = m$ + ".222222." + Chr$(13)
3496.     m$ = m$ + "........" + Chr$(13)
3497.     m$ = m$ + "........" + Chr$(13)
3498.     m$ = m$ + "........" + Chr$(13)
3499.     m$ = m$ + "........" + Chr$(13)
3500.     arrTileText(242) = m$
3501.  
3502.     m$ = ""
3503.     m$ = m$ + "........" + Chr$(13)
3504.     m$ = m$ + "...2...." + Chr$(13)
3505.     m$ = m$ + "...2...." + Chr$(13)
3506.     m$ = m$ + "...2...." + Chr$(13)
3507.     m$ = m$ + "...2...." + Chr$(13)
3508.     m$ = m$ + "...2...." + Chr$(13)
3509.     m$ = m$ + "...2...." + Chr$(13)
3510.     m$ = m$ + "........" + Chr$(13)
3511.     arrTileText(243) = m$
3512.  
3513.     m$ = ""
3514.     m$ = m$ + "........" + Chr$(13)
3515.     m$ = m$ + "........" + Chr$(13)
3516.     m$ = m$ + "........" + Chr$(13)
3517.     m$ = m$ + "...2222." + Chr$(13)
3518.     m$ = m$ + "...2...." + Chr$(13)
3519.     m$ = m$ + "...2...." + Chr$(13)
3520.     m$ = m$ + "...2...." + Chr$(13)
3521.     m$ = m$ + "........" + Chr$(13)
3522.     arrTileText(244) = m$
3523.  
3524.     m$ = ""
3525.     m$ = m$ + "........" + Chr$(13)
3526.     m$ = m$ + "........" + Chr$(13)
3527.     m$ = m$ + "........" + Chr$(13)
3528.     m$ = m$ + ".222...." + Chr$(13)
3529.     m$ = m$ + "...2...." + Chr$(13)
3530.     m$ = m$ + "...2...." + Chr$(13)
3531.     m$ = m$ + "...2...." + Chr$(13)
3532.     m$ = m$ + "........" + Chr$(13)
3533.     arrTileText(245) = m$
3534.  
3535.     m$ = ""
3536.     m$ = m$ + "........" + Chr$(13)
3537.     m$ = m$ + "...2...." + Chr$(13)
3538.     m$ = m$ + "...2...." + Chr$(13)
3539.     m$ = m$ + "...2222." + Chr$(13)
3540.     m$ = m$ + "........" + Chr$(13)
3541.     m$ = m$ + "........" + Chr$(13)
3542.     m$ = m$ + "........" + Chr$(13)
3543.     m$ = m$ + "........" + Chr$(13)
3544.     arrTileText(246) = m$
3545.  
3546.     m$ = ""
3547.     m$ = m$ + "........" + Chr$(13)
3548.     m$ = m$ + "...2...." + Chr$(13)
3549.     m$ = m$ + "...2...." + Chr$(13)
3550.     m$ = m$ + ".222...." + Chr$(13)
3551.     m$ = m$ + "........" + Chr$(13)
3552.     m$ = m$ + "........" + Chr$(13)
3553.     m$ = m$ + "........" + Chr$(13)
3554.     m$ = m$ + "........" + Chr$(13)
3555.     arrTileText(247) = m$
3556.  
3557.     m$ = ""
3558.     m$ = m$ + "........" + Chr$(13)
3559.     m$ = m$ + "........" + Chr$(13)
3560.     m$ = m$ + "........" + Chr$(13)
3561.     m$ = m$ + "........" + Chr$(13)
3562.     m$ = m$ + "........" + Chr$(13)
3563.     m$ = m$ + "........" + Chr$(13)
3564.     m$ = m$ + "........" + Chr$(13)
3565.     m$ = m$ + "........" + Chr$(13)
3566.     arrTileText(248) = m$
3567.  
3568.     m$ = ""
3569.     m$ = m$ + "........" + Chr$(13)
3570.     m$ = m$ + "........" + Chr$(13)
3571.     m$ = m$ + "........" + Chr$(13)
3572.     m$ = m$ + "........" + Chr$(13)
3573.     m$ = m$ + "........" + Chr$(13)
3574.     m$ = m$ + "........" + Chr$(13)
3575.     m$ = m$ + "........" + Chr$(13)
3576.     m$ = m$ + "........" + Chr$(13)
3577.     arrTileText(249) = m$
3578.  
3579.     m$ = ""
3580.     m$ = m$ + "........" + Chr$(13)
3581.     m$ = m$ + "........" + Chr$(13)
3582.     m$ = m$ + "........" + Chr$(13)
3583.     m$ = m$ + "........" + Chr$(13)
3584.     m$ = m$ + "........" + Chr$(13)
3585.     m$ = m$ + "........" + Chr$(13)
3586.     m$ = m$ + "........" + Chr$(13)
3587.     m$ = m$ + "........" + Chr$(13)
3588.     arrTileText(250) = m$
3589.  
3590.     m$ = ""
3591.     m$ = m$ + "........" + Chr$(13)
3592.     m$ = m$ + "........" + Chr$(13)
3593.     m$ = m$ + "........" + Chr$(13)
3594.     m$ = m$ + "........" + Chr$(13)
3595.     m$ = m$ + "........" + Chr$(13)
3596.     m$ = m$ + "........" + Chr$(13)
3597.     m$ = m$ + "........" + Chr$(13)
3598.     m$ = m$ + "........" + Chr$(13)
3599.     arrTileText(251) = m$
3600.  
3601.     m$ = ""
3602.     m$ = m$ + "........" + Chr$(13)
3603.     m$ = m$ + "........" + Chr$(13)
3604.     m$ = m$ + "........" + Chr$(13)
3605.     m$ = m$ + "........" + Chr$(13)
3606.     m$ = m$ + "........" + Chr$(13)
3607.     m$ = m$ + "........" + Chr$(13)
3608.     m$ = m$ + "........" + Chr$(13)
3609.     m$ = m$ + "........" + Chr$(13)
3610.     arrTileText(252) = m$
3611.  
3612.     m$ = ""
3613.     m$ = m$ + "22222222" + Chr$(13)
3614.     m$ = m$ + "2......2" + Chr$(13)
3615.     m$ = m$ + "2......2" + Chr$(13)
3616.     m$ = m$ + "2......2" + Chr$(13)
3617.     m$ = m$ + "2......2" + Chr$(13)
3618.     m$ = m$ + "2......2" + Chr$(13)
3619.     m$ = m$ + "2......2" + Chr$(13)
3620.     m$ = m$ + "22222222" + Chr$(13)
3621.     arrTileText(253) = m$
3622.  
3623.     m$ = ""
3624.     m$ = m$ + "22222222" + Chr$(13)
3625.     m$ = m$ + "22222222" + Chr$(13)
3626.     m$ = m$ + "22222222" + Chr$(13)
3627.     m$ = m$ + "22222222" + Chr$(13)
3628.     m$ = m$ + "22222222" + Chr$(13)
3629.     m$ = m$ + "22222222" + Chr$(13)
3630.     m$ = m$ + "22222222" + Chr$(13)
3631.     m$ = m$ + "22222222" + Chr$(13)
3632.     arrTileText(254) = m$
3633.  
3634.     m$ = ""
3635.     m$ = ""
3636.     m$ = m$ + "22....22" + Chr$(13)
3637.     m$ = m$ + "2..22..2" + Chr$(13)
3638.     m$ = m$ + "2..22..2" + Chr$(13)
3639.     m$ = m$ + "22.....2" + Chr$(13)
3640.     m$ = m$ + "22222..2" + Chr$(13)
3641.     m$ = m$ + "2..22..2" + Chr$(13)
3642.     m$ = m$ + "22....22" + Chr$(13)
3643.     m$ = m$ + "22222222" + Chr$(13)
3644.     arrTileText(255) = m$
3645.  
3646. End Sub ' GetTileText
3647.  
3648. ' ################################################################################################################################################################
3649. ' END TILE DEFINITIONS
3650. ' ################################################################################################################################################################
3651.  
3652. ' ################################################################################################################################################################
3653. ' BEGIN COLOR FUNCTIONS
3654. ' ################################################################################################################################################################
3655. Function cWhite~& ()
3656.     cWhite = _RGB32(255, 255, 255)
3657. End Function ' cWhite~&
3658.  
3659. Function cEmpty~& ()
3660.     cEmpty = _RGB32(0, 0, 0, 0)
3661. End Function ' cEmpty~&
3662.  
3663. Function cBlack~& ()
3664.     cBlack = _RGB32(0, 0, 0)
3665. End Function ' cBlack~&
3666.  
3667. Function cRed~& ()
3668.     cRed = _RGB32(255, 0, 0)
3669. End Function
3670.  
3671. Function cYellow~& ()
3672.     cYellow = _RGB32(255, 255, 0)
3673. End Function ' cYellow~&
3674.  
3675. Function cLime~& ()
3676.     cLime = _RGB32(0, 255, 0)
3677. End Function ' cLime~&
3678.  
3679. Function cCyan~& ()
3680.     cCyan = _RGB32(0, 255, 255)
3681. End Function ' cCyan~&
3682.  
3683. Function cBlue~& ()
3684.     cBlue = _RGB32(0, 0, 255)
3685. End Function ' cBlue~&
3686.  
3687. Function cMagenta~& ()
3688.     cMagenta = _RGB32(255, 0, 255)
3689. End Function ' cMagenta~&
3690.  
3691. Function cOrange~& ()
3692.     cOrange = _RGB32(255, 165, 0)
3693. End Function ' cOrange~&
3694.  
3695. Function cGray~& ()
3696.     cGray = _RGB32(128, 128, 128)
3697. End Function ' cGray~&
3698. ' ################################################################################################################################################################
3699. ' END COLOR FUNCTIONS
3700. ' ################################################################################################################################################################
3701.  
3702. ' ################################################################################################################################################################
3703. ' BEGIN GENERAL PURPOSE ROUTINES #GEN
3704. ' ################################################################################################################################################################
3705. ' /////////////////////////////////////////////////////////////////////////////
3706.  
3707. Function cstr$ (myValue)
3708.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
3709.     cstr$ = _Trim$(Str$(myValue))
3710. End Function ' cstr$
3711.  
3712. ' /////////////////////////////////////////////////////////////////////////////
3713. ' Use with timer functions to avoid "after midnight" bug.
3714.  
3715. ' Re: how to time something (ie do loop for n seconds)
3716. ' https://qb64forum.alephc.xyz/index.php?topic=4682.0
3717.  
3718. ' SMcNeill, QB64 Developer
3719. ' « Reply #1 on: Today at 11:26:52 am »
3720. '
3721. ' One caveat here:  You *can* experience bugs with this after midnight.
3722. '
3723. ' Program starts at 23:59:59.
3724. ' Add three seconds -- 24:00:02...  (In seconds, and not hours and minutes like this, though hours and minutes are easier to visualize.)
3725. ' Clock hits midnight:  0:00:00
3726. '
3727. ' At no point will you ever have TIMER become greater than t#.
3728. '
3729. ' If you're going to have a program which might run into this issue,
3730. ' I'd suggest just plugging in my ExtendedTimer and use it instead:
3731. '
3732. ' Most of us write time code to test little snippets for which method might
3733. ' be faster for us while we're coding.  The clock resetting on us isn't
3734. ' normally such a big deal.  When it is, however, all you have to do is
3735. ' swap to the ExtendedTimer function [below]
3736. '
3737. ' Returns a value for you based off DAY + TIME, rather than just time alone!
3738. ' No midnight clock issues with something like that in our programs.  ;)
3739.  
3740. ' Usage:
3741. '     ' DO SOMETHING FOR 3 SECONDS
3742. '     t# = ExtendedTimer + 3
3743. '     Do
3744. '         '(SOMETHING)
3745. '     Loop Until Timer > t#
3746.  
3747. Function ExtendedTimer##
3748.     d$ = Date$
3749.     l = InStr(d$, "-")
3750.     l1 = InStr(l + 1, d$, "-")
3751.     m = Val(Left$(d$, l))
3752.     d = Val(Mid$(d$, l + 1))
3753.     y = Val(Mid$(d$, l1 + 1)) - 1970
3754.     For i = 1 To m
3755.         Select Case i 'Add the number of days for each previous month passed
3756.             Case 1: d = d 'January doestn't have any carry over days.
3757.             Case 2, 4, 6, 8, 9, 11: d = d + 31
3758.             Case 3: d = d + 28
3759.             Case 5, 7, 10, 12: d = d + 30
3760.         End Select
3761.     Next
3762.     For i = 1 To y
3763.         d = d + 365
3764.     Next
3765.     For i = 2 To y Step 4
3766.         If m > 2 Then d = d + 1 'add an extra day for leap year every 4 years, starting in 1970
3767.     Next
3768.     d = d - 1 'for year 2000
3769.     s~&& = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
3770.     ExtendedTimer## = (s~&& + Timer)
3771. End Function ' ExtendedTimer##
3772.  
3773. ' /////////////////////////////////////////////////////////////////////////////
3774. ' FROM: String Manipulation
3775. ' found at abandoned, outdated and now likely malicious qb64 dot net website
3776. ' http://www.qb64.[net]/forum/index_topic_5964-0/
3777. '
3778. 'SUMMARY:
3779. '   Purpose:  A library of custom functions that transform strings.
3780. '   Author:   Dustinian Camburides (dustinian@gmail.com)
3781. '   Platform: QB64 (www.qb64.org)
3782. '   Revision: 1.6
3783. '   Updated:  5/28/2012
3784.  
3785. 'SUMMARY:
3786. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
3787. 'INPUT:
3788. 'Text: The input string; the text that's being manipulated.
3789. 'Find: The specified sub-string; the string sought within the [Text] string.
3790. 'Add: The sub-string that's being added to the [Text] string.
3791.  
3792. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
3793.     ' VARIABLES:
3794.     Dim Text2 As String
3795.     Dim Find2 As String
3796.     Dim Add2 As String
3797.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
3798.     Dim strBefore As String ' The characters before the string to be replaced.
3799.     Dim strAfter As String ' The characters after the string to be replaced.
3800.  
3801.     ' INITIALIZE:
3802.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
3803.     Text2 = Text1
3804.     Find2 = Find1
3805.     Add2 = Add1
3806.  
3807.     lngLocation = InStr(1, Text2, Find2)
3808.  
3809.     ' PROCESSING:
3810.     ' While [Find2] appears in [Text2]...
3811.     While lngLocation
3812.         ' Extract all Text2 before the [Find2] substring:
3813.         strBefore = Left$(Text2, lngLocation - 1)
3814.  
3815.         ' Extract all text after the [Find2] substring:
3816.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
3817.  
3818.         ' Return the substring:
3819.         Text2 = strBefore + Add2 + strAfter
3820.  
3821.         ' Locate the next instance of [Find2]:
3822.         lngLocation = InStr(1, Text2, Find2)
3823.  
3824.         ' Next instance of [Find2]...
3825.     Wend
3826.  
3827.     ' OUTPUT:
3828.     Replace$ = Text2
3829. End Function ' Replace$
3830.  
3831. ' /////////////////////////////////////////////////////////////////////////////
3832. ' Split and join strings
3833. ' https://www.qb64.org/forum/index.php?topic=1073.0
3834. '
3835. ' FROM luke, QB64 Developer
3836. ' Date: February 15, 2019, 04:11:07 AM »
3837. '
3838. ' Given a string of words separated by spaces (or any other character),
3839. ' splits it into an array of the words. I've no doubt many people have
3840. ' written a version of this over the years and no doubt there's a million
3841. ' ways to do it, but I thought I'd put mine here so we have at least one
3842. ' version. There's also a join function that does the opposite
3843. ' array -> single string.
3844. '
3845. ' Code is hopefully reasonably self explanatory with comments and a little demo.
3846. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
3847.  
3848. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
3849. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
3850. '
3851. 'delimiter$ must be one character long.
3852. 'result$() must have been REDIMmed previously.
3853.  
3854. ' Modified to handle multi-character delimiters
3855.  
3856. Sub split (in$, delimiter$, result$())
3857.     Dim start As Integer
3858.     Dim finish As Integer
3859.     Dim iDelimLen As Integer
3860.     ReDim result$(-1)
3861.  
3862.     iDelimLen = Len(delimiter$)
3863.  
3864.     start = 1
3865.     Do
3866.         'While Mid$(in$, start, 1) = delimiter$
3867.         While Mid$(in$, start, iDelimLen) = delimiter$
3868.             'start = start + 1
3869.             start = start + iDelimLen
3870.             If start > Len(in$) Then
3871.                 Exit Sub
3872.             End If
3873.         Wend
3874.         finish = InStr(start, in$, delimiter$)
3875.         If finish = 0 Then
3876.             finish = Len(in$) + 1
3877.         End If
3878.  
3879.         ReDim _Preserve result$(0 To UBound(result$) + 1)
3880.  
3881.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
3882.         start = finish + 1
3883.     Loop While start <= Len(in$)
3884. End Sub ' split
3885. ' ################################################################################################################################################################
3886. ' END GENERAL PURPOSE ROUTINES #GEN
3887. ' ################################################################################################################################################################
3888.  
3889. ' ################################################################################################################################################################
3890. ' BEGIN HARDWARE IMAGES DEMO #2 (WORKS)
3891. ' ################################################################################################################################################################
3892.  
3893. ' /////////////////////////////////////////////////////////////////////////////
3894. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
3895. ' https://qb64forum.alephc.xyz/index.php?topic=4674.0
3896.  
3897. ' madscijr
3898. ' « Reply #5 on: Yesterday at 09:46:53 pm »
3899.  
3900. ' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
3901. ' Hardware images basically get their speed by being a sort of "Write Only"
3902. ' method for images. You can make them, you can put them on the screen,
3903. ' but you can't edit them or read information back from them.
3904. ' ...
3905. ' 2) You don't have to specify where they show up as a destination with putimage.
3906. ' ...
3907. ' If you have any specific questions, feel free to ask them and I'll do my
3908. ' best to answer for you, if I can.  ;)
3909. '
3910. ' Thanks for taking the time to explain all that. When I'm back at the PC,
3911. ' I'll try out your example.
3912. '
3913. ' For now, just one question: if you can't read information from them or even
3914. ' specify where on the destination they go, how are they even useful?
3915. ' Maybe it will click when I run your example or read up on it, but I just
3916. ' don't see what the use of an image would be if you can't control where on
3917. ' the screen it is drawn? Or how it would help speed up drawing a map of
3918. ' colored tiles to the screen.
3919. '
3920. ' Thanks again...
3921.  
3922. ' SMcNeill, QB64 Developer
3923. ' « Reply #6 on: Today at 01:14:28 am »
3924. '
3925. ' Try this out and see if it doesn't help answer your questions:
3926.  
3927. Sub HardwareImageDemo2
3928.     $Color:32
3929.     Display = _NewImage(1024, 720, 32)
3930.     Software = _NewImage(1024, 720, 32)
3931.  
3932.     Screen Display
3933.     Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
3934.     Print "Press <ANY KEY> to view this screen."
3935.     Sleep
3936.  
3937.     _Dest Software
3938.     For y = 0 To 720 Step 40
3939.         For x = 0 To 1024 Step 40
3940.             Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
3941.         Next
3942.     Next
3943.  
3944.     _Dest Display
3945.     _PutImage , Software
3946.     Print
3947.     Print "As you can see, this is a simple software screen."
3948.     Print "Now, I'm going to copy that software screen and make it a hardware screen."
3949.     Print "Press <ANY KEY> for me to do so!"
3950.     Sleep
3951.  
3952.     Hardware = _CopyImage(Software, 33)
3953.     Cls
3954.     Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
3955.     Print
3956.     Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
3957.     Print
3958.     Print "First, the software screen!  Press <ANY KEY> to continue."
3959.     Sleep
3960.  
3961.     _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
3962.     Print: Print: Print: Print: Print: Print: Print
3963.     Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
3964.     Print
3965.     Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
3966.     Sleep: _KeyClear
3967.  
3968.     _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
3969.     Print
3970.     Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
3971.     Print
3972.     Print "Doesn't really seem to be very different at all, now does it?"
3973.     Print
3974.     Print "Press <ANY KEY> to continue."
3975.     _Display
3976.     Sleep
3977.  
3978.     _AutoDisplay
3979.     Print
3980.     Color Red
3981.     Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
3982.     Color White
3983.     Print
3984.     Print "It's no longer on the screen, as it was previously.  Why??"
3985.     Print
3986.     Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
3987.     Print
3988.     Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
3989.     Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
3990.     Print
3991.     Print "If we want one to remain on the screen, we have to do it either by:"
3992.     Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
3993.     Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
3994.     Print
3995.     Print "Press <ANY KEY> to continue."
3996.     Sleep
3997.  
3998.     Cls
3999.     Print
4000.     Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
4001.     Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
4002.     Print
4003.     Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
4004.     Print "Press <ANY KEY> to find out!"
4005.     Sleep
4006.  
4007.     t# = ExtendedTimer + 3
4008.     Do
4009.         count = count + 1
4010.         _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
4011.         x = x + 40
4012.         If x > 1024 Then x = 0: y = y + 40
4013.         If y > 720 Then x = 0: y = 0
4014.         _Display
4015.     Loop Until Timer > t#
4016.     _AutoDisplay
4017.  
4018.     Print: Print: Print: Print: Print: Print: Print: Print
4019.     Print "See lots of flashing tiles on the screen for the last three seconds?"
4020.     Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
4021.     Print
4022.     Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
4023.     Sleep
4024.  
4025.     count = 0: x = 0: y = 0
4026.     t# = ExtendedTimer + 3
4027.     tempScreen = _CopyImage(Display, 33)
4028.     _DisplayOrder _Hardware
4029.     Do
4030.         count = count + 1
4031.         _PutImage , tempScreen
4032.         _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
4033.         x = x + 40
4034.         If x > 1024 Then x = 0: y = y + 40
4035.         If y > 720 Then x = 0: y = 0
4036.         _Display
4037.     Loop Until Timer > t#
4038.  
4039.     _FreeImage tempScreen
4040.     _AutoDisplay
4041.     _DisplayOrder _Hardware , _Software
4042.     Print
4043.     Print "Didn't seem very different at the rate of which we were running things, now did it?"
4044.     Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
4045.     Print
4046.     Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
4047.     Print "complete copy of the original software screen as well!"
4048.     Print
4049.     Print "The reason why I did this?"
4050.     Print
4051.     Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
4052.     Print
4053.     Print "Press <ANY KEY> to continue"
4054.     Sleep
4055.  
4056.     Cls
4057.     Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
4058.     Print
4059.     Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
4060.     Print "To start with, I'm going to do this in a LOOP with the software images."
4061.     Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
4062.     Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
4063.  
4064.     Do
4065.         _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
4066.         x = x + 40
4067.         If x > 1024 Then x = 0: y = y + 40
4068.         If y > 720 Then x = 0: y = 0
4069.         _Limit 60
4070.         _Display
4071.     Loop Until _KeyDown(27)
4072.  
4073.     Cls , 0
4074.     Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
4075.     tempImage = _CopyImage(Display, 33)
4076.     x = 0: y = 0
4077.     _DisplayOrder _Hardware
4078.     Do
4079.         _PutImage , tempImage
4080.         _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
4081.         x = x + 40
4082.         If x > 1024 Then x = 0: y = y + 40
4083.         If y > 720 Then x = 0: y = 0
4084.         _Limit 60
4085.         _Display
4086.     Loop Until _KeyDown(32)
4087.  
4088.     _DisplayOrder _Software , _Hardware
4089.     _AutoDisplay
4090.     Cls
4091.     Print "On my laptop, these two methods use the following amounts of CPU power:"
4092.     Print "Software, 60 FPS -- 3% CPU"
4093.     Print "Hardware, 60 FPS -- 0.1% CPU"
4094.     Print
4095.     Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
4096.     Print "Software, 600 FPS -- 10.3% CPU"
4097.     Print "Hardware, 600 FPS -- 0.1% CPU"
4098.     Print
4099.     Print
4100.     Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
4101.     Print
4102.     Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
4103.     Print
4104.     Print
4105.     Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
4106.     Print "to their own hardware layer, which you can specify to go on below or above your software screen."
4107.     Print
4108.     Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
4109.     Print
4110.     Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
4111.     Print
4112.     Print
4113.     Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
4114. End Sub ' HardwareImageDemo2
4115.  
4116. ' ################################################################################################################################################################
4117. ' END HARDWARE IMAGES DEMO #2 (WORKS)
4118. ' ################################################################################################################################################################
4119.  

[SMcNeill]

Now it's my turn to be noobish.  ;D

What exactly are you wanting to do here?  I thought the goal was just to layer some tiles under some text.  Wasn't we doing that?

What's the color swap supposed to do?  Do we leave the text above the tiles and just swap the colors beneath them, or what's the end goal here?  I don't think I fully understand what you're trying to accomplish.

Is there a max number of colors that you're using in the tiles?  Or are they any possible shade of RGB?

[madscijr]

Now it's my turn to be noobish.  ;D

Noob away, my man! LoL

What exactly are you wanting to do here?  I thought the goal was just to layer some tiles under some text.  Wasn't we doing that?

Sort of, my end goal is to not use text at all but just that tileset, which you may have noticed is an ASCII bitmap font (modified PETSCII to be exact, I grew up with a C64 back in the day). So the entire display would just be tiles from that tileset, including any text.

What's the color swap supposed to do?  Do we leave the text above the tiles and just swap the colors beneath them, or what's the end goal here?  I don't think I fully understand what you're trying to accomplish.

Is there a max number of colors that you're using in the tiles?  Or are they any possible shade of RGB?

Basically the entire screen would just be composed of these 2-color tiles (each with its own foreground/background color) in various color combinations. The current game I'm working on uses 40 different colors, but that could change. So it would just be easiest to be able to use the one tileset (colored black on white or black on transparent) and specify an RGB foreground and background color as we draw each tile (which is where the swap color comes in, replacing the tile's black with foreColor and the white/transparent with backColor). Make sense?

So with that in mind, I'm trying to convert the color tile / color swap routines to use hardware images (originals=DrawColorTile, DoColorSwap, converted=DrawColorTileHW, DoColorSwapHW) but I am just so damn confused. Is it even possible to draw the tile using hardware images specifying the tile's foreground/background color "on the fly"?

The DoColorSwap routine, which I didn't write and don't purport to fully understand (it just works so I use it!), uses _MemImage/_MemGet/_MemPut to assign colors, and I'm not even sure if that's the right approach for this. I assume those won't work with a hardware image, so the tile passed in needs to be a sofware image? At what point does it become a hardware image? Will there be a bottleneck at some point from manipulating the software images? Etc. Etc.

The bottom line is it has to replace the original tile's black pixels with whatever color., and the rest with the background color.

Anyway I appreciate your taking the time to explain hardware images and hearing out this whole use case. In the very least I could just generate a giant hardware image containing multiple copies of the tileset in all 40 colors, but that seems like such a kludge, and I'd much prefer the routine to hardware draw the tile with the specified fore/back colors on the fly if possible.

Code: QB64: [Select]

1. ' BOOLEAN VALUES
2. Const FALSE = 0
3. Const TRUE = Not FALSE
4.  
5. ' START THE MAIN ROUTINE
6. DrawingSpeedTest4
7. 'HardwareImageDemo2
8.  
9. ' FINISH
10. Screen 0
11. System ' return control to the operating system
12. End
13.  
14. ' ################################################################################################################################################################
15. ' BEGIN DRAWING SPEED TEST
16. ' ################################################################################################################################################################
17.  
18. ' /////////////////////////////////////////////////////////////////////////////
19.  
20. Sub DrawingSpeedTest4
21.     Dim sError As String: sError = ""
22.     Dim imgScreen As Long ' the main display
23.     Dim imgHardwareScreen As Long ' copy of the software screen, transformed into a hardware image
24.     Dim imgTiles As Long ' original tileset, black on transparent
25.     Dim imgHardwareTiles As Long ' copy of the tileset, tranformed into a hardware image
26.     Dim imgTilesRed As Long ' colored tileset copy
27.     Dim imgTilesGreen As Long ' colored tileset copy
28.     Dim imgTilesBlue As Long ' colored tileset copy
29.     Dim imgTilesYellow As Long ' colored tileset copy
30.     Dim imgColorTiles As Long ' holds 4 copies of tileset in different colors (red, green, blue, yellow)
31.     Dim iTileNum As Integer
32.     Dim iColorIndex As Integer: iColorIndex = 0
33.     Dim iFirstColor As Integer: iFirstColor = 0
34.     Dim iLastColor As Integer: iLastColor = 3
35.     Dim iCols As Integer
36.     Dim iRows As Integer
37.     Dim iY As Integer
38.     Dim iX As Integer
39.     Dim fgColor As _Unsigned Long
40.     Dim bgColor As _Unsigned Long
41.     Dim iMinY As Integer
42.     Dim iMaxY As Integer
43.     Dim iMinX As Integer
44.     Dim iMaxX As Integer
45.     Dim iCount1 As Long
46.     Dim iCount2 As Long
47.     Dim iCount3 As Long
48.     Dim iCount4 As Long
49.     Dim t# ' for timer
50.    
51.     ' ================================================================================================================================================================
52.     ' INIT SCREEN
53.     ' ================================================================================================================================================================
54.     imgScreen = _NewImage(1024, 768, 32)
55.     _ScreenMove 0, 0
56.     Screen imgScreen
57.     Cls , cGray
58.     Color cWhite, cBlack: Locate 1, 1: Print "Press 1 to test DrawTile8 rooutine using 4 tilesets (1 per color) and regular _putimage using using SOFTWARE images...": Do: Loop Until InKey$ = "1"
59.    
60.     ' ================================================================================================================================================================
61.     ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
62.     ' ================================================================================================================================================================
63.     If Len(sError) = 0 Then
64.         '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
65.         'sFile$ = Left$(Command$(0), _InStrRev(Command$(0), "\")) + "Font_8x8_128x128_v3.png" ' 128x128 pixels, 16 rows x 16 columns of 8x8 tiles
66.         'imgTiles = _LoadImage(sFile$, 32)
67.        
68.         ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
69.         sError = GetTiles$(imgTiles, cBlack, cEmpty)
70.     End If
71.    
72.     ' ================================================================================================================================================================
73.     ' CREATE COLORED TILESET COPIES
74.     ' ================================================================================================================================================================
75.     If Len(sError) = 0 Then
76.         MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
77.         MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
78.         MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
79.         MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
80.  
81.         ' Make one big tileset with all colors
82.         imgColorTiles = _NewImage(512, 128, 32)
83.         _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
84.         _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
85.         _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
86.         _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
87.     End If
88.    
89.     ' ================================================================================================================================================================
90.     ' METHOD #1
91.     ' _PUTIMAGE with SOFTWARE IMAGES
92.     ' ================================================================================================================================================================
93.     If Len(sError) = 0 Then
94.         iCols = _Width(imgScreen) \ 8
95.         iRows = _Height(imgScreen) \ 8
96.         iMinX = 1: iMaxX = 16
97.         iMinY = 3: iMaxY = 18
98.         iCount1 = 0
99.         t# = ExtendedTimer + 3
100.         Do
101.             iCount1 = iCount1 + 1
102.             iFirstColor = iFirstColor Xor 1
103.             iColorIndex = iFirstColor
104.             iY = iMinY
105.             iX = iMinX
106.             For iTileNum = 0 To 255
107.                 Select Case iColorIndex
108.                     Case 0:
109.                         DrawTile8 imgTilesRed, iTileNum, imgScreen, iX, iY
110.                     Case 1:
111.                         DrawTile8 imgTilesGreen, iTileNum, imgScreen, iX, iY
112.                     Case 2:
113.                         DrawTile8 imgTilesBlue, iTileNum, imgScreen, iX, iY
114.                     Case Else:
115.                         DrawTile8 imgTilesYellow, iTileNum, imgScreen, iX, iY
116.                 End Select
117.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
118.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
119.             Next iTileNum
120.             _Display
121.         Loop Until Timer > t#
122.     End If
123.     _AutoDisplay
124.     Color cWhite, cBlack: Locate 11, 1: Print "Press 2 to test DrawColorTile routine using 1 tileset with DoColorSwap using SOFTWARE images...";: Do: Loop Until InKey$ = "2"
125.    
126.     ' ================================================================================================================================================================
127.     ' METHOD #2
128.     ' COLOR SWAP with SOFTWARE IMAGES
129.     ' ================================================================================================================================================================
130.     If Len(sError) = 0 Then
131.         iMinX = 1: iMaxX = 16
132.         iMinY = 23: iMaxY = 38
133.         iCount2 = 0
134.         t# = ExtendedTimer + 3
135.         Do
136.             iCount2 = iCount2 + 1
137.             iFirstColor = iFirstColor Xor 1
138.             iColorIndex = iFirstColor
139.             iY = iMinY
140.             iX = iMinX
141.             For iTileNum = 0 To 255
142.                 Select Case iColorIndex
143.                     Case 0:
144.                         fgColor = cRed: bgColor = cBlack
145.                     Case 1:
146.                         fgColor = cLime: bgColor = cBlack
147.                     Case 2:
148.                         fgColor = cBlue: bgColor = cBlack
149.                     Case Else:
150.                         fgColor = cYellow: bgColor = cBlack
151.                 End Select
152.                 DrawColorTile imgScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
153.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
154.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
155.             Next iTileNum
156.             _Display
157.         Loop Until Timer > t#
158.     End If
159.     _AutoDisplay
160.     Color cWhite, cBlack: Locate 21, 1: Print "Press 3 to test DrawTileHw8 rooutine using 1 big multi-tileset and HARDWARE images...";: Do: Loop Until InKey$ = "3"
161.    
162.     ' ================================================================================================================================================================
163.     ' METHOD #3
164.     ' _PUTIMAGE with HARDWARE IMAGES
165.     ' ================================================================================================================================================================
166.     If Len(sError) = 0 Then
167.         imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
168.         iMinX = 1: iMaxX = 16
169.         iMinY = 43: iMaxY = 58
170.         iCount3 = 0
171.         t# = ExtendedTimer + 3
172.         imgHardwareScreen = _CopyImage(0, 33)
173.         _DisplayOrder _Hardware
174.         Do
175.             iCount3 = iCount3 + 1
176.             iFirstColor = iFirstColor Xor 1
177.             iColorIndex = iFirstColor
178.             iY = iMinY
179.             iX = iMinX
180.             _PutImage , imgHardwareScreen
181.             For iTileNum = 0 To 255
182.                 DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iX, iY, iColorIndex
183.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
184.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
185.             Next iTileNum
186.             _Display
187.         Loop Until Timer > t#
188.         _AutoDisplay
189.         _DisplayOrder _Software , _Hardware
190.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
191.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
192.         Color cWhite, cBlack: Locate 31, 1: Print "Press 4 to test DrawColorTileHW rooutine using 1 tileset with DoColorSwapHW using HARDWARE images...";: Do: Loop Until InKey$ = "3"
193.     End If
194.    
195.     ' ================================================================================================================================================================
196.     ' METHOD #4
197.     ' COLOR SWAP with HARDWARE IMAGES
198.     ' ================================================================================================================================================================
199.     If Len(sError) = 0 Then
200.         'DO THIS INSIDE DrawColorTileHw ROUTINE INSTEAD: imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
201.         iMinX = 1: iMaxX = 16
202.         iMinY = 63: iMaxY = 78
203.         iCount4 = 0
204.         t# = ExtendedTimer + 3
205.         imgHardwareScreen = _CopyImage(0, 33)
206.         _DisplayOrder _Hardware
207.         Do
208.             iCount4 = iCount4 + 1
209.             iFirstColor = iFirstColor Xor 1
210.             iColorIndex = iFirstColor
211.             iY = iMinY
212.             iX = iMinX
213.             _PutImage , imgHardwareScreen
214.             For iTileNum = 0 To 255
215.                 Select Case iColorIndex
216.                     Case 0:
217.                         fgColor = cRed: bgColor = cBlack
218.                     Case 1:
219.                         fgColor = cLime: bgColor = cBlack
220.                     Case 2:
221.                         fgColor = cBlue: bgColor = cBlack
222.                     Case Else:
223.                         fgColor = cYellow: bgColor = cBlack
224.                 End Select
225.                 DrawColorTileHw imgHardwareScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
226.                
227.                 iColorIndex = iColorIndex + 1: If iColorIndex > iLastColor Then iColorIndex = iFirstColor
228.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
229.             Next iTileNum
230.             _Display
231.         Loop Until Timer > t#
232.         _AutoDisplay
233.         _DisplayOrder _Software , _Hardware
234.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
235.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
236.         COLOR cWhite, cBlack: LOCATE 41,1 : PRINT "PRESS 5 TO SEE RESULTS..."; : Do : Loop Until InKey$="5"
237.     End If
238.    
239.     ' ================================================================================================================================================================
240.     ' SHOW RESULTS
241.     ' ================================================================================================================================================================
242.     Color cWhite, cBlack: Locate 33, 1
243.     Print ""
244.     Print "RESULTS:"
245.     Print Using "DrawTile8       ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
246.     Print Using "DrawColorTile   ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
247.     Print Using "DrawTileHw8     ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
248.     Print Using "DrawColorTileHW ###,###,###,###,###,### refreshes in 3 seconds."; iCount4
249.     Print "PRESS ANY KEY TO CONTINUE"
250.     Sleep
251.    
252.     ' ================================================================================================================================================================
253.     ' CLEANUP AND EXIT
254.     ' ================================================================================================================================================================
255.     Screen 0 ' RETURN TO TEXT SCREEN
256.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
257.     If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
258.     If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
259.     If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
260.     If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
261.     If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
262.     If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
263.     If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
264.     If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
265. End Sub ' DrawingSpeedTest4
266.  
267. ' ################################################################################################################################################################
268. ' END DRAWING SPEED TEST
269. ' ################################################################################################################################################################
270.  
271. ' ################################################################################################################################################################
272. ' BEGIN DRAW TILES, COLOR SWAP with HARDWARE IMAGES
273. ' ################################################################################################################################################################
274.  
275. ' /////////////////////////////////////////////////////////////////////////////
276. ' Same as DrawColorTile but using hardware images.
277.  
278. ' Receives:
279. ' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
280. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
281. ' TileColor~& = color to use for tile
282. ' imgScreen& = handle to screen to draw tile on
283. ' dx% = column # to draw tile at (where each column is 16 pixels wide)
284. ' dy% = row # to draw tile at (where each row is 16 pixels high)
285. ' xOffset% = offset tile this many columns over
286. ' yOffset% = offset tile this many rows down
287.  
288. Sub DrawColorTileHW ( _
289.         imgHardwareScreen As Long, _
290.         imgTiles As Long, _
291.         iTileNum As Integer, _
292.         fgColor As _UNSIGNED Long, _
293.         bgColor As _UNSIGNED Long, _
294.         dx As Integer, _
295.         dy As Integer)
296.        
297.     Dim cols%
298.     Dim rows%
299.     Dim sc%
300.     Dim sr%
301.     Dim sx1%
302.     Dim sy1%
303.     Dim sx2%
304.     Dim sy2%
305.     Dim xDest%
306.     Dim yDest%
307.     Dim imgColorSprite As Long
308.     Dim imgUniversalSprite As Long
309.     Dim imgColorSpriteHW As Long
310.         Dim imgUniversalSpriteHW As Long
311.        
312.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
313.     cols% = 16
314.     rows% = 16
315.    
316.     ' GET THE COLUMN/ROW OF TILE # iTileNum ON THE SOURCE TILE SHEET
317.     sc% = iTileNum Mod rows%
318.     sr% = iTileNum \ rows%
319.    
320.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
321.     sx1% = sc% * 8
322.    
323.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
324.     sy1% = sr% * 8
325.    
326.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
327.     sx2% = sx1% + 7
328.    
329.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
330.     sy2% = sy1% + 7
331.    
332.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
333.     xDest% = dx * 8
334.    
335.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
336.     yDest% = dy * 8
337.    
338.     ' IS THERE A BACKGROUND COLOR?
339.     If bgColor <> cEmpty Then
340.         imgColorSprite = _NewImage(8, 8, 32)
341.                 imgColorSpriteHW = _CopyImage(imgColorSprite, 33) ' Copy for hardware image
342.         '_Dest imgColorSprite
343.                 _Dest imgColorSpriteHW
344.         Cls , bgColor
345.        
346.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
347.         '_Source imgColorSprite
348.                 _Source imgColorSpriteHW
349.         _Dest imgHardwareScreen
350.        
351.                 'SOFTWARE IMAGE:
352.                 '_PutImage (xDest%, yDest%), imgColorSprite, imgHardwareScreen, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
353.                
354.                 'HARDWARE IMAGE:
355.                 _PutImage (xDest%, yDest%), imgColorSpriteHW, , (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
356.     End If
357.    
358.     ' CREATE A TEMPORARY TILE TO COLOR
359.     imgUniversalSprite = _NewImage(8, 8, 32)
360.        
361.     ' COPY THE TILE TO THE TEMPORARY ONE
362.     _Source imgHardwareTiles
363.     _Dest imgUniversalSprite
364.     'SOFTWARE IMAGE:
365.         '_PutImage (0, 0), imgTiles, imgUniversalSprite, (sx1%, sy1%)-(sx2%, sy2%)
366.        
367.         'HARDWARE IMAGE:
368.         _PutImage (0, 0), imgHardwareTiles, , (sx1%, sy1%)-(sx2%, sy2%)
369.    
370.     ' COLOR IN THE TEMPORARY TILE
371.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
372.    
373.         'SOFTWARE IMAGE:
374.     'IF imgColorSprite < -1 OR imgColorSprite > 0 THEN _FreeImage imgColorSprite
375.         'DoColorSwap imgUniversalSprite, cBlack, fgColor, imgColorSprite
376.        
377.         'HARDWARE IMAGE:
378.         DoColorSwapHW imgUniversalSpriteHW, cBlack, fgColor, imgColorSpriteHW
379.        
380.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
381.     _Source imgColorSpriteHW
382.     _Dest imgHardwareScreen
383.        
384.         'SOFTWARE IMAGE:
385.     '_PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
386.    
387.         'HARDWARE IMAGE:
388.         _PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
389.        
390.     ' ADDED PER FellipeHeitor
391.         IF imgHardwareTiles < -1 OR imgHardwareTiles > 0 THEN _FreeImage imgHardwareTiles
392.     IF imgColorSprite < -1 OR imgColorSprite > 0 THEN _FreeImage imgColorSprite
393.     IF imgColorSpriteHW < -1 OR imgColorSpriteHW > 0 THEN _FreeImage imgColorSpriteHW
394.     IF imgUniversalSprite < -1 OR imgUniversalSprite > 0 THEN _FreeImage imgUniversalSprite
395.     IF imgUniversalSpriteHW < -1 OR imgUniversalSpriteHW > 0 THEN _FreeImage imgUniversalSpriteHW
396.    
397. End Sub ' DrawColorTileHW
398.  
399. ' /////////////////////////////////////////////////////////////////////////////
400. ' Same as DoColorSwap but using hardware images.
401.  
402. ' Latest version with NOVARSEG's changes.
403. ' Based on code from:
404. ' Image color swap?
405. ' https://www.qb64.org/forum/index.php?topic=2312.0
406.  
407. ' Like Function swapcolor& except returns new image in a parameter
408. ' in case being a function causes a memory leak?
409.  
410. Sub DoColorSwapHW ( _
411.         imgOriginalHW As Long, _
412.         oldColor As _UNSIGNED Long, _
413.         newColor As _UNSIGNED Long, _
414.         imgNewHW As Long)
415.        
416.     Dim m As _MEM
417.     Dim a As _Offset
418.     Dim c As _Unsigned Long
419.         Dim imgNew As Long
420.        
421.     a = 0
422.     imgNew = _CopyImage(imgOriginalHW, 32)
423.     m = _MemImage(imgNewHW)
424.     Do Until a = m.SIZE - 4
425.         a = a + 4
426.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
427.         If c = oldColor Then
428.             _MemPut m, m.OFFSET + a, newColor
429.         End If
430.     Loop
431.     _MemFree m
432. End Sub ' DoColorSwapHW
433.  
434. ' ################################################################################################################################################################
435. ' END DRAW TILES, COLOR SWAP with HARDWARE IMAGES
436. ' ################################################################################################################################################################
437.  
438. ' ################################################################################################################################################################
439. ' BEGIN DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
440. ' ################################################################################################################################################################
441.  
442. ' /////////////////////////////////////////////////////////////////////////////
443. ' Simple version which calculates coordinates on tile sheet and destination
444. ' screen every time. For a faster version uses precalculated coordinates,
445. ' see DrawColorTileFast. This version does not support offsetX, offsetY.
446.  
447. ' Receives:
448. ' imgScreen& = handle to screen to draw tile on
449. ' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
450. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
451. ' TileColor~& = foreground color to use for tile
452. ' BackColor~& = background color to use for tile
453. ' dx% = column # to draw tile at (where each column is 8 pixels wide)
454. ' dy% = row # to draw tile at (where each row is 8 pixels high)
455.  
456. ' Usage:
457. ' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
458.  
459. Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
460.     Dim cols%
461.     Dim rows%
462.     Dim sc%
463.     Dim sr%
464.     Dim sx1%
465.     Dim sy1%
466.     Dim sx2%
467.     Dim sy2%
468.     Dim xDest%
469.     Dim yDest%
470.     Dim ColorSprite&
471.     Dim UniversalSprite&
472.  
473.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
474.     cols% = 16
475.     rows% = 16
476.  
477.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
478.     sc% = TileNum% Mod rows%
479.     sr% = TileNum% \ rows%
480.  
481.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
482.     sx1% = sc% * 8
483.  
484.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
485.     sy1% = sr% * 8
486.  
487.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
488.     sx2% = sx1% + 7
489.  
490.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
491.     sy2% = sy1% + 7
492.  
493.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
494.     xDest% = dx% * 8
495.  
496.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
497.     yDest% = dy% * 8
498.  
499.     ' IS THERE A BACKGROUND COLOR?
500.     If BackColor~& <> cEmpty Then
501.         ColorSprite& = _NewImage(8, 8, 32)
502.         _Dest ColorSprite&
503.         Cls , BackColor~&
504.  
505.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
506.         _Source ColorSprite&
507.         _Dest imgScreen&
508.         _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
509.     End If
510.  
511.     ' CREATE A TEMPORARY TILE TO COLOR
512.     UniversalSprite& = _NewImage(8, 8, 32)
513.  
514.     ' COPY THE TILE TO THE TEMPORARY ONE
515.     _Source imgTiles&
516.     _Dest UniversalSprite&
517.     _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
518.  
519.     ' COLOR IN THE TEMPORARY TILE
520.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
521.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
522.     DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
523.  
524.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
525.     _Source ColorSprite&
526.     _Dest imgScreen&
527.     _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
528.  
529.     ' ADDED PER FellipeHeitor
530.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
531.     If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
532. End Sub ' DrawColorTile
533.  
534. ' /////////////////////////////////////////////////////////////////////////////
535. ' Latest version with NOVARSEG's changes.
536.  
537. ' Based on code from:
538.  
539. ' Image color swap?
540. ' https://www.qb64.org/forum/index.php?topic=2312.0
541.  
542. ' Like Function swapcolor& except returns new image in a parameter
543. ' in case being a function causes a memory leak?
544.  
545. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
546.     Dim m As _MEM
547.     Dim a As _Offset
548.     Dim c As _Unsigned Long
549.     a = 0
550.     imgNew& = _CopyImage(imgOriginal&, 32)
551.     m = _MemImage(imgNew&)
552.     Do Until a = m.SIZE - 4
553.         a = a + 4
554.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
555.         If c = oldcolor~& Then
556.             _MemPut m, m.OFFSET + a, newcolor~&
557.         End If
558.     Loop
559.     _MemFree m
560. End Sub ' DoColorSwap&
561.  
562. ' ################################################################################################################################################################
563. ' END DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
564. ' ################################################################################################################################################################
565.  
566. ' ################################################################################################################################################################
567. ' BEGIN DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
568. ' ################################################################################################################################################################
569.  
570. ' /////////////////////////////////////////////////////////////////////////////
571. ' Draws an 8x8 tile at the specified column/row dx%, dy%
572.  
573. ' Original version which calculates coordinates on tile sheet and destination
574. ' screen every time. For a faster version uses precalculated coordinates,
575. ' see DrawTileFast.
576.  
577. ' tw% = tile width/height (in pixels)
578.  
579. ' DIV and MOD:
580. ' c% = a% \ b% ' DIV (INTEGER DIVISION)
581. ' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
582.  
583. '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
584. '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
585. '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
586. '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
587.  
588. Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
589.     Dim tw% ' width/height of tile
590.     Dim tw_minus1% ' width/height of tile -1
591.     Dim cols% ' # tiles across on tile sheet
592.     Dim rows% ' # tile rows on tile sheet
593.     Dim sc% ' source column on tile sheet
594.     Dim sr% ' source row on tile sheet
595.     Dim sx1% ' source start x
596.     Dim sx2% ' source end x
597.     Dim sy1% ' source start y
598.     Dim sy2% ' source end y
599.     Dim xDest% ' destination x
600.     Dim yDest% ' destination y
601.  
602.     ' SIZE OF TILE
603.     tw% = 8
604.     tw_minus1% = 7
605.  
606.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
607.     cols% = 16
608.     rows% = 16
609.  
610.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
611.     sc% = TileNum% Mod rows%
612.     sr% = TileNum% \ rows%
613.  
614.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
615.  
616.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
617.     sx1% = sc% * tw%
618.  
619.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
620.     sy1% = sr% * tw%
621.  
622.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
623.     sx2% = sx1% + tw_minus1%
624.  
625.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
626.     sy2% = sy1% + tw_minus1%
627.  
628.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
629.     xDest% = dx% * tw%
630.  
631.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
632.     yDest% = (dy% * tw%) '+ yOffset%
633.  
634.     'Print "Tile#" + cstr$(TileNum%) + _
635.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
636.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
637.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
638.  
639.     _Dest imgScreen&
640.  
641.     ' portion of source to the top-left corner of the destination page
642.     _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
643.  
644. End Sub ' DrawTile8
645.  
646. ' ################################################################################################################################################################
647. ' END DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
648. ' ################################################################################################################################################################
649.  
650. ' ################################################################################################################################################################
651. ' BEGIN DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
652. ' ################################################################################################################################################################
653.  
654. ' /////////////////////////////////////////////////////////////////////////////
655. ' Draws an 8x8 tile at the specified column/row dx%, dy%
656. ' using hardware images
657.  
658. ' Usage:
659. ' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
660. ' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
661. ' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
662.  
663. Sub DrawTileHw8 (imgHardwareTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
664.     Dim tw% ' width/height of tile
665.     Dim tw_minus1% ' width/height of tile -1
666.     Dim cols% ' # tiles across on tile sheet
667.     Dim rows% ' # tile rows on tile sheet
668.     Dim sc% ' source column on tile sheet
669.     Dim sr% ' source row on tile sheet
670.     Dim sx1% ' source start x
671.     Dim sx2% ' source end x
672.     Dim sy1% ' source start y
673.     Dim sy2% ' source end y
674.     Dim xDest% ' destination x
675.     Dim yDest% ' destination y
676.     Dim xOffset%
677.  
678.     ' CALCULATE OFFSET
679.     xOffset% = 128 * iSubTileset%
680.  
681.     ' SIZE OF TILE
682.     tw% = 8
683.     tw_minus1% = 7
684.  
685.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
686.     cols% = 16
687.     rows% = 16
688.  
689.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
690.     sc% = TileNum% Mod rows%
691.     sr% = TileNum% \ rows%
692.  
693.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
694.  
695.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
696.     sx1% = (sc% * tw%) + xOffset%
697.  
698.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
699.     sy1% = sr% * tw%
700.  
701.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
702.     sx2% = sx1% + tw_minus1%
703.  
704.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
705.     sy2% = sy1% + tw_minus1%
706.  
707.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
708.     xDest% = dx% * tw%
709.  
710.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
711.     yDest% = (dy% * tw%) '+ yOffset%
712.  
713.     'Print "Tile#" + cstr$(TileNum%) + _
714.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
715.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
716.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
717.  
718.     _Dest imgScreen&
719.  
720.     ' portion of source to the top-left corner of the destination page
721.     '_PutImage (xDest%, yDest%), imgHardwareTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
722.     '_PutImage (200, 100)-Step(100, 100), imgHardwareTiles&, , (0, 0)-(40, 40)
723.     _PutImage (xDest%, yDest%), imgHardwareTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
724.  
725. End Sub ' DrawTileHw8
726.  
727. ' /////////////////////////////////////////////////////////////////////////////
728. ' Receives an image imgTiles of 8x8 tiles
729. ' colored black on transparent background
730. ' and returns a new image imgNew
731. ' copied from the tiles in imgTiles,
732. ' except colored to foreground color fgColor,
733. ' and background color bgColor
734.  
735. ' Usage:
736. ' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
737.  
738. Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
739.     Dim iTileNum As Integer
740.     Dim iY As Integer
741.     Dim iX As Integer
742.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
743.     imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
744.     iTileNum = 0
745.     For iY = 0 To (_Height(imgTiles) \ 8) - 1
746.         For iX = 0 To (_Width(imgTiles) \ 8) - 1
747.             DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
748.             iTileNum = iTileNum + 1
749.             If iTileNum > 255 Then Exit For
750.         Next iX
751.         If iTileNum > 255 Then Exit For
752.     Next iY
753. End Sub ' MakeColoredTileset
754.  
755. ' ################################################################################################################################################################
756. ' END DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
757. ' ################################################################################################################################################################
758.  
759. ' ################################################################################################################################################################
760. ' BEGIN TILE DEFINITIONS
761. ' ################################################################################################################################################################
762.  
763. ' /////////////////////////////////////////////////////////////////////////////
764. ' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
765. ' where tiles are a single color.
766.  
767. ' Parameters:
768. ' imgTiles& = contains the resulting tileset image
769. ' fgColor = tile color
770. ' bgColor = tile background color
771.  
772. Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
773.     Dim RoutineName As String: RoutineName = "GetTiles$"
774.     Dim sResult As String: sResult = ""
775.     ReDim arrTileText(0 To 255) As String
776.  
777.     Dim iTileNum As Integer
778.  
779.     ReDim arrLines(-1) As String
780.     Dim iFromX As Integer
781.     Dim iFromY As Integer
782.     Dim sLine As String
783.     Dim sChar As String
784.  
785.     Dim iTileX As Integer
786.     Dim iTileY As Integer
787.     Dim iToX As Integer
788.     Dim iToY As Integer
789.     Dim pixelColor As _Unsigned Long
790.     Dim bFinished As Integer
791.  
792.     ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
793.     ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
794.     If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
795.     imgTiles& = _NewImage(128, 128, 32)
796.     '    Cls , cEmpty ' set the background color as transparent
797.  
798.     'Screen imgTiles&
799.     'Cls , bgColor ' set the background color as transparent
800.     _Dest imgTiles&
801.     'DrawRect 0, 0, 128, 128, cEmpty
802.     'DrawBox 0, 0, 128, cWhite
803.     Cls , cEmpty ' set the background color as transparent
804.  
805.     GetTileText arrTileText()
806.     iTileX = 0
807.     iTileY = 0
808.     bFinished = FALSE
809.     For iTileNum = 0 To 255
810.         split arrTileText(iTileNum), Chr$(13), arrLines()
811.         iToY = iTileY * 8
812.         If (iToY > _Height(imgTiles&)) Then
813.             sResult = "iToY value " + cstr$(iToY) + " " + _
814.                 "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
815.                 "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
816.             bFinished = TRUE
817.             Exit For
818.         End If
819.  
820.         For iFromY = LBound(arrLines) To UBound(arrLines)
821.             sLine = arrLines(iFromY)
822.             If Len(sLine) > 0 Then
823.                 iToX = iTileX * 8
824.                 For iFromX = 1 To Len(sLine)
825.                     sChar = Mid$(sLine, iFromX, 1)
826.                     If sChar = "." Then
827.                         pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
828.                     Else
829.                         pixelColor = fgColor ' cBlack
830.                     End If
831.                     PSet (iToX, iToY), pixelColor
832.                     iToX = iToX + 1
833.                     If (iToX > _Width(imgTiles&)) Then
834.                         sResult = "iToX value " + cstr$(iToX) + " " + _
835.                             "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
836.                             "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
837.                         bFinished = TRUE
838.                         Exit For
839.                     End If
840.                 Next iFromX
841.                 iToY = iToY + 1
842.                 If bFinished = TRUE Then Exit For
843.             End If
844.         Next iFromY
845.         If bFinished = TRUE Then Exit For
846.  
847.         iTileX = iTileX + 1
848.         If iTileX > 15 Then
849.             iTileX = 0
850.             iTileY = iTileY + 1
851.             'if iTileY > 15 then
852.             '    sResult = "Exceeded max 16 rows of tiles." + _
853.             '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
854.             '    bFinished = TRUE
855.             '    exit for
856.             'end if
857.         End If
858.     Next iTileNum
859.  
860.     GetTiles$ = sResult
861. End Function ' GetTiles$
862.  
863. ' /////////////////////////////////////////////////////////////////////////////
864. ' Returns an array of 256 8x8 tiles defined in text
865. ' where each tile is defined by "." as blank and anything else is a pixel
866. ' and each row is delimited by chr$(13)
867.  
868. Sub GetTileText (arrTileText() As String)
869.     ReDim arrTileText(0 To 255) As String
870.  
871.     m$ = ""
872.     m$ = m$ + "22....22" + Chr$(13)
873.     m$ = m$ + "2..22..2" + Chr$(13)
874.     m$ = m$ + "2..2...2" + Chr$(13)
875.     m$ = m$ + "2...2..2" + Chr$(13)
876.     m$ = m$ + "2..22..2" + Chr$(13)
877.     m$ = m$ + "2..22..2" + Chr$(13)
878.     m$ = m$ + "22....22" + Chr$(13)
879.     m$ = m$ + "22222222" + Chr$(13)
880.     arrTileText(0) = m$
881.  
882.     m$ = ""
883.     m$ = m$ + "........" + Chr$(13)
884.     m$ = m$ + "........" + Chr$(13)
885.     m$ = m$ + "........" + Chr$(13)
886.     m$ = m$ + "........" + Chr$(13)
887.     m$ = m$ + "........" + Chr$(13)
888.     m$ = m$ + "........" + Chr$(13)
889.     m$ = m$ + "........" + Chr$(13)
890.     m$ = m$ + "........" + Chr$(13)
891.     arrTileText(1) = m$
892.  
893.     m$ = ""
894.     m$ = m$ + "........" + Chr$(13)
895.     m$ = m$ + "........" + Chr$(13)
896.     m$ = m$ + "........" + Chr$(13)
897.     m$ = m$ + "........" + Chr$(13)
898.     m$ = m$ + "........" + Chr$(13)
899.     m$ = m$ + "........" + Chr$(13)
900.     m$ = m$ + "........" + Chr$(13)
901.     m$ = m$ + "........" + Chr$(13)
902.     arrTileText(2) = m$
903.  
904.     m$ = ""
905.     m$ = m$ + "........" + Chr$(13)
906.     m$ = m$ + "........" + Chr$(13)
907.     m$ = m$ + "........" + Chr$(13)
908.     m$ = m$ + "........" + Chr$(13)
909.     m$ = m$ + "........" + Chr$(13)
910.     m$ = m$ + "........" + Chr$(13)
911.     m$ = m$ + "........" + Chr$(13)
912.     m$ = m$ + "........" + Chr$(13)
913.     arrTileText(3) = m$
914.  
915.     m$ = ""
916.     m$ = m$ + "........" + Chr$(13)
917.     m$ = m$ + "........" + Chr$(13)
918.     m$ = m$ + "........" + Chr$(13)
919.     m$ = m$ + "........" + Chr$(13)
920.     m$ = m$ + "........" + Chr$(13)
921.     m$ = m$ + "........" + Chr$(13)
922.     m$ = m$ + "........" + Chr$(13)
923.     m$ = m$ + "........" + Chr$(13)
924.     arrTileText(4) = m$
925.  
926.     m$ = ""
927.     m$ = m$ + "........" + Chr$(13)
928.     m$ = m$ + "........" + Chr$(13)
929.     m$ = m$ + "........" + Chr$(13)
930.     m$ = m$ + "........" + Chr$(13)
931.     m$ = m$ + "........" + Chr$(13)
932.     m$ = m$ + "........" + Chr$(13)
933.     m$ = m$ + "........" + Chr$(13)
934.     m$ = m$ + "........" + Chr$(13)
935.     arrTileText(5) = m$
936.  
937.     m$ = ""
938.     m$ = m$ + "........" + Chr$(13)
939.     m$ = m$ + "........" + Chr$(13)
940.     m$ = m$ + "........" + Chr$(13)
941.     m$ = m$ + "........" + Chr$(13)
942.     m$ = m$ + "........" + Chr$(13)
943.     m$ = m$ + "........" + Chr$(13)
944.     m$ = m$ + "........" + Chr$(13)
945.     m$ = m$ + "........" + Chr$(13)
946.     arrTileText(6) = m$
947.  
948.     m$ = ""
949.     m$ = m$ + "........" + Chr$(13)
950.     m$ = m$ + "........" + Chr$(13)
951.     m$ = m$ + "........" + Chr$(13)
952.     m$ = m$ + "........" + Chr$(13)
953.     m$ = m$ + "........" + Chr$(13)
954.     m$ = m$ + "........" + Chr$(13)
955.     m$ = m$ + "........" + Chr$(13)
956.     m$ = m$ + "........" + Chr$(13)
957.     arrTileText(7) = m$
958.  
959.     m$ = ""
960.     m$ = m$ + "........" + Chr$(13)
961.     m$ = m$ + "........" + Chr$(13)
962.     m$ = m$ + "........" + Chr$(13)
963.     m$ = m$ + "........" + Chr$(13)
964.     m$ = m$ + "........" + Chr$(13)
965.     m$ = m$ + "........" + Chr$(13)
966.     m$ = m$ + "........" + Chr$(13)
967.     m$ = m$ + "........" + Chr$(13)
968.     arrTileText(8) = m$
969.  
970.     m$ = ""
971.     m$ = m$ + "........" + Chr$(13)
972.     m$ = m$ + "........" + Chr$(13)
973.     m$ = m$ + "........" + Chr$(13)
974.     m$ = m$ + "........" + Chr$(13)
975.     m$ = m$ + "........" + Chr$(13)
976.     m$ = m$ + "........" + Chr$(13)
977.     m$ = m$ + "........" + Chr$(13)
978.     m$ = m$ + "........" + Chr$(13)
979.     arrTileText(9) = m$
980.  
981.     m$ = ""
982.     m$ = m$ + "........" + Chr$(13)
983.     m$ = m$ + "........" + Chr$(13)
984.     m$ = m$ + "........" + Chr$(13)
985.     m$ = m$ + "........" + Chr$(13)
986.     m$ = m$ + "........" + Chr$(13)
987.     m$ = m$ + "........" + Chr$(13)
988.     m$ = m$ + "........" + Chr$(13)
989.     m$ = m$ + "........" + Chr$(13)
990.     arrTileText(10) = m$
991.  
992.     m$ = ""
993.     m$ = m$ + "........" + Chr$(13)
994.     m$ = m$ + "........" + Chr$(13)
995.     m$ = m$ + "........" + Chr$(13)
996.     m$ = m$ + "........" + Chr$(13)
997.     m$ = m$ + "........" + Chr$(13)
998.     m$ = m$ + "........" + Chr$(13)
999.     m$ = m$ + "........" + Chr$(13)
1000.     m$ = m$ + "........" + Chr$(13)
1001.     arrTileText(11) = m$
1002.  
1003.     m$ = ""
1004.     m$ = m$ + "........" + Chr$(13)
1005.     m$ = m$ + "........" + Chr$(13)
1006.     m$ = m$ + "........" + Chr$(13)
1007.     m$ = m$ + "........" + Chr$(13)
1008.     m$ = m$ + "........" + Chr$(13)
1009.     m$ = m$ + "........" + Chr$(13)
1010.     m$ = m$ + "........" + Chr$(13)
1011.     m$ = m$ + "........" + Chr$(13)
1012.     arrTileText(12) = m$
1013.  
1014.     m$ = ""
1015.     m$ = m$ + "........" + Chr$(13)
1016.     m$ = m$ + "........" + Chr$(13)
1017.     m$ = m$ + "........" + Chr$(13)
1018.     m$ = m$ + "........" + Chr$(13)
1019.     m$ = m$ + "........" + Chr$(13)
1020.     m$ = m$ + "........" + Chr$(13)
1021.     m$ = m$ + "........" + Chr$(13)
1022.     m$ = m$ + "........" + Chr$(13)
1023.     arrTileText(13) = m$
1024.  
1025.     m$ = ""
1026.     m$ = m$ + "........" + Chr$(13)
1027.     m$ = m$ + "........" + Chr$(13)
1028.     m$ = m$ + "........" + Chr$(13)
1029.     m$ = m$ + "........" + Chr$(13)
1030.     m$ = m$ + "........" + Chr$(13)
1031.     m$ = m$ + "........" + Chr$(13)
1032.     m$ = m$ + "........" + Chr$(13)
1033.     m$ = m$ + "........" + Chr$(13)
1034.     arrTileText(14) = m$
1035.  
1036.     m$ = ""
1037.     m$ = m$ + "........" + Chr$(13)
1038.     m$ = m$ + "........" + Chr$(13)
1039.     m$ = m$ + "........" + Chr$(13)
1040.     m$ = m$ + "........" + Chr$(13)
1041.     m$ = m$ + "........" + Chr$(13)
1042.     m$ = m$ + "........" + Chr$(13)
1043.     m$ = m$ + "........" + Chr$(13)
1044.     m$ = m$ + "........" + Chr$(13)
1045.     arrTileText(15) = m$
1046.  
1047.     m$ = ""
1048.     m$ = m$ + "........" + Chr$(13)
1049.     m$ = m$ + "........" + Chr$(13)
1050.     m$ = m$ + "........" + Chr$(13)
1051.     m$ = m$ + "........" + Chr$(13)
1052.     m$ = m$ + "........" + Chr$(13)
1053.     m$ = m$ + "........" + Chr$(13)
1054.     m$ = m$ + "........" + Chr$(13)
1055.     m$ = m$ + "........" + Chr$(13)
1056.     arrTileText(16) = m$
1057.  
1058.     m$ = ""
1059.     m$ = m$ + "........" + Chr$(13)
1060.     m$ = m$ + "........" + Chr$(13)
1061.     m$ = m$ + "........" + Chr$(13)
1062.     m$ = m$ + "........" + Chr$(13)
1063.     m$ = m$ + "........" + Chr$(13)
1064.     m$ = m$ + "........" + Chr$(13)
1065.     m$ = m$ + "........" + Chr$(13)
1066.     m$ = m$ + "........" + Chr$(13)
1067.     arrTileText(17) = m$
1068.  
1069.     m$ = ""
1070.     m$ = m$ + "........" + Chr$(13)
1071.     m$ = m$ + "........" + Chr$(13)
1072.     m$ = m$ + "........" + Chr$(13)
1073.     m$ = m$ + "........" + Chr$(13)
1074.     m$ = m$ + "........" + Chr$(13)
1075.     m$ = m$ + "........" + Chr$(13)
1076.     m$ = m$ + "........" + Chr$(13)
1077.     m$ = m$ + "........" + Chr$(13)
1078.     arrTileText(18) = m$
1079.  
1080.     m$ = ""
1081.     m$ = m$ + "........" + Chr$(13)
1082.     m$ = m$ + "........" + Chr$(13)
1083.     m$ = m$ + "........" + Chr$(13)
1084.     m$ = m$ + "........" + Chr$(13)
1085.     m$ = m$ + "........" + Chr$(13)
1086.     m$ = m$ + "........" + Chr$(13)
1087.     m$ = m$ + "........" + Chr$(13)
1088.     m$ = m$ + "........" + Chr$(13)
1089.     arrTileText(19) = m$
1090.  
1091.     m$ = ""
1092.     m$ = m$ + "........" + Chr$(13)
1093.     m$ = m$ + "........" + Chr$(13)
1094.     m$ = m$ + "........" + Chr$(13)
1095.     m$ = m$ + "........" + Chr$(13)
1096.     m$ = m$ + "........" + Chr$(13)
1097.     m$ = m$ + "........" + Chr$(13)
1098.     m$ = m$ + "........" + Chr$(13)
1099.     m$ = m$ + "........" + Chr$(13)
1100.     arrTileText(20) = m$
1101.  
1102.     m$ = ""
1103.     m$ = m$ + "........" + Chr$(13)
1104.     m$ = m$ + "........" + Chr$(13)
1105.     m$ = m$ + "........" + Chr$(13)
1106.     m$ = m$ + "........" + Chr$(13)
1107.     m$ = m$ + "........" + Chr$(13)
1108.     m$ = m$ + "........" + Chr$(13)
1109.     m$ = m$ + "........" + Chr$(13)
1110.     m$ = m$ + "........" + Chr$(13)
1111.     arrTileText(21) = m$
1112.  
1113.     m$ = ""
1114.     m$ = m$ + "........" + Chr$(13)
1115.     m$ = m$ + "........" + Chr$(13)
1116.     m$ = m$ + "........" + Chr$(13)
1117.     m$ = m$ + "........" + Chr$(13)
1118.     m$ = m$ + "........" + Chr$(13)
1119.     m$ = m$ + "........" + Chr$(13)
1120.     m$ = m$ + "........" + Chr$(13)
1121.     m$ = m$ + "........" + Chr$(13)
1122.     arrTileText(22) = m$
1123.  
1124.     m$ = ""
1125.     m$ = m$ + "........" + Chr$(13)
1126.     m$ = m$ + "........" + Chr$(13)
1127.     m$ = m$ + "........" + Chr$(13)
1128.     m$ = m$ + "........" + Chr$(13)
1129.     m$ = m$ + "........" + Chr$(13)
1130.     m$ = m$ + "........" + Chr$(13)
1131.     m$ = m$ + "........" + Chr$(13)
1132.     m$ = m$ + "........" + Chr$(13)
1133.     arrTileText(23) = m$
1134.  
1135.     m$ = ""
1136.     m$ = m$ + "........" + Chr$(13)
1137.     m$ = m$ + "........" + Chr$(13)
1138.     m$ = m$ + "........" + Chr$(13)
1139.     m$ = m$ + "........" + Chr$(13)
1140.     m$ = m$ + "........" + Chr$(13)
1141.     m$ = m$ + "........" + Chr$(13)
1142.     m$ = m$ + "........" + Chr$(13)
1143.     m$ = m$ + "........" + Chr$(13)
1144.     arrTileText(24) = m$
1145.  
1146.     m$ = ""
1147.     m$ = m$ + "........" + Chr$(13)
1148.     m$ = m$ + "........" + Chr$(13)
1149.     m$ = m$ + "........" + Chr$(13)
1150.     m$ = m$ + "........" + Chr$(13)
1151.     m$ = m$ + "........" + Chr$(13)
1152.     m$ = m$ + "........" + Chr$(13)
1153.     m$ = m$ + "........" + Chr$(13)
1154.     m$ = m$ + "........" + Chr$(13)
1155.     arrTileText(25) = m$
1156.  
1157.     m$ = ""
1158.     m$ = m$ + "........" + Chr$(13)
1159.     m$ = m$ + "........" + Chr$(13)
1160.     m$ = m$ + "........" + Chr$(13)
1161.     m$ = m$ + "........" + Chr$(13)
1162.     m$ = m$ + "........" + Chr$(13)
1163.     m$ = m$ + "........" + Chr$(13)
1164.     m$ = m$ + "........" + Chr$(13)
1165.     m$ = m$ + "........" + Chr$(13)
1166.     arrTileText(26) = m$
1167.  
1168.     m$ = ""
1169.     m$ = m$ + "........" + Chr$(13)
1170.     m$ = m$ + "........" + Chr$(13)
1171.     m$ = m$ + "........" + Chr$(13)
1172.     m$ = m$ + "........" + Chr$(13)
1173.     m$ = m$ + "........" + Chr$(13)
1174.     m$ = m$ + "........" + Chr$(13)
1175.     m$ = m$ + "........" + Chr$(13)
1176.     m$ = m$ + "........" + Chr$(13)
1177.     arrTileText(27) = m$
1178.  
1179.     m$ = ""
1180.     m$ = m$ + "........" + Chr$(13)
1181.     m$ = m$ + "........" + Chr$(13)
1182.     m$ = m$ + "........" + Chr$(13)
1183.     m$ = m$ + "........" + Chr$(13)
1184.     m$ = m$ + "........" + Chr$(13)
1185.     m$ = m$ + "........" + Chr$(13)
1186.     m$ = m$ + "........" + Chr$(13)
1187.     m$ = m$ + "........" + Chr$(13)
1188.     arrTileText(28) = m$
1189.  
1190.     m$ = ""
1191.     m$ = m$ + "........" + Chr$(13)
1192.     m$ = m$ + "........" + Chr$(13)
1193.     m$ = m$ + "........" + Chr$(13)
1194.     m$ = m$ + "........" + Chr$(13)
1195.     m$ = m$ + "........" + Chr$(13)
1196.     m$ = m$ + "........" + Chr$(13)
1197.     m$ = m$ + "........" + Chr$(13)
1198.     m$ = m$ + "........" + Chr$(13)
1199.     arrTileText(29) = m$
1200.  
1201.     m$ = ""
1202.     m$ = m$ + "........" + Chr$(13)
1203.     m$ = m$ + "........" + Chr$(13)
1204.     m$ = m$ + "........" + Chr$(13)
1205.     m$ = m$ + "........" + Chr$(13)
1206.     m$ = m$ + "........" + Chr$(13)
1207.     m$ = m$ + "........" + Chr$(13)
1208.     m$ = m$ + "........" + Chr$(13)
1209.     m$ = m$ + "........" + Chr$(13)
1210.     arrTileText(30) = m$
1211.  
1212.     m$ = ""
1213.     m$ = m$ + "........" + Chr$(13)
1214.     m$ = m$ + "........" + Chr$(13)
1215.     m$ = m$ + "........" + Chr$(13)
1216.     m$ = m$ + "........" + Chr$(13)
1217.     m$ = m$ + "........" + Chr$(13)
1218.     m$ = m$ + "........" + Chr$(13)
1219.     m$ = m$ + "........" + Chr$(13)
1220.     m$ = m$ + "........" + Chr$(13)
1221.     arrTileText(31) = m$
1222.  
1223.     m$ = ""
1224.     m$ = m$ + "........" + Chr$(13)
1225.     m$ = m$ + "........" + Chr$(13)
1226.     m$ = m$ + "........" + Chr$(13)
1227.     m$ = m$ + "........" + Chr$(13)
1228.     m$ = m$ + "........" + Chr$(13)
1229.     m$ = m$ + "........" + Chr$(13)
1230.     m$ = m$ + "........" + Chr$(13)
1231.     m$ = m$ + "........" + Chr$(13)
1232.     arrTileText(32) = m$
1233.  
1234.     m$ = ""
1235.     m$ = m$ + "...22..." + Chr$(13)
1236.     m$ = m$ + "...22..." + Chr$(13)
1237.     m$ = m$ + "...22..." + Chr$(13)
1238.     m$ = m$ + "...22..." + Chr$(13)
1239.     m$ = m$ + "........" + Chr$(13)
1240.     m$ = m$ + "........" + Chr$(13)
1241.     m$ = m$ + "...22..." + Chr$(13)
1242.     m$ = m$ + "........" + Chr$(13)
1243.     arrTileText(33) = m$
1244.  
1245.     m$ = ""
1246.     m$ = m$ + ".22..22." + Chr$(13)
1247.     m$ = m$ + ".22..22." + Chr$(13)
1248.     m$ = m$ + ".22..22." + Chr$(13)
1249.     m$ = m$ + "........" + Chr$(13)
1250.     m$ = m$ + "........" + Chr$(13)
1251.     m$ = m$ + "........" + Chr$(13)
1252.     m$ = m$ + "........" + Chr$(13)
1253.     m$ = m$ + "........" + Chr$(13)
1254.     arrTileText(34) = m$
1255.  
1256.     m$ = ""
1257.     m$ = m$ + ".22..22." + Chr$(13)
1258.     m$ = m$ + ".22..22." + Chr$(13)
1259.     m$ = m$ + "22222222" + Chr$(13)
1260.     m$ = m$ + ".22..22." + Chr$(13)
1261.     m$ = m$ + "22222222" + Chr$(13)
1262.     m$ = m$ + ".22..22." + Chr$(13)
1263.     m$ = m$ + ".22..22." + Chr$(13)
1264.     m$ = m$ + "........" + Chr$(13)
1265.     arrTileText(35) = m$
1266.  
1267.     m$ = ""
1268.     m$ = m$ + "...22..." + Chr$(13)
1269.     m$ = m$ + "..22222." + Chr$(13)
1270.     m$ = m$ + ".22....." + Chr$(13)
1271.     m$ = m$ + "..2222.." + Chr$(13)
1272.     m$ = m$ + ".....22." + Chr$(13)
1273.     m$ = m$ + ".22222.." + Chr$(13)
1274.     m$ = m$ + "...22..." + Chr$(13)
1275.     m$ = m$ + "........" + Chr$(13)
1276.     arrTileText(36) = m$
1277.  
1278.     m$ = ""
1279.     m$ = m$ + ".22...2." + Chr$(13)
1280.     m$ = m$ + ".22..22." + Chr$(13)
1281.     m$ = m$ + "....22.." + Chr$(13)
1282.     m$ = m$ + "...22..." + Chr$(13)
1283.     m$ = m$ + "..22...." + Chr$(13)
1284.     m$ = m$ + ".22..22." + Chr$(13)
1285.     m$ = m$ + ".2...22." + Chr$(13)
1286.     m$ = m$ + "........" + Chr$(13)
1287.     arrTileText(37) = m$
1288.  
1289.     m$ = ""
1290.     m$ = m$ + "..2222.." + Chr$(13)
1291.     m$ = m$ + ".22..22." + Chr$(13)
1292.     m$ = m$ + "..2222.." + Chr$(13)
1293.     m$ = m$ + "..222..." + Chr$(13)
1294.     m$ = m$ + ".22..222" + Chr$(13)
1295.     m$ = m$ + ".22..22." + Chr$(13)
1296.     m$ = m$ + "..222222" + Chr$(13)
1297.     m$ = m$ + "........" + Chr$(13)
1298.     arrTileText(38) = m$
1299.  
1300.     m$ = ""
1301.     m$ = m$ + ".....22." + Chr$(13)
1302.     m$ = m$ + "....22.." + Chr$(13)
1303.     m$ = m$ + "...22..." + Chr$(13)
1304.     m$ = m$ + "........" + Chr$(13)
1305.     m$ = m$ + "........" + Chr$(13)
1306.     m$ = m$ + "........" + Chr$(13)
1307.     m$ = m$ + "........" + Chr$(13)
1308.     m$ = m$ + "........" + Chr$(13)
1309.     arrTileText(39) = m$
1310.  
1311.     m$ = ""
1312.     m$ = m$ + "....22.." + Chr$(13)
1313.     m$ = m$ + "...22..." + Chr$(13)
1314.     m$ = m$ + "..22...." + Chr$(13)
1315.     m$ = m$ + "..22...." + Chr$(13)
1316.     m$ = m$ + "..22...." + Chr$(13)
1317.     m$ = m$ + "...22..." + Chr$(13)
1318.     m$ = m$ + "....22.." + Chr$(13)
1319.     m$ = m$ + "........" + Chr$(13)
1320.     arrTileText(40) = m$
1321.  
1322.     m$ = ""
1323.     m$ = m$ + "..22...." + Chr$(13)
1324.     m$ = m$ + "...22..." + Chr$(13)
1325.     m$ = m$ + "....22.." + Chr$(13)
1326.     m$ = m$ + "....22.." + Chr$(13)
1327.     m$ = m$ + "....22.." + Chr$(13)
1328.     m$ = m$ + "...22..." + Chr$(13)
1329.     m$ = m$ + "..22...." + Chr$(13)
1330.     m$ = m$ + "........" + Chr$(13)
1331.     arrTileText(41) = m$
1332.  
1333.     m$ = ""
1334.     m$ = m$ + "........" + Chr$(13)
1335.     m$ = m$ + ".22..22." + Chr$(13)
1336.     m$ = m$ + "..2222.." + Chr$(13)
1337.     m$ = m$ + "22222222" + Chr$(13)
1338.     m$ = m$ + "..2222.." + Chr$(13)
1339.     m$ = m$ + ".22..22." + Chr$(13)
1340.     m$ = m$ + "........" + Chr$(13)
1341.     m$ = m$ + "........" + Chr$(13)
1342.     arrTileText(42) = m$
1343.  
1344.     m$ = ""
1345.     m$ = m$ + "........" + Chr$(13)
1346.     m$ = m$ + "...22..." + Chr$(13)
1347.     m$ = m$ + "...22..." + Chr$(13)
1348.     m$ = m$ + ".222222." + Chr$(13)
1349.     m$ = m$ + "...22..." + Chr$(13)
1350.     m$ = m$ + "...22..." + Chr$(13)
1351.     m$ = m$ + "........" + Chr$(13)
1352.     m$ = m$ + "........" + Chr$(13)
1353.     arrTileText(43) = m$
1354.  
1355.     m$ = ""
1356.     m$ = m$ + "........" + Chr$(13)
1357.     m$ = m$ + "........" + Chr$(13)
1358.     m$ = m$ + "........" + Chr$(13)
1359.     m$ = m$ + "........" + Chr$(13)
1360.     m$ = m$ + "........" + Chr$(13)
1361.     m$ = m$ + "...22..." + Chr$(13)
1362.     m$ = m$ + "...22..." + Chr$(13)
1363.     m$ = m$ + "..22...." + Chr$(13)
1364.     arrTileText(44) = m$
1365.  
1366.     m$ = ""
1367.     m$ = m$ + "........" + Chr$(13)
1368.     m$ = m$ + "........" + Chr$(13)
1369.     m$ = m$ + "........" + Chr$(13)
1370.     m$ = m$ + ".222222." + Chr$(13)
1371.     m$ = m$ + "........" + Chr$(13)
1372.     m$ = m$ + "........" + Chr$(13)
1373.     m$ = m$ + "........" + Chr$(13)
1374.     m$ = m$ + "........" + Chr$(13)
1375.     arrTileText(45) = m$
1376.  
1377.     m$ = ""
1378.     m$ = m$ + "........" + Chr$(13)
1379.     m$ = m$ + "........" + Chr$(13)
1380.     m$ = m$ + "........" + Chr$(13)
1381.     m$ = m$ + "........" + Chr$(13)
1382.     m$ = m$ + "........" + Chr$(13)
1383.     m$ = m$ + "...22..." + Chr$(13)
1384.     m$ = m$ + "...22..." + Chr$(13)
1385.     m$ = m$ + "........" + Chr$(13)
1386.     arrTileText(46) = m$
1387.  
1388.     m$ = ""
1389.     m$ = m$ + "........" + Chr$(13)
1390.     m$ = m$ + "......22" + Chr$(13)
1391.     m$ = m$ + ".....22." + Chr$(13)
1392.     m$ = m$ + "....22.." + Chr$(13)
1393.     m$ = m$ + "...22..." + Chr$(13)
1394.     m$ = m$ + "..22...." + Chr$(13)
1395.     m$ = m$ + ".22....." + Chr$(13)
1396.     m$ = m$ + "........" + Chr$(13)
1397.     arrTileText(47) = m$
1398.  
1399.     m$ = ""
1400.     m$ = m$ + "..2222.." + Chr$(13)
1401.     m$ = m$ + ".22..22." + Chr$(13)
1402.     m$ = m$ + ".22.222." + Chr$(13)
1403.     m$ = m$ + ".222.22." + Chr$(13)
1404.     m$ = m$ + ".22..22." + Chr$(13)
1405.     m$ = m$ + ".22..22." + Chr$(13)
1406.     m$ = m$ + "..2222.." + Chr$(13)
1407.     m$ = m$ + "........" + Chr$(13)
1408.     arrTileText(48) = m$
1409.  
1410.     m$ = ""
1411.     m$ = m$ + "...22..." + Chr$(13)
1412.     m$ = m$ + "...22..." + Chr$(13)
1413.     m$ = m$ + "..222..." + Chr$(13)
1414.     m$ = m$ + "...22..." + Chr$(13)
1415.     m$ = m$ + "...22..." + Chr$(13)
1416.     m$ = m$ + "...22..." + Chr$(13)
1417.     m$ = m$ + ".222222." + Chr$(13)
1418.     m$ = m$ + "........" + Chr$(13)
1419.     arrTileText(49) = m$
1420.  
1421.     m$ = ""
1422.     m$ = m$ + "..2222.." + Chr$(13)
1423.     m$ = m$ + ".22..22." + Chr$(13)
1424.     m$ = m$ + ".....22." + Chr$(13)
1425.     m$ = m$ + "....22.." + Chr$(13)
1426.     m$ = m$ + "..22...." + Chr$(13)
1427.     m$ = m$ + ".22....." + Chr$(13)
1428.     m$ = m$ + ".222222." + Chr$(13)
1429.     m$ = m$ + "........" + Chr$(13)
1430.     arrTileText(50) = m$
1431.  
1432.     m$ = ""
1433.     m$ = m$ + "..2222.." + Chr$(13)
1434.     m$ = m$ + ".22..22." + Chr$(13)
1435.     m$ = m$ + ".....22." + Chr$(13)
1436.     m$ = m$ + "...222.." + Chr$(13)
1437.     m$ = m$ + ".....22." + Chr$(13)
1438.     m$ = m$ + ".22..22." + Chr$(13)
1439.     m$ = m$ + "..2222.." + Chr$(13)
1440.     m$ = m$ + "........" + Chr$(13)
1441.     arrTileText(51) = m$
1442.  
1443.     m$ = ""
1444.     m$ = m$ + ".....22." + Chr$(13)
1445.     m$ = m$ + "....222." + Chr$(13)
1446.     m$ = m$ + "...2222." + Chr$(13)
1447.     m$ = m$ + ".22..22." + Chr$(13)
1448.     m$ = m$ + ".2222222" + Chr$(13)
1449.     m$ = m$ + ".....22." + Chr$(13)
1450.     m$ = m$ + ".....22." + Chr$(13)
1451.     m$ = m$ + "........" + Chr$(13)
1452.     arrTileText(52) = m$
1453.  
1454.     m$ = ""
1455.     m$ = m$ + ".222222." + Chr$(13)
1456.     m$ = m$ + ".22....." + Chr$(13)
1457.     m$ = m$ + ".22222.." + Chr$(13)
1458.     m$ = m$ + ".....22." + Chr$(13)
1459.     m$ = m$ + ".....22." + Chr$(13)
1460.     m$ = m$ + ".22..22." + Chr$(13)
1461.     m$ = m$ + "..2222.." + Chr$(13)
1462.     m$ = m$ + "........" + Chr$(13)
1463.     arrTileText(53) = m$
1464.  
1465.     m$ = ""
1466.     m$ = m$ + "..2222.." + Chr$(13)
1467.     m$ = m$ + ".22..22." + Chr$(13)
1468.     m$ = m$ + ".22....." + Chr$(13)
1469.     m$ = m$ + ".22222.." + Chr$(13)
1470.     m$ = m$ + ".22..22." + Chr$(13)
1471.     m$ = m$ + ".22..22." + Chr$(13)
1472.     m$ = m$ + "..2222.." + Chr$(13)
1473.     m$ = m$ + "........" + Chr$(13)
1474.     arrTileText(54) = m$
1475.  
1476.     m$ = ""
1477.     m$ = m$ + ".222222." + Chr$(13)
1478.     m$ = m$ + ".22..22." + Chr$(13)
1479.     m$ = m$ + "....22.." + Chr$(13)
1480.     m$ = m$ + "...22..." + Chr$(13)
1481.     m$ = m$ + "...22..." + Chr$(13)
1482.     m$ = m$ + "...22..." + Chr$(13)
1483.     m$ = m$ + "...22..." + Chr$(13)
1484.     m$ = m$ + "........" + Chr$(13)
1485.     arrTileText(55) = m$
1486.  
1487.     m$ = ""
1488.     m$ = m$ + "..2222.." + Chr$(13)
1489.     m$ = m$ + ".22..22." + Chr$(13)
1490.     m$ = m$ + ".22..22." + Chr$(13)
1491.     m$ = m$ + "..2222.." + Chr$(13)
1492.     m$ = m$ + ".22..22." + Chr$(13)
1493.     m$ = m$ + ".22..22." + Chr$(13)
1494.     m$ = m$ + "..2222.." + Chr$(13)
1495.     m$ = m$ + "........" + Chr$(13)
1496.     arrTileText(56) = m$
1497.  
1498.     m$ = ""
1499.     m$ = m$ + "..2222.." + Chr$(13)
1500.     m$ = m$ + ".22..22." + Chr$(13)
1501.     m$ = m$ + ".22..22." + Chr$(13)
1502.     m$ = m$ + "..22222." + Chr$(13)
1503.     m$ = m$ + ".....22." + Chr$(13)
1504.     m$ = m$ + ".22..22." + Chr$(13)
1505.     m$ = m$ + "..2222.." + Chr$(13)
1506.     m$ = m$ + "........" + Chr$(13)
1507.     arrTileText(57) = m$
1508.  
1509.     m$ = ""
1510.     m$ = m$ + "........" + Chr$(13)
1511.     m$ = m$ + "........" + Chr$(13)
1512.     m$ = m$ + "...22..." + Chr$(13)
1513.     m$ = m$ + "........" + Chr$(13)
1514.     m$ = m$ + "........" + Chr$(13)
1515.     m$ = m$ + "...22..." + Chr$(13)
1516.     m$ = m$ + "........" + Chr$(13)
1517.     m$ = m$ + "........" + Chr$(13)
1518.     arrTileText(58) = m$
1519.  
1520.     m$ = ""
1521.     m$ = m$ + "........" + Chr$(13)
1522.     m$ = m$ + "........" + Chr$(13)
1523.     m$ = m$ + "...22..." + Chr$(13)
1524.     m$ = m$ + "........" + Chr$(13)
1525.     m$ = m$ + "........" + Chr$(13)
1526.     m$ = m$ + "...22..." + Chr$(13)
1527.     m$ = m$ + "...22..." + Chr$(13)
1528.     m$ = m$ + "..22...." + Chr$(13)
1529.     arrTileText(59) = m$
1530.  
1531.     m$ = ""
1532.     m$ = m$ + "....222." + Chr$(13)
1533.     m$ = m$ + "...22..." + Chr$(13)
1534.     m$ = m$ + "..22...." + Chr$(13)
1535.     m$ = m$ + ".22....." + Chr$(13)
1536.     m$ = m$ + "..22...." + Chr$(13)
1537.     m$ = m$ + "...22..." + Chr$(13)
1538.     m$ = m$ + "....222." + Chr$(13)
1539.     m$ = m$ + "........" + Chr$(13)
1540.     arrTileText(60) = m$
1541.  
1542.     m$ = ""
1543.     m$ = m$ + "........" + Chr$(13)
1544.     m$ = m$ + "........" + Chr$(13)
1545.     m$ = m$ + ".222222." + Chr$(13)
1546.     m$ = m$ + "........" + Chr$(13)
1547.     m$ = m$ + ".222222." + Chr$(13)
1548.     m$ = m$ + "........" + Chr$(13)
1549.     m$ = m$ + "........" + Chr$(13)
1550.     m$ = m$ + "........" + Chr$(13)
1551.     arrTileText(61) = m$
1552.  
1553.     m$ = ""
1554.     m$ = m$ + ".222...." + Chr$(13)
1555.     m$ = m$ + "...22..." + Chr$(13)
1556.     m$ = m$ + "....22.." + Chr$(13)
1557.     m$ = m$ + ".....22." + Chr$(13)
1558.     m$ = m$ + "....22.." + Chr$(13)
1559.     m$ = m$ + "...22..." + Chr$(13)
1560.     m$ = m$ + ".222...." + Chr$(13)
1561.     m$ = m$ + "........" + Chr$(13)
1562.     arrTileText(62) = m$
1563.  
1564.     m$ = ""
1565.     m$ = m$ + "..2222.." + Chr$(13)
1566.     m$ = m$ + ".22..22." + Chr$(13)
1567.     m$ = m$ + ".....22." + Chr$(13)
1568.     m$ = m$ + "....22.." + Chr$(13)
1569.     m$ = m$ + "...22..." + Chr$(13)
1570.     m$ = m$ + "........" + Chr$(13)
1571.     m$ = m$ + "...22..." + Chr$(13)
1572.     m$ = m$ + "........" + Chr$(13)
1573.     arrTileText(63) = m$
1574.  
1575.     m$ = ""
1576.     m$ = m$ + "..2222.." + Chr$(13)
1577.     m$ = m$ + ".22..22." + Chr$(13)
1578.     m$ = m$ + ".22.222." + Chr$(13)
1579.     m$ = m$ + ".22.222." + Chr$(13)
1580.     m$ = m$ + ".22....." + Chr$(13)
1581.     m$ = m$ + ".22...2." + Chr$(13)
1582.     m$ = m$ + "..2222.." + Chr$(13)
1583.     m$ = m$ + "........" + Chr$(13)
1584.     arrTileText(64) = m$
1585.  
1586.     m$ = ""
1587.     m$ = m$ + "...22..." + Chr$(13)
1588.     m$ = m$ + "..2222.." + Chr$(13)
1589.     m$ = m$ + ".22..22." + Chr$(13)
1590.     m$ = m$ + ".222222." + Chr$(13)
1591.     m$ = m$ + ".22..22." + Chr$(13)
1592.     m$ = m$ + ".22..22." + Chr$(13)
1593.     m$ = m$ + ".22..22." + Chr$(13)
1594.     m$ = m$ + "........" + Chr$(13)
1595.     arrTileText(65) = m$
1596.  
1597.     m$ = ""
1598.     m$ = m$ + ".22222.." + Chr$(13)
1599.     m$ = m$ + ".22..22." + Chr$(13)
1600.     m$ = m$ + ".22..22." + Chr$(13)
1601.     m$ = m$ + ".22222.." + Chr$(13)
1602.     m$ = m$ + ".22..22." + Chr$(13)
1603.     m$ = m$ + ".22..22." + Chr$(13)
1604.     m$ = m$ + ".22222.." + Chr$(13)
1605.     m$ = m$ + "........" + Chr$(13)
1606.     arrTileText(66) = m$
1607.  
1608.     m$ = ""
1609.     m$ = m$ + "..2222.." + Chr$(13)
1610.     m$ = m$ + ".22..22." + Chr$(13)
1611.     m$ = m$ + ".22....." + Chr$(13)
1612.     m$ = m$ + ".22....." + Chr$(13)
1613.     m$ = m$ + ".22....." + Chr$(13)
1614.     m$ = m$ + ".22..22." + Chr$(13)
1615.     m$ = m$ + "..2222.." + Chr$(13)
1616.     m$ = m$ + "........" + Chr$(13)
1617.     arrTileText(67) = m$
1618.  
1619.     m$ = ""
1620.     m$ = m$ + ".2222..." + Chr$(13)
1621.     m$ = m$ + ".22.22.." + Chr$(13)
1622.     m$ = m$ + ".22..22." + Chr$(13)
1623.     m$ = m$ + ".22..22." + Chr$(13)
1624.     m$ = m$ + ".22..22." + Chr$(13)
1625.     m$ = m$ + ".22.22.." + Chr$(13)
1626.     m$ = m$ + ".2222..." + Chr$(13)
1627.     m$ = m$ + "........" + Chr$(13)
1628.     arrTileText(68) = m$
1629.  
1630.     m$ = ""
1631.     m$ = m$ + ".222222." + Chr$(13)
1632.     m$ = m$ + ".22....." + Chr$(13)
1633.     m$ = m$ + ".22....." + Chr$(13)
1634.     m$ = m$ + ".2222..." + Chr$(13)
1635.     m$ = m$ + ".22....." + Chr$(13)
1636.     m$ = m$ + ".22....." + Chr$(13)
1637.     m$ = m$ + ".222222." + Chr$(13)
1638.     m$ = m$ + "........" + Chr$(13)
1639.     arrTileText(69) = m$
1640.  
1641.     m$ = ""
1642.     m$ = m$ + ".222222." + Chr$(13)
1643.     m$ = m$ + ".22....." + Chr$(13)
1644.     m$ = m$ + ".22....." + Chr$(13)
1645.     m$ = m$ + ".2222..." + Chr$(13)
1646.     m$ = m$ + ".22....." + Chr$(13)
1647.     m$ = m$ + ".22....." + Chr$(13)
1648.     m$ = m$ + ".22....." + Chr$(13)
1649.     m$ = m$ + "........" + Chr$(13)
1650.     arrTileText(70) = m$
1651.  
1652.     m$ = ""
1653.     m$ = m$ + "..2222.." + Chr$(13)
1654.     m$ = m$ + ".22..22." + Chr$(13)
1655.     m$ = m$ + ".22....." + Chr$(13)
1656.     m$ = m$ + ".22.222." + Chr$(13)
1657.     m$ = m$ + ".22..22." + Chr$(13)
1658.     m$ = m$ + ".22..22." + Chr$(13)
1659.     m$ = m$ + "..2222.." + Chr$(13)
1660.     m$ = m$ + "........" + Chr$(13)
1661.     arrTileText(71) = m$
1662.  
1663.     m$ = ""
1664.     m$ = m$ + ".22..22." + Chr$(13)
1665.     m$ = m$ + ".22..22." + Chr$(13)
1666.     m$ = m$ + ".22..22." + Chr$(13)
1667.     m$ = m$ + ".222222." + Chr$(13)
1668.     m$ = m$ + ".22..22." + Chr$(13)
1669.     m$ = m$ + ".22..22." + Chr$(13)
1670.     m$ = m$ + ".22..22." + Chr$(13)
1671.     m$ = m$ + "........" + Chr$(13)
1672.     arrTileText(72) = m$
1673.  
1674.     m$ = ""
1675.     m$ = m$ + "..2222.." + Chr$(13)
1676.     m$ = m$ + "...22..." + Chr$(13)
1677.     m$ = m$ + "...22..." + Chr$(13)
1678.     m$ = m$ + "...22..." + Chr$(13)
1679.     m$ = m$ + "...22..." + Chr$(13)
1680.     m$ = m$ + "...22..." + Chr$(13)
1681.     m$ = m$ + "..2222.." + Chr$(13)
1682.     m$ = m$ + "........" + Chr$(13)
1683.     arrTileText(73) = m$
1684.  
1685.     m$ = ""
1686.     m$ = m$ + "...2222." + Chr$(13)
1687.     m$ = m$ + "....22.." + Chr$(13)
1688.     m$ = m$ + "....22.." + Chr$(13)
1689.     m$ = m$ + "....22.." + Chr$(13)
1690.     m$ = m$ + "....22.." + Chr$(13)
1691.     m$ = m$ + ".22.22.." + Chr$(13)
1692.     m$ = m$ + "..222..." + Chr$(13)
1693.     m$ = m$ + "........" + Chr$(13)
1694.     arrTileText(74) = m$
1695.  
1696.     m$ = ""
1697.     m$ = m$ + ".22..22." + Chr$(13)
1698.     m$ = m$ + ".22.22.." + Chr$(13)
1699.     m$ = m$ + ".2222..." + Chr$(13)
1700.     m$ = m$ + ".222...." + Chr$(13)
1701.     m$ = m$ + ".2222..." + Chr$(13)
1702.     m$ = m$ + ".22.22.." + Chr$(13)
1703.     m$ = m$ + ".22..22." + Chr$(13)
1704.     m$ = m$ + "........" + Chr$(13)
1705.     arrTileText(75) = m$
1706.  
1707.     m$ = ""
1708.     m$ = m$ + ".22....." + Chr$(13)
1709.     m$ = m$ + ".22....." + Chr$(13)
1710.     m$ = m$ + ".22....." + Chr$(13)
1711.     m$ = m$ + ".22....." + Chr$(13)
1712.     m$ = m$ + ".22....." + Chr$(13)
1713.     m$ = m$ + ".22....." + Chr$(13)
1714.     m$ = m$ + ".222222." + Chr$(13)
1715.     m$ = m$ + "........" + Chr$(13)
1716.     arrTileText(76) = m$
1717.  
1718.     m$ = ""
1719.     m$ = m$ + ".22...22" + Chr$(13)
1720.     m$ = m$ + ".222.222" + Chr$(13)
1721.     m$ = m$ + ".2222222" + Chr$(13)
1722.     m$ = m$ + ".22.2.22" + Chr$(13)
1723.     m$ = m$ + ".22...22" + Chr$(13)
1724.     m$ = m$ + ".22...22" + Chr$(13)
1725.     m$ = m$ + ".22...22" + Chr$(13)
1726.     m$ = m$ + "........" + Chr$(13)
1727.     arrTileText(77) = m$
1728.  
1729.     m$ = ""
1730.     m$ = m$ + ".22..22." + Chr$(13)
1731.     m$ = m$ + ".222.22." + Chr$(13)
1732.     m$ = m$ + ".222222." + Chr$(13)
1733.     m$ = m$ + ".222222." + Chr$(13)
1734.     m$ = m$ + ".22.222." + Chr$(13)
1735.     m$ = m$ + ".22..22." + Chr$(13)
1736.     m$ = m$ + ".22..22." + Chr$(13)
1737.     m$ = m$ + "........" + Chr$(13)
1738.     arrTileText(78) = m$
1739.  
1740.     m$ = ""
1741.     m$ = m$ + "..2222.." + Chr$(13)
1742.     m$ = m$ + ".22..22." + Chr$(13)
1743.     m$ = m$ + ".22..22." + Chr$(13)
1744.     m$ = m$ + ".22..22." + Chr$(13)
1745.     m$ = m$ + ".22..22." + Chr$(13)
1746.     m$ = m$ + ".22..22." + Chr$(13)
1747.     m$ = m$ + "..2222.." + Chr$(13)
1748.     m$ = m$ + "........" + Chr$(13)
1749.     arrTileText(79) = m$
1750.  
1751.     m$ = ""
1752.     m$ = m$ + ".22222.." + Chr$(13)
1753.     m$ = m$ + ".22..22." + Chr$(13)
1754.     m$ = m$ + ".22..22." + Chr$(13)
1755.     m$ = m$ + ".22222.." + Chr$(13)
1756.     m$ = m$ + ".22....." + Chr$(13)
1757.     m$ = m$ + ".22....." + Chr$(13)
1758.     m$ = m$ + ".22....." + Chr$(13)
1759.     m$ = m$ + "........" + Chr$(13)
1760.     arrTileText(80) = m$
1761.  
1762.     m$ = ""
1763.     m$ = m$ + "..2222.." + Chr$(13)
1764.     m$ = m$ + ".22..22." + Chr$(13)
1765.     m$ = m$ + ".22..22." + Chr$(13)
1766.     m$ = m$ + ".22..22." + Chr$(13)
1767.     m$ = m$ + ".22..22." + Chr$(13)
1768.     m$ = m$ + "..2222.." + Chr$(13)
1769.     m$ = m$ + "....222." + Chr$(13)
1770.     m$ = m$ + "........" + Chr$(13)
1771.     arrTileText(81) = m$
1772.  
1773.     m$ = ""
1774.     m$ = m$ + ".22222.." + Chr$(13)
1775.     m$ = m$ + ".22..22." + Chr$(13)
1776.     m$ = m$ + ".22..22." + Chr$(13)
1777.     m$ = m$ + ".22222.." + Chr$(13)
1778.     m$ = m$ + ".2222..." + Chr$(13)
1779.     m$ = m$ + ".22.22.." + Chr$(13)
1780.     m$ = m$ + ".22..22." + Chr$(13)
1781.     m$ = m$ + "........" + Chr$(13)
1782.     arrTileText(82) = m$
1783.  
1784.     m$ = ""
1785.     m$ = m$ + "..2222.." + Chr$(13)
1786.     m$ = m$ + ".22..22." + Chr$(13)
1787.     m$ = m$ + ".22....." + Chr$(13)
1788.     m$ = m$ + "..2222.." + Chr$(13)
1789.     m$ = m$ + ".....22." + Chr$(13)
1790.     m$ = m$ + ".22..22." + Chr$(13)
1791.     m$ = m$ + "..2222.." + Chr$(13)
1792.     m$ = m$ + "........" + Chr$(13)
1793.     arrTileText(83) = m$
1794.  
1795.     m$ = ""
1796.     m$ = m$ + ".222222." + Chr$(13)
1797.     m$ = m$ + "...22..." + Chr$(13)
1798.     m$ = m$ + "...22..." + Chr$(13)
1799.     m$ = m$ + "...22..." + Chr$(13)
1800.     m$ = m$ + "...22..." + Chr$(13)
1801.     m$ = m$ + "...22..." + Chr$(13)
1802.     m$ = m$ + "...22..." + Chr$(13)
1803.     m$ = m$ + "........" + Chr$(13)
1804.     arrTileText(84) = m$
1805.  
1806.     m$ = ""
1807.     m$ = m$ + ".22..22." + Chr$(13)
1808.     m$ = m$ + ".22..22." + Chr$(13)
1809.     m$ = m$ + ".22..22." + Chr$(13)
1810.     m$ = m$ + ".22..22." + Chr$(13)
1811.     m$ = m$ + ".22..22." + Chr$(13)
1812.     m$ = m$ + ".22..22." + Chr$(13)
1813.     m$ = m$ + "..2222.." + Chr$(13)
1814.     m$ = m$ + "........" + Chr$(13)
1815.     arrTileText(85) = m$
1816.  
1817.     m$ = ""
1818.     m$ = m$ + ".22..22." + Chr$(13)
1819.     m$ = m$ + ".22..22." + Chr$(13)
1820.     m$ = m$ + ".22..22." + Chr$(13)
1821.     m$ = m$ + ".22..22." + Chr$(13)
1822.     m$ = m$ + ".22..22." + Chr$(13)
1823.     m$ = m$ + "..2222.." + Chr$(13)
1824.     m$ = m$ + "...22..." + Chr$(13)
1825.     m$ = m$ + "........" + Chr$(13)
1826.     arrTileText(86) = m$
1827.  
1828.     m$ = ""
1829.     m$ = m$ + ".22...22" + Chr$(13)
1830.     m$ = m$ + ".22...22" + Chr$(13)
1831.     m$ = m$ + ".22...22" + Chr$(13)
1832.     m$ = m$ + ".22.2.22" + Chr$(13)
1833.     m$ = m$ + ".2222222" + Chr$(13)
1834.     m$ = m$ + ".222.222" + Chr$(13)
1835.     m$ = m$ + ".22...22" + Chr$(13)
1836.     m$ = m$ + "........" + Chr$(13)
1837.     arrTileText(87) = m$
1838.  
1839.     m$ = ""
1840.     m$ = m$ + ".22..22." + Chr$(13)
1841.     m$ = m$ + ".22..22." + Chr$(13)
1842.     m$ = m$ + "..2222.." + Chr$(13)
1843.     m$ = m$ + "...22..." + Chr$(13)
1844.     m$ = m$ + "..2222.." + Chr$(13)
1845.     m$ = m$ + ".22..22." + Chr$(13)
1846.     m$ = m$ + ".22..22." + Chr$(13)
1847.     m$ = m$ + "........" + Chr$(13)
1848.     arrTileText(88) = m$
1849.  
1850.     m$ = ""
1851.     m$ = m$ + ".22..22." + Chr$(13)
1852.     m$ = m$ + ".22..22." + Chr$(13)
1853.     m$ = m$ + ".22..22." + Chr$(13)
1854.     m$ = m$ + "..2222.." + Chr$(13)
1855.     m$ = m$ + "...22..." + Chr$(13)
1856.     m$ = m$ + "...22..." + Chr$(13)
1857.     m$ = m$ + "...22..." + Chr$(13)
1858.     m$ = m$ + "........" + Chr$(13)
1859.     arrTileText(89) = m$
1860.  
1861.     m$ = ""
1862.     m$ = m$ + ".222222." + Chr$(13)
1863.     m$ = m$ + ".....22." + Chr$(13)
1864.     m$ = m$ + "....22.." + Chr$(13)
1865.     m$ = m$ + "...22..." + Chr$(13)
1866.     m$ = m$ + "..22...." + Chr$(13)
1867.     m$ = m$ + ".22....." + Chr$(13)
1868.     m$ = m$ + ".222222." + Chr$(13)
1869.     m$ = m$ + "........" + Chr$(13)
1870.     arrTileText(90) = m$
1871.  
1872.     m$ = ""
1873.     m$ = m$ + "..2222.." + Chr$(13)
1874.     m$ = m$ + "..22...." + Chr$(13)
1875.     m$ = m$ + "..22...." + Chr$(13)
1876.     m$ = m$ + "..22...." + Chr$(13)
1877.     m$ = m$ + "..22...." + Chr$(13)
1878.     m$ = m$ + "..22...." + Chr$(13)
1879.     m$ = m$ + "..2222.." + Chr$(13)
1880.     m$ = m$ + "........" + Chr$(13)
1881.     arrTileText(91) = m$
1882.  
1883.     m$ = ""
1884.     m$ = m$ + "........" + Chr$(13)
1885.     m$ = m$ + ".22....." + Chr$(13)
1886.     m$ = m$ + "..22...." + Chr$(13)
1887.     m$ = m$ + "...22..." + Chr$(13)
1888.     m$ = m$ + "....22.." + Chr$(13)
1889.     m$ = m$ + ".....22." + Chr$(13)
1890.     m$ = m$ + "......22" + Chr$(13)
1891.     m$ = m$ + "........" + Chr$(13)
1892.     arrTileText(92) = m$
1893.  
1894.     m$ = ""
1895.     m$ = m$ + "..2222.." + Chr$(13)
1896.     m$ = m$ + "....22.." + Chr$(13)
1897.     m$ = m$ + "....22.." + Chr$(13)
1898.     m$ = m$ + "....22.." + Chr$(13)
1899.     m$ = m$ + "....22.." + Chr$(13)
1900.     m$ = m$ + "....22.." + Chr$(13)
1901.     m$ = m$ + "..2222.." + Chr$(13)
1902.     m$ = m$ + "........" + Chr$(13)
1903.     arrTileText(93) = m$
1904.  
1905.     m$ = ""
1906.     m$ = m$ + "...22..." + Chr$(13)
1907.     m$ = m$ + "..2222.." + Chr$(13)
1908.     m$ = m$ + ".22..22." + Chr$(13)
1909.     m$ = m$ + "........" + Chr$(13)
1910.     m$ = m$ + "........" + Chr$(13)
1911.     m$ = m$ + "........" + Chr$(13)
1912.     m$ = m$ + "........" + Chr$(13)
1913.     m$ = m$ + "........" + Chr$(13)
1914.     arrTileText(94) = m$
1915.  
1916.     m$ = ""
1917.     m$ = m$ + "........" + Chr$(13)
1918.     m$ = m$ + "........" + Chr$(13)
1919.     m$ = m$ + "........" + Chr$(13)
1920.     m$ = m$ + "........" + Chr$(13)
1921.     m$ = m$ + "........" + Chr$(13)
1922.     m$ = m$ + ".222222." + Chr$(13)
1923.     m$ = m$ + "........" + Chr$(13)
1924.     m$ = m$ + "........" + Chr$(13)
1925.     arrTileText(95) = m$
1926.  
1927.     m$ = ""
1928.     m$ = m$ + "........" + Chr$(13)
1929.     m$ = m$ + "........" + Chr$(13)
1930.     m$ = m$ + "........" + Chr$(13)
1931.     m$ = m$ + "........" + Chr$(13)
1932.     m$ = m$ + "........" + Chr$(13)
1933.     m$ = m$ + "........" + Chr$(13)
1934.     m$ = m$ + "........" + Chr$(13)
1935.     m$ = m$ + "........" + Chr$(13)
1936.     arrTileText(96) = m$
1937.  
1938.     m$ = ""
1939.     m$ = m$ + "........" + Chr$(13)
1940.     m$ = m$ + "..2222.." + Chr$(13)
1941.     m$ = m$ + ".....22." + Chr$(13)
1942.     m$ = m$ + "..22222." + Chr$(13)
1943.     m$ = m$ + ".22..22." + Chr$(13)
1944.     m$ = m$ + "..22222." + Chr$(13)
1945.     m$ = m$ + "........" + Chr$(13)
1946.     m$ = m$ + "........" + Chr$(13)
1947.     arrTileText(97) = m$
1948.  
1949.     m$ = ""
1950.     m$ = m$ + ".22....." + Chr$(13)
1951.     m$ = m$ + ".22....." + Chr$(13)
1952.     m$ = m$ + ".22222.." + Chr$(13)
1953.     m$ = m$ + ".22..22." + Chr$(13)
1954.     m$ = m$ + ".22..22." + Chr$(13)
1955.     m$ = m$ + ".22222.." + Chr$(13)
1956.     m$ = m$ + "........" + Chr$(13)
1957.     m$ = m$ + "........" + Chr$(13)
1958.     arrTileText(98) = m$
1959.  
1960.     m$ = ""
1961.     m$ = m$ + "........" + Chr$(13)
1962.     m$ = m$ + "..2222.." + Chr$(13)
1963.     m$ = m$ + ".22....." + Chr$(13)
1964.     m$ = m$ + ".22....." + Chr$(13)
1965.     m$ = m$ + ".22....." + Chr$(13)
1966.     m$ = m$ + "..2222.." + Chr$(13)
1967.     m$ = m$ + "........" + Chr$(13)
1968.     m$ = m$ + "........" + Chr$(13)
1969.     arrTileText(99) = m$
1970.  
1971.     m$ = ""
1972.     m$ = m$ + ".....22." + Chr$(13)
1973.     m$ = m$ + ".....22." + Chr$(13)
1974.     m$ = m$ + "..22222." + Chr$(13)
1975.     m$ = m$ + ".22..22." + Chr$(13)
1976.     m$ = m$ + ".22..22." + Chr$(13)
1977.     m$ = m$ + "..22222." + Chr$(13)
1978.     m$ = m$ + "........" + Chr$(13)
1979.     m$ = m$ + "........" + Chr$(13)
1980.     arrTileText(100) = m$
1981.  
1982.     m$ = ""
1983.     m$ = m$ + "........" + Chr$(13)
1984.     m$ = m$ + "..2222.." + Chr$(13)
1985.     m$ = m$ + ".22..22." + Chr$(13)
1986.     m$ = m$ + ".222222." + Chr$(13)
1987.     m$ = m$ + ".22....." + Chr$(13)
1988.     m$ = m$ + "..2222.." + Chr$(13)
1989.     m$ = m$ + "........" + Chr$(13)
1990.     m$ = m$ + "........" + Chr$(13)
1991.     arrTileText(101) = m$
1992.  
1993.     m$ = ""
1994.     m$ = m$ + "....222." + Chr$(13)
1995.     m$ = m$ + "...22..." + Chr$(13)
1996.     m$ = m$ + "..22222." + Chr$(13)
1997.     m$ = m$ + "...22..." + Chr$(13)
1998.     m$ = m$ + "...22..." + Chr$(13)
1999.     m$ = m$ + "...22..." + Chr$(13)
2000.     m$ = m$ + "........" + Chr$(13)
2001.     m$ = m$ + "........" + Chr$(13)
2002.     arrTileText(102) = m$
2003.  
2004.     m$ = ""
2005.     m$ = m$ + "........" + Chr$(13)
2006.     m$ = m$ + "..22222." + Chr$(13)
2007.     m$ = m$ + ".22..22." + Chr$(13)
2008.     m$ = m$ + ".22..22." + Chr$(13)
2009.     m$ = m$ + "..22222." + Chr$(13)
2010.     m$ = m$ + ".....22." + Chr$(13)
2011.     m$ = m$ + ".22222.." + Chr$(13)
2012.     m$ = m$ + "........" + Chr$(13)
2013.     arrTileText(103) = m$
2014.  
2015.     m$ = ""
2016.     m$ = m$ + ".22....." + Chr$(13)
2017.     m$ = m$ + ".22....." + Chr$(13)
2018.     m$ = m$ + ".22222.." + Chr$(13)
2019.     m$ = m$ + ".22..22." + Chr$(13)
2020.     m$ = m$ + ".22..22." + Chr$(13)
2021.     m$ = m$ + ".22..22." + Chr$(13)
2022.     m$ = m$ + "........" + Chr$(13)
2023.     m$ = m$ + "........" + Chr$(13)
2024.     arrTileText(104) = m$
2025.  
2026.     m$ = ""
2027.     m$ = m$ + "...22..." + Chr$(13)
2028.     m$ = m$ + "........" + Chr$(13)
2029.     m$ = m$ + "..222..." + Chr$(13)
2030.     m$ = m$ + "...22..." + Chr$(13)
2031.     m$ = m$ + "...22..." + Chr$(13)
2032.     m$ = m$ + "..2222.." + Chr$(13)
2033.     m$ = m$ + "........" + Chr$(13)
2034.     m$ = m$ + "........" + Chr$(13)
2035.     arrTileText(105) = m$
2036.  
2037.     m$ = ""
2038.     m$ = m$ + ".....22." + Chr$(13)
2039.     m$ = m$ + "........" + Chr$(13)
2040.     m$ = m$ + ".....22." + Chr$(13)
2041.     m$ = m$ + ".....22." + Chr$(13)
2042.     m$ = m$ + ".....22." + Chr$(13)
2043.     m$ = m$ + ".....22." + Chr$(13)
2044.     m$ = m$ + "..2222.." + Chr$(13)
2045.     m$ = m$ + "........" + Chr$(13)
2046.     arrTileText(106) = m$
2047.  
2048.     m$ = ""
2049.     m$ = m$ + ".22....." + Chr$(13)
2050.     m$ = m$ + ".22....." + Chr$(13)
2051.     m$ = m$ + ".22.22.." + Chr$(13)
2052.     m$ = m$ + ".2222..." + Chr$(13)
2053.     m$ = m$ + ".22.22.." + Chr$(13)
2054.     m$ = m$ + ".22..22." + Chr$(13)
2055.     m$ = m$ + "........" + Chr$(13)
2056.     m$ = m$ + "........" + Chr$(13)
2057.     arrTileText(107) = m$
2058.  
2059.     m$ = ""
2060.     m$ = m$ + "..222..." + Chr$(13)
2061.     m$ = m$ + "...22..." + Chr$(13)
2062.     m$ = m$ + "...22..." + Chr$(13)
2063.     m$ = m$ + "...22..." + Chr$(13)
2064.     m$ = m$ + "...22..." + Chr$(13)
2065.     m$ = m$ + "..2222.." + Chr$(13)
2066.     m$ = m$ + "........" + Chr$(13)
2067.     m$ = m$ + "........" + Chr$(13)
2068.     arrTileText(108) = m$
2069.  
2070.     m$ = ""
2071.     m$ = m$ + "........" + Chr$(13)
2072.     m$ = m$ + ".22..22." + Chr$(13)
2073.     m$ = m$ + ".2222222" + Chr$(13)
2074.     m$ = m$ + ".2222222" + Chr$(13)
2075.     m$ = m$ + ".22.2.22" + Chr$(13)
2076.     m$ = m$ + ".22...22" + Chr$(13)
2077.     m$ = m$ + "........" + Chr$(13)
2078.     m$ = m$ + "........" + Chr$(13)
2079.     arrTileText(109) = m$
2080.  
2081.     m$ = ""
2082.     m$ = m$ + "........" + Chr$(13)
2083.     m$ = m$ + ".22222.." + Chr$(13)
2084.     m$ = m$ + ".22..22." + Chr$(13)
2085.     m$ = m$ + ".22..22." + Chr$(13)
2086.     m$ = m$ + ".22..22." + Chr$(13)
2087.     m$ = m$ + ".22..22." + Chr$(13)
2088.     m$ = m$ + "........" + Chr$(13)
2089.     m$ = m$ + "........" + Chr$(13)
2090.     arrTileText(110) = m$
2091.  
2092.     m$ = ""
2093.     m$ = m$ + "........" + Chr$(13)
2094.     m$ = m$ + "..2222.." + Chr$(13)
2095.     m$ = m$ + ".22..22." + Chr$(13)
2096.     m$ = m$ + ".22..22." + Chr$(13)
2097.     m$ = m$ + ".22..22." + Chr$(13)
2098.     m$ = m$ + "..2222.." + Chr$(13)
2099.     m$ = m$ + "........" + Chr$(13)
2100.     m$ = m$ + "........" + Chr$(13)
2101.     arrTileText(111) = m$
2102.  
2103.     m$ = ""
2104.     m$ = m$ + "........" + Chr$(13)
2105.     m$ = m$ + ".22222.." + Chr$(13)
2106.     m$ = m$ + ".22..22." + Chr$(13)
2107.     m$ = m$ + ".22..22." + Chr$(13)
2108.     m$ = m$ + ".22222.." + Chr$(13)
2109.     m$ = m$ + ".22....." + Chr$(13)
2110.     m$ = m$ + ".22....." + Chr$(13)
2111.     m$ = m$ + "........" + Chr$(13)
2112.     arrTileText(112) = m$
2113.  
2114.     m$ = ""
2115.     m$ = m$ + "........" + Chr$(13)
2116.     m$ = m$ + "..22222." + Chr$(13)
2117.     m$ = m$ + ".22..22." + Chr$(13)
2118.     m$ = m$ + ".22..22." + Chr$(13)
2119.     m$ = m$ + "..22222." + Chr$(13)
2120.     m$ = m$ + ".....22." + Chr$(13)
2121.     m$ = m$ + ".....22." + Chr$(13)
2122.     m$ = m$ + "........" + Chr$(13)
2123.     arrTileText(113) = m$
2124.  
2125.     m$ = ""
2126.     m$ = m$ + "........" + Chr$(13)
2127.     m$ = m$ + ".22222.." + Chr$(13)
2128.     m$ = m$ + ".22..22." + Chr$(13)
2129.     m$ = m$ + ".22....." + Chr$(13)
2130.     m$ = m$ + ".22....." + Chr$(13)
2131.     m$ = m$ + ".22....." + Chr$(13)
2132.     m$ = m$ + "........" + Chr$(13)
2133.     m$ = m$ + "........" + Chr$(13)
2134.     arrTileText(114) = m$
2135.  
2136.     m$ = ""
2137.     m$ = m$ + "........" + Chr$(13)
2138.     m$ = m$ + "..22222." + Chr$(13)
2139.     m$ = m$ + ".22....." + Chr$(13)
2140.     m$ = m$ + "..2222.." + Chr$(13)
2141.     m$ = m$ + ".....22." + Chr$(13)
2142.     m$ = m$ + ".22222.." + Chr$(13)
2143.     m$ = m$ + "........" + Chr$(13)
2144.     m$ = m$ + "........" + Chr$(13)
2145.     arrTileText(115) = m$
2146.  
2147.     m$ = ""
2148.     m$ = m$ + "...22..." + Chr$(13)
2149.     m$ = m$ + ".222222." + Chr$(13)
2150.     m$ = m$ + "...22..." + Chr$(13)
2151.     m$ = m$ + "...22..." + Chr$(13)
2152.     m$ = m$ + "...22..." + Chr$(13)
2153.     m$ = m$ + "....222." + Chr$(13)
2154.     m$ = m$ + "........" + Chr$(13)
2155.     m$ = m$ + "........" + Chr$(13)
2156.     arrTileText(116) = m$
2157.  
2158.     m$ = ""
2159.     m$ = m$ + "........" + Chr$(13)
2160.     m$ = m$ + ".22..22." + Chr$(13)
2161.     m$ = m$ + ".22..22." + Chr$(13)
2162.     m$ = m$ + ".22..22." + Chr$(13)
2163.     m$ = m$ + ".22..22." + Chr$(13)
2164.     m$ = m$ + "..22222." + Chr$(13)
2165.     m$ = m$ + "........" + Chr$(13)
2166.     m$ = m$ + "........" + Chr$(13)
2167.     arrTileText(117) = m$
2168.  
2169.     m$ = ""
2170.     m$ = m$ + "........" + Chr$(13)
2171.     m$ = m$ + ".22..22." + Chr$(13)
2172.     m$ = m$ + ".22..22." + Chr$(13)
2173.     m$ = m$ + ".22..22." + Chr$(13)
2174.     m$ = m$ + "..2222.." + Chr$(13)
2175.     m$ = m$ + "...22..." + Chr$(13)
2176.     m$ = m$ + "........" + Chr$(13)
2177.     m$ = m$ + "........" + Chr$(13)
2178.     arrTileText(118) = m$
2179.  
2180.     m$ = ""
2181.     m$ = m$ + "........" + Chr$(13)
2182.     m$ = m$ + ".22...22" + Chr$(13)
2183.     m$ = m$ + ".22.2.22" + Chr$(13)
2184.     m$ = m$ + ".2222222" + Chr$(13)
2185.     m$ = m$ + "..22222." + Chr$(13)
2186.     m$ = m$ + "..22.22." + Chr$(13)
2187.     m$ = m$ + "........" + Chr$(13)
2188.     m$ = m$ + "........" + Chr$(13)
2189.     arrTileText(119) = m$
2190.  
2191.     m$ = ""
2192.     m$ = m$ + "........" + Chr$(13)
2193.     m$ = m$ + ".22..22." + Chr$(13)
2194.     m$ = m$ + "..2222.." + Chr$(13)
2195.     m$ = m$ + "...22..." + Chr$(13)
2196.     m$ = m$ + "..2222.." + Chr$(13)
2197.     m$ = m$ + ".22..22." + Chr$(13)
2198.     m$ = m$ + "........" + Chr$(13)
2199.     m$ = m$ + "........" + Chr$(13)
2200.     arrTileText(120) = m$
2201.  
2202.     m$ = ""
2203.     m$ = m$ + "........" + Chr$(13)
2204.     m$ = m$ + ".22..22." + Chr$(13)
2205.     m$ = m$ + ".22..22." + Chr$(13)
2206.     m$ = m$ + ".22..22." + Chr$(13)
2207.     m$ = m$ + "..22222." + Chr$(13)
2208.     m$ = m$ + "....22.." + Chr$(13)
2209.     m$ = m$ + ".2222..." + Chr$(13)
2210.     m$ = m$ + "........" + Chr$(13)
2211.     arrTileText(121) = m$
2212.  
2213.     m$ = ""
2214.     m$ = m$ + "........" + Chr$(13)
2215.     m$ = m$ + ".222222." + Chr$(13)
2216.     m$ = m$ + "....22.." + Chr$(13)
2217.     m$ = m$ + "...22..." + Chr$(13)
2218.     m$ = m$ + "..22...." + Chr$(13)
2219.     m$ = m$ + ".222222." + Chr$(13)
2220.     m$ = m$ + "........" + Chr$(13)
2221.     m$ = m$ + "........" + Chr$(13)
2222.     arrTileText(122) = m$
2223.  
2224.     m$ = ""
2225.     m$ = m$ + "...222.." + Chr$(13)
2226.     m$ = m$ + "..22...." + Chr$(13)
2227.     m$ = m$ + "..2....." + Chr$(13)
2228.     m$ = m$ + ".22....." + Chr$(13)
2229.     m$ = m$ + "..2....." + Chr$(13)
2230.     m$ = m$ + "..22...." + Chr$(13)
2231.     m$ = m$ + "...222.." + Chr$(13)
2232.     m$ = m$ + "........" + Chr$(13)
2233.     arrTileText(123) = m$
2234.  
2235.     m$ = ""
2236.     m$ = m$ + "....2..." + Chr$(13)
2237.     m$ = m$ + "....2..." + Chr$(13)
2238.     m$ = m$ + "....2..." + Chr$(13)
2239.     m$ = m$ + "....2..." + Chr$(13)
2240.     m$ = m$ + "....2..." + Chr$(13)
2241.     m$ = m$ + "....2..." + Chr$(13)
2242.     m$ = m$ + "....2..." + Chr$(13)
2243.     m$ = m$ + "........" + Chr$(13)
2244.     arrTileText(124) = m$
2245.  
2246.     m$ = ""
2247.     m$ = m$ + "..222..." + Chr$(13)
2248.     m$ = m$ + "....22.." + Chr$(13)
2249.     m$ = m$ + ".....2.." + Chr$(13)
2250.     m$ = m$ + ".....22." + Chr$(13)
2251.     m$ = m$ + ".....2.." + Chr$(13)
2252.     m$ = m$ + "....22.." + Chr$(13)
2253.     m$ = m$ + "..222..." + Chr$(13)
2254.     m$ = m$ + "........" + Chr$(13)
2255.     arrTileText(125) = m$
2256.  
2257.     m$ = ""
2258.     m$ = m$ + "........" + Chr$(13)
2259.     m$ = m$ + ".22....2" + Chr$(13)
2260.     m$ = m$ + "2..2..2." + Chr$(13)
2261.     m$ = m$ + "....22.." + Chr$(13)
2262.     m$ = m$ + "........" + Chr$(13)
2263.     m$ = m$ + "........" + Chr$(13)
2264.     m$ = m$ + "........" + Chr$(13)
2265.     m$ = m$ + "........" + Chr$(13)
2266.     arrTileText(126) = m$
2267.  
2268.     m$ = ""
2269.     m$ = m$ + "........" + Chr$(13)
2270.     m$ = m$ + "........" + Chr$(13)
2271.     m$ = m$ + "........" + Chr$(13)
2272.     m$ = m$ + "........" + Chr$(13)
2273.     m$ = m$ + "........" + Chr$(13)
2274.     m$ = m$ + "........" + Chr$(13)
2275.     m$ = m$ + "........" + Chr$(13)
2276.     m$ = m$ + "........" + Chr$(13)
2277.     arrTileText(127) = m$
2278.  
2279.     m$ = ""
2280.     m$ = m$ + "........" + Chr$(13)
2281.     m$ = m$ + "........" + Chr$(13)
2282.     m$ = m$ + "........" + Chr$(13)
2283.     m$ = m$ + "22222222" + Chr$(13)
2284.     m$ = m$ + "22222222" + Chr$(13)
2285.     m$ = m$ + "........" + Chr$(13)
2286.     m$ = m$ + "........" + Chr$(13)
2287.     m$ = m$ + "........" + Chr$(13)
2288.     arrTileText(128) = m$
2289.  
2290.     m$ = ""
2291.     m$ = m$ + "....2..." + Chr$(13)
2292.     m$ = m$ + "...222.." + Chr$(13)
2293.     m$ = m$ + "..22222." + Chr$(13)
2294.     m$ = m$ + ".2222222" + Chr$(13)
2295.     m$ = m$ + ".2222222" + Chr$(13)
2296.     m$ = m$ + "...222.." + Chr$(13)
2297.     m$ = m$ + "..22222." + Chr$(13)
2298.     m$ = m$ + "........" + Chr$(13)
2299.     arrTileText(129) = m$
2300.  
2301.     m$ = ""
2302.     m$ = m$ + "...22..." + Chr$(13)
2303.     m$ = m$ + "...22..." + Chr$(13)
2304.     m$ = m$ + "...22..." + Chr$(13)
2305.     m$ = m$ + "...22..." + Chr$(13)
2306.     m$ = m$ + "...22..." + Chr$(13)
2307.     m$ = m$ + "...22..." + Chr$(13)
2308.     m$ = m$ + "...22..." + Chr$(13)
2309.     m$ = m$ + "...22..." + Chr$(13)
2310.     arrTileText(130) = m$
2311.  
2312.     m$ = ""
2313.     m$ = m$ + "........" + Chr$(13)
2314.     m$ = m$ + "........" + Chr$(13)
2315.     m$ = m$ + "........" + Chr$(13)
2316.     m$ = m$ + "22222222" + Chr$(13)
2317.     m$ = m$ + "22222222" + Chr$(13)
2318.     m$ = m$ + "........" + Chr$(13)
2319.     m$ = m$ + "........" + Chr$(13)
2320.     m$ = m$ + "........" + Chr$(13)
2321.     arrTileText(131) = m$
2322.  
2323.     m$ = ""
2324.     m$ = m$ + "........" + Chr$(13)
2325.     m$ = m$ + "........" + Chr$(13)
2326.     m$ = m$ + "22222222" + Chr$(13)
2327.     m$ = m$ + "22222222" + Chr$(13)
2328.     m$ = m$ + "........" + Chr$(13)
2329.     m$ = m$ + "........" + Chr$(13)
2330.     m$ = m$ + "........" + Chr$(13)
2331.     m$ = m$ + "........" + Chr$(13)
2332.     arrTileText(132) = m$
2333.  
2334.     m$ = ""
2335.     m$ = m$ + "........" + Chr$(13)
2336.     m$ = m$ + "22222222" + Chr$(13)
2337.     m$ = m$ + "22222222" + Chr$(13)
2338.     m$ = m$ + "........" + Chr$(13)
2339.     m$ = m$ + "........" + Chr$(13)
2340.     m$ = m$ + "........" + Chr$(13)
2341.     m$ = m$ + "........" + Chr$(13)
2342.     m$ = m$ + "........" + Chr$(13)
2343.     arrTileText(133) = m$
2344.  
2345.     m$ = ""
2346.     m$ = m$ + "........" + Chr$(13)
2347.     m$ = m$ + "........" + Chr$(13)
2348.     m$ = m$ + "........" + Chr$(13)
2349.     m$ = m$ + "........" + Chr$(13)
2350.     m$ = m$ + "22222222" + Chr$(13)
2351.     m$ = m$ + "22222222" + Chr$(13)
2352.     m$ = m$ + "........" + Chr$(13)
2353.     m$ = m$ + "........" + Chr$(13)
2354.     arrTileText(134) = m$
2355.  
2356.     m$ = ""
2357.     m$ = m$ + "..22...." + Chr$(13)
2358.     m$ = m$ + "..22...." + Chr$(13)
2359.     m$ = m$ + "..22...." + Chr$(13)
2360.     m$ = m$ + "..22...." + Chr$(13)
2361.     m$ = m$ + "..22...." + Chr$(13)
2362.     m$ = m$ + "..22...." + Chr$(13)
2363.     m$ = m$ + "..22...." + Chr$(13)
2364.     m$ = m$ + "..22...." + Chr$(13)
2365.     arrTileText(135) = m$
2366.  
2367.     m$ = ""
2368.     m$ = m$ + "....22.." + Chr$(13)
2369.     m$ = m$ + "....22.." + Chr$(13)
2370.     m$ = m$ + "....22.." + Chr$(13)
2371.     m$ = m$ + "....22.." + Chr$(13)
2372.     m$ = m$ + "....22.." + Chr$(13)
2373.     m$ = m$ + "....22.." + Chr$(13)
2374.     m$ = m$ + "....22.." + Chr$(13)
2375.     m$ = m$ + "....22.." + Chr$(13)
2376.     arrTileText(136) = m$
2377.  
2378.     m$ = ""
2379.     m$ = m$ + "........" + Chr$(13)
2380.     m$ = m$ + "........" + Chr$(13)
2381.     m$ = m$ + "........" + Chr$(13)
2382.     m$ = m$ + "222....." + Chr$(13)
2383.     m$ = m$ + "2222...." + Chr$(13)
2384.     m$ = m$ + "..222..." + Chr$(13)
2385.     m$ = m$ + "...22..." + Chr$(13)
2386.     m$ = m$ + "...22..." + Chr$(13)
2387.     arrTileText(137) = m$
2388.  
2389.     m$ = ""
2390.     m$ = m$ + "...22..." + Chr$(13)
2391.     m$ = m$ + "...22..." + Chr$(13)
2392.     m$ = m$ + "...222.." + Chr$(13)
2393.     m$ = m$ + "....2222" + Chr$(13)
2394.     m$ = m$ + ".....222" + Chr$(13)
2395.     m$ = m$ + "........" + Chr$(13)
2396.     m$ = m$ + "........" + Chr$(13)
2397.     m$ = m$ + "........" + Chr$(13)
2398.     arrTileText(138) = m$
2399.  
2400.     m$ = ""
2401.     m$ = m$ + "...22..." + Chr$(13)
2402.     m$ = m$ + "...22..." + Chr$(13)
2403.     m$ = m$ + "..222..." + Chr$(13)
2404.     m$ = m$ + "2222...." + Chr$(13)
2405.     m$ = m$ + "222....." + Chr$(13)
2406.     m$ = m$ + "........" + Chr$(13)
2407.     m$ = m$ + "........" + Chr$(13)
2408.     m$ = m$ + "........" + Chr$(13)
2409.     arrTileText(139) = m$
2410.  
2411.     m$ = ""
2412.     m$ = m$ + "22......" + Chr$(13)
2413.     m$ = m$ + "22......" + Chr$(13)
2414.     m$ = m$ + "22......" + Chr$(13)
2415.     m$ = m$ + "22......" + Chr$(13)
2416.     m$ = m$ + "22......" + Chr$(13)
2417.     m$ = m$ + "22......" + Chr$(13)
2418.     m$ = m$ + "22222222" + Chr$(13)
2419.     m$ = m$ + "22222222" + Chr$(13)
2420.     arrTileText(140) = m$
2421.  
2422.     m$ = ""
2423.     m$ = m$ + "22......" + Chr$(13)
2424.     m$ = m$ + "222....." + Chr$(13)
2425.     m$ = m$ + ".222...." + Chr$(13)
2426.     m$ = m$ + "..222..." + Chr$(13)
2427.     m$ = m$ + "...222.." + Chr$(13)
2428.     m$ = m$ + "....222." + Chr$(13)
2429.     m$ = m$ + ".....222" + Chr$(13)
2430.     m$ = m$ + "......22" + Chr$(13)
2431.     arrTileText(141) = m$
2432.  
2433.     m$ = ""
2434.     m$ = m$ + "......22" + Chr$(13)
2435.     m$ = m$ + ".....222" + Chr$(13)
2436.     m$ = m$ + "....222." + Chr$(13)
2437.     m$ = m$ + "...222.." + Chr$(13)
2438.     m$ = m$ + "..222..." + Chr$(13)
2439.     m$ = m$ + ".222...." + Chr$(13)
2440.     m$ = m$ + "222....." + Chr$(13)
2441.     m$ = m$ + "22......" + Chr$(13)
2442.     arrTileText(142) = m$
2443.  
2444.     m$ = ""
2445.     m$ = m$ + "22222222" + Chr$(13)
2446.     m$ = m$ + "22222222" + Chr$(13)
2447.     m$ = m$ + "22......" + Chr$(13)
2448.     m$ = m$ + "22......" + Chr$(13)
2449.     m$ = m$ + "22......" + Chr$(13)
2450.     m$ = m$ + "22......" + Chr$(13)
2451.     m$ = m$ + "22......" + Chr$(13)
2452.     m$ = m$ + "22......" + Chr$(13)
2453.     arrTileText(143) = m$
2454.  
2455.     m$ = ""
2456.     m$ = m$ + "22222222" + Chr$(13)
2457.     m$ = m$ + "22222222" + Chr$(13)
2458.     m$ = m$ + "......22" + Chr$(13)
2459.     m$ = m$ + "......22" + Chr$(13)
2460.     m$ = m$ + "......22" + Chr$(13)
2461.     m$ = m$ + "......22" + Chr$(13)
2462.     m$ = m$ + "......22" + Chr$(13)
2463.     m$ = m$ + "......22" + Chr$(13)
2464.     arrTileText(144) = m$
2465.  
2466.     m$ = ""
2467.     m$ = m$ + "........" + Chr$(13)
2468.     m$ = m$ + "..2222.." + Chr$(13)
2469.     m$ = m$ + ".222222." + Chr$(13)
2470.     m$ = m$ + ".222222." + Chr$(13)
2471.     m$ = m$ + ".222222." + Chr$(13)
2472.     m$ = m$ + ".222222." + Chr$(13)
2473.     m$ = m$ + "..2222.." + Chr$(13)
2474.     m$ = m$ + "........" + Chr$(13)
2475.     arrTileText(145) = m$
2476.  
2477.     m$ = ""
2478.     m$ = m$ + "........" + Chr$(13)
2479.     m$ = m$ + "........" + Chr$(13)
2480.     m$ = m$ + "........" + Chr$(13)
2481.     m$ = m$ + "........" + Chr$(13)
2482.     m$ = m$ + "........" + Chr$(13)
2483.     m$ = m$ + "22222222" + Chr$(13)
2484.     m$ = m$ + "22222222" + Chr$(13)
2485.     m$ = m$ + "........" + Chr$(13)
2486.     arrTileText(146) = m$
2487.  
2488.     m$ = ""
2489.     m$ = m$ + "..22.22." + Chr$(13)
2490.     m$ = m$ + ".2222222" + Chr$(13)
2491.     m$ = m$ + ".2222222" + Chr$(13)
2492.     m$ = m$ + ".2222222" + Chr$(13)
2493.     m$ = m$ + "..22222." + Chr$(13)
2494.     m$ = m$ + "...222.." + Chr$(13)
2495.     m$ = m$ + "....2..." + Chr$(13)
2496.     m$ = m$ + "........" + Chr$(13)
2497.     arrTileText(147) = m$
2498.  
2499.     m$ = ""
2500.     m$ = m$ + ".22....." + Chr$(13)
2501.     m$ = m$ + ".22....." + Chr$(13)
2502.     m$ = m$ + ".22....." + Chr$(13)
2503.     m$ = m$ + ".22....." + Chr$(13)
2504.     m$ = m$ + ".22....." + Chr$(13)
2505.     m$ = m$ + ".22....." + Chr$(13)
2506.     m$ = m$ + ".22....." + Chr$(13)
2507.     m$ = m$ + ".22....." + Chr$(13)
2508.     arrTileText(148) = m$
2509.  
2510.     m$ = ""
2511.     m$ = m$ + "........" + Chr$(13)
2512.     m$ = m$ + "........" + Chr$(13)
2513.     m$ = m$ + "........" + Chr$(13)
2514.     m$ = m$ + ".....222" + Chr$(13)
2515.     m$ = m$ + "....2222" + Chr$(13)
2516.     m$ = m$ + "...222.." + Chr$(13)
2517.     m$ = m$ + "...22..." + Chr$(13)
2518.     m$ = m$ + "...22..." + Chr$(13)
2519.     arrTileText(149) = m$
2520.  
2521.     m$ = ""
2522.     m$ = m$ + "22....22" + Chr$(13)
2523.     m$ = m$ + "222..222" + Chr$(13)
2524.     m$ = m$ + ".222222." + Chr$(13)
2525.     m$ = m$ + "..2222.." + Chr$(13)
2526.     m$ = m$ + "..2222.." + Chr$(13)
2527.     m$ = m$ + ".222222." + Chr$(13)
2528.     m$ = m$ + "222..222" + Chr$(13)
2529.     m$ = m$ + "22....22" + Chr$(13)
2530.     arrTileText(150) = m$
2531.  
2532.     m$ = ""
2533.     m$ = m$ + "........" + Chr$(13)
2534.     m$ = m$ + "..2222.." + Chr$(13)
2535.     m$ = m$ + ".222222." + Chr$(13)
2536.     m$ = m$ + ".22..22." + Chr$(13)
2537.     m$ = m$ + ".22..22." + Chr$(13)
2538.     m$ = m$ + ".222222." + Chr$(13)
2539.     m$ = m$ + "..2222.." + Chr$(13)
2540.     m$ = m$ + "........" + Chr$(13)
2541.     arrTileText(151) = m$
2542.  
2543.     m$ = ""
2544.     m$ = m$ + "...22..." + Chr$(13)
2545.     m$ = m$ + "...22..." + Chr$(13)
2546.     m$ = m$ + ".22..22." + Chr$(13)
2547.     m$ = m$ + ".22..22." + Chr$(13)
2548.     m$ = m$ + "...22..." + Chr$(13)
2549.     m$ = m$ + "...22..." + Chr$(13)
2550.     m$ = m$ + "..2222.." + Chr$(13)
2551.     m$ = m$ + "........" + Chr$(13)
2552.     arrTileText(152) = m$
2553.  
2554.     m$ = ""
2555.     m$ = m$ + ".....22." + Chr$(13)
2556.     m$ = m$ + ".....22." + Chr$(13)
2557.     m$ = m$ + ".....22." + Chr$(13)
2558.     m$ = m$ + ".....22." + Chr$(13)
2559.     m$ = m$ + ".....22." + Chr$(13)
2560.     m$ = m$ + ".....22." + Chr$(13)
2561.     m$ = m$ + ".....22." + Chr$(13)
2562.     m$ = m$ + ".....22." + Chr$(13)
2563.     arrTileText(153) = m$
2564.  
2565.     m$ = ""
2566.     m$ = m$ + "....2..." + Chr$(13)
2567.     m$ = m$ + "...222.." + Chr$(13)
2568.     m$ = m$ + "..22222." + Chr$(13)
2569.     m$ = m$ + ".2222222" + Chr$(13)
2570.     m$ = m$ + "..22222." + Chr$(13)
2571.     m$ = m$ + "...222.." + Chr$(13)
2572.     m$ = m$ + "....2..." + Chr$(13)
2573.     m$ = m$ + "........" + Chr$(13)
2574.     arrTileText(154) = m$
2575.  
2576.     m$ = ""
2577.     m$ = m$ + "...22..." + Chr$(13)
2578.     m$ = m$ + "...22..." + Chr$(13)
2579.     m$ = m$ + "...22..." + Chr$(13)
2580.     m$ = m$ + "22222222" + Chr$(13)
2581.     m$ = m$ + "22222222" + Chr$(13)
2582.     m$ = m$ + "...22..." + Chr$(13)
2583.     m$ = m$ + "...22..." + Chr$(13)
2584.     m$ = m$ + "...22..." + Chr$(13)
2585.     arrTileText(155) = m$
2586.  
2587.     m$ = ""
2588.     m$ = m$ + "22......" + Chr$(13)
2589.     m$ = m$ + "22......" + Chr$(13)
2590.     m$ = m$ + "..22...." + Chr$(13)
2591.     m$ = m$ + "..22...." + Chr$(13)
2592.     m$ = m$ + "22......" + Chr$(13)
2593.     m$ = m$ + "22......" + Chr$(13)
2594.     m$ = m$ + "..22...." + Chr$(13)
2595.     m$ = m$ + "..22...." + Chr$(13)
2596.     arrTileText(156) = m$
2597.  
2598.     m$ = ""
2599.     m$ = m$ + "...22..." + Chr$(13)
2600.     m$ = m$ + "...22..." + Chr$(13)
2601.     m$ = m$ + "...22..." + Chr$(13)
2602.     m$ = m$ + "...22..." + Chr$(13)
2603.     m$ = m$ + "...22..." + Chr$(13)
2604.     m$ = m$ + "...22..." + Chr$(13)
2605.     m$ = m$ + "...22..." + Chr$(13)
2606.     m$ = m$ + "...22..." + Chr$(13)
2607.     arrTileText(157) = m$
2608.  
2609.     m$ = ""
2610.     m$ = m$ + "........" + Chr$(13)
2611.     m$ = m$ + "........" + Chr$(13)
2612.     m$ = m$ + "......22" + Chr$(13)
2613.     m$ = m$ + "..22222." + Chr$(13)
2614.     m$ = m$ + ".222.22." + Chr$(13)
2615.     m$ = m$ + "..22.22." + Chr$(13)
2616.     m$ = m$ + "..22.22." + Chr$(13)
2617.     m$ = m$ + "........" + Chr$(13)
2618.     arrTileText(158) = m$
2619.  
2620.     m$ = ""
2621.     m$ = m$ + "22222222" + Chr$(13)
2622.     m$ = m$ + ".2222222" + Chr$(13)
2623.     m$ = m$ + "..222222" + Chr$(13)
2624.     m$ = m$ + "...22222" + Chr$(13)
2625.     m$ = m$ + "....2222" + Chr$(13)
2626.     m$ = m$ + ".....222" + Chr$(13)
2627.     m$ = m$ + "......22" + Chr$(13)
2628.     m$ = m$ + ".......2" + Chr$(13)
2629.     arrTileText(159) = m$
2630.  
2631.     m$ = ""
2632.     m$ = m$ + "........" + Chr$(13)
2633.     m$ = m$ + "........" + Chr$(13)
2634.     m$ = m$ + "........" + Chr$(13)
2635.     m$ = m$ + "........" + Chr$(13)
2636.     m$ = m$ + "........" + Chr$(13)
2637.     m$ = m$ + "........" + Chr$(13)
2638.     m$ = m$ + "........" + Chr$(13)
2639.     m$ = m$ + "........" + Chr$(13)
2640.     arrTileText(160) = m$
2641.  
2642.     m$ = ""
2643.     m$ = m$ + "2222...." + Chr$(13)
2644.     m$ = m$ + "2222...." + Chr$(13)
2645.     m$ = m$ + "2222...." + Chr$(13)
2646.     m$ = m$ + "2222...." + Chr$(13)
2647.     m$ = m$ + "2222...." + Chr$(13)
2648.     m$ = m$ + "2222...." + Chr$(13)
2649.     m$ = m$ + "2222...." + Chr$(13)
2650.     m$ = m$ + "2222...." + Chr$(13)
2651.     arrTileText(161) = m$
2652.  
2653.     m$ = ""
2654.     m$ = m$ + "........" + Chr$(13)
2655.     m$ = m$ + "........" + Chr$(13)
2656.     m$ = m$ + "........" + Chr$(13)
2657.     m$ = m$ + "........" + Chr$(13)
2658.     m$ = m$ + "22222222" + Chr$(13)
2659.     m$ = m$ + "22222222" + Chr$(13)
2660.     m$ = m$ + "22222222" + Chr$(13)
2661.     m$ = m$ + "22222222" + Chr$(13)
2662.     arrTileText(162) = m$
2663.  
2664.     m$ = ""
2665.     m$ = m$ + "22222222" + Chr$(13)
2666.     m$ = m$ + "........" + Chr$(13)
2667.     m$ = m$ + "........" + Chr$(13)
2668.     m$ = m$ + "........" + Chr$(13)
2669.     m$ = m$ + "........" + Chr$(13)
2670.     m$ = m$ + "........" + Chr$(13)
2671.     m$ = m$ + "........" + Chr$(13)
2672.     m$ = m$ + "........" + Chr$(13)
2673.     arrTileText(163) = m$
2674.  
2675.     m$ = ""
2676.     m$ = m$ + "........" + Chr$(13)
2677.     m$ = m$ + "........" + Chr$(13)
2678.     m$ = m$ + "........" + Chr$(13)
2679.     m$ = m$ + "........" + Chr$(13)
2680.     m$ = m$ + "........" + Chr$(13)
2681.     m$ = m$ + "........" + Chr$(13)
2682.     m$ = m$ + "........" + Chr$(13)
2683.     m$ = m$ + "22222222" + Chr$(13)
2684.     arrTileText(164) = m$
2685.  
2686.     m$ = ""
2687.     m$ = m$ + "22......" + Chr$(13)
2688.     m$ = m$ + "22......" + Chr$(13)
2689.     m$ = m$ + "22......" + Chr$(13)
2690.     m$ = m$ + "22......" + Chr$(13)
2691.     m$ = m$ + "22......" + Chr$(13)
2692.     m$ = m$ + "22......" + Chr$(13)
2693.     m$ = m$ + "22......" + Chr$(13)
2694.     m$ = m$ + "22......" + Chr$(13)
2695.     arrTileText(165) = m$
2696.  
2697.     m$ = ""
2698.     m$ = m$ + "22..22.." + Chr$(13)
2699.     m$ = m$ + "22..22.." + Chr$(13)
2700.     m$ = m$ + "..22..22" + Chr$(13)
2701.     m$ = m$ + "..22..22" + Chr$(13)
2702.     m$ = m$ + "22..22.." + Chr$(13)
2703.     m$ = m$ + "22..22.." + Chr$(13)
2704.     m$ = m$ + "..22..22" + Chr$(13)
2705.     m$ = m$ + "..22..22" + Chr$(13)
2706.     arrTileText(166) = m$
2707.  
2708.     m$ = ""
2709.     m$ = m$ + "......22" + Chr$(13)
2710.     m$ = m$ + "......22" + Chr$(13)
2711.     m$ = m$ + "......22" + Chr$(13)
2712.     m$ = m$ + "......22" + Chr$(13)
2713.     m$ = m$ + "......22" + Chr$(13)
2714.     m$ = m$ + "......22" + Chr$(13)
2715.     m$ = m$ + "......22" + Chr$(13)
2716.     m$ = m$ + "......22" + Chr$(13)
2717.     arrTileText(167) = m$
2718.  
2719.     m$ = ""
2720.     m$ = m$ + "........" + Chr$(13)
2721.     m$ = m$ + "........" + Chr$(13)
2722.     m$ = m$ + "........" + Chr$(13)
2723.     m$ = m$ + "........" + Chr$(13)
2724.     m$ = m$ + "22..22.." + Chr$(13)
2725.     m$ = m$ + "22..22.." + Chr$(13)
2726.     m$ = m$ + "..22..22" + Chr$(13)
2727.     m$ = m$ + "..22..22" + Chr$(13)
2728.     arrTileText(168) = m$
2729.  
2730.     m$ = ""
2731.     m$ = m$ + "22222222" + Chr$(13)
2732.     m$ = m$ + "2222222." + Chr$(13)
2733.     m$ = m$ + "222222.." + Chr$(13)
2734.     m$ = m$ + "22222..." + Chr$(13)
2735.     m$ = m$ + "2222...." + Chr$(13)
2736.     m$ = m$ + "222....." + Chr$(13)
2737.     m$ = m$ + "22......" + Chr$(13)
2738.     m$ = m$ + "2......." + Chr$(13)
2739.     arrTileText(169) = m$
2740.  
2741.     m$ = ""
2742.     m$ = m$ + "......22" + Chr$(13)
2743.     m$ = m$ + "......22" + Chr$(13)
2744.     m$ = m$ + "......22" + Chr$(13)
2745.     m$ = m$ + "......22" + Chr$(13)
2746.     m$ = m$ + "......22" + Chr$(13)
2747.     m$ = m$ + "......22" + Chr$(13)
2748.     m$ = m$ + "......22" + Chr$(13)
2749.     m$ = m$ + "......22" + Chr$(13)
2750.     arrTileText(170) = m$
2751.  
2752.     m$ = ""
2753.     m$ = m$ + "...22..." + Chr$(13)
2754.     m$ = m$ + "...22..." + Chr$(13)
2755.     m$ = m$ + "...22..." + Chr$(13)
2756.     m$ = m$ + "...22222" + Chr$(13)
2757.     m$ = m$ + "...22222" + Chr$(13)
2758.     m$ = m$ + "...22..." + Chr$(13)
2759.     m$ = m$ + "...22..." + Chr$(13)
2760.     m$ = m$ + "...22..." + Chr$(13)
2761.     arrTileText(171) = m$
2762.  
2763.     m$ = ""
2764.     m$ = m$ + "........" + Chr$(13)
2765.     m$ = m$ + "........" + Chr$(13)
2766.     m$ = m$ + "........" + Chr$(13)
2767.     m$ = m$ + "........" + Chr$(13)
2768.     m$ = m$ + "....2222" + Chr$(13)
2769.     m$ = m$ + "....2222" + Chr$(13)
2770.     m$ = m$ + "....2222" + Chr$(13)
2771.     m$ = m$ + "....2222" + Chr$(13)
2772.     arrTileText(172) = m$
2773.  
2774.     m$ = ""
2775.     m$ = m$ + "...22..." + Chr$(13)
2776.     m$ = m$ + "...22..." + Chr$(13)
2777.     m$ = m$ + "...22..." + Chr$(13)
2778.     m$ = m$ + "...22222" + Chr$(13)
2779.     m$ = m$ + "...22222" + Chr$(13)
2780.     m$ = m$ + "........" + Chr$(13)
2781.     m$ = m$ + "........" + Chr$(13)
2782.     m$ = m$ + "........" + Chr$(13)
2783.     arrTileText(173) = m$
2784.  
2785.     m$ = ""
2786.     m$ = m$ + "........" + Chr$(13)
2787.     m$ = m$ + "........" + Chr$(13)
2788.     m$ = m$ + "........" + Chr$(13)
2789.     m$ = m$ + "22222..." + Chr$(13)
2790.     m$ = m$ + "22222..." + Chr$(13)
2791.     m$ = m$ + "...22..." + Chr$(13)
2792.     m$ = m$ + "...22..." + Chr$(13)
2793.     m$ = m$ + "...22..." + Chr$(13)
2794.     arrTileText(174) = m$
2795.  
2796.     m$ = ""
2797.     m$ = m$ + "........" + Chr$(13)
2798.     m$ = m$ + "........" + Chr$(13)
2799.     m$ = m$ + "........" + Chr$(13)
2800.     m$ = m$ + "........" + Chr$(13)
2801.     m$ = m$ + "........" + Chr$(13)
2802.     m$ = m$ + "........" + Chr$(13)
2803.     m$ = m$ + "22222222" + Chr$(13)
2804.     m$ = m$ + "22222222" + Chr$(13)
2805.     arrTileText(175) = m$
2806.  
2807.     m$ = ""
2808.     m$ = m$ + "........" + Chr$(13)
2809.     m$ = m$ + "........" + Chr$(13)
2810.     m$ = m$ + "........" + Chr$(13)
2811.     m$ = m$ + "...22222" + Chr$(13)
2812.     m$ = m$ + "...22222" + Chr$(13)
2813.     m$ = m$ + "...22..." + Chr$(13)
2814.     m$ = m$ + "...22..." + Chr$(13)
2815.     m$ = m$ + "...22..." + Chr$(13)
2816.     arrTileText(176) = m$
2817.  
2818.     m$ = ""
2819.     m$ = m$ + "...22..." + Chr$(13)
2820.     m$ = m$ + "...22..." + Chr$(13)
2821.     m$ = m$ + "...22..." + Chr$(13)
2822.     m$ = m$ + "22222222" + Chr$(13)
2823.     m$ = m$ + "22222222" + Chr$(13)
2824.     m$ = m$ + "........" + Chr$(13)
2825.     m$ = m$ + "........" + Chr$(13)
2826.     m$ = m$ + "........" + Chr$(13)
2827.     arrTileText(177) = m$
2828.  
2829.     m$ = ""
2830.     m$ = m$ + "........" + Chr$(13)
2831.     m$ = m$ + "........" + Chr$(13)
2832.     m$ = m$ + "........" + Chr$(13)
2833.     m$ = m$ + "22222222" + Chr$(13)
2834.     m$ = m$ + "22222222" + Chr$(13)
2835.     m$ = m$ + "...22..." + Chr$(13)
2836.     m$ = m$ + "...22..." + Chr$(13)
2837.     m$ = m$ + "...22..." + Chr$(13)
2838.     arrTileText(178) = m$
2839.  
2840.     m$ = ""
2841.     m$ = m$ + "...22..." + Chr$(13)
2842.     m$ = m$ + "...22..." + Chr$(13)
2843.     m$ = m$ + "...22..." + Chr$(13)
2844.     m$ = m$ + "22222..." + Chr$(13)
2845.     m$ = m$ + "22222..." + Chr$(13)
2846.     m$ = m$ + "...22..." + Chr$(13)
2847.     m$ = m$ + "...22..." + Chr$(13)
2848.     m$ = m$ + "...22..." + Chr$(13)
2849.     arrTileText(179) = m$
2850.  
2851.     m$ = ""
2852.     m$ = m$ + "22......" + Chr$(13)
2853.     m$ = m$ + "22......" + Chr$(13)
2854.     m$ = m$ + "22......" + Chr$(13)
2855.     m$ = m$ + "22......" + Chr$(13)
2856.     m$ = m$ + "22......" + Chr$(13)
2857.     m$ = m$ + "22......" + Chr$(13)
2858.     m$ = m$ + "22......" + Chr$(13)
2859.     m$ = m$ + "22......" + Chr$(13)
2860.     arrTileText(180) = m$
2861.  
2862.     m$ = ""
2863.     m$ = m$ + "222....." + Chr$(13)
2864.     m$ = m$ + "222....." + Chr$(13)
2865.     m$ = m$ + "222....." + Chr$(13)
2866.     m$ = m$ + "222....." + Chr$(13)
2867.     m$ = m$ + "222....." + Chr$(13)
2868.     m$ = m$ + "222....." + Chr$(13)
2869.     m$ = m$ + "222....." + Chr$(13)
2870.     m$ = m$ + "222....." + Chr$(13)
2871.     arrTileText(181) = m$
2872.  
2873.     m$ = ""
2874.     m$ = m$ + ".....222" + Chr$(13)
2875.     m$ = m$ + ".....222" + Chr$(13)
2876.     m$ = m$ + ".....222" + Chr$(13)
2877.     m$ = m$ + ".....222" + Chr$(13)
2878.     m$ = m$ + ".....222" + Chr$(13)
2879.     m$ = m$ + ".....222" + Chr$(13)
2880.     m$ = m$ + ".....222" + Chr$(13)
2881.     m$ = m$ + ".....222" + Chr$(13)
2882.     arrTileText(182) = m$
2883.  
2884.     m$ = ""
2885.     m$ = m$ + "22222222" + Chr$(13)
2886.     m$ = m$ + "22222222" + Chr$(13)
2887.     m$ = m$ + "........" + Chr$(13)
2888.     m$ = m$ + "........" + Chr$(13)
2889.     m$ = m$ + "........" + Chr$(13)
2890.     m$ = m$ + "........" + Chr$(13)
2891.     m$ = m$ + "........" + Chr$(13)
2892.     m$ = m$ + "........" + Chr$(13)
2893.     arrTileText(183) = m$
2894.  
2895.     m$ = ""
2896.     m$ = m$ + "22222222" + Chr$(13)
2897.     m$ = m$ + "22222222" + Chr$(13)
2898.     m$ = m$ + "22222222" + Chr$(13)
2899.     m$ = m$ + "........" + Chr$(13)
2900.     m$ = m$ + "........" + Chr$(13)
2901.     m$ = m$ + "........" + Chr$(13)
2902.     m$ = m$ + "........" + Chr$(13)
2903.     m$ = m$ + "........" + Chr$(13)
2904.     arrTileText(184) = m$
2905.  
2906.     m$ = ""
2907.     m$ = m$ + "........" + Chr$(13)
2908.     m$ = m$ + "........" + Chr$(13)
2909.     m$ = m$ + "........" + Chr$(13)
2910.     m$ = m$ + "........" + Chr$(13)
2911.     m$ = m$ + "........" + Chr$(13)
2912.     m$ = m$ + "22222222" + Chr$(13)
2913.     m$ = m$ + "22222222" + Chr$(13)
2914.     m$ = m$ + "22222222" + Chr$(13)
2915.     arrTileText(185) = m$
2916.  
2917.     m$ = ""
2918.     m$ = m$ + "......22" + Chr$(13)
2919.     m$ = m$ + "......22" + Chr$(13)
2920.     m$ = m$ + "......22" + Chr$(13)
2921.     m$ = m$ + "......22" + Chr$(13)
2922.     m$ = m$ + "......22" + Chr$(13)
2923.     m$ = m$ + "......22" + Chr$(13)
2924.     m$ = m$ + "22222222" + Chr$(13)
2925.     m$ = m$ + "22222222" + Chr$(13)
2926.     arrTileText(186) = m$
2927.  
2928.     m$ = ""
2929.     m$ = m$ + "........" + Chr$(13)
2930.     m$ = m$ + "........" + Chr$(13)
2931.     m$ = m$ + "........" + Chr$(13)
2932.     m$ = m$ + "........" + Chr$(13)
2933.     m$ = m$ + "2222...." + Chr$(13)
2934.     m$ = m$ + "2222...." + Chr$(13)
2935.     m$ = m$ + "2222...." + Chr$(13)
2936.     m$ = m$ + "2222...." + Chr$(13)
2937.     arrTileText(187) = m$
2938.  
2939.     m$ = ""
2940.     m$ = m$ + "....2222" + Chr$(13)
2941.     m$ = m$ + "....2222" + Chr$(13)
2942.     m$ = m$ + "....2222" + Chr$(13)
2943.     m$ = m$ + "....2222" + Chr$(13)
2944.     m$ = m$ + "........" + Chr$(13)
2945.     m$ = m$ + "........" + Chr$(13)
2946.     m$ = m$ + "........" + Chr$(13)
2947.     m$ = m$ + "........" + Chr$(13)
2948.     arrTileText(188) = m$
2949.  
2950.     m$ = ""
2951.     m$ = m$ + "...22..." + Chr$(13)
2952.     m$ = m$ + "...22..." + Chr$(13)
2953.     m$ = m$ + "...22..." + Chr$(13)
2954.     m$ = m$ + "22222..." + Chr$(13)
2955.     m$ = m$ + "22222..." + Chr$(13)
2956.     m$ = m$ + "........" + Chr$(13)
2957.     m$ = m$ + "........" + Chr$(13)
2958.     m$ = m$ + "........" + Chr$(13)
2959.     arrTileText(189) = m$
2960.  
2961.     m$ = ""
2962.     m$ = m$ + "2222...." + Chr$(13)
2963.     m$ = m$ + "2222...." + Chr$(13)
2964.     m$ = m$ + "2222...." + Chr$(13)
2965.     m$ = m$ + "2222...." + Chr$(13)
2966.     m$ = m$ + "........" + Chr$(13)
2967.     m$ = m$ + "........" + Chr$(13)
2968.     m$ = m$ + "........" + Chr$(13)
2969.     m$ = m$ + "........" + Chr$(13)
2970.     arrTileText(190) = m$
2971.  
2972.     m$ = ""
2973.     m$ = m$ + "2222...." + Chr$(13)
2974.     m$ = m$ + "2222...." + Chr$(13)
2975.     m$ = m$ + "2222...." + Chr$(13)
2976.     m$ = m$ + "2222...." + Chr$(13)
2977.     m$ = m$ + "....2222" + Chr$(13)
2978.     m$ = m$ + "....2222" + Chr$(13)
2979.     m$ = m$ + "....2222" + Chr$(13)
2980.     m$ = m$ + "....2222" + Chr$(13)
2981.     arrTileText(191) = m$
2982.  
2983.     m$ = ""
2984.     m$ = m$ + "........" + Chr$(13)
2985.     m$ = m$ + ".2222222" + Chr$(13)
2986.     m$ = m$ + ".2.....2" + Chr$(13)
2987.     m$ = m$ + ".2.....2" + Chr$(13)
2988.     m$ = m$ + ".2.....2" + Chr$(13)
2989.     m$ = m$ + ".2.....2" + Chr$(13)
2990.     m$ = m$ + ".2.....2" + Chr$(13)
2991.     m$ = m$ + ".2222222" + Chr$(13)
2992.     arrTileText(192) = m$
2993.  
2994.     m$ = ""
2995.     m$ = m$ + "........" + Chr$(13)
2996.     m$ = m$ + ".2222222" + Chr$(13)
2997.     m$ = m$ + ".2222222" + Chr$(13)
2998.     m$ = m$ + ".2222222" + Chr$(13)
2999.     m$ = m$ + ".2222222" + Chr$(13)
3000.     m$ = m$ + ".2222222" + Chr$(13)
3001.     m$ = m$ + ".2222222" + Chr$(13)
3002.     m$ = m$ + ".2222222" + Chr$(13)
3003.     arrTileText(193) = m$
3004.  
3005.     m$ = ""
3006.     m$ = m$ + "........" + Chr$(13)
3007.     m$ = m$ + "...22..." + Chr$(13)
3008.     m$ = m$ + "..2222.." + Chr$(13)
3009.     m$ = m$ + ".222222." + Chr$(13)
3010.     m$ = m$ + "...22..." + Chr$(13)
3011.     m$ = m$ + "...22..." + Chr$(13)
3012.     m$ = m$ + "...22..." + Chr$(13)
3013.     m$ = m$ + "...22..." + Chr$(13)
3014.     arrTileText(194) = m$
3015.  
3016.     m$ = ""
3017.     m$ = m$ + "........" + Chr$(13)
3018.     m$ = m$ + "...22..." + Chr$(13)
3019.     m$ = m$ + "...22..." + Chr$(13)
3020.     m$ = m$ + "...22..." + Chr$(13)
3021.     m$ = m$ + "...22..." + Chr$(13)
3022.     m$ = m$ + ".222222." + Chr$(13)
3023.     m$ = m$ + "..2222.." + Chr$(13)
3024.     m$ = m$ + "...22..." + Chr$(13)
3025.     arrTileText(195) = m$
3026.  
3027.     m$ = ""
3028.     m$ = m$ + "........" + Chr$(13)
3029.     m$ = m$ + "...2...." + Chr$(13)
3030.     m$ = m$ + "..22...." + Chr$(13)
3031.     m$ = m$ + ".2222222" + Chr$(13)
3032.     m$ = m$ + ".2222222" + Chr$(13)
3033.     m$ = m$ + "..22...." + Chr$(13)
3034.     m$ = m$ + "...2...." + Chr$(13)
3035.     m$ = m$ + "........" + Chr$(13)
3036.     arrTileText(196) = m$
3037.  
3038.     m$ = ""
3039.     m$ = m$ + "........" + Chr$(13)
3040.     m$ = m$ + ".....2.." + Chr$(13)
3041.     m$ = m$ + ".....22." + Chr$(13)
3042.     m$ = m$ + ".2222222" + Chr$(13)
3043.     m$ = m$ + ".2222222" + Chr$(13)
3044.     m$ = m$ + ".....22." + Chr$(13)
3045.     m$ = m$ + ".....2.." + Chr$(13)
3046.     m$ = m$ + "........" + Chr$(13)
3047.     arrTileText(197) = m$
3048.  
3049.     m$ = ""
3050.     m$ = m$ + "........" + Chr$(13)
3051.     m$ = m$ + "........" + Chr$(13)
3052.     m$ = m$ + "........" + Chr$(13)
3053.     m$ = m$ + "........" + Chr$(13)
3054.     m$ = m$ + "........" + Chr$(13)
3055.     m$ = m$ + "........" + Chr$(13)
3056.     m$ = m$ + "........" + Chr$(13)
3057.     m$ = m$ + "........" + Chr$(13)
3058.     arrTileText(198) = m$
3059.  
3060.     m$ = ""
3061.     m$ = m$ + ".222222." + Chr$(13)
3062.     m$ = m$ + "2......2" + Chr$(13)
3063.     m$ = m$ + "2.2..2.2" + Chr$(13)
3064.     m$ = m$ + "2......2" + Chr$(13)
3065.     m$ = m$ + "2.2..2.2" + Chr$(13)
3066.     m$ = m$ + "2.2222.2" + Chr$(13)
3067.     m$ = m$ + "2......2" + Chr$(13)
3068.     m$ = m$ + ".222222." + Chr$(13)
3069.     arrTileText(199) = m$
3070.  
3071.     m$ = ""
3072.     m$ = m$ + ".222222." + Chr$(13)
3073.     m$ = m$ + "2......2" + Chr$(13)
3074.     m$ = m$ + "2.2..2.2" + Chr$(13)
3075.     m$ = m$ + "2......2" + Chr$(13)
3076.     m$ = m$ + "2.2222.2" + Chr$(13)
3077.     m$ = m$ + "2.2..2.2" + Chr$(13)
3078.     m$ = m$ + "2......2" + Chr$(13)
3079.     m$ = m$ + ".222222." + Chr$(13)
3080.     arrTileText(200) = m$
3081.  
3082.     m$ = ""
3083.     m$ = m$ + "........" + Chr$(13)
3084.     m$ = m$ + "........" + Chr$(13)
3085.     m$ = m$ + "........" + Chr$(13)
3086.     m$ = m$ + "........" + Chr$(13)
3087.     m$ = m$ + "........" + Chr$(13)
3088.     m$ = m$ + "........" + Chr$(13)
3089.     m$ = m$ + "........" + Chr$(13)
3090.     m$ = m$ + "........" + Chr$(13)
3091.     arrTileText(201) = m$
3092.  
3093.     m$ = ""
3094.     m$ = m$ + ".222222." + Chr$(13)
3095.     m$ = m$ + ".....22." + Chr$(13)
3096.     m$ = m$ + "....22.." + Chr$(13)
3097.     m$ = m$ + "...22..." + Chr$(13)
3098.     m$ = m$ + "..22...." + Chr$(13)
3099.     m$ = m$ + ".22....." + Chr$(13)
3100.     m$ = m$ + ".222222." + Chr$(13)
3101.     m$ = m$ + "........" + Chr$(13)
3102.     arrTileText(202) = m$
3103.  
3104.     m$ = ""
3105.     m$ = m$ + "...22..." + Chr$(13)
3106.     m$ = m$ + "...22..." + Chr$(13)
3107.     m$ = m$ + "...22..." + Chr$(13)
3108.     m$ = m$ + "22222222" + Chr$(13)
3109.     m$ = m$ + "22222222" + Chr$(13)
3110.     m$ = m$ + "...22..." + Chr$(13)
3111.     m$ = m$ + "...22..." + Chr$(13)
3112.     m$ = m$ + "...22..." + Chr$(13)
3113.     arrTileText(203) = m$
3114.  
3115.     m$ = ""
3116.     m$ = m$ + "22......" + Chr$(13)
3117.     m$ = m$ + "22......" + Chr$(13)
3118.     m$ = m$ + "..22...." + Chr$(13)
3119.     m$ = m$ + "..22...." + Chr$(13)
3120.     m$ = m$ + "22......" + Chr$(13)
3121.     m$ = m$ + "22......" + Chr$(13)
3122.     m$ = m$ + "..22...." + Chr$(13)
3123.     m$ = m$ + "..22...." + Chr$(13)
3124.     arrTileText(204) = m$
3125.  
3126.     m$ = ""
3127.     m$ = m$ + "...22..." + Chr$(13)
3128.     m$ = m$ + "...22..." + Chr$(13)
3129.     m$ = m$ + "...22..." + Chr$(13)
3130.     m$ = m$ + "...22..." + Chr$(13)
3131.     m$ = m$ + "...22..." + Chr$(13)
3132.     m$ = m$ + "...22..." + Chr$(13)
3133.     m$ = m$ + "...22..." + Chr$(13)
3134.     m$ = m$ + "...22..." + Chr$(13)
3135.     arrTileText(205) = m$
3136.  
3137.     m$ = ""
3138.     m$ = m$ + "..22..22" + Chr$(13)
3139.     m$ = m$ + "..22..22" + Chr$(13)
3140.     m$ = m$ + "22..22.." + Chr$(13)
3141.     m$ = m$ + "22..22.." + Chr$(13)
3142.     m$ = m$ + "..22..22" + Chr$(13)
3143.     m$ = m$ + "..22..22" + Chr$(13)
3144.     m$ = m$ + "22..22.." + Chr$(13)
3145.     m$ = m$ + "22..22.." + Chr$(13)
3146.     arrTileText(206) = m$
3147.  
3148.     m$ = ""
3149.     m$ = m$ + "..22..22" + Chr$(13)
3150.     m$ = m$ + "2..22..2" + Chr$(13)
3151.     m$ = m$ + "22..22.." + Chr$(13)
3152.     m$ = m$ + ".22..22." + Chr$(13)
3153.     m$ = m$ + "..22..22" + Chr$(13)
3154.     m$ = m$ + "2..22..2" + Chr$(13)
3155.     m$ = m$ + "22..22.." + Chr$(13)
3156.     m$ = m$ + ".22..22." + Chr$(13)
3157.     arrTileText(207) = m$
3158.  
3159.     m$ = ""
3160.     m$ = m$ + "........" + Chr$(13)
3161.     m$ = m$ + "........" + Chr$(13)
3162.     m$ = m$ + "........" + Chr$(13)
3163.     m$ = m$ + "........" + Chr$(13)
3164.     m$ = m$ + "........" + Chr$(13)
3165.     m$ = m$ + "........" + Chr$(13)
3166.     m$ = m$ + "........" + Chr$(13)
3167.     m$ = m$ + "........" + Chr$(13)
3168.     arrTileText(208) = m$
3169.  
3170.     m$ = ""
3171.     m$ = m$ + "2222...." + Chr$(13)
3172.     m$ = m$ + "2222...." + Chr$(13)
3173.     m$ = m$ + "2222...." + Chr$(13)
3174.     m$ = m$ + "2222...." + Chr$(13)
3175.     m$ = m$ + "2222...." + Chr$(13)
3176.     m$ = m$ + "2222...." + Chr$(13)
3177.     m$ = m$ + "2222...." + Chr$(13)
3178.     m$ = m$ + "2222...." + Chr$(13)
3179.     arrTileText(209) = m$
3180.  
3181.     m$ = ""
3182.     m$ = m$ + "........" + Chr$(13)
3183.     m$ = m$ + "........" + Chr$(13)
3184.     m$ = m$ + "........" + Chr$(13)
3185.     m$ = m$ + "........" + Chr$(13)
3186.     m$ = m$ + "22222222" + Chr$(13)
3187.     m$ = m$ + "22222222" + Chr$(13)
3188.     m$ = m$ + "22222222" + Chr$(13)
3189.     m$ = m$ + "22222222" + Chr$(13)
3190.     arrTileText(210) = m$
3191.  
3192.     m$ = ""
3193.     m$ = m$ + "22222222" + Chr$(13)
3194.     m$ = m$ + "........" + Chr$(13)
3195.     m$ = m$ + "........" + Chr$(13)
3196.     m$ = m$ + "........" + Chr$(13)
3197.     m$ = m$ + "........" + Chr$(13)
3198.     m$ = m$ + "........" + Chr$(13)
3199.     m$ = m$ + "........" + Chr$(13)
3200.     m$ = m$ + "........" + Chr$(13)
3201.     arrTileText(211) = m$
3202.  
3203.     m$ = ""
3204.     m$ = m$ + "........" + Chr$(13)
3205.     m$ = m$ + "........" + Chr$(13)
3206.     m$ = m$ + "........" + Chr$(13)
3207.     m$ = m$ + "........" + Chr$(13)
3208.     m$ = m$ + "........" + Chr$(13)
3209.     m$ = m$ + "........" + Chr$(13)
3210.     m$ = m$ + "........" + Chr$(13)
3211.     m$ = m$ + "22222222" + Chr$(13)
3212.     arrTileText(212) = m$
3213.  
3214.     m$ = ""
3215.     m$ = m$ + "22......" + Chr$(13)
3216.     m$ = m$ + "22......" + Chr$(13)
3217.     m$ = m$ + "22......" + Chr$(13)
3218.     m$ = m$ + "22......" + Chr$(13)
3219.     m$ = m$ + "22......" + Chr$(13)
3220.     m$ = m$ + "22......" + Chr$(13)
3221.     m$ = m$ + "22......" + Chr$(13)
3222.     m$ = m$ + "22......" + Chr$(13)
3223.     arrTileText(213) = m$
3224.  
3225.     m$ = ""
3226.     m$ = m$ + "22..22.." + Chr$(13)
3227.     m$ = m$ + "22..22.." + Chr$(13)
3228.     m$ = m$ + "..22..22" + Chr$(13)
3229.     m$ = m$ + "..22..22" + Chr$(13)
3230.     m$ = m$ + "22..22.." + Chr$(13)
3231.     m$ = m$ + "22..22.." + Chr$(13)
3232.     m$ = m$ + "..22..22" + Chr$(13)
3233.     m$ = m$ + "..22..22" + Chr$(13)
3234.     arrTileText(214) = m$
3235.  
3236.     m$ = ""
3237.     m$ = m$ + "......22" + Chr$(13)
3238.     m$ = m$ + "......22" + Chr$(13)
3239.     m$ = m$ + "......22" + Chr$(13)
3240.     m$ = m$ + "......22" + Chr$(13)
3241.     m$ = m$ + "......22" + Chr$(13)
3242.     m$ = m$ + "......22" + Chr$(13)
3243.     m$ = m$ + "......22" + Chr$(13)
3244.     m$ = m$ + "......22" + Chr$(13)
3245.     arrTileText(215) = m$
3246.  
3247.     m$ = ""
3248.     m$ = m$ + "........" + Chr$(13)
3249.     m$ = m$ + "........" + Chr$(13)
3250.     m$ = m$ + "........" + Chr$(13)
3251.     m$ = m$ + "........" + Chr$(13)
3252.     m$ = m$ + "22..22.." + Chr$(13)
3253.     m$ = m$ + "22..22.." + Chr$(13)
3254.     m$ = m$ + "..22..22" + Chr$(13)
3255.     m$ = m$ + "..22..22" + Chr$(13)
3256.     arrTileText(216) = m$
3257.  
3258.     m$ = ""
3259.     m$ = m$ + "22..22.." + Chr$(13)
3260.     m$ = m$ + "2..22..2" + Chr$(13)
3261.     m$ = m$ + "..22..22" + Chr$(13)
3262.     m$ = m$ + ".22..22." + Chr$(13)
3263.     m$ = m$ + "22..22.." + Chr$(13)
3264.     m$ = m$ + "2..22..2" + Chr$(13)
3265.     m$ = m$ + "..22..22" + Chr$(13)
3266.     m$ = m$ + ".22..22." + Chr$(13)
3267.     arrTileText(217) = m$
3268.  
3269.     m$ = ""
3270.     m$ = m$ + "......22" + Chr$(13)
3271.     m$ = m$ + "......22" + Chr$(13)
3272.     m$ = m$ + "......22" + Chr$(13)
3273.     m$ = m$ + "......22" + Chr$(13)
3274.     m$ = m$ + "......22" + Chr$(13)
3275.     m$ = m$ + "......22" + Chr$(13)
3276.     m$ = m$ + "......22" + Chr$(13)
3277.     m$ = m$ + "......22" + Chr$(13)
3278.     arrTileText(218) = m$
3279.  
3280.     m$ = ""
3281.     m$ = m$ + "...22..." + Chr$(13)
3282.     m$ = m$ + "...22..." + Chr$(13)
3283.     m$ = m$ + "...22..." + Chr$(13)
3284.     m$ = m$ + "...22222" + Chr$(13)
3285.     m$ = m$ + "...22222" + Chr$(13)
3286.     m$ = m$ + "...22..." + Chr$(13)
3287.     m$ = m$ + "...22..." + Chr$(13)
3288.     m$ = m$ + "...22..." + Chr$(13)
3289.     arrTileText(219) = m$
3290.  
3291.     m$ = ""
3292.     m$ = m$ + "........" + Chr$(13)
3293.     m$ = m$ + "........" + Chr$(13)
3294.     m$ = m$ + "........" + Chr$(13)
3295.     m$ = m$ + "........" + Chr$(13)
3296.     m$ = m$ + "....2222" + Chr$(13)
3297.     m$ = m$ + "....2222" + Chr$(13)
3298.     m$ = m$ + "....2222" + Chr$(13)
3299.     m$ = m$ + "....2222" + Chr$(13)
3300.     arrTileText(220) = m$
3301.  
3302.     m$ = ""
3303.     m$ = m$ + "...22..." + Chr$(13)
3304.     m$ = m$ + "...22..." + Chr$(13)
3305.     m$ = m$ + "...22..." + Chr$(13)
3306.     m$ = m$ + "...22222" + Chr$(13)
3307.     m$ = m$ + "...22222" + Chr$(13)
3308.     m$ = m$ + "........" + Chr$(13)
3309.     m$ = m$ + "........" + Chr$(13)
3310.     m$ = m$ + "........" + Chr$(13)
3311.     arrTileText(221) = m$
3312.  
3313.     m$ = ""
3314.     m$ = m$ + "........" + Chr$(13)
3315.     m$ = m$ + "........" + Chr$(13)
3316.     m$ = m$ + "........" + Chr$(13)
3317.     m$ = m$ + "22222..." + Chr$(13)
3318.     m$ = m$ + "22222..." + Chr$(13)
3319.     m$ = m$ + "...22..." + Chr$(13)
3320.     m$ = m$ + "...22..." + Chr$(13)
3321.     m$ = m$ + "...22..." + Chr$(13)
3322.     arrTileText(222) = m$
3323.  
3324.     m$ = ""
3325.     m$ = m$ + "........" + Chr$(13)
3326.     m$ = m$ + "........" + Chr$(13)
3327.     m$ = m$ + "........" + Chr$(13)
3328.     m$ = m$ + "........" + Chr$(13)
3329.     m$ = m$ + "........" + Chr$(13)
3330.     m$ = m$ + "........" + Chr$(13)
3331.     m$ = m$ + "22222222" + Chr$(13)
3332.     m$ = m$ + "22222222" + Chr$(13)
3333.     arrTileText(223) = m$
3334.  
3335.     m$ = ""
3336.     m$ = m$ + "........" + Chr$(13)
3337.     m$ = m$ + "........" + Chr$(13)
3338.     m$ = m$ + "........" + Chr$(13)
3339.     m$ = m$ + "...22222" + Chr$(13)
3340.     m$ = m$ + "...22222" + Chr$(13)
3341.     m$ = m$ + "...22..." + Chr$(13)
3342.     m$ = m$ + "...22..." + Chr$(13)
3343.     m$ = m$ + "...22..." + Chr$(13)
3344.     arrTileText(224) = m$
3345.  
3346.     m$ = ""
3347.     m$ = m$ + "...22..." + Chr$(13)
3348.     m$ = m$ + "...22..." + Chr$(13)
3349.     m$ = m$ + "...22..." + Chr$(13)
3350.     m$ = m$ + "22222222" + Chr$(13)
3351.     m$ = m$ + "22222222" + Chr$(13)
3352.     m$ = m$ + "........" + Chr$(13)
3353.     m$ = m$ + "........" + Chr$(13)
3354.     m$ = m$ + "........" + Chr$(13)
3355.     arrTileText(225) = m$
3356.  
3357.     m$ = ""
3358.     m$ = m$ + "........" + Chr$(13)
3359.     m$ = m$ + "........" + Chr$(13)
3360.     m$ = m$ + "........" + Chr$(13)
3361.     m$ = m$ + "22222222" + Chr$(13)
3362.     m$ = m$ + "22222222" + Chr$(13)
3363.     m$ = m$ + "...22..." + Chr$(13)
3364.     m$ = m$ + "...22..." + Chr$(13)
3365.     m$ = m$ + "...22..." + Chr$(13)
3366.     arrTileText(226) = m$
3367.  
3368.     m$ = ""
3369.     m$ = m$ + "...22..." + Chr$(13)
3370.     m$ = m$ + "...22..." + Chr$(13)
3371.     m$ = m$ + "...22..." + Chr$(13)
3372.     m$ = m$ + "22222..." + Chr$(13)
3373.     m$ = m$ + "22222..." + Chr$(13)
3374.     m$ = m$ + "...22..." + Chr$(13)
3375.     m$ = m$ + "...22..." + Chr$(13)
3376.     m$ = m$ + "...22..." + Chr$(13)
3377.     arrTileText(227) = m$
3378.  
3379.     m$ = ""
3380.     m$ = m$ + "22......" + Chr$(13)
3381.     m$ = m$ + "22......" + Chr$(13)
3382.     m$ = m$ + "22......" + Chr$(13)
3383.     m$ = m$ + "22......" + Chr$(13)
3384.     m$ = m$ + "22......" + Chr$(13)
3385.     m$ = m$ + "22......" + Chr$(13)
3386.     m$ = m$ + "22......" + Chr$(13)
3387.     m$ = m$ + "22......" + Chr$(13)
3388.     arrTileText(228) = m$
3389.  
3390.     m$ = ""
3391.     m$ = m$ + "222....." + Chr$(13)
3392.     m$ = m$ + "222....." + Chr$(13)
3393.     m$ = m$ + "222....." + Chr$(13)
3394.     m$ = m$ + "222....." + Chr$(13)
3395.     m$ = m$ + "222....." + Chr$(13)
3396.     m$ = m$ + "222....." + Chr$(13)
3397.     m$ = m$ + "222....." + Chr$(13)
3398.     m$ = m$ + "222....." + Chr$(13)
3399.     arrTileText(229) = m$
3400.  
3401.     m$ = ""
3402.     m$ = m$ + ".....222" + Chr$(13)
3403.     m$ = m$ + ".....222" + Chr$(13)
3404.     m$ = m$ + ".....222" + Chr$(13)
3405.     m$ = m$ + ".....222" + Chr$(13)
3406.     m$ = m$ + ".....222" + Chr$(13)
3407.     m$ = m$ + ".....222" + Chr$(13)
3408.     m$ = m$ + ".....222" + Chr$(13)
3409.     m$ = m$ + ".....222" + Chr$(13)
3410.     arrTileText(230) = m$
3411.  
3412.     m$ = ""
3413.     m$ = m$ + "22222222" + Chr$(13)
3414.     m$ = m$ + "22222222" + Chr$(13)
3415.     m$ = m$ + "........" + Chr$(13)
3416.     m$ = m$ + "........" + Chr$(13)
3417.     m$ = m$ + "........" + Chr$(13)
3418.     m$ = m$ + "........" + Chr$(13)
3419.     m$ = m$ + "........" + Chr$(13)
3420.     m$ = m$ + "........" + Chr$(13)
3421.     arrTileText(231) = m$
3422.  
3423.     m$ = ""
3424.     m$ = m$ + "22222222" + Chr$(13)
3425.     m$ = m$ + "22222222" + Chr$(13)
3426.     m$ = m$ + "22222222" + Chr$(13)
3427.     m$ = m$ + "........" + Chr$(13)
3428.     m$ = m$ + "........" + Chr$(13)
3429.     m$ = m$ + "........" + Chr$(13)
3430.     m$ = m$ + "........" + Chr$(13)
3431.     m$ = m$ + "........" + Chr$(13)
3432.     arrTileText(232) = m$
3433.  
3434.     m$ = ""
3435.     m$ = m$ + "........" + Chr$(13)
3436.     m$ = m$ + "........" + Chr$(13)
3437.     m$ = m$ + "........" + Chr$(13)
3438.     m$ = m$ + "........" + Chr$(13)
3439.     m$ = m$ + "........" + Chr$(13)
3440.     m$ = m$ + "22222222" + Chr$(13)
3441.     m$ = m$ + "22222222" + Chr$(13)
3442.     m$ = m$ + "22222222" + Chr$(13)
3443.     arrTileText(233) = m$
3444.  
3445.     m$ = ""
3446.     m$ = m$ + ".......2" + Chr$(13)
3447.     m$ = m$ + "......22" + Chr$(13)
3448.     m$ = m$ + ".....22." + Chr$(13)
3449.     m$ = m$ + ".22.22.." + Chr$(13)
3450.     m$ = m$ + ".2222..." + Chr$(13)
3451.     m$ = m$ + ".222...." + Chr$(13)
3452.     m$ = m$ + ".22....." + Chr$(13)
3453.     m$ = m$ + "........" + Chr$(13)
3454.     arrTileText(234) = m$
3455.  
3456.     m$ = ""
3457.     m$ = m$ + "........" + Chr$(13)
3458.     m$ = m$ + "........" + Chr$(13)
3459.     m$ = m$ + "........" + Chr$(13)
3460.     m$ = m$ + "........" + Chr$(13)
3461.     m$ = m$ + "2222...." + Chr$(13)
3462.     m$ = m$ + "2222...." + Chr$(13)
3463.     m$ = m$ + "2222...." + Chr$(13)
3464.     m$ = m$ + "2222...." + Chr$(13)
3465.     arrTileText(235) = m$
3466.  
3467.     m$ = ""
3468.     m$ = m$ + "....2222" + Chr$(13)
3469.     m$ = m$ + "....2222" + Chr$(13)
3470.     m$ = m$ + "....2222" + Chr$(13)
3471.     m$ = m$ + "....2222" + Chr$(13)
3472.     m$ = m$ + "........" + Chr$(13)
3473.     m$ = m$ + "........" + Chr$(13)
3474.     m$ = m$ + "........" + Chr$(13)
3475.     m$ = m$ + "........" + Chr$(13)
3476.     arrTileText(236) = m$
3477.  
3478.     m$ = ""
3479.     m$ = m$ + "...22..." + Chr$(13)
3480.     m$ = m$ + "...22..." + Chr$(13)
3481.     m$ = m$ + "...22..." + Chr$(13)
3482.     m$ = m$ + "22222..." + Chr$(13)
3483.     m$ = m$ + "22222..." + Chr$(13)
3484.     m$ = m$ + "........" + Chr$(13)
3485.     m$ = m$ + "........" + Chr$(13)
3486.     m$ = m$ + "........" + Chr$(13)
3487.     arrTileText(237) = m$
3488.  
3489.     m$ = ""
3490.     m$ = m$ + "2222...." + Chr$(13)
3491.     m$ = m$ + "2222...." + Chr$(13)
3492.     m$ = m$ + "2222...." + Chr$(13)
3493.     m$ = m$ + "2222...." + Chr$(13)
3494.     m$ = m$ + "........" + Chr$(13)
3495.     m$ = m$ + "........" + Chr$(13)
3496.     m$ = m$ + "........" + Chr$(13)
3497.     m$ = m$ + "........" + Chr$(13)
3498.     arrTileText(238) = m$
3499.  
3500.     m$ = ""
3501.     m$ = m$ + "2222...." + Chr$(13)
3502.     m$ = m$ + "2222...." + Chr$(13)
3503.     m$ = m$ + "2222...." + Chr$(13)
3504.     m$ = m$ + "2222...." + Chr$(13)
3505.     m$ = m$ + "....2222" + Chr$(13)
3506.     m$ = m$ + "....2222" + Chr$(13)
3507.     m$ = m$ + "....2222" + Chr$(13)
3508.     m$ = m$ + "....2222" + Chr$(13)
3509.     arrTileText(239) = m$
3510.  
3511.     m$ = ""
3512.     m$ = m$ + "........" + Chr$(13)
3513.     m$ = m$ + "........" + Chr$(13)
3514.     m$ = m$ + "........" + Chr$(13)
3515.     m$ = m$ + "........" + Chr$(13)
3516.     m$ = m$ + "........" + Chr$(13)
3517.     m$ = m$ + "........" + Chr$(13)
3518.     m$ = m$ + "........" + Chr$(13)
3519.     m$ = m$ + "........" + Chr$(13)
3520.     arrTileText(240) = m$
3521.  
3522.     m$ = ""
3523.     m$ = m$ + "22222.22" + Chr$(13)
3524.     m$ = m$ + "22222.22" + Chr$(13)
3525.     m$ = m$ + "22222.22" + Chr$(13)
3526.     m$ = m$ + "........" + Chr$(13)
3527.     m$ = m$ + "22.22222" + Chr$(13)
3528.     m$ = m$ + "22.22222" + Chr$(13)
3529.     m$ = m$ + "22.22222" + Chr$(13)
3530.     m$ = m$ + "........" + Chr$(13)
3531.     arrTileText(241) = m$
3532.  
3533.     m$ = ""
3534.     m$ = m$ + "........" + Chr$(13)
3535.     m$ = m$ + "........" + Chr$(13)
3536.     m$ = m$ + "........" + Chr$(13)
3537.     m$ = m$ + ".222222." + Chr$(13)
3538.     m$ = m$ + "........" + Chr$(13)
3539.     m$ = m$ + "........" + Chr$(13)
3540.     m$ = m$ + "........" + Chr$(13)
3541.     m$ = m$ + "........" + Chr$(13)
3542.     arrTileText(242) = m$
3543.  
3544.     m$ = ""
3545.     m$ = m$ + "........" + Chr$(13)
3546.     m$ = m$ + "...2...." + Chr$(13)
3547.     m$ = m$ + "...2...." + Chr$(13)
3548.     m$ = m$ + "...2...." + Chr$(13)
3549.     m$ = m$ + "...2...." + Chr$(13)
3550.     m$ = m$ + "...2...." + Chr$(13)
3551.     m$ = m$ + "...2...." + Chr$(13)
3552.     m$ = m$ + "........" + Chr$(13)
3553.     arrTileText(243) = m$
3554.  
3555.     m$ = ""
3556.     m$ = m$ + "........" + Chr$(13)
3557.     m$ = m$ + "........" + Chr$(13)
3558.     m$ = m$ + "........" + Chr$(13)
3559.     m$ = m$ + "...2222." + Chr$(13)
3560.     m$ = m$ + "...2...." + Chr$(13)
3561.     m$ = m$ + "...2...." + Chr$(13)
3562.     m$ = m$ + "...2...." + Chr$(13)
3563.     m$ = m$ + "........" + Chr$(13)
3564.     arrTileText(244) = m$
3565.  
3566.     m$ = ""
3567.     m$ = m$ + "........" + Chr$(13)
3568.     m$ = m$ + "........" + Chr$(13)
3569.     m$ = m$ + "........" + Chr$(13)
3570.     m$ = m$ + ".222...." + Chr$(13)
3571.     m$ = m$ + "...2...." + Chr$(13)
3572.     m$ = m$ + "...2...." + Chr$(13)
3573.     m$ = m$ + "...2...." + Chr$(13)
3574.     m$ = m$ + "........" + Chr$(13)
3575.     arrTileText(245) = m$
3576.  
3577.     m$ = ""
3578.     m$ = m$ + "........" + Chr$(13)
3579.     m$ = m$ + "...2...." + Chr$(13)
3580.     m$ = m$ + "...2...." + Chr$(13)
3581.     m$ = m$ + "...2222." + Chr$(13)
3582.     m$ = m$ + "........" + Chr$(13)
3583.     m$ = m$ + "........" + Chr$(13)
3584.     m$ = m$ + "........" + Chr$(13)
3585.     m$ = m$ + "........" + Chr$(13)
3586.     arrTileText(246) = m$
3587.  
3588.     m$ = ""
3589.     m$ = m$ + "........" + Chr$(13)
3590.     m$ = m$ + "...2...." + Chr$(13)
3591.     m$ = m$ + "...2...." + Chr$(13)
3592.     m$ = m$ + ".222...." + Chr$(13)
3593.     m$ = m$ + "........" + Chr$(13)
3594.     m$ = m$ + "........" + Chr$(13)
3595.     m$ = m$ + "........" + Chr$(13)
3596.     m$ = m$ + "........" + Chr$(13)
3597.     arrTileText(247) = m$
3598.  
3599.     m$ = ""
3600.     m$ = m$ + "........" + Chr$(13)
3601.     m$ = m$ + "........" + Chr$(13)
3602.     m$ = m$ + "........" + Chr$(13)
3603.     m$ = m$ + "........" + Chr$(13)
3604.     m$ = m$ + "........" + Chr$(13)
3605.     m$ = m$ + "........" + Chr$(13)
3606.     m$ = m$ + "........" + Chr$(13)
3607.     m$ = m$ + "........" + Chr$(13)
3608.     arrTileText(248) = m$
3609.  
3610.     m$ = ""
3611.     m$ = m$ + "........" + Chr$(13)
3612.     m$ = m$ + "........" + Chr$(13)
3613.     m$ = m$ + "........" + Chr$(13)
3614.     m$ = m$ + "........" + Chr$(13)
3615.     m$ = m$ + "........" + Chr$(13)
3616.     m$ = m$ + "........" + Chr$(13)
3617.     m$ = m$ + "........" + Chr$(13)
3618.     m$ = m$ + "........" + Chr$(13)
3619.     arrTileText(249) = m$
3620.  
3621.     m$ = ""
3622.     m$ = m$ + "........" + Chr$(13)
3623.     m$ = m$ + "........" + Chr$(13)
3624.     m$ = m$ + "........" + Chr$(13)
3625.     m$ = m$ + "........" + Chr$(13)
3626.     m$ = m$ + "........" + Chr$(13)
3627.     m$ = m$ + "........" + Chr$(13)
3628.     m$ = m$ + "........" + Chr$(13)
3629.     m$ = m$ + "........" + Chr$(13)
3630.     arrTileText(250) = m$
3631.  
3632.     m$ = ""
3633.     m$ = m$ + "........" + Chr$(13)
3634.     m$ = m$ + "........" + Chr$(13)
3635.     m$ = m$ + "........" + Chr$(13)
3636.     m$ = m$ + "........" + Chr$(13)
3637.     m$ = m$ + "........" + Chr$(13)
3638.     m$ = m$ + "........" + Chr$(13)
3639.     m$ = m$ + "........" + Chr$(13)
3640.     m$ = m$ + "........" + Chr$(13)
3641.     arrTileText(251) = m$
3642.  
3643.     m$ = ""
3644.     m$ = m$ + "........" + Chr$(13)
3645.     m$ = m$ + "........" + Chr$(13)
3646.     m$ = m$ + "........" + Chr$(13)
3647.     m$ = m$ + "........" + Chr$(13)
3648.     m$ = m$ + "........" + Chr$(13)
3649.     m$ = m$ + "........" + Chr$(13)
3650.     m$ = m$ + "........" + Chr$(13)
3651.     m$ = m$ + "........" + Chr$(13)
3652.     arrTileText(252) = m$
3653.  
3654.     m$ = ""
3655.     m$ = m$ + "22222222" + Chr$(13)
3656.     m$ = m$ + "2......2" + Chr$(13)
3657.     m$ = m$ + "2......2" + Chr$(13)
3658.     m$ = m$ + "2......2" + Chr$(13)
3659.     m$ = m$ + "2......2" + Chr$(13)
3660.     m$ = m$ + "2......2" + Chr$(13)
3661.     m$ = m$ + "2......2" + Chr$(13)
3662.     m$ = m$ + "22222222" + Chr$(13)
3663.     arrTileText(253) = m$
3664.  
3665.     m$ = ""
3666.     m$ = m$ + "22222222" + Chr$(13)
3667.     m$ = m$ + "22222222" + Chr$(13)
3668.     m$ = m$ + "22222222" + Chr$(13)
3669.     m$ = m$ + "22222222" + Chr$(13)
3670.     m$ = m$ + "22222222" + Chr$(13)
3671.     m$ = m$ + "22222222" + Chr$(13)
3672.     m$ = m$ + "22222222" + Chr$(13)
3673.     m$ = m$ + "22222222" + Chr$(13)
3674.     arrTileText(254) = m$
3675.  
3676.     m$ = ""
3677.     m$ = ""
3678.     m$ = m$ + "22....22" + Chr$(13)
3679.     m$ = m$ + "2..22..2" + Chr$(13)
3680.     m$ = m$ + "2..22..2" + Chr$(13)
3681.     m$ = m$ + "22.....2" + Chr$(13)
3682.     m$ = m$ + "22222..2" + Chr$(13)
3683.     m$ = m$ + "2..22..2" + Chr$(13)
3684.     m$ = m$ + "22....22" + Chr$(13)
3685.     m$ = m$ + "22222222" + Chr$(13)
3686.     arrTileText(255) = m$
3687.  
3688. End Sub ' GetTileText
3689.  
3690. ' ################################################################################################################################################################
3691. ' END TILE DEFINITIONS
3692. ' ################################################################################################################################################################
3693.  
3694. ' ################################################################################################################################################################
3695. ' BEGIN COLOR FUNCTIONS
3696. ' ################################################################################################################################################################
3697. Function cWhite~& ()
3698.     cWhite = _RGB32(255, 255, 255)
3699. End Function ' cWhite~&
3700.  
3701. Function cEmpty~& ()
3702.     cEmpty = _RGB32(0, 0, 0, 0)
3703. End Function ' cEmpty~&
3704.  
3705. Function cBlack~& ()
3706.     cBlack = _RGB32(0, 0, 0)
3707. End Function ' cBlack~&
3708.  
3709. Function cRed~& ()
3710.     cRed = _RGB32(255, 0, 0)
3711. End Function
3712.  
3713. Function cYellow~& ()
3714.     cYellow = _RGB32(255, 255, 0)
3715. End Function ' cYellow~&
3716.  
3717. Function cLime~& ()
3718.     cLime = _RGB32(0, 255, 0)
3719. End Function ' cLime~&
3720.  
3721. Function cCyan~& ()
3722.     cCyan = _RGB32(0, 255, 255)
3723. End Function ' cCyan~&
3724.  
3725. Function cBlue~& ()
3726.     cBlue = _RGB32(0, 0, 255)
3727. End Function ' cBlue~&
3728.  
3729. Function cMagenta~& ()
3730.     cMagenta = _RGB32(255, 0, 255)
3731. End Function ' cMagenta~&
3732.  
3733. Function cOrange~& ()
3734.     cOrange = _RGB32(255, 165, 0)
3735. End Function ' cOrange~&
3736.  
3737. Function cGray~& ()
3738.     cGray = _RGB32(128, 128, 128)
3739. End Function ' cGray~&
3740. ' ################################################################################################################################################################
3741. ' END COLOR FUNCTIONS
3742. ' ################################################################################################################################################################
3743.  
3744. ' ################################################################################################################################################################
3745. ' BEGIN GENERAL PURPOSE ROUTINES #GEN
3746. ' ################################################################################################################################################################
3747. ' /////////////////////////////////////////////////////////////////////////////
3748.  
3749. Function cstr$ (myValue)
3750.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
3751.     cstr$ = _Trim$(Str$(myValue))
3752. End Function ' cstr$
3753.  
3754. ' /////////////////////////////////////////////////////////////////////////////
3755. ' Use with timer functions to avoid "after midnight" bug.
3756.  
3757. ' Re: how to time something (ie do loop for n seconds)
3758. ' https://qb64forum.alephc.xyz/index.php?topic=4682.0
3759.  
3760. ' SMcNeill, QB64 Developer
3761. ' « Reply #1 on: Today at 11:26:52 am »
3762. '
3763. ' One caveat here:  You *can* experience bugs with this after midnight.
3764. '
3765. ' Program starts at 23:59:59.
3766. ' Add three seconds -- 24:00:02...  (In seconds, and not hours and minutes like this, though hours and minutes are easier to visualize.)
3767. ' Clock hits midnight:  0:00:00
3768. '
3769. ' At no point will you ever have TIMER become greater than t#.
3770. '
3771. ' If you're going to have a program which might run into this issue,
3772. ' I'd suggest just plugging in my ExtendedTimer and use it instead:
3773. '
3774. ' Most of us write time code to test little snippets for which method might
3775. ' be faster for us while we're coding.  The clock resetting on us isn't
3776. ' normally such a big deal.  When it is, however, all you have to do is
3777. ' swap to the ExtendedTimer function [below]
3778. '
3779. ' Returns a value for you based off DAY + TIME, rather than just time alone!
3780. ' No midnight clock issues with something like that in our programs.  ;)
3781.  
3782. ' Usage:
3783. '     ' DO SOMETHING FOR 3 SECONDS
3784. '     t# = ExtendedTimer + 3
3785. '     Do
3786. '         '(SOMETHING)
3787. '     Loop Until Timer > t#
3788.  
3789. FUNCTION ExtendedTimer##
3790.     d$ = DATE$
3791.     l = INSTR(d$, "-")
3792.     l1 = INSTR(l + 1, d$, "-")
3793.     m = VAL(LEFT$(d$, l))
3794.     d = VAL(MID$(d$, l + 1))
3795.     y = VAL(MID$(d$, l1 + 1)) - 1970
3796.     FOR i = 1 TO m
3797.         SELECT CASE i 'Add the number of days for each previous month passed
3798.             CASE 1: d = d 'January doestn't have any carry over days.
3799.             CASE 2, 4, 6, 8, 9, 11: d = d + 31
3800.             CASE 3: d = d + 28
3801.             CASE 5, 7, 10, 12: d = d + 30
3802.         END SELECT
3803.     NEXT
3804.     FOR i = 1 TO y
3805.         d = d + 365
3806.     NEXT
3807.     FOR i = 2 TO y STEP 4
3808.         IF m > 2 THEN d = d + 1 'add an extra day for leap year every 4 years, starting in 1970
3809.     NEXT
3810.     d = d - 1 'for year 2000
3811.     s~&& = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
3812.     ExtendedTimer## = (s~&& + TIMER)
3813. END FUNCTION ' ExtendedTimer##
3814.  
3815. ' /////////////////////////////////////////////////////////////////////////////
3816. ' FROM: String Manipulation
3817. ' found at abandoned, outdated and now likely malicious qb64 dot net website
3818. ' http://www.qb64.[net]/forum/index_topic_5964-0/
3819. '
3820. 'SUMMARY:
3821. '   Purpose:  A library of custom functions that transform strings.
3822. '   Author:   Dustinian Camburides (dustinian@gmail.com)
3823. '   Platform: QB64 (www.qb64.org)
3824. '   Revision: 1.6
3825. '   Updated:  5/28/2012
3826.  
3827. 'SUMMARY:
3828. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
3829. 'INPUT:
3830. 'Text: The input string; the text that's being manipulated.
3831. 'Find: The specified sub-string; the string sought within the [Text] string.
3832. 'Add: The sub-string that's being added to the [Text] string.
3833.  
3834. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
3835.     ' VARIABLES:
3836.     Dim Text2 As String
3837.     Dim Find2 As String
3838.     Dim Add2 As String
3839.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
3840.     Dim strBefore As String ' The characters before the string to be replaced.
3841.     Dim strAfter As String ' The characters after the string to be replaced.
3842.  
3843.     ' INITIALIZE:
3844.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
3845.     Text2 = Text1
3846.     Find2 = Find1
3847.     Add2 = Add1
3848.  
3849.     lngLocation = InStr(1, Text2, Find2)
3850.  
3851.     ' PROCESSING:
3852.     ' While [Find2] appears in [Text2]...
3853.     While lngLocation
3854.         ' Extract all Text2 before the [Find2] substring:
3855.         strBefore = Left$(Text2, lngLocation - 1)
3856.  
3857.         ' Extract all text after the [Find2] substring:
3858.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
3859.  
3860.         ' Return the substring:
3861.         Text2 = strBefore + Add2 + strAfter
3862.  
3863.         ' Locate the next instance of [Find2]:
3864.         lngLocation = InStr(1, Text2, Find2)
3865.  
3866.         ' Next instance of [Find2]...
3867.     Wend
3868.  
3869.     ' OUTPUT:
3870.     Replace$ = Text2
3871. End Function ' Replace$
3872.  
3873. ' /////////////////////////////////////////////////////////////////////////////
3874. ' Split and join strings
3875. ' https://www.qb64.org/forum/index.php?topic=1073.0
3876. '
3877. ' FROM luke, QB64 Developer
3878. ' Date: February 15, 2019, 04:11:07 AM »
3879. '
3880. ' Given a string of words separated by spaces (or any other character),
3881. ' splits it into an array of the words. I've no doubt many people have
3882. ' written a version of this over the years and no doubt there's a million
3883. ' ways to do it, but I thought I'd put mine here so we have at least one
3884. ' version. There's also a join function that does the opposite
3885. ' array -> single string.
3886. '
3887. ' Code is hopefully reasonably self explanatory with comments and a little demo.
3888. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
3889.  
3890. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
3891. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
3892. '
3893. 'delimiter$ must be one character long.
3894. 'result$() must have been REDIMmed previously.
3895.  
3896. ' Modified to handle multi-character delimiters
3897.  
3898. Sub split (in$, delimiter$, result$())
3899.     Dim start As Integer
3900.     Dim finish As Integer
3901.     Dim iDelimLen As Integer
3902.     ReDim result$(-1)
3903.  
3904.     iDelimLen = Len(delimiter$)
3905.  
3906.     start = 1
3907.     Do
3908.         'While Mid$(in$, start, 1) = delimiter$
3909.         While Mid$(in$, start, iDelimLen) = delimiter$
3910.             'start = start + 1
3911.             start = start + iDelimLen
3912.             If start > Len(in$) Then
3913.                 Exit Sub
3914.             End If
3915.         Wend
3916.         finish = InStr(start, in$, delimiter$)
3917.         If finish = 0 Then
3918.             finish = Len(in$) + 1
3919.         End If
3920.  
3921.         ReDim _Preserve result$(0 To UBound(result$) + 1)
3922.  
3923.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
3924.         start = finish + 1
3925.     Loop While start <= Len(in$)
3926. End Sub ' split
3927. ' ################################################################################################################################################################
3928. ' END GENERAL PURPOSE ROUTINES #GEN
3929. ' ################################################################################################################################################################
3930.  
3931. ' ################################################################################################################################################################
3932. ' BEGIN HARDWARE IMAGES DEMO #2 (WORKS)
3933. ' ################################################################################################################################################################
3934.  
3935. ' /////////////////////////////////////////////////////////////////////////////
3936. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
3937. ' https://qb64forum.alephc.xyz/index.php?topic=4674.0
3938.  
3939. ' madscijr
3940. ' « Reply #5 on: Yesterday at 09:46:53 pm »
3941.  
3942. ' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
3943. ' Hardware images basically get their speed by being a sort of "Write Only"
3944. ' method for images. You can make them, you can put them on the screen,
3945. ' but you can't edit them or read information back from them.
3946. ' ...
3947. ' 2) You don't have to specify where they show up as a destination with putimage.
3948. ' ...
3949. ' If you have any specific questions, feel free to ask them and I'll do my
3950. ' best to answer for you, if I can.  ;)
3951. '
3952. ' Thanks for taking the time to explain all that. When I'm back at the PC,
3953. ' I'll try out your example.
3954. '
3955. ' For now, just one question: if you can't read information from them or even
3956. ' specify where on the destination they go, how are they even useful?
3957. ' Maybe it will click when I run your example or read up on it, but I just
3958. ' don't see what the use of an image would be if you can't control where on
3959. ' the screen it is drawn? Or how it would help speed up drawing a map of
3960. ' colored tiles to the screen.
3961. '
3962. ' Thanks again...
3963.  
3964. ' SMcNeill, QB64 Developer
3965. ' « Reply #6 on: Today at 01:14:28 am »
3966. '
3967. ' Try this out and see if it doesn't help answer your questions:
3968.  
3969. Sub HardwareImageDemo2
3970.     $Color:32
3971.     Display = _NewImage(1024, 720, 32)
3972.     Software = _NewImage(1024, 720, 32)
3973.  
3974.     Screen Display
3975.     Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
3976.     Print "Press <ANY KEY> to view this screen."
3977.     Sleep
3978.  
3979.     _Dest Software
3980.     For y = 0 To 720 Step 40
3981.         For x = 0 To 1024 Step 40
3982.             Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
3983.         Next
3984.     Next
3985.  
3986.     _Dest Display
3987.     _PutImage , Software
3988.     Print
3989.     Print "As you can see, this is a simple software screen."
3990.     Print "Now, I'm going to copy that software screen and make it a hardware screen."
3991.     Print "Press <ANY KEY> for me to do so!"
3992.     Sleep
3993.  
3994.     Hardware = _CopyImage(Software, 33)
3995.     Cls
3996.     Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
3997.     Print
3998.     Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
3999.     Print
4000.     Print "First, the software screen!  Press <ANY KEY> to continue."
4001.     Sleep
4002.  
4003.     _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
4004.     Print: Print: Print: Print: Print: Print: Print
4005.     Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
4006.     Print
4007.     Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
4008.     Sleep: _KeyClear
4009.  
4010.     _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
4011.     Print
4012.     Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
4013.     Print
4014.     Print "Doesn't really seem to be very different at all, now does it?"
4015.     Print
4016.     Print "Press <ANY KEY> to continue."
4017.     _Display
4018.     Sleep
4019.  
4020.     _AutoDisplay
4021.     Print
4022.     Color Red
4023.     Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
4024.     Color White
4025.     Print
4026.     Print "It's no longer on the screen, as it was previously.  Why??"
4027.     Print
4028.     Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
4029.     Print
4030.     Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
4031.     Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
4032.     Print
4033.     Print "If we want one to remain on the screen, we have to do it either by:"
4034.     Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
4035.     Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
4036.     Print
4037.     Print "Press <ANY KEY> to continue."
4038.     Sleep
4039.  
4040.     Cls
4041.     Print
4042.     Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
4043.     Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
4044.     Print
4045.     Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
4046.     Print "Press <ANY KEY> to find out!"
4047.     Sleep
4048.  
4049.     t# = ExtendedTimer + 3
4050.     Do
4051.         count = count + 1
4052.         _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
4053.         x = x + 40
4054.         If x > 1024 Then x = 0: y = y + 40
4055.         If y > 720 Then x = 0: y = 0
4056.         _Display
4057.     Loop Until Timer > t#
4058.     _AutoDisplay
4059.  
4060.     Print: Print: Print: Print: Print: Print: Print: Print
4061.     Print "See lots of flashing tiles on the screen for the last three seconds?"
4062.     Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
4063.     Print
4064.     Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
4065.     Sleep
4066.  
4067.     count = 0: x = 0: y = 0
4068.     t# = ExtendedTimer + 3
4069.     tempScreen = _CopyImage(Display, 33)
4070.     _DisplayOrder _Hardware
4071.     Do
4072.         count = count + 1
4073.         _PutImage , tempScreen
4074.         _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
4075.         x = x + 40
4076.         If x > 1024 Then x = 0: y = y + 40
4077.         If y > 720 Then x = 0: y = 0
4078.         _Display
4079.     Loop Until Timer > t#
4080.  
4081.     _FreeImage tempScreen
4082.     _AutoDisplay
4083.     _DisplayOrder _Hardware , _Software
4084.     Print
4085.     Print "Didn't seem very different at the rate of which we were running things, now did it?"
4086.     Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
4087.     Print
4088.     Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
4089.     Print "complete copy of the original software screen as well!"
4090.     Print
4091.     Print "The reason why I did this?"
4092.     Print
4093.     Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
4094.     Print
4095.     Print "Press <ANY KEY> to continue"
4096.     Sleep
4097.  
4098.     Cls
4099.     Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
4100.     Print
4101.     Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
4102.     Print "To start with, I'm going to do this in a LOOP with the software images."
4103.     Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
4104.     Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
4105.  
4106.     Do
4107.         _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
4108.         x = x + 40
4109.         If x > 1024 Then x = 0: y = y + 40
4110.         If y > 720 Then x = 0: y = 0
4111.         _Limit 60
4112.         _Display
4113.     Loop Until _KeyDown(27)
4114.  
4115.     Cls , 0
4116.     Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
4117.     tempImage = _CopyImage(Display, 33)
4118.     x = 0: y = 0
4119.     _DisplayOrder _Hardware
4120.     Do
4121.         _PutImage , tempImage
4122.         _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
4123.         x = x + 40
4124.         If x > 1024 Then x = 0: y = y + 40
4125.         If y > 720 Then x = 0: y = 0
4126.         _Limit 60
4127.         _Display
4128.     Loop Until _KeyDown(32)
4129.  
4130.     _DisplayOrder _Software , _Hardware
4131.     _AutoDisplay
4132.     Cls
4133.     Print "On my laptop, these two methods use the following amounts of CPU power:"
4134.     Print "Software, 60 FPS -- 3% CPU"
4135.     Print "Hardware, 60 FPS -- 0.1% CPU"
4136.     Print
4137.     Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
4138.     Print "Software, 600 FPS -- 10.3% CPU"
4139.     Print "Hardware, 600 FPS -- 0.1% CPU"
4140.     Print
4141.     Print
4142.     Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
4143.     Print
4144.     Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
4145.     Print
4146.     Print
4147.     Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
4148.     Print "to their own hardware layer, which you can specify to go on below or above your software screen."
4149.     Print
4150.     Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
4151.     Print
4152.     Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
4153.     Print
4154.     Print
4155.     Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
4156. End Sub ' HardwareImageDemo2
4157.  
4158. ' ################################################################################################################################################################
4159. ' END HARDWARE IMAGES DEMO #2 (WORKS)
4160. ' ################################################################################################################################################################
4161.  

[SMcNeill]

One thing that would be *very* different with all hardware images vs what you're doing currently, is the fact that you have to remember:  Hardware images display once and then flush themselves from the GPU buffer. 

You can't just print to a tile, and then read the information for the color of that tile, and instantly turn that color into another one.  You have write access to hardware images, but not read access -- and the images aren't persistent like the software images are.

For something like this to work for a whole screen in hardware image mode, you'd have to sort out some sort of way to store your screen's info and then constantly redraw everything over and over again to keep it refreshed on the display.

The way I'd  go about doing something like this would be to make myself a custom SCREEN 0-style memory array.  Screen 0 stores all our information for each character in 2 bytes -- one for color, one for character.  I'd basically do the same, but with 3 bytes -- one for tile color, one for font color, one for character.

Let me toss a simple demo of this line of thinking for you:

Code: QB64: [Select]

1. Randomize Timer
2.  
3. Display = _NewImage(800, 600, 32) 'my main screenwich is 100 by 75 characters with 8x8 font.
4. Tile = _NewImage(8 * 256, 8, 32) '8x8 tiles in 256 colors
5. Font = _NewImage(8 * 256, 8 * 256, 32) '256 characters of an 8x8 font, in all 256 possible colors.
6.  
7. Screen Display 'Set the main screen for starters so it'll go ahead and create itself properly while I'm working on making my tiles and fonts
8.  
9.  
10.  
11. Dim As _Unsigned Long Kolors(255) 'an array to hold all my color values
12. tempScreen256 = _NewImage(10, 10, 256) 'very tiny 256 color screen, just to borrow the palette from
13. For i = 0 To 255 '40 colors
14.     Kolors(i) = _RGB32(_Red(i, tempScreen256), _Green(i, tempScreen256), _Blue(i, tempScreen256)) 'since I don't know your color palette, I'll just copy the QB64 256 color palette.  ;)
15. Next
16. _FreeImage tempScreen256 'free up all images once done with them
17.  
18. _Dest Tile 'Create my software tiles of 256 colors
19. For i = 0 To 255 '256 tiles, one for each color
20.     Line (i * 8, 0)-Step(8, 8), Kolors(i), BF 'all drawn sequentially onto a sprite sheet
21. Next
22.  
23. _Dest Font
24. _Font 8 'I'm just going to use the built in QB64 8x8 font for quick and easy sheet creation.
25. For k = 0 To 255 '256 colors
26.     Color Kolors(k), 0 'make our font the proper color
27.     For c = 0 To 255 '256 characters
28.         _PrintString (c * 8, k * 8), Chr$(c) 'print the characters row by row to the screen
29.     Next
30. Next
31. _Dest Display
32.  
33. Sleep 'View the blank screen  until a key is hit
34. Screen Tile 'View the tiles
35. Sleep 'until a key is hit
36. Screen Font 'view the fonts
37. Sleep 'until a key is hit
38. Screen Display 'and back to the normal blank screen
39. _Delay .2 'time to remove finger from key
40. Dim Shared As Long TileHw, FontHw
41.  
42. TileHw = _CopyImage(Tile, 33) 'hardware copy of the tile image
43. FontHw = _CopyImage(Font, 33) 'hardware copy of the font image
44.  
45. _FreeImage Tile 'free unused images when done with them
46. _FreeImage Font 'free unused images when done with them
47.  
48. _DisplayOrder _Hardware 'From this point onwards, I'm *ONLY* going to use my hardware layer
49.  
50. Dim Shared ScreenArray(99, 74) As _Unsigned Long 'Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
51.  
52. 'To start with, let's put all 256 chracters on the screen, on a color 40 tile (red), in a color 3 font (cyan)
53. For i = 0 To 255
54.     x = x + 1: If x > 99 Then x = 0: y = y + 1
55.     ScreenArray(x, y) = SetAll(40, 3, i) '40 tile color, 3 font color, i is the character
56. Next
57.  
58. Do 'And then let's show these results on the screen.  Take a moment to open task manager and see how little resources we're using here.
59.     ScreenRender 'Draw a whole screen full of these tiles + characters
60.     _Limit 30
61. Loop Until _KeyDown(13) 'until we hit ENTER
62.  
63. _Delay .2 'time to lift up the key so we don't instantly blow past the next loop
64.  
65. x = 0: y = 0
66. For i = 0 To 255 'and here I'm going to set all these tiles to have incremental background tile colors
67.     x = x + 1: If x > 99 Then x = 0: y = y + 1 'from left to right, top to bottom
68.     SetArrayTile x, y, i 'set each tile to become an ever increasing color value
69. Next
70.  
71. Do 'And then let's show these results on the screen.
72.     ScreenRender 'Draw a whole screen full of these tiles + characters
73.     _Limit 30
74. Loop Until _KeyDown(13) 'until we hit ENTER
75.  
76. 'And to finish up, let's do a quick count of how many loops per second we *could* process, with the whole screen being redrawn over and over like this
77. t## = Timer + 3
78. Do
79.     count& = count& + 1
80.     ScreenRender
81. Loop Until Timer > t##
82.  
83. _DisplayOrder _Software
84. Print "Whole screen rendering of color tile + color font = "; count&; " times in 3 seconds."
85.  
86.  
87. Sub ScreenRender
88.     Dim As _Unsigned Long tileColor, fontColor, character
89.     For x = 0 To 99
90.         For y = 0 To 74
91.             tileColor = ScreenArray(x, y) \ (256 * 256)
92.             fontColor = (ScreenArray(x, y) - tileColor * 256 * 256) \ 256
93.             character = ScreenArray(x, y) Mod 256
94.             _PutImage (x * 8, y * 8)-Step(7, 7), TileHw, , (tileColor * 8, 0)-Step(7, 7)
95.             _PutImage (x * 8, y * 8)-Step(7, 7), FontHw, , (character * 8, fontColor * 8)-Step(7, 7)
96.         Next
97.     Next
98.     _Display
99. End Sub
100.  
101. Function SetAll&& (tile, fontcolor, character)
102.     SetAll&& = tile * 256 * 256 + fontcolor * 256 + character
103. End Function
104.  
105. Sub SetArrayTile (x, y, newTileColor)
106.     temp&& = ScreenArray(x, y)
107.     oldTile&& = temp&& \ (256 * 256)
108.     ScreenArray(x, y) = temp&& - oldTile&& + newTileColor * 256 * 256
109. End Sub
110.  
111. Sub SetArrayFontColor (x, y, newFontColor)
112.     temp&& = ScreenArray(x, y)
113.     oldTile&& = temp&& \ (256 * 256)
114.     oldFont&& = (temp&& - oldTile&&) \ 256
115.     ScreenArray(x, y) = temp&& - oldFont&& + newFontColor * 256
116. End Sub
117.  
118. Sub SetArrayCharacter (x, y, newCharacter)
119.     temp&& = ScreenArray(x, y)
120.     oldCharacter&& = temp&& Mod 256
121.     ScreenArray(x, y) = temp&& - oldCharacter&& + newCharacter
122. End Sub
123.  

I tried to comment the heck out of the code to help explain what it's doing from line to line, so I hope this isn't too hard to sort out and understand.

The beginning is nothing more than initializing things and making 2 different sprite sheets that I'll make use of later -- one for the tiles and one for the characters.

Then there's the mid section where you can SLEEP step through and view the various resource sheets.

Then an example of all the characters in a cyan font, resting atop a red tile.  (You have to hit ENTER to move on from this screen.)

Then an example of all those tiles that go under the characters being replaced with sequential colored tiles.  (A lot of these tiles are simply BLACK, but that's the nature of the 256 color palette as those multiple blacks are there to be replaced with custom color values instead.)

Once more, you'll have to hit ENTER to continue.

And then I do a quick time loop to count how many times we can redraw the whole screen of tiles + characters in 3 seconds.


For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of about 1800 refreshes in that time.  That's around 600 FPS, which would be more than enough for any sort of game display or use that I think I could come up with, and that's without me trying to optimize math or any such things to reduce calculations and speed the process up any more.  (Keep in mind, this is 1800 full pages of a 800x600 screen -- if your screen has a lower overall resolution, then you'd draw more loops with less to process, but a higher resolution screen would draw fewer loops with more to process.)

No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page of tiles and colored characters.  (And, YES, it is a whole page being rendered repeatedly -- even if I didn't bother to fill in the vast majority of that page with anything more than black tiles, black fonts, and chr$(0) blank spaces...)

It's a completely different approach to displaying stuff than what you've been doing, but it seems as if what you've been doing isn't working as it must be running too slow for you.  You wouldn't be able to use the normal PRINT statements to display to the faux screen memory array I've created; you'd have to write your own.


For a quick speed comparison, here's the same type process ran using PRINT and a software screen of the same size:

Code: QB64: [Select]

1. Screen _NewImage(800, 600, 32)
2. _ControlChr Off
3.  
4. t## = Timer + 3
5. _Font 8
6. Do
7.     count = count + 1
8.     For x = 1 To 100
9.         For y = 1 To 75
10.             c = (c + 1) Mod 256
11.             Color _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)
12.             Locate y, x: Print Chr$(c);
13.         Next
14.     Next
15. Loop Until Timer > t##
16. Cls
17. Print count; "total screen replacements in 3 seconds."
18.  

About 600 times in 3 seconds, for a total of 200 FPS on my machine.

The faux hardware screen array is ~ 3 times faster than this, without us trying to do anything to optimize performance any more than just sticking to the very basics.  ;)

More is required to work with it, but it does run faster once all is said and done, if that's the primary concern that your program is facing -- display speeds from character rendering.  :)

[madscijr]

...
The way I'd go about doing something like this would be to make myself a custom SCREEN 0-style memory array. 
...
Let me toss a simple demo of this line of thinking for you:
...
More is required to work with it, but it does run faster once all is said and done, if that's the primary concern that your program is facing -- display speeds from character rendering.  :)

I'll have to give this a look when at the PC. I appreciate all the work put into this and hope this can benefit you and others, not just me! Hopefully the end result can be a reusable pattern or set of functions for other applications. Thanks yet again for your time and the thought that has gone into this.

[madscijr]

About 600 times in 3 seconds, for a total of 200 FPS on my machine.
The faux hardware screen array is ~ 3 times faster than this, without us trying to do anything to optimize performance any more than just sticking to the very basics.  ;)
More is required to work with it, but it does run faster once all is said and done, if that's the primary concern that your program is facing -- display speeds from character rendering.  :)

I ran it and see the difference in speed.
No time now to get into it in detail, but at the end of the hardware image sample, it seems to lock up.
(See my version below.)
Any idea why? I do a keyclear and return to screen 0 but the program just becomes nonresponsive after that.
Thanks again.

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2.  
3. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
4. ' https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904
5.  
6. ' SMcNeill, QB64 Developer
7. ' Reply #18 on: Yesterday at 05:08:58 pm
8. '
9. ' One thing that would be *very* different with all hardware images vs what
10. ' you're doing currently, is the fact that you have to remember:  
11. ' Hardware images display once and then flush themselves from the GPU buffer.
12. '
13. ' You can't just print to a tile, and then read the information for the color of
14. ' that tile, and instantly turn that color into another one.  You have write
15. ' access to hardware images, but not read access -- and the images aren't
16. ' persistent like the software images are.
17. '
18. ' For something like this to work for a whole screen in hardware image mode,
19. ' you'd have to sort out some sort of way to store your screen's info and then
20. ' constantly redraw everything over and over again to keep it refreshed on the
21. ' display.
22. '
23. ' The way I'd go about doing something like this would be to make myself a
24. ' custom SCREEN 0-style memory array.  Screen 0 stores all our information for
25. ' each character in 2 bytes -- one for color, one for character.  I'd basically
26. ' do the same, but with 3 bytes -- one for tile color, one for font color, one
27. ' for character.
28. '
29. ' Let me toss a simple demo of this line of thinking for you:
30. ' (TestCustomHardwareScreen1)
31. '
32. ' I tried to comment the heck out of the code to help explain what it's doing
33. ' from line to line, so I hope this isn't too hard to sort out and understand.
34. '
35. ' The beginning is nothing more than initializing things and making 2 different
36. ' sprite sheets that I'll make use of later -- one for the tiles and one for the
37. ' characters.
38. '
39. ' Then there's the mid section where you can SLEEP step through and view the
40. ' various resource sheets.
41. '
42. ' Then an example of all the characters in a cyan font, resting atop a red tile.  
43. ' (You have to hit ENTER to move on from this screen.)
44. '
45. ' Then an example of all those tiles that go under the characters being replaced
46. ' with sequential colored tiles.  (A lot of these tiles are simply BLACK, but
47. ' that's the nature of the 256 color palette as those multiple blacks are there
48. ' to be replaced with custom color values instead.)
49. '
50. ' Once more, you'll have to hit ENTER to continue.
51. '
52. ' And then I do a quick time loop to count how many times we can redraw the whole
53. ' screen of tiles + characters in 3 seconds.
54. '
55. ' For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of
56. ' about 1800 refreshes in that time.  That's around 600 FPS, which would be more
57. ' than enough for any sort of game display or use that I think I could come up
58. ' with, and that's without me trying to optimize math or any such things to
59. ' reduce calculations and speed the process up any more.  (Keep in mind, this is
60. ' 1800 full pages of a 800x600 screen -- if your screen has a lower overall
61. ' resolution, then you'd draw more loops with less to process, but a higher
62. ' resolution screen would draw fewer loops with more to process.)
63. '
64. ' No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page
65. ' of tiles and colored characters.  (And, YES, it is a whole page being rendered
66. ' repeatedly -- even if I didn't bother to fill in the vast majority of that page
67. ' with anything more than black tiles, black fonts, and chr$(0) blank spaces...)
68. '
69. ' It's a completely different approach to displaying stuff than what you've been
70. ' doing, but it seems as if what you've been doing isn't working as it must be
71. ' running too slow for you.  You wouldn't be able to use the normal PRINT
72. ' statements to display to the faux screen memory array I've created; you'd have
73. ' to write your own.
74. '
75. ' For a quick speed comparison, here's the same type process ran using PRINT
76. ' and a software screen of the same size:
77. ' (TestSoftwareScreen1)
78.  
79. ' ################################################################################################################################################################
80.  
81. ' BOOLEAN VALUES
82. Const FALSE = 0
83. Const TRUE = Not FALSE
84.  
85. ' GLOBAL VARIABLES
86. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
87. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
88. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES DEBUG CONSOLE
89. Dim Shared As Long TileHw, FontHw
90. Dim Shared ScreenArray(99, 74) As _Unsigned Long 'Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
91.  
92. ' LOCAL VARIABLES
93. Dim in$
94.  
95. ' ****************************************************************************************************************************************************************
96. ' ACTIVATE DEBUGGING WINDOW
97. If m_bDebug = TRUE Then
98.     $Console
99.     _Delay 4
100.     _Console On
101.     _Echo "Started " + m_ProgramName$
102.     _Echo "Debugging on..."
103. End If
104. ' ****************************************************************************************************************************************************************
105.  
106. ' START THE MAIN ROUTINE
107. main
108.  
109. ' FINISH
110. Screen 0
111. Print m_ProgramName$ + " finished."
112. Input "Press <ENTER> to continue", in$
113.  
114. ' ****************************************************************************************************************************************************************
115. ' DEACTIVATE DEBUGGING WINDOW
116. If m_bDebug = TRUE Then
117.     _Console Off
118. End If
119. ' ****************************************************************************************************************************************************************
120.  
121. System ' return control to the operating system
122. End
123.  
124. ' ################################################################################################################################################################
125.  
126. ' /////////////////////////////////////////////////////////////////////////////
127.  
128. Sub main
129.     Dim RoutineName As String: RoutineName = "main"
130.     Dim in$
131.     Dim bFinished As Integer : bFinished = FALSE
132.     Dim result$: result$ = ""
133.     Do
134.                 Screen 0
135.         Cls
136.         Print m_ProgramName$
137.         Print
138.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
139.         Print
140.         Print "1) TestCustomHardwareScreen1"
141.                 Print "2) ^ instructions"
142.                 Print
143.         Print "3) TestSoftwareScreen1"
144.         Print "4) ^ instructions"
145.         Print
146.         Print "Q) Exit program"
147.         Do
148.             in$ = InKey$
149.             If ucase$(in$) = "Q" Then
150.                 bFinished = TRUE : Exit Do
151.             ElseIf ucase$(in$) = "1" Then
152.                 TestCustomHardwareScreen1 : Exit Do
153.             ElseIf ucase$(in$) = "2" Then
154.                 ShowInstructions(GetInstructions1$) : Exit Do
155.             ElseIf ucase$(in$) = "3" Then
156.                 TestSoftwareScreen1 : Exit Do
157.             ElseIf ucase$(in$) = "4" Then
158.                 ShowInstructions(GetInstructions2$) : Exit Do
159.             End If
160.         Loop
161.     Loop Until bFinished = TRUE
162. End Sub ' main
163.  
164. ' /////////////////////////////////////////////////////////////////////////////
165.  
166. Sub ShowInstructions(in$)
167.     Dim iLoop As Integer
168.     Dim iCount As Integer : iCount = 0
169.     Dim iRows As Integer : iRows = _Height(0) '\ _FontHeight ' GET # OF AVAILABLE TEXT ROWS
170.     ReDim arrLines(-1) As String
171.     Cls
172.     split in$, CHR$(13), arrLines() ' SPLIT OUTPUT INTO LINES
173.     for iLoop = lbound(arrLines) to ubound(arrLines)
174.         print arrLines(iLoop)
175.         iCount = iCount + 1
176.         if iCount > (iRows - 5) then
177.             'INPUT "PRESS <ENTER> TO CONTINUE"; in$
178.                         Sleep
179.             iCount = 0
180.         end if
181.     next iLoop
182.         print
183.     input "PRESS <ENTER> TO CONTINUE";in$
184. End Sub ' ShowInstructions
185.  
186. ' /////////////////////////////////////////////////////////////////////////////
187. ' Split and join strings
188. ' https://www.qb64.org/forum/index.php?topic=1073.0
189. '
190. ' FROM luke, QB64 Developer
191. ' Date: February 15, 2019, 04:11:07 AM »
192. '
193. ' Given a string of words separated by spaces (or any other character),
194. ' splits it into an array of the words. I've no doubt many people have
195. ' written a version of this over the years and no doubt there's a million
196. ' ways to do it, but I thought I'd put mine here so we have at least one
197. ' version. There's also a join function that does the opposite
198. ' array -> single string.
199. '
200. ' Code is hopefully reasonably self explanatory with comments and a little demo.
201. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
202.  
203. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
204. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
205. '
206. 'delimiter$ must be one character long.
207. 'result$() must have been REDIMmed previously.
208.  
209. ' Modified to handle multi-character delimiters
210.  
211. Sub split (in$, delimiter$, result$())
212.     Dim start As Integer
213.     Dim finish As Integer
214.     Dim iDelimLen As Integer
215.     ReDim result$(-1)
216.  
217.     iDelimLen = Len(delimiter$)
218.  
219.     start = 1
220.     Do
221.         'While Mid$(in$, start, 1) = delimiter$
222.         While Mid$(in$, start, iDelimLen) = delimiter$
223.             'start = start + 1
224.             start = start + iDelimLen
225.             If start > Len(in$) Then
226.                 Exit Sub
227.             End If
228.         Wend
229.         finish = InStr(start, in$, delimiter$)
230.         If finish = 0 Then
231.             finish = Len(in$) + 1
232.         End If
233.  
234.         ReDim _Preserve result$(0 To UBound(result$) + 1)
235.  
236.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
237.         start = finish + 1
238.     Loop While start <= Len(in$)
239. End Sub ' split
240.  
241. ' ################################################################################################################################################################
242.  
243. ' /////////////////////////////////////////////////////////////////////////////
244.  
245. Function GetInstructions1$
246.     Dim in$
247.         in$ = ""
248.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + chr$(13)
249.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + chr$(13)
250.     in$ = in$ + " " + chr$(13)
251.         in$ = in$ + "SMcNeill, QB64 Developer" + chr$(13)
252.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + chr$(13)
253.     in$ = in$ + " " + chr$(13)
254.     in$ = in$ + "One thing that would be *very* different with all hardware images vs what " + chr$(13)
255.     in$ = in$ + "you're doing currently, is the fact that you have to remember:  " + chr$(13)
256.     in$ = in$ + "Hardware images display once and then flush themselves from the GPU buffer. " + chr$(13)
257.     in$ = in$ + " " + chr$(13)
258.     in$ = in$ + "You can't just print to a tile, and then read the information for the color of " + chr$(13)
259.     in$ = in$ + "that tile, and instantly turn that color into another one.  You have write " + chr$(13)
260.     in$ = in$ + "access to hardware images, but not read access -- and the images aren't " + chr$(13)
261.     in$ = in$ + "persistent like the software images are." + chr$(13)
262.     in$ = in$ + " " + chr$(13)
263.     in$ = in$ + "For something like this to work for a whole screen in hardware image mode, " + chr$(13)
264.     in$ = in$ + "you'd have to sort out some sort of way to store your screen's info and then " + chr$(13)
265.     in$ = in$ + "constantly redraw everything over and over again to keep it refreshed on the " + chr$(13)
266.     in$ = in$ + "display." + chr$(13)
267.     in$ = in$ + " " + chr$(13)
268.     in$ = in$ + "The way I'd go about doing something like this would be to make myself a " + chr$(13)
269.     in$ = in$ + "custom SCREEN 0-style memory array.  Screen 0 stores all our information for " + chr$(13)
270.     in$ = in$ + "each character in 2 bytes -- one for color, one for character.  I'd basically " + chr$(13)
271.     in$ = in$ + "do the same, but with 3 bytes -- one for tile color, one for font color, one " + chr$(13)
272.     in$ = in$ + "for character." + chr$(13)
273.     in$ = in$ + " " + chr$(13)
274.     in$ = in$ + "Let me toss a simple demo of this line of thinking for you:" + chr$(13)
275.     in$ = in$ + " " + chr$(13)
276.     in$ = in$ + "I tried to comment the heck out of the code to help explain what it's doing " + chr$(13)
277.     in$ = in$ + "from line to line, so I hope this isn't too hard to sort out and understand." + chr$(13)
278.     in$ = in$ + " " + chr$(13)
279.     in$ = in$ + "The beginning is nothing more than initializing things and making 2 different " + chr$(13)
280.     in$ = in$ + "sprite sheets that I'll make use of later -- one for the tiles and one for the " + chr$(13)
281.     in$ = in$ + "characters." + chr$(13)
282.     in$ = in$ + " " + chr$(13)
283.     in$ = in$ + "Then there's the mid section where you can SLEEP step through and view the " + chr$(13)
284.     in$ = in$ + "various resource sheets." + chr$(13)
285.     in$ = in$ + " " + chr$(13)
286.     in$ = in$ + "Then an example of all the characters in a cyan font, resting atop a red tile.  " + chr$(13)
287.     in$ = in$ + "(You have to hit ENTER to move on from this screen.)" + chr$(13)
288.     in$ = in$ + " " + chr$(13)
289.     in$ = in$ + "Then an example of all those tiles that go under the characters being replaced " + chr$(13)
290.     in$ = in$ + "with sequential colored tiles.  (A lot of these tiles are simply BLACK, but " + chr$(13)
291.     in$ = in$ + "that's the nature of the 256 color palette as those multiple blacks are there " + chr$(13)
292.     in$ = in$ + "to be replaced with custom color values instead.)" + chr$(13)
293.     in$ = in$ + " " + chr$(13)
294.     in$ = in$ + "Once more, you'll have to hit ENTER to continue." + chr$(13)
295.     in$ = in$ + " " + chr$(13)
296.     in$ = in$ + "And then I do a quick time loop to count how many times we can redraw the whole " + chr$(13)
297.     in$ = in$ + "screen of tiles + characters in 3 seconds." + chr$(13)
298.     in$ = in$ + " " + chr$(13)
299.     in$ = in$ + "For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of " + chr$(13)
300.     in$ = in$ + "about 1800 refreshes in that time.  That's around 600 FPS, which would be more " + chr$(13)
301.     in$ = in$ + "than enough for any sort of game display or use that I think I could come up " + chr$(13)
302.     in$ = in$ + "with, and that's without me trying to optimize math or any such things to " + chr$(13)
303.     in$ = in$ + "reduce calculations and speed the process up any more.  (Keep in mind, this is " + chr$(13)
304.     in$ = in$ + "1800 full pages of a 800x600 screen -- if your screen has a lower overall " + chr$(13)
305.     in$ = in$ + "resolution, then you'd draw more loops with less to process, but a higher " + chr$(13)
306.     in$ = in$ + "resolution screen would draw fewer loops with more to process.)" + chr$(13)
307.     in$ = in$ + " " + chr$(13)
308.     in$ = in$ + "No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page " + chr$(13)
309.     in$ = in$ + "of tiles and colored characters.  (And, YES, it is a whole page being rendered " + chr$(13)
310.     in$ = in$ + "repeatedly -- even if I didn't bother to fill in the vast majority of that page " + chr$(13)
311.     in$ = in$ + "with anything more than black tiles, black fonts, and chr$(0) blank spaces...)" + chr$(13)
312.     in$ = in$ + " " + chr$(13)
313.     in$ = in$ + "It's a completely different approach to displaying stuff than what you've been " + chr$(13)
314.     in$ = in$ + "doing, but it seems as if what you've been doing isn't working as it must be " + chr$(13)
315.     in$ = in$ + "running too slow for you.  You wouldn't be able to use the normal PRINT " + chr$(13)
316.     in$ = in$ + "statements to display to the faux screen memory array I've created; you'd have " + chr$(13)
317.     in$ = in$ + "to write your own." + chr$(13)
318.     GetInstructions1$ = in$
319. End Function ' GetInstructions1$
320.  
321. ' /////////////////////////////////////////////////////////////////////////////
322.  
323. Function GetInstructions2$
324.     Dim in$
325.         in$ = ""
326.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + chr$(13)
327.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + chr$(13)
328.     in$ = in$ + " " + chr$(13)
329.         in$ = in$ + "SMcNeill, QB64 Developer" + chr$(13)
330.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + chr$(13)
331.     in$ = in$ + " " + chr$(13)
332.     in$ = in$ + "For a quick speed comparison, here's the same type process ran using PRINT " + chr$(13)
333.     in$ = in$ + "and a software screen of the same size:" + chr$(13)
334.     GetInstructions2$ = in$
335. End Function ' GetInstructions2$
336.  
337. ' ################################################################################################################################################################
338.  
339. ' /////////////////////////////////////////////////////////////////////////////
340.  
341. Sub TestCustomHardwareScreen1
342.     Dim in$
343.     Cls
344.         Print "Custom hardware screen test. Press <ENTER> to proceed through each step."
345.         Input "PRESS <ENTER> TO START";in$
346.        
347.         Randomize Timer
348.    
349.     Display = _NewImage(800, 600, 32) 'my main screenwich is 100 by 75 characters with 8x8 font.
350.     Tile = _NewImage(8 * 256, 8, 32) '8x8 tiles in 256 colors
351.     Font = _NewImage(8 * 256, 8 * 256, 32) '256 characters of an 8x8 font, in all 256 possible colors.
352.    
353.     Screen Display 'Set the main screen for starters so it'll go ahead and create itself properly while I'm working on making my tiles and fonts
354.    
355.     Dim As _Unsigned Long Kolors(255) 'an array to hold all my color values
356.     tempScreen256 = _NewImage(10, 10, 256) 'very tiny 256 color screen, just to borrow the palette from
357.     For i = 0 To 255 '40 colors
358.         Kolors(i) = _RGB32(_Red(i, tempScreen256), _Green(i, tempScreen256), _Blue(i, tempScreen256)) 'since I don't know your color palette, I'll just copy the QB64 256 color palette.  ;)
359.     Next
360.     _FreeImage tempScreen256 'free up all images once done with them
361.    
362.     _Dest Tile 'Create my software tiles of 256 colors
363.     For i = 0 To 255 '256 tiles, one for each color
364.         Line (i * 8, 0)-Step(8, 8), Kolors(i), BF 'all drawn sequentially onto a sprite sheet
365.     Next
366.    
367.     _Dest Font
368.     _Font 8 'I'm just going to use the built in QB64 8x8 font for quick and easy sheet creation.
369.     For k = 0 To 255 '256 colors
370.         Color Kolors(k), 0 'make our font the proper color
371.         For c = 0 To 255 '256 characters
372.             _PrintString (c * 8, k * 8), Chr$(c) 'print the characters row by row to the screen
373.         Next
374.     Next
375.     _Dest Display
376.    
377.     Sleep 'View the blank screen  until a key is hit
378.     Screen Tile 'View the tiles
379.     Sleep 'until a key is hit
380.     Screen Font 'view the fonts
381.     Sleep 'until a key is hit
382.     Screen Display 'and back to the normal blank screen
383.     _Delay .2 'time to remove finger from key
384.     'Dim Shared As Long TileHw, FontHw
385.        
386.     TileHw = _CopyImage(Tile, 33) 'hardware copy of the tile image
387.     FontHw = _CopyImage(Font, 33) 'hardware copy of the font image
388.    
389.     _FreeImage Tile 'free unused images when done with them
390.     _FreeImage Font 'free unused images when done with them
391.    
392.     _DisplayOrder _Hardware 'From this point onwards, I'm *ONLY* going to use my hardware layer
393.    
394.     'Dim Shared ScreenArray(99, 74) As _Unsigned Long 'Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
395.    
396.     'To start with, let's put all 256 chracters on the screen, on a color 40 tile (red), in a color 3 font (cyan)
397.     For i = 0 To 255
398.         x = x + 1: If x > 99 Then x = 0: y = y + 1
399.         ScreenArray(x, y) = SetAll(40, 3, i) '40 tile color, 3 font color, i is the character
400.     Next
401.    
402.     Do 'And then let's show these results on the screen.  Take a moment to open task manager and see how little resources we're using here.
403.         ScreenRender 'Draw a whole screen full of these tiles + characters
404.         _Limit 30
405.     Loop Until _KeyDown(13) 'until we hit ENTER
406.    
407.     _Delay .2 'time to lift up the key so we don't instantly blow past the next loop
408.    
409.     x = 0: y = 0
410.     For i = 0 To 255 'and here I'm going to set all these tiles to have incremental background tile colors
411.         x = x + 1: If x > 99 Then x = 0: y = y + 1 'from left to right, top to bottom
412.         SetArrayTile x, y, i 'set each tile to become an ever increasing color value
413.     Next
414.    
415.     Do 'And then let's show these results on the screen.
416.         ScreenRender 'Draw a whole screen full of these tiles + characters
417.         _Limit 30
418.     Loop Until _KeyDown(13) 'until we hit ENTER
419.    
420.     'And to finish up, let's do a quick count of how many loops per second we *could* process, with the whole screen being redrawn over and over like this
421.     t## = Timer + 3
422.     Do
423.         count& = count& + 1
424.         ScreenRender
425.     Loop Until Timer > t##
426.    
427.     _DisplayOrder _Software
428.        
429.         _KEYCLEAR: _DELAY 1
430.         Screen 0 : Cls
431.     Print "Whole screen rendering of color tile + color font = "; count&; " times in 3 seconds."
432.        
433.         Print
434.         Input "PRESS <ENTER> TO CONTINUE";in$
435.        
436. End Sub ' TestCustomHardwareScreen1
437.  
438. ' /////////////////////////////////////////////////////////////////////////////
439.  
440. Sub ScreenRender
441.     Dim As _Unsigned Long tileColor, fontColor, character
442.     For x = 0 To 99
443.         For y = 0 To 74
444.             tileColor = ScreenArray(x, y) \ (256 * 256)
445.             fontColor = (ScreenArray(x, y) - tileColor * 256 * 256) \ 256
446.             character = ScreenArray(x, y) Mod 256
447.             _PutImage (x * 8, y * 8)-Step(7, 7), TileHw, , (tileColor * 8, 0)-Step(7, 7)
448.             _PutImage (x * 8, y * 8)-Step(7, 7), FontHw, , (character * 8, fontColor * 8)-Step(7, 7)
449.         Next
450.     Next
451.     _Display
452. End Sub ' ScreenRender
453.  
454. ' /////////////////////////////////////////////////////////////////////////////
455.  
456. Function SetAll&& (tile, fontcolor, character)
457.     SetAll&& = tile * 256 * 256 + fontcolor * 256 + character
458. End Function ' SetAll&&
459.  
460. ' /////////////////////////////////////////////////////////////////////////////
461.  
462. Sub SetArrayTile (x, y, newTileColor)
463.     temp&& = ScreenArray(x, y)
464.     oldTile&& = temp&& \ (256 * 256)
465.     ScreenArray(x, y) = temp&& - oldTile&& + newTileColor * 256 * 256
466. End Sub ' SetArrayTile
467.  
468. ' /////////////////////////////////////////////////////////////////////////////
469.  
470. Sub SetArrayFontColor (x, y, newFontColor)
471.     temp&& = ScreenArray(x, y)
472.     oldTile&& = temp&& \ (256 * 256)
473.     oldFont&& = (temp&& - oldTile&&) \ 256
474.     ScreenArray(x, y) = temp&& - oldFont&& + newFontColor * 256
475. End Sub ' SetArrayFontColor
476.  
477. ' /////////////////////////////////////////////////////////////////////////////
478.  
479. Sub SetArrayCharacter (x, y, newCharacter)
480.     temp&& = ScreenArray(x, y)
481.     oldCharacter&& = temp&& Mod 256
482.     ScreenArray(x, y) = temp&& - oldCharacter&& + newCharacter
483. End Sub ' SetArrayCharacter
484.  
485. ' /////////////////////////////////////////////////////////////////////////////
486.  
487. Sub TestSoftwareScreen1
488.     Dim in$
489.        
490.         Screen _NewImage(800, 600, 32)
491.     _ControlChr Off
492.    
493.     t## = Timer + 3
494.     _Font 8
495.     Do
496.         count = count + 1
497.         For x = 1 To 100
498.             For y = 1 To 75
499.                 c = (c + 1) Mod 256
500.                 Color _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)
501.                 Locate y, x: Print Chr$(c);
502.             Next
503.         Next
504.     Loop Until Timer > t##
505.    
506.         _KEYCLEAR: _DELAY 1
507.         Screen 0 : Cls
508.     Print count; "total screen replacements in 3 seconds."
509.         Print
510.         Input "PRESS <ENTER> TO CONTINUE";in$
511. End Sub ' TestSoftwareScreen1
512.  

[SMcNeill]

No time now to get into it in detail, but at the end of the hardware image sample, it seems to lock up.
(See my version below.)
Any idea why? I do a keyclear and return to screen 0 but the program just becomes nonresponsive after that.

I haven't had a chance to test the code, but glancing over it, it appears that you're missing a call to _AutoDisplay.  In the Sub ScreenRender, we have a call to _Display which sets the program to only update the screen when we manually tell it to.  Without an _AutoDisplay, the PRINT and INPUT statements won't display to the screen unless you add another _DISPLAY in there for them.

Try to place an _AutoDisplay after the _DisplayOrder statement.  ;)

[madscijr]

I haven't had a chance to test the code, but glancing over it, it appears that you're missing a call to _AutoDisplay.  In the Sub ScreenRender, we have a call to _Display which sets the program to only update the screen when we manually tell it to.  Without an _AutoDisplay, the PRINT and INPUT statements won't display to the screen unless you add another _DISPLAY in there for them.
Try to place an _AutoDisplay after the _DisplayOrder statement.  ;)

I will, thanks.

Meanwhile, I started thinking along a different track for approaching the problem.

In speed tests, I noticed the Line statement was many times faster drawing rectangles, and also simple shapes using multiple rectangles, than _putimage with software images.

How about this approach? It may be even faster with hardware images if you can use Line with those, but even without, I expect some speed...

Later I'll add this to the previous program that compares speeds and adjust it so we're comparing apples to apples, and see.

I think the worst case would be a tile that has a checkerboard pattern where the maximim # of rectangles would be 32, but a lot of shapes just need 2-4 rectangles (+1 if there is a background color).

Anyway here is a proof of concept v1:

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2. ' VECTOR TILE DRAWING EXPERIMENT
3.  
4. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
5. ' FOR ONE OR MORE 8X8 RASTER TILES.
6.  
7. ' Eventually we would store a list of line coordinates for each tile
8. ' in a 2D array or similar data structure, with just one general-
9. ' purpose drawing routine that receives a list of (x1,y1,x2,y2)
10. ' and a color and draws the shape with Line. The background would
11. ' be transparent but if we want a background color can be specified
12. ' and simply draw an 8x8 background color rectangle first and then
13. ' draw the shape on top of that.
14.  
15. ' TODO: Optimize for each shape by determining how to draw it with the
16. '       minimum number of line commands.
17. '
18. '       For example this:
19. '           ' DRAW WITH HORIZONTAL LINES
20. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
21. '           Line (iX + 6, iY + 4)-(iX + 6, iY + 4), fgColor
22. '       could be replaced with:
23. '           ' DRAW WITH VERTICAL LINES
24. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
25. '
26. '       Google "rectangular decomposition of binary images" and similar
27. '       to find a better algorithm.
28. '
29. '       Brute force method would be to draw every size rectangle from 1x1
30. '       up to 8x8 (which can themselves be precalculated) in every available
31. '       location in the 8x8 grid (where no part of any rectangle falls off
32. '       the grid), then try every combination of those rectangles to find
33. '       combination where the the minimum number of rectangles cover all
34. '       points.
35. '
36. '       Rather than compute this on the fly, we could precompute it and
37. '       for each given tile, store the list of those rectangle coordinates
38. '       (x1,y1,x2,y2) for drawing it indexed by the tile's definiton in
39. '       hexidecimal where 16-bits (0-F) defines the bit pattern for each
40. '       row in the tile, therefore a tile's definition can be stored by
41. '       8 characters (or less if we use base 64). Perhaps build a utility
42. '       that will compute the optimal drawing pattern for every possible
43. '       combination of an 8x8 grid, and index them all by the tile's 8-byte
44. '       hexidecimal definition. It might take a while to run, but once it
45. '       does, we will have a database of every possible tile's optimized
46. '       drawing instructions that can be quickly looked up.
47. '       Then we only pull out those definitions for the tiles that our
48. '       given program uses, so the data would be relatively small
49. '       (even smaller if we encode it with base-64).
50.  
51. ' ################################################################################################################################################################
52.  
53. ' ===============================================================================
54. ' GLOBAL CONSTANTS
55. ' ===============================================================================
56. ' BOOLEAN VALUES
57. Const FALSE = 0
58. Const TRUE = Not FALSE
59.  
60. ' ===============================================================================
61. ' USER DEFINED TYPES
62. ' ===============================================================================
63. ' UDT TO HOLD COORDINATES FOR DRAWING A RECTANGLE
64. Type CoordinateType
65.     x1 As Integer ' start x
66.     x2 As Integer ' end x
67.     y1 As Integer ' start y
68.     y2 As Integer ' end y
69. End Type ' CoordinateType
70.  
71. ' UDT TO HOLD COLOR CODE INFO
72. Type ColorType
73.     name As String
74.     value As _Unsigned Long
75. End Type ' ColorType
76.  
77. ' UDT FOR PRECALCULATED TILESHEET
78. Type TileSheetMapType
79.     xStart As Integer
80.     xEnd As Integer
81.     yStart As Integer
82.     yEnd As Integer
83. End Type
84.  
85. ' UDT FOR PRECALCULATED TILE MAP
86. Type TileMapType
87.     xPos As Integer
88.     yPos As Integer
89. End Type
90.  
91. ' ===============================================================================
92. ' GLOBAL VARIABLES
93. ' ===============================================================================
94. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES CONSOLE WINDOW AND DebugPrint
95. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
96. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
97.  
98. ' ===============================================================================
99. ' LOCAL VARIABLES
100. ' ===============================================================================
101. Dim in$
102.  
103. ' ****************************************************************************************************************************************************************
104. ' ACTIVATE DEBUGGING WINDOW
105. If m_bDebug = TRUE Then
106.     $Console
107.     _Delay 4
108.     _Console On
109.     _Echo "Started " + m_ProgramName$
110.     _Echo "Debugging on..."
111. End If
112. ' ****************************************************************************************************************************************************************
113.  
114. ' ===============================================================================
115. ' START THE MAIN ROUTINE
116. ' ===============================================================================
117. main
118.  
119. ' ===============================================================================
120. ' FINISH
121. ' ===============================================================================
122. Screen 0
123. Print m_ProgramName$ + " finished."
124. Input "Press <ENTER> to continue", in$
125. ' ****************************************************************************************************************************************************************
126. ' DEACTIVATE DEBUGGING WINDOW
127. If m_bDebug = TRUE Then
128.     _Console Off
129. End If
130. ' ****************************************************************************************************************************************************************
131. System ' return control to the operating system
132. End
133.  
134. ' ################################################################################################################################################################
135. ' BEGIN MAIN MENU
136. ' ################################################################################################################################################################
137.  
138. ' /////////////////////////////////////////////////////////////////////////////
139.  
140. Sub main
141.     Dim RoutineName As String: RoutineName = "main"
142.     Dim in$
143.     Dim bFinished As Integer: bFinished = FALSE
144.     Dim result$: result$ = ""
145.     Do
146.         Screen 0
147.         Cls
148.         Print m_ProgramName$
149.         Print
150.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
151.         Print "How about using the Line statement and draw tiles as vector imagess?"
152.         Print
153.         Print "1) GenerateVectorTileCode"
154.         Print "2) DrawVectorTilesTest1"
155.         Print
156.         Print "Q) Exit program"
157.         Do
158.             in$ = InKey$
159.             If UCase$(in$) = "Q" Then
160.                 bFinished = TRUE: Exit Do
161.             ElseIf UCase$(in$) = "1" Then
162.                 GenerateVectorTileCode: Exit Do
163.             ElseIf UCase$(in$) = "2" Then
164.                 DrawVectorTilesTest1: Exit Do
165.             End If
166.         Loop
167.     Loop Until bFinished = TRUE
168. End Sub ' main
169.  
170. ' ################################################################################################################################################################
171. ' END MAIN MENU
172. ' ################################################################################################################################################################
173.  
174. ' ################################################################################################################################################################
175. ' BEGIN VECTOR TILE DRAWING TEST ROUTINES
176. ' ################################################################################################################################################################
177.  
178. ' /////////////////////////////////////////////////////////////////////////////
179.  
180. Sub DrawVectorTilesTest1
181.     Dim iX As Integer
182.     Dim iY As Integer
183.     Dim iMaxX As Integer
184.     Dim iMaxY As Integer
185.     Dim iShape As Integer
186.     Dim iMaxShape As Integer
187.     Dim fgColor As _Unsigned Long
188.     Dim arrColor(0 To 7) As _Unsigned Long
189.     Dim iColorIndex As Integer
190.     Dim in$
191.  
192.     arrColor(0) = cBlack
193.     arrColor(1) = cRed
194.     arrColor(2) = cYellow
195.     arrColor(3) = cLime
196.     arrColor(4) = cCyan
197.     arrColor(5) = cBlue
198.     arrColor(6) = cPurple
199.     arrColor(7) = cMagenta
200.  
201.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
202.     Cls , cBlack
203.  
204.     iMaxX = ((_Width(0) - 16) \ 8)
205.     iMaxY = (_Height(0) - 16)
206.     iMaxShape = 24
207.     iShape = 0:: iColorIndex = 1
208.  
209.     For iY = (8 * 10) To iMaxY Step 8
210.         For iX = 0 To iMaxX Step 8
211.             DrawShape iShape, iX, iY, arrColor(iColorIndex)
212.             iShape = iShape + 1: If iShape > iMaxShape Then iShape = 0
213.             iColorIndex = iColorIndex + 1: If iColorIndex > 7 Then iColorIndex = 1
214.         Next iX
215.     Next iY
216.  
217.     Locate 1, 1
218.     Input "PRESS <ENTER> TO CONTINUE"; in$
219. End Sub ' DrawVectorTilesTest1
220.  
221. ' /////////////////////////////////////////////////////////////////////////////
222.  
223. Sub DrawShape (iShape As Integer, iX As Integer, iY As Integer, fgColor As _Unsigned Long)
224.     Select Case iShape
225.         Case 0:
226.             DrawHomeLine8x8_VT_1 iX, iY, fgColor
227.         Case 1:
228.             DrawHomeLine8x8_HZ_1 iX, iY, fgColor
229.         Case 2:
230.             DrawHomeLine8x8_NW_1 iX, iY, fgColor
231.         Case 3:
232.             DrawHomeLine8x8_NE_1 iX, iY, fgColor
233.         Case 4:
234.             DrawHomeLine8x8_SW_1 iX, iY, fgColor
235.         Case 5:
236.             DrawHomeLine8x8_SE_1 iX, iY, fgColor
237.         Case 6:
238.             DrawHomeLine8x8_VT_2 iX, iY, fgColor
239.         Case 7:
240.             DrawHomeLine8x8_HZ_2 iX, iY, fgColor
241.         Case 8:
242.             DrawHomeLine8x8_NW_2 iX, iY, fgColor
243.         Case 9:
244.             DrawHomeLine8x8_NE_2 iX, iY, fgColor
245.         Case 10:
246.             DrawHomeLine8x8_SW_2 iX, iY, fgColor
247.         Case 11:
248.             DrawHomeLine8x8_SE_2 iX, iY, fgColor
249.         Case 12:
250.             DrawHomeLine8x8_VT_3 iX, iY, fgColor
251.         Case 13:
252.             DrawHomeLine8x8_HZ_3 iX, iY, fgColor
253.         Case 14:
254.             DrawHomeLine8x8_NW_3 iX, iY, fgColor
255.         Case 15:
256.             DrawHomeLine8x8_NE_3 iX, iY, fgColor
257.         Case 16:
258.             DrawHomeLine8x8_SW_3 iX, iY, fgColor
259.         Case 17:
260.             DrawHomeLine8x8_SE_3 iX, iY, fgColor
261.         Case 18:
262.             DrawJailLine8x8_VT_2 iX, iY, fgColor
263.         Case 19:
264.             DrawJailLine8x8_VT_1 iX, iY, fgColor
265.         Case 20:
266.             DrawJailLine8x8_HZ_2 iX, iY, fgColor
267.         Case 21:
268.             DrawJailLine8x8_HZ_1 iX, iY, fgColor
269.         Case 22:
270.             DrawJailLine8x8_Grid_1 iX, iY, fgColor
271.         Case 23:
272.             DrawJailLine8x8_Grid_2 iX, iY, fgColor
273.         Case 24:
274.             DrawJailLine8x8_Grid_3 iX, iY, fgColor
275.         Case Else:
276.             '(IGNORE)
277.     End Select
278. End Sub ' DrawShape
279.  
280. ' ################################################################################################################################################################
281. ' END VECTOR TILE DRAWING TEST ROUTINES
282. ' ################################################################################################################################################################
283.  
284. ' ################################################################################################################################################################
285. ' BEGIN BOX DRAWING ROUTINES
286. ' ################################################################################################################################################################
287.  
288. ' /////////////////////////////////////////////////////////////////////////////
289. ' DRAW A 2-D BOX (OUTLINE)
290. ' https://www.qb64.org/wiki/LINE
291.  
292. Sub DrawBoxOutline (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
293.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, B ' Draw box outline
294. End Sub ' DrawBoxOutline
295.  
296. ' /////////////////////////////////////////////////////////////////////////////
297. ' DRAW A 2-D BOX (SOLID)
298. ' https://www.qb64.org/wiki/LINE
299.  
300. ' Renamed DrawBox/DrawBoxLine to DrawSolidBox
301.  
302. Sub DrawBoxSolid (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
303.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, BF ' Draw a solid box
304. End Sub ' DrawBoxSolid
305.  
306. ' /////////////////////////////////////////////////////////////////////////////
307. ' DRAW A 2-D RECTANGLE (OUTLINE)
308.  
309. Sub DrawRectOutline (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
310.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, B ' Draw rectangle outline
311. End Sub ' DrawRectOutline
312.  
313. ' /////////////////////////////////////////////////////////////////////////////
314. ' DRAW A 2-D RECTANGLE (SOLID)
315.  
316. Sub DrawRectSolid (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
317.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, BF ' Draw a solid rectangle
318. End Sub ' DrawRectSolid
319.  
320. ' /////////////////////////////////////////////////////////////////////////////
321. ' DRAW A 2-D BOX (OUTLINE)
322. ' https://www.qb64.org/wiki/LINE
323.  
324. ' The style parameter 0-255 doesn't seem to have a solid line?
325. ' For that, use DrawOutlineBox.
326.  
327. ' LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]
328. ' B creates a box outline with each side parallel to the program screen sides. BF creates a filled box.
329. ' The style% signed INTEGER value sets a dotted pattern to draw the line or rectangle outline.
330.  
331. Sub DrawStyledOutlineBox (iX%, iY%, iSize%, iColor~&, iStyle%)
332.     Line (iX%, iY%)-(iX% + (iSize% - 1), iY% + (iSize% - 1)), iColor~&, B , iStyle%
333. End Sub ' DrawStyledOutlineBox
334.  
335. ' /////////////////////////////////////////////////////////////////////////////
336. ' DRAW A 2-D BOX (OUTLINE) WITH A SOLID LINE
337.  
338. Sub DrawOutlineBox (iX%, iY%, iSize2%, iColor~&, iWeight2%)
339.     Dim iFromX%
340.     Dim iFromY%
341.     Dim iToX%
342.     Dim iToY%
343.     iSize% = iSize2% - 1
344.     iWeight% = iWeight2% - 1
345.     If iWeight% = 0 Then
346.         ' TOP LINE
347.         iFromX% = iX%
348.         iFromY% = iY%
349.         iToX% = iX% + iSize%
350.         iToY% = iY%
351.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
352.  
353.         ' BOTTOM LINE
354.         iFromX% = iX%
355.         iFromY% = iY% + iSize%
356.         iToX% = iX% + iSize%
357.         iToY% = iY% + iSize%
358.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
359.  
360.         ' LEFT LINE
361.         iFromX% = iX%
362.         iFromY% = iY%
363.         iToX% = iX%
364.         iToY% = iY% + iSize%
365.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
366.  
367.         ' RIGHT LINE
368.         iFromX% = iX% + iSize%
369.         iFromY% = iY%
370.         iToX% = iX% + iSize%
371.         iToY% = iY% + iSize%
372.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
373.     ElseIf iWeight% > 0 Then
374.         ' TOP LINE
375.         For iFromY% = iY% To (iY% + iWeight%)
376.             iFromX% = iX%
377.             'iFromY% = iY%
378.             iToX% = iX% + iSize%
379.             iToY% = iFromY%
380.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
381.         Next iFromY%
382.  
383.         ' BOTTOM LINE
384.         For iFromY% = ((iY% + iSize%) - iWeight%) To (iY% + iSize%)
385.             iFromX% = iX%
386.             'iFromY% = iY% + iSize%
387.             iToX% = iX% + iSize%
388.             iToY% = iFromY%
389.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
390.         Next iFromY%
391.  
392.         ' LEFT LINE
393.         For iFromX% = iX% To (iX% + iWeight%)
394.             'iFromX% = iX%
395.             iFromY% = iY%
396.             iToX% = iFromX%
397.             iToY% = iY% + iSize%
398.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
399.         Next iFromX%
400.  
401.         ' RIGHT LINE
402.         For iFromX% = ((iX% + iSize%) - iWeight%) To (iX% + iSize%)
403.             'iFromX% = iX% + iSize%
404.             iFromY% = iY%
405.             iToX% = iFromX%
406.             iToY% = iY% + iSize%
407.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
408.         Next iFromX%
409.     End If
410. End Sub ' DrawOutlineBox
411.  
412. ' ################################################################################################################################################################
413. ' END BOX DRAWING ROUTINES
414. ' ################################################################################################################################################################
415.  
416. ' ################################################################################################################################################################
417. ' BEGIN GENERATE LINE DRAWING SHAPE ROUTINES
418. ' ################################################################################################################################################################
419.  
420. ' /////////////////////////////////////////////////////////////////////////////
421. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
422. ' FOR ONE OR MORE 8X8 TILES.
423.  
424. ' TODO: Optimize for each shape by determining how to draw it with the
425. '       minimum number of line commands.
426.  
427. Sub GenerateNextVectorTileCode (MyString As String, sNameList As String)
428.     Dim RoutineName As String: RoutineName = "GenerateNextVectorTileCode"
429.     Dim sError As String: sError = ""
430.     ReDim arrShapes(-1) As String
431.     ReDim arrLines(-1) As String
432.     ReDim arrCols(-1) As String
433.     ReDim arrCount(-1) As String
434.     ReDim arrLenCountHZ(-1) As Integer
435.     ReDim arrLenCountVT(-1) As Integer
436.     ReDim arrNextShape(-1, -1) As String
437.     ReDim arrNames(-1) As String
438.     Dim sLine As String
439.     Dim iLen As Integer
440.     Dim iCount As Integer
441.     Dim in$
442.     Dim iLoopRows As Integer
443.     Dim iLoopCols As Integer
444.     Dim iShapeCount As Integer
445.     Dim iLoopShape As Integer
446.     ReDim arrColSize As Integer
447.     ReDim arrRowSize As Integer
448.     Dim iCountHZ As Integer
449.     Dim iCountVT As Integer
450.     Dim iLoopCount As Integer
451.     Dim sTransposed As String
452.     Dim iColumnCount As Integer
453.     Dim iRowCount As Integer
454.     Dim iScoreHZ As Integer
455.     Dim iScoreVT As Integer
456.     Dim iRow As Integer
457.     Dim iX1 As Integer
458.     Dim iX2 As Integer
459.     Dim iY1 As Integer
460.     Dim iY2 As Integer
461.     Dim iLast As Integer
462.     Dim sTemplate1 As String
463.     Dim sTemplate2 As String
464.     Dim sShapeCode As String
465.     Dim sLineCommands As String
466.     Dim iTotalCount As Integer: iTotalCount = 0
467.     Dim sNextShapeComment As String
468.  
469.     ' Initialize screen
470.     If Len(sError) = 0 Then
471.         Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
472.     End If
473.  
474.     ' Initialize template
475.     If Len(sError) = 0 Then
476.         ' Template for code for a shape routine:
477.         sTemplate1 = "" + _
478.             "' /////////////////////////////////////////////////////////////////////////////" + chr$(13) + _
479.             "' Draw this shape with Line commands:" + chr$(13) + _
480.             "{shape comments}" + _
481.             "Sub {name}(iX As Integer, iY As Integer, fgColor As _UNSIGNED Long)" + chr$(13) + _
482.             "    ' {comment}" + chr$(13) + _
483.             "{line commands}" + _
484.             "End Sub ' {name}" + chr$(13) + _
485.             chr$(13) + ""
486.  
487.         ' Template for what replaces "{line commands}":
488.         sTemplate2 = "    Line ({x1}, {y1})-({x2}, {y2}), fgColor" + Chr$(13)
489.     End If
490.  
491.     ' Break multiple up into shapes
492.     If Len(sError) = 0 Then
493.         split MyString, Chr$(13), arrLines()
494.         sLine = arrLines(LBound(arrLines))
495.         iLen = Len(sLine)
496.         sLine = Replace$(sLine, " ", "")
497.         iCount = (iLen - Len(sLine)) + 1
498.         For iLoopRows = LBound(arrLines) To UBound(arrLines)
499.             If Len(arrLines(iLoopRows)) > 0 Then
500.                 split arrLines(iLoopRows), " ", arrCols()
501.                 iShapeCount = 0
502.  
503.                 For iLoopCols = LBound(arrCols) To UBound(arrCols)
504.                     If Len(arrCols(iLoopCols)) > 0 Then
505.                         iShapeCount = iShapeCount + 1
506.  
507.                         If UBound(arrShapes) < iShapeCount Then
508.                             ReDim _Preserve arrShapes(0 To iShapeCount)
509.                         End If
510.  
511.                         arrShapes(iShapeCount) = arrShapes(iShapeCount) + arrCols(iLoopCols) + Chr$(13)
512.                     End If
513.                 Next iLoopCols
514.             End If
515.         Next iLoopRows
516.     End If
517.  
518.     ' Get names
519.     If Len(sError) = 0 Then
520.         split sNameList, ",", arrNames()
521.         If (UBound(arrNames) + 1 < iShapeCount) Then
522.             sError = "Not enough names in sNameList." + chr$(13) + _
523.                 "Detected " + cstr$( ubound(arrNames)+1 ) + "names in " + chr$(13) + _
524.                 "sNameList " + chr$(34) + sNameList + chr$(34) + chr$(13) + _
525.                 "and " + cstr$(iShapeCount) + " shapes."
526.         End If
527.     End If
528.  
529.     ' Process shapes and generate line drawing routines
530.     If Len(sError) = 0 Then
531.         For iLoopShape = 1 To iShapeCount
532.             Cls
533.             Print "Shape #" + cstr$(iLoopShape)
534.             Print arrShapes(iLoopShape)
535.  
536.             ' Count rows/columns and create comment showing the shape
537.             iRowCount = 0
538.             iColumnCount = 0
539.             sNextShapeComment = ""
540.             split arrShapes(iLoopShape), Chr$(13), arrLines()
541.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
542.                 If Len(arrLines(iLoopRows)) > 0 Then
543.                     sNextShapeComment = sNextShapeComment + "' " + _Trim$(arrLines(iLoopRows)) + Chr$(13)
544.                     iRowCount = iRowCount + 1
545.                     iLen = Len(_Trim$(arrLines(iLoopRows)))
546.                     If iLen > iColumnCount Then
547.                         iColumnCount = iLen
548.                     End If
549.                 End If
550.             Next iLoopRows
551.             ReDim arrLenCountHZ(1 To iColumnCount) As Integer
552.             ReDim arrLenCountVT(1 To iRowCount) As Integer
553.             Print "iRowCount   =" + cstr$(iRowCount)
554.             Print "iColumnCount=" + cstr$(iColumnCount)
555.             ReDim arrNextShape(iRowCount, iColumnCount) As String
556.  
557.             ' Count consecutive horizontal
558.             iCountHZ = 0
559.             Print "lbound(arrLines)=" + cstr$(LBound(arrLines))
560.             Print "ubound(arrLines)=" + cstr$(UBound(arrLines))
561.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
562.                 If Len(arrLines(iLoopRows)) > 0 Then
563.                     split arrLines(iLoopRows), ".", arrCount()
564.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
565.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
566.                         arrLenCountHZ(iLen) = arrLenCountHZ(iLen) + 1
567.                         If iLen > 0 Then
568.                             iCountHZ = iCountHZ + 1
569.                         End If
570.                     Next iLoopCount
571.                 End If
572.             Next iLoopRows
573.             Print "iCountHZ = " + cstr$(iCountHZ)
574.  
575.             ' Transpose to count vertical and create 2D array
576.             sTransposed = ""
577.             iCount = 0
578.             ReDim arrCols(iColumnCount) As String
579.             iRow = 0
580.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
581.                 If Len(arrLines(iLoopRows)) > 0 Then
582.                     iRow = iRow + 1
583.                     For iLoopCols = 1 To Len(arrLines(iLoopRows))
584.                         arrCols(iLoopCols) = arrCols(iLoopCols) + Mid$(arrLines(iLoopRows), iLoopCols, 1)
585.                         arrNextShape(iRow, iLoopCols) = Mid$(arrLines(iLoopRows), iLoopCols, 1)
586.                     Next iLoopCols
587.                 End If
588.             Next iLoopRows
589.             For iLoopCols = LBound(arrCols) To UBound(arrCols)
590.                 sTransposed = sTransposed + arrCols(iLoopCols) + Chr$(13)
591.             Next iLoopCols
592.             'print "Transposed:"
593.             'print sTransposed
594.  
595.             ' Count consecutive vertical
596.             iCountVT = 0
597.             For iLoopRows = LBound(arrCols) To UBound(arrCols)
598.                 If Len(arrCols(iLoopRows)) > 0 Then
599.                     split arrCols(iLoopRows), ".", arrCount()
600.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
601.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
602.                         arrLenCountVT(iLen) = arrLenCountVT(iLen) + 1
603.                         If iLen > 0 Then
604.                             iCountVT = iCountVT + 1
605.                         End If
606.                     Next iLoopCount
607.                 End If
608.             Next iLoopRows
609.  
610.             ' Weigh horizontal vs vertical
611.             iScoreHZ = 0
612.             sLine = ""
613.             For iCount = 1 To iColumnCount
614.                 If iCount > 1 Then sLine = sLine + ", "
615.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountHZ(iCount))
616.                 iScoreHZ = iScoreHZ + (iCount * arrLenCountHZ(iCount))
617.             Next iCount
618.             Print "Horizontal count: " + sLine
619.             Print "Horizontal total: " + cstr$(iCountHZ)
620.             Print "Horizontal miles: " + cstr$(iScoreHZ)
621.  
622.             iScoreVT = 0
623.             sLine = ""
624.             For iCount = 1 To iRowCount
625.                 If iCount > 1 Then sLine = sLine + ", "
626.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountVT(iCount))
627.                 iScoreVT = iScoreVT + (iCount * arrLenCountVT(iCount))
628.             Next iCount
629.             Print "Vertical   count: " + sLine
630.             Print "Vertical   total: " + cstr$(iCountVT)
631.             Print "Vertical   miles: " + cstr$(iScoreVT)
632.  
633.             '' Verify break up into array
634.             'print "REGURGITATED 2D:"
635.             'for iLoopRows = lbound(arrNextShape, 1) to ubound(arrNextShape, 1)
636.             '    sLine = ""
637.             '    for iLoopCols = lbound(arrNextShape, 2) to ubound(arrNextShape, 2)
638.             '        sLine = sLine + arrNextShape(iLoopRows, iLoopCols)
639.             '    next iLoopCols
640.             '    print sLine
641.             'next iLoopRows
642.  
643.             ' DID WE FIND ANYTHING TO DRAW?
644.             If iCountVT > 0 And iCountHZ > 0 Then
645.  
646.                 ' INTIALIZE TEMPLATE FOR NEXT SHAPE
647.                 'sTemplate1: {name} {comment} {line commands}
648.                 sShapeCode = sTemplate1
649.                 sShapeCode = Replace$(sShapeCode, "{name}", arrNames(iLoopShape - 1))
650.                 sShapeCode = Replace$(sShapeCode, "{shape comments}", sNextShapeComment)
651.                 sLineCommands = ""
652.  
653.                 ' More consecutive horizontal or vertical?
654.                 If iCountVT < iCountHZ Then
655.  
656.                     ' ADD A COMMENT THAT THIS ROUTINE USES VERTICAL LINES
657.                     'sTemplate1: {name} {comment} {line commands}
658.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH VERTICAL LINES")
659.  
660.                     ' LOOK AT SHAPE COLUMN BY COLUMN
661.                     For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
662.                         iX1 = iLoopCols
663.                         iX2 = iLoopCols
664.                         iY1 = -1
665.                         iY2 = -1
666.  
667.                         ' LOOK AT SHAPE ROW BY ROW
668.                         For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
669.  
670.                             ' PIXEL HERE...
671.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
672.                                 ' ARE WE CURRENTLY IN A LINE?
673.                                 If iY1 = -1 Then
674.                                     ' NO, START A NEW LINE
675.                                     ' Remember this as the starting point
676.                                     iY1 = iLoopRows
677.                                 End If
678.  
679.                                 ' Remember the most recent point
680.                                 iLast = iLoopRows
681.  
682.                                 ' NO PIXEL HERE...
683.                             Else
684.                                 ' ARE WE CURRENTLY IN A LINE?
685.                                 If iY1 <> -1 Then
686.                                     ' Use the most recent point as the end point
687.                                     iY2 = iLast
688.  
689.                                     ' GENERATE THE NEXT LINE COMMAND
690.                                     'sTemplate1: {name} {comment} {line commands}
691.                                     'sTemplate2: {x1} {y1} {x2} {y2}
692.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
693.                                     sLine = sTemplate2
694.  
695.                                     If iX1 = 1 Then
696.                                         sLine = Replace$(sLine, "{x1}", "iX")
697.                                     Else
698.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
699.                                     End If
700.  
701.                                     If iY1 = 1 Then
702.                                         sLine = Replace$(sLine, "{y1}", "iY")
703.                                     Else
704.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
705.                                     End If
706.  
707.                                     If iX2 = 1 Then
708.                                         sLine = Replace$(sLine, "{x2}", "iX")
709.                                     Else
710.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
711.                                     End If
712.  
713.                                     If iY2 = 1 Then
714.                                         sLine = Replace$(sLine, "{y2}", "iY")
715.                                     Else
716.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
717.                                     End If
718.  
719.                                     ' SAVE THE COMMAND TO BE ADDED
720.                                     sLineCommands = sLineCommands + sLine
721.  
722.                                     ' RESET (NO LONGER IN A LINE)
723.                                     iY1 = -1
724.                                 End If
725.                             End If
726.                         Next iLoopRows
727.  
728.                         ' AND CHECK AGAIN AT THE END
729.                         ' ARE WE CURRENTLY IN A LINE?
730.                         If iY1 <> -1 Then
731.                             ' Use the most recent point as the end point
732.                             iY2 = iLast
733.  
734.                             ' GENERATE THE NEXT LINE COMMAND
735.                             'sTemplate1: {name} {comment} {line commands}
736.                             'sTemplate2: {x1} {y1} {x2} {y2}
737.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
738.                             sLine = sTemplate2
739.  
740.                             If iX1 = 1 Then
741.                                 sLine = Replace$(sLine, "{x1}", "iX")
742.                             Else
743.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
744.                             End If
745.  
746.                             If iY1 = 1 Then
747.                                 sLine = Replace$(sLine, "{y1}", "iY")
748.                             Else
749.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
750.                             End If
751.  
752.                             If iX2 = 1 Then
753.                                 sLine = Replace$(sLine, "{x2}", "iX")
754.                             Else
755.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
756.                             End If
757.  
758.                             If iY2 = 1 Then
759.                                 sLine = Replace$(sLine, "{y2}", "iY")
760.                             Else
761.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
762.                             End If
763.  
764.                             ' SAVE THE COMMAND TO BE ADDED
765.                             sLineCommands = sLineCommands + sLine
766.  
767.                             ' RESET (NO LONGER IN A LINE)
768.                             iY1 = -1
769.                         End If
770.                     Next iLoopCols
771.  
772.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
773.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
774.  
775.                     ' OUTPUT IT
776.                     iTotalCount = iTotalCount + 1
777.                     DebugPrint sShapeCode
778.  
779.                 Else
780.                     ' ADD A COMMENT THAT THIS ROUTINE USES HORIZONTAL LINES
781.                     'sTemplate1: {name} {comment} {line commands}
782.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH HORIZONTAL LINES")
783.  
784.                     ' LOOK AT SHAPE ROW BY ROW
785.                     For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
786.                         iX1 = -1
787.                         iX2 = -1
788.                         iY1 = iLoopRows
789.                         iY2 = iLoopRows
790.  
791.                         ' LOOK AT SHAPE COLUMN BY COLUMN
792.                         For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
793.  
794.                             ' PIXEL HERE...
795.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
796.                                 ' ARE WE CURRENTLY IN A LINE?
797.                                 If iX1 = -1 Then
798.                                     ' NO, START A NEW LINE
799.                                     ' Remember this as the starting point
800.                                     iX1 = iLoopCols
801.                                 End If
802.  
803.                                 ' Remember the most recent point
804.                                 iLast = iLoopCols
805.  
806.                                 ' NO PIXEL HERE...
807.                             Else
808.                                 ' ARE WE CURRENTLY IN A LINE?
809.                                 If iX1 <> -1 Then
810.                                     ' Use the most recent point as the end point
811.                                     iX2 = iLast
812.  
813.                                     ' GENERATE THE NEXT LINE COMMAND
814.                                     'sTemplate1: {name} {comment} {line commands}
815.                                     'sTemplate2: {x1} {y1} {x2} {y2}
816.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
817.                                     sLine = sTemplate2
818.  
819.                                     If iX1 = 1 Then
820.                                         sLine = Replace$(sLine, "{x1}", "iX")
821.                                     Else
822.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
823.                                     End If
824.  
825.                                     If iY1 = 1 Then
826.                                         sLine = Replace$(sLine, "{y1}", "iY")
827.                                     Else
828.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
829.                                     End If
830.  
831.                                     If iX2 = 1 Then
832.                                         sLine = Replace$(sLine, "{x2}", "iX")
833.                                     Else
834.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
835.                                     End If
836.  
837.                                     If iY2 = 1 Then
838.                                         sLine = Replace$(sLine, "{y2}", "iY")
839.                                     Else
840.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
841.                                     End If
842.  
843.                                     ' SAVE THE COMMAND TO BE ADDED
844.                                     sLineCommands = sLineCommands + sLine
845.  
846.                                     ' RESET (NO LONGER IN A LINE)
847.                                     iX1 = -1
848.                                 End If
849.                             End If
850.                         Next iLoopCols
851.  
852.                         ' AND CHECK AGAIN AT THE END
853.                         ' ARE WE CURRENTLY IN A LINE?
854.                         If iX1 <> -1 Then
855.                             ' Use the most recent point as the end point
856.                             iX2 = iLast
857.  
858.                             ' GENERATE THE NEXT LINE COMMAND
859.                             'sTemplate1: {name} {comment} {line commands}
860.                             'sTemplate2: {x1} {y1} {x2} {y2}
861.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
862.                             sLine = sTemplate2
863.  
864.                             If iX1 = 1 Then
865.                                 sLine = Replace$(sLine, "{x1}", "iX")
866.                             Else
867.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
868.                             End If
869.  
870.                             If iY1 = 1 Then
871.                                 sLine = Replace$(sLine, "{y1}", "iY")
872.                             Else
873.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
874.                             End If
875.  
876.                             If iX2 = 1 Then
877.                                 sLine = Replace$(sLine, "{x2}", "iX")
878.                             Else
879.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
880.                             End If
881.  
882.                             If iY2 = 1 Then
883.                                 sLine = Replace$(sLine, "{y2}", "iY")
884.                             Else
885.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
886.                             End If
887.  
888.                             ' SAVE THE COMMAND TO BE ADDED
889.                             sLineCommands = sLineCommands + sLine
890.  
891.                             ' RESET (NO LONGER IN A LINE)
892.                             iX1 = -1
893.                         End If
894.                     Next iLoopRows
895.  
896.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
897.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
898.  
899.                     ' OUTPUT IT
900.                     iTotalCount = iTotalCount + 1
901.                     DebugPrint sShapeCode
902.                 End If
903.             End If
904.  
905.             ' DONE
906.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
907.             Print sShapeCode
908.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
909.             'Input "PRESS <ENTER> TO CONTINUE";in$
910.         Next iLoopShape
911.     End If
912.  
913.     ' SHOW RESULTS
914.     If Len(sError) = 0 Then
915.         Print "Generated " + cstr$(iTotalCount) + " shape routines."
916.     Else
917.         Print RoutineName + " failed:"
918.         Print sError
919.     End If
920.     'Input "PRESS <ENTER> TO CONTINUE";in$
921.  
922.     Screen 0
923. End Sub ' GenerateNextVectorTileCode
924.  
925. ' /////////////////////////////////////////////////////////////////////////////
926. ' Defines various 8x8 tiles and calls GenerateNextVectorTileCode to generate vector
927. ' Line routines to draw each one.
928.  
929. Sub GenerateVectorTileCode ()
930.     Dim MyString As String
931.     Dim sNameList As String
932.     Dim in$
933.  
934.     MyString = ""
935.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
936.     MyString = MyString + "...#.... ........ ........ ........ ...#.... ...#...." + Chr$(13)
937.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
938.     MyString = MyString + "...#.... #.#.#.#. ...##.#. #.##.... ...##.#. #.##...." + Chr$(13)
939.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
940.     MyString = MyString + "...#.... ........ ........ ........ ........ ........" + Chr$(13)
941.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
942.     MyString = MyString + "...#.... ........ ........ ........ ........ ........"
943.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
944.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
945.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
946.     sNameList = Replace$(sNameList, "{n}", "1")
947.     GenerateNextVectorTileCode MyString, sNameList
948.  
949.     MyString = ""
950.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
951.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
952.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
953.     MyString = MyString + "...##... #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
954.     MyString = MyString + "........ #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
955.     MyString = MyString + "...##... ........ ........ ........ ........ ........" + Chr$(13)
956.     MyString = MyString + "........ ........ ...##... ...##... ........ ........" + Chr$(13)
957.     MyString = MyString + "...##... ........ ........ ........ ........ ........"
958.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
959.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
960.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
961.     sNameList = Replace$(sNameList, "{n}", "2")
962.     GenerateNextVectorTileCode MyString, sNameList
963.  
964.     MyString = ""
965.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
966.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
967.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
968.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
969.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
970.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
971.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
972.     MyString = MyString + "........ ........ ........ ........ ........ ........"
973.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
974.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
975.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
976.     sNameList = Replace$(sNameList, "{n}", "3")
977.     GenerateNextVectorTileCode MyString, sNameList
978.  
979.     MyString = ""
980.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ...##... ...#...#" + Chr$(13)
981.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
982.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
983.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ######## ########" + Chr$(13)
984.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ######## ...#...#" + Chr$(13)
985.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
986.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
987.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ...##... ########"
988.     sNameList = "DrawJailLine8x8_VT_2,DrawJailLine8x8_VT_1," + _
989.         "DrawJailLine8x8_HZ_2,DrawJailLine8x8_HZ_1," + _
990.         "DrawJailLine8x8_Grid_1,DrawJailLine8x8_Grid_3," + _
991.         "DrawJailLine8x8_Grid_2"
992.     GenerateNextVectorTileCode MyString, sNameList
993.     Print
994.     Print "See console window for generated code."
995.     Input "PRESS <ENTER> TO CONTINUE"; in$
996. End Sub ' GenerateVectorTileCode
997.  
998. ' ################################################################################################################################################################
999. ' END GENERATE LINE DRAWING SHAPE ROUTINES
1000. ' ################################################################################################################################################################
1001.  
1002. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1003. ' BEGIN GENERATED VECTOR TILE ROUTINES
1004. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1005.  
1006. ' /////////////////////////////////////////////////////////////////////////////
1007. ' Draw this shape with Line commands:
1008. ' ........
1009. ' ...#....
1010. ' ........
1011. ' ...#....
1012. ' ........
1013. ' ...#....
1014. ' ........
1015. ' ...#....
1016. Sub DrawHomeLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1017.     ' DRAW WITH HORIZONTAL LINES
1018.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
1019.     Line (iX + 3, iY + 3)-(iX + 3, iY + 3), fgColor
1020.     Line (iX + 3, iY + 5)-(iX + 3, iY + 5), fgColor
1021.     Line (iX + 3, iY + 7)-(iX + 3, iY + 7), fgColor
1022. End Sub ' DrawHomeLine8x8_VT_1
1023.  
1024. ' /////////////////////////////////////////////////////////////////////////////
1025. ' Draw this shape with Line commands:
1026. ' ........
1027. ' ........
1028. ' ........
1029. ' #.#.#.#.
1030. ' ........
1031. ' ........
1032. ' ........
1033. ' ........
1034. Sub DrawHomeLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1035.     ' DRAW WITH HORIZONTAL LINES
1036.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
1037.     Line (iX + 2, iY + 3)-(iX + 2, iY + 3), fgColor
1038.     Line (iX + 4, iY + 3)-(iX + 4, iY + 3), fgColor
1039.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
1040. End Sub ' DrawHomeLine8x8_HZ_1
1041.  
1042. ' /////////////////////////////////////////////////////////////////////////////
1043. ' Draw this shape with Line commands:
1044. ' ........
1045. ' ........
1046. ' ........
1047. ' ...##.#.
1048. ' ...#....
1049. ' ........
1050. ' ...#....
1051. ' ........
1052. Sub DrawHomeLine8x8_NW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1053.     ' DRAW WITH HORIZONTAL LINES
1054.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
1055.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
1056.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
1057.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
1058. End Sub ' DrawHomeLine8x8_NW_1
1059.  
1060. ' /////////////////////////////////////////////////////////////////////////////
1061. ' Draw this shape with Line commands:
1062. ' ........
1063. ' ........
1064. ' ........
1065. ' #.##....
1066. ' ...#....
1067. ' ........
1068. ' ...#....
1069. ' ........
1070. Sub DrawHomeLine8x8_NE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1071.     ' DRAW WITH HORIZONTAL LINES
1072.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
1073.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
1074.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
1075.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
1076. End Sub ' DrawHomeLine8x8_NE_1
1077.  
1078. ' /////////////////////////////////////////////////////////////////////////////
1079. ' Draw this shape with Line commands:
1080. ' ........
1081. ' ...#....
1082. ' ........
1083. ' ...##.#.
1084. ' ........
1085. ' ........
1086. ' ........
1087. ' ........
1088. Sub DrawHomeLine8x8_SW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1089.     ' DRAW WITH HORIZONTAL LINES
1090.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
1091.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
1092.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
1093. End Sub ' DrawHomeLine8x8_SW_1
1094.  
1095. ' /////////////////////////////////////////////////////////////////////////////
1096. ' Draw this shape with Line commands:
1097. ' ........
1098. ' ...#....
1099. ' ........
1100. ' #.##....
1101. ' ........
1102. ' ........
1103. ' ........
1104. ' ........
1105. Sub DrawHomeLine8x8_SE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1106.     ' DRAW WITH HORIZONTAL LINES
1107.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
1108.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
1109.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
1110. End Sub ' DrawHomeLine8x8_SE_1
1111.  
1112. ' /////////////////////////////////////////////////////////////////////////////
1113. ' Draw this shape with Line commands:
1114. ' ........
1115. ' ...##...
1116. ' ........
1117. ' ...##...
1118. ' ........
1119. ' ...##...
1120. ' ........
1121. ' ...##...
1122. Sub DrawHomeLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1123.     ' DRAW WITH HORIZONTAL LINES
1124.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1125.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
1126.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
1127.     Line (iX + 3, iY + 7)-(iX + 4, iY + 7), fgColor
1128. End Sub ' DrawHomeLine8x8_VT_2
1129.  
1130. ' /////////////////////////////////////////////////////////////////////////////
1131. ' Draw this shape with Line commands:
1132. ' ........
1133. ' ........
1134. ' ........
1135. ' #.#.#.#.
1136. ' #.#.#.#.
1137. ' ........
1138. ' ........
1139. ' ........
1140. Sub DrawHomeLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1141.     ' DRAW WITH VERTICAL LINES
1142.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
1143.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
1144.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
1145.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
1146. End Sub ' DrawHomeLine8x8_HZ_2
1147.  
1148. ' /////////////////////////////////////////////////////////////////////////////
1149. ' Draw this shape with Line commands:
1150. ' ........
1151. ' ........
1152. ' ........
1153. ' ...##.#.
1154. ' ...##.#.
1155. ' ........
1156. ' ...##...
1157. ' ........
1158. Sub DrawHomeLine8x8_NW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1159.     ' DRAW WITH HORIZONTAL LINES
1160.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
1161.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
1162.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
1163.  
1164.     ' DRAW WITH VERTICAL LINES
1165.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
1166. End Sub ' DrawHomeLine8x8_NW_2
1167.  
1168. ' /////////////////////////////////////////////////////////////////////////////
1169. ' Draw this shape with Line commands:
1170. ' ........
1171. ' ........
1172. ' ........
1173. ' #.#.#...
1174. ' #.#.#...
1175. ' ........
1176. ' ...##...
1177. ' ........
1178. Sub DrawHomeLine8x8_NE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1179.     ' DRAW WITH VERTICAL LINES
1180.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
1181.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
1182.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
1183.  
1184.     ' DRAW WITH HORIZONTAL LINES
1185.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
1186. End Sub ' DrawHomeLine8x8_NE_2
1187.  
1188. ' /////////////////////////////////////////////////////////////////////////////
1189. ' Draw this shape with Line commands:
1190. ' ........
1191. ' ...##...
1192. ' ........
1193. ' ...##.#.
1194. ' ...##.#.
1195. ' ........
1196. ' ........
1197. ' ........
1198. Sub DrawHomeLine8x8_SW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1199.     ' DRAW WITH HORIZONTAL LINES
1200.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1201.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
1202.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
1203.  
1204.     ' DRAW WITH VERTICAL LINES
1205.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
1206. End Sub ' DrawHomeLine8x8_SW_2
1207.  
1208. ' /////////////////////////////////////////////////////////////////////////////
1209. ' Draw this shape with Line commands:
1210. ' ........
1211. ' ...##...
1212. ' ........
1213. ' #.#.#...
1214. ' #.#.#...
1215. ' ........
1216. ' ........
1217. ' ........
1218. Sub DrawHomeLine8x8_SE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1219.     ' DRAW WITH HORIZONTAL LINES
1220.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1221.  
1222.     ' DRAW WITH VERTICAL LINES
1223.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
1224.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
1225.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
1226.  
1227. End Sub ' DrawHomeLine8x8_SE_2
1228.  
1229. ' /////////////////////////////////////////////////////////////////////////////
1230. ' Draw this shape with Line commands:
1231. ' ........
1232. ' ...##...
1233. ' ...##...
1234. ' ........
1235. ' ........
1236. ' ...##...
1237. ' ...##...
1238. ' ........
1239. Sub DrawHomeLine8x8_VT_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1240.     ' DRAW WITH HORIZONTAL LINES
1241.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1242.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
1243.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
1244.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
1245. End Sub ' DrawHomeLine8x8_VT_3
1246.  
1247. ' /////////////////////////////////////////////////////////////////////////////
1248. ' Draw this shape with Line commands:
1249. ' ........
1250. ' ........
1251. ' ........
1252. ' .##..##.
1253. ' .##..##.
1254. ' ........
1255. ' ........
1256. ' ........
1257. Sub DrawHomeLine8x8_HZ_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1258.     ' DRAW WITH HORIZONTAL LINES
1259.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
1260.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
1261.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
1262.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
1263. End Sub ' DrawHomeLine8x8_HZ_3
1264.  
1265. ' /////////////////////////////////////////////////////////////////////////////
1266. ' Draw this shape with Line commands:
1267. ' ........
1268. ' ........
1269. ' ........
1270. ' .....##.
1271. ' .....##.
1272. ' ...##...
1273. ' ...##...
1274. ' ........
1275. Sub DrawHomeLine8x8_NW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1276.     ' DRAW WITH HORIZONTAL LINES
1277.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
1278.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
1279.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
1280.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
1281. End Sub ' DrawHomeLine8x8_NW_3
1282.  
1283. ' /////////////////////////////////////////////////////////////////////////////
1284. ' Draw this shape with Line commands:
1285. ' ........
1286. ' ........
1287. ' ........
1288. ' .##.....
1289. ' .##.....
1290. ' ...##...
1291. ' ...##...
1292. ' ........
1293. Sub DrawHomeLine8x8_NE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1294.     ' DRAW WITH HORIZONTAL LINES
1295.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
1296.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
1297.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
1298.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
1299. End Sub ' DrawHomeLine8x8_NE_3
1300.  
1301. ' /////////////////////////////////////////////////////////////////////////////
1302. ' Draw this shape with Line commands:
1303. ' ........
1304. ' ...##...
1305. ' ...##...
1306. ' .....##.
1307. ' .....##.
1308. ' ........
1309. ' ........
1310. ' ........
1311. Sub DrawHomeLine8x8_SW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1312.     ' DRAW WITH HORIZONTAL LINES
1313.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1314.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
1315.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
1316.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
1317. End Sub ' DrawHomeLine8x8_SW_3
1318.  
1319. ' /////////////////////////////////////////////////////////////////////////////
1320. ' Draw this shape with Line commands:
1321. ' ........
1322. ' ...##...
1323. ' ...##...
1324. ' .##.....
1325. ' .##.....
1326. ' ........
1327. ' ........
1328. ' ........
1329. Sub DrawHomeLine8x8_SE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1330.     ' DRAW WITH HORIZONTAL LINES
1331.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
1332.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
1333.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
1334.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
1335. End Sub ' DrawHomeLine8x8_SE_3
1336.  
1337. ' /////////////////////////////////////////////////////////////////////////////
1338. ' Draw this shape with Line commands:
1339. ' ##..##..
1340. ' ##..##..
1341. ' ##..##..
1342. ' ##..##..
1343. ' ##..##..
1344. ' ##..##..
1345. ' ##..##..
1346. ' ##..##..
1347. Sub DrawJailLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1348.     ' DRAW WITH VERTICAL LINES
1349.     Line (iX, iY)-(iX, iY + 7), fgColor
1350.     Line (iX + 1, iY)-(iX + 1, iY + 7), fgColor
1351.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
1352.     Line (iX + 5, iY)-(iX + 5, iY + 7), fgColor
1353. End Sub ' DrawJailLine8x8_VT_2
1354.  
1355. ' /////////////////////////////////////////////////////////////////////////////
1356. ' Draw this shape with Line commands:
1357. ' #.#.#.#.
1358. ' #.#.#.#.
1359. ' #.#.#.#.
1360. ' #.#.#.#.
1361. ' #.#.#.#.
1362. ' #.#.#.#.
1363. ' #.#.#.#.
1364. ' #.#.#.#.
1365. Sub DrawJailLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1366.     ' DRAW WITH VERTICAL LINES
1367.     Line (iX, iY)-(iX, iY + 7), fgColor
1368.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
1369.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
1370.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
1371. End Sub ' DrawJailLine8x8_VT_1
1372.  
1373. ' /////////////////////////////////////////////////////////////////////////////
1374. ' Draw this shape with Line commands:
1375. ' ########
1376. ' ########
1377. ' ........
1378. ' ........
1379. ' ########
1380. ' ########
1381. ' ........
1382. ' ........
1383. Sub DrawJailLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1384.     ' DRAW WITH HORIZONTAL LINES
1385.     Line (iX, iY)-(iX + 7, iY), fgColor
1386.     Line (iX, iY + 1)-(iX + 7, iY + 1), fgColor
1387.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
1388.     Line (iX, iY + 5)-(iX + 7, iY + 5), fgColor
1389. End Sub ' DrawJailLine8x8_HZ_2
1390.  
1391. ' /////////////////////////////////////////////////////////////////////////////
1392. ' Draw this shape with Line commands:
1393. ' ########
1394. ' ........
1395. ' ########
1396. ' ........
1397. ' ########
1398. ' ........
1399. ' ########
1400. ' ........
1401. Sub DrawJailLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1402.     ' DRAW WITH HORIZONTAL LINES
1403.     Line (iX, iY)-(iX + 7, iY), fgColor
1404.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
1405.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
1406.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
1407. End Sub ' DrawJailLine8x8_HZ_1
1408.  
1409. ' /////////////////////////////////////////////////////////////////////////////
1410. ' Draw this shape with Line commands:
1411. ' #######.
1412. ' #.#.#.#.
1413. ' #######.
1414. ' #.#.#.#.
1415. ' #######.
1416. ' #.#.#.#.
1417. ' #######.
1418. ' #.#.#.#.
1419. Sub DrawJailLine8x8_Grid_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1420.     ' DRAW WITH VERTICAL LINES
1421.     Line (iX, iY)-(iX, iY + 7), fgColor
1422.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
1423.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
1424.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
1425.  
1426.     ' DRAW WITH HORIZONTAL LINES
1427.     Line (iX, iY)-(iX + 7, iY), fgColor
1428.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
1429.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
1430.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
1431. End Sub ' DrawJailLine8x8_Grid_1
1432.  
1433. ' /////////////////////////////////////////////////////////////////////////////
1434. ' Draw this shape with Line commands:
1435. ' ...#...#
1436. ' ...#...#
1437. ' ...#...#
1438. ' ########
1439. ' ...#...#
1440. ' ...#...#
1441. ' ...#...#
1442. ' ########
1443. Sub DrawJailLine8x8_Grid_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1444.     ' DRAW WITH VERTICAL LINES
1445.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
1446.     Line (iX + 7, iY)-(iX + 7, iY + 7), fgColor
1447.     ' DRAW WITH HORIZONTAL LINES
1448.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
1449.     Line (iX, iY + 7)-(iX + 7, iY + 7), fgColor
1450. End Sub ' DrawJailLine8x8_Grid_2
1451.  
1452. ' /////////////////////////////////////////////////////////////////////////////
1453. ' Draw this shape with Line commands:
1454. ' ...##...
1455. ' ...##...
1456. ' ...##...
1457. ' ########
1458. ' ########
1459. ' ...##...
1460. ' ...##...
1461. ' ...##...
1462. Sub DrawJailLine8x8_Grid_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1463.     ' DRAW WITH VERTICAL LINES
1464.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
1465.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
1466.     ' DRAW WITH HORIZONTAL LINES
1467.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
1468.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
1469. End Sub ' DrawJailLine8x8_Grid_3
1470.  
1471. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1472. ' END GENERATED VECTOR TILE ROUTINES
1473. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1474.  
1475. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1476. ' BEGIN MANUALLY CREATED VECTOR TILE ROUTINES
1477. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1478.  
1479. ' /////////////////////////////////////////////////////////////////////////////
1480. ' Fastest!
1481.  
1482. Sub DrawUpArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1483.     Dim iStartX As Integer: iStartX = iX + 3
1484.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
1485.     Line (iStartX, iY)-(iX, iY + 3), fgColor
1486.     Line (iStartX, iY)-(iStartX + 3, iY + 3), fgColor
1487. End Sub ' DrawUpArrowLine_8x8
1488.  
1489. ' /////////////////////////////////////////////////////////////////////////////
1490. ' Fastest!
1491.  
1492. Sub DrawDownArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1493.     Dim iStartX As Integer: iStartX = iX + 3
1494.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
1495.     Line (iStartX, iY + 7)-(iX, iY + 4), fgColor
1496.     Line (iStartX, iY + 7)-(iStartX + 3, iY + 4), fgColor
1497. End Sub ' DrawDownArrowLine_8x8
1498.  
1499. ' /////////////////////////////////////////////////////////////////////////////
1500. ' Fastest!
1501.  
1502. Sub DrawLeftArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1503.     Dim iStartY As Integer: iStartY = iY + 3
1504.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
1505.     Line (iX, iStartY)-(iX + 3, iY), fgColor
1506.     Line (iX, iStartY)-(iX + 3, iStartY + 3), fgColor
1507. End Sub ' DrawLeftArrowLine_8x8
1508.  
1509. ' /////////////////////////////////////////////////////////////////////////////
1510. ' Fastest!
1511.  
1512. Sub DrawRightArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
1513.     Dim iStartY As Integer: iStartY = iY + 3
1514.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
1515.     Line (iX + 7, iStartY)-(iX + 4, iY), fgColor
1516.     Line (iX + 7, iStartY)-(iX + 4, iStartY + 3), fgColor
1517. End Sub ' DrawRightArrowLine_8x8
1518.  
1519. ' /////////////////////////////////////////////////////////////////////////////
1520. ' This uses PSET to draw the arrow pixel-by-pixel
1521. ' PSET = second fastest method after Line.
1522.  
1523. ' PSET (X, Y), Color
1524. ' draw will start where pset leaves off
1525.  
1526. Sub DrawLeftArrowPset_8x8 (iX As Long, iY As Long, fgColor As _Unsigned Long)
1527.     Dim iLoopX As Integer
1528.     Dim iLoopY As Integer
1529.     For iLoopX = iX To iX + 7: PSet (iLoopX, iY), fgColor: Next iLoopX
1530.     PSet (iX + 1, iY - 1), fgColor
1531.     PSet (iX + 2, iY - 2), fgColor
1532.     PSet (iX + 3, iY - 3), fgColor
1533.     PSet (iX + 1, iY + 1), fgColor
1534.     PSet (iX + 2, iY + 2), fgColor
1535.     PSet (iX + 3, iY + 3), fgColor
1536. End Sub ' DrawLeftArrowPset_8x8
1537.  
1538. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1539. ' END MANUALLY CREATED VECTOR TILE ROUTINES
1540. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1541.  
1542. ' ################################################################################################################################################################
1543. ' END MISC GRAPHICS ROUTINES
1544. ' ################################################################################################################################################################
1545.  
1546. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1547. ' BEGIN STRING TO ARRAY FUNCTIONS
1548. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1549.  
1550. ' /////////////////////////////////////////////////////////////////////////////
1551.  
1552. ' Usage:
1553. ' Dim StringArray(1 To 48, 1 To 128) As String
1554. ' StringToArray StringArray(), GetMap$
1555.  
1556. ' version 2 with indexed array(row, columm)
1557.  
1558. Sub StringToArray (MyArray() As String, MyString As String)
1559.     Dim sDelim As String
1560.     ReDim arrLines(0) As String
1561.     Dim iRow As Integer
1562.     Dim iCol As Integer
1563.     Dim sChar As String
1564.     Dim iDim1 As Integer
1565.     Dim iDim2 As Integer
1566.     Dim iIndex1 As Integer
1567.     Dim iIndex2 As Integer
1568.  
1569.     iDim1 = LBound(MyArray, 1)
1570.     iDim2 = LBound(MyArray, 2)
1571.     sDelim = Chr$(13)
1572.     split MyString, sDelim, arrLines()
1573.     For iRow = LBound(arrLines) To UBound(arrLines)
1574.         If iRow <= UBound(MyArray, 1) Then
1575.             For iCol = 1 To Len(arrLines(iRow))
1576.                 If iCol <= UBound(MyArray, 2) Then
1577.                     sChar = Mid$(arrLines(iRow), iCol, 1)
1578.  
1579.                     If Len(sChar) > 1 Then
1580.                         sChar = Left$(sChar, 1)
1581.                     Else
1582.                         If Len(sChar) = 0 Then
1583.                             sChar = "."
1584.                         End If
1585.                     End If
1586.  
1587.                     iIndex1 = iRow + iDim1
1588.                     iIndex2 = (iCol - 1) + iDim2
1589.                     MyArray(iIndex1, iIndex2) = sChar
1590.                     'DebugPrint "MyArray(" + cstr$(iIndex1) + ", " + cstr$(iIndex2) + " = " + chr$(34) + sChar + chr$(34)
1591.                 Else
1592.                     ' Exit if out of bounds
1593.                     Exit For
1594.                 End If
1595.             Next iCol
1596.         Else
1597.             ' Exit if out of bounds
1598.             Exit For
1599.         End If
1600.     Next iRow
1601. End Sub ' StringToArray
1602.  
1603. ' /////////////////////////////////////////////////////////////////////////////
1604.  
1605. Function ArrayToString$ (MyArray( 1 To 32 , 1 To 32) As String)
1606.     Dim MyString As String
1607.     Dim iY As Integer
1608.     Dim iX As Integer
1609.     Dim sLine As String
1610.     MyString = ""
1611.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
1612.         sLine = ""
1613.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
1614.             sLine = sLine + MyArray(iY, iX)
1615.         Next iX
1616.         MyString = MyString + sLine + Chr$(13)
1617.     Next iY
1618.     ArrayToString$ = MyString
1619. End Function ' ArrayToString$
1620.  
1621. ' /////////////////////////////////////////////////////////////////////////////
1622.  
1623. Function ArrayToStringTest$ (MyArray() As String)
1624.     Dim MyString As String
1625.     Dim iY As Integer
1626.     Dim iX As Integer
1627.     Dim sLine As String
1628.     MyString = ""
1629.  
1630.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
1631.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
1632.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
1633.         sLine = ""
1634.         sLine = sLine + Right$("  " + cstr$(iY), 2)
1635.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
1636.             sLine = sLine + MyArray(iY, iX)
1637.         Next iX
1638.         sLine = sLine + Right$("  " + cstr$(iY), 2)
1639.         MyString = MyString + sLine + Chr$(13)
1640.     Next iY
1641.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
1642.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
1643.     ArrayToStringTest$ = MyString
1644. End Function ' ArrayToStringTest$
1645.  
1646. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1647. ' END STRING TO ARRAY FUNCTIONS
1648. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1649.  
1650. ' ################################################################################################################################################################
1651. ' BEGIN TILE UTILITIES
1652. ' ################################################################################################################################################################
1653.  
1654. ' /////////////////////////////////////////////////////////////////////////////
1655. ' Precalculates the tile locations ahead of time to save time copying them
1656. ' to the screen.
1657.  
1658. ' Requires the following types be declared:
1659. '
1660. '     Type TileSheetMapType ' UDT FOR PRECALCULATED TILESHEET
1661. '         xStart As Integer
1662. '         xEnd As Integer
1663. '         yStart As Integer
1664. '         yEnd As Integer
1665. '     End Type
1666. '     Type TileMapType ' UDT FOR PRECALCULATED TILE MAP
1667. '         xPos As Integer
1668. '         yPos As Integer
1669. '     End Type
1670. '
1671. ' EXAMPLE USAGE:
1672. '
1673. '     Dim TileCount%
1674. '     Dim TilesheetCols%
1675. '     Dim TilesheetRows%
1676. '     Dim tileHeightPx%
1677. '     Dim tileWidthPx%
1678. '     Dim xOffset%
1679. '     Dim yOffset%
1680. '     Dim numTilesX%
1681. '     Dim numTilesY%
1682. '     REDIM arrTileSheetMap(255) AS TileSheetMapType
1683. '     REDIM arrTileMap(20, 20) AS TileMapType
1684. '     TileCount% = 256 ' TOTAL # OF TILES
1685. '     TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
1686. '     TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
1687. '     tileHeightPx% = 32 ' TILE HEIGHT
1688. '     tileWidthPx% = 32 ' TILE WIDTH
1689. '     xOffset% = 0 ' SCREEN OFFSET X
1690. '     yOffset% = 64 ' SCREEN OFFSET Y
1691. '     numTilesX% = 20 ' HOW MANY TILES ACROSS (ON DESTINATION)
1692. '     numTilesY% = 20 ' HOW MANY TILES UP/DOWN (ON DESTINATION)
1693. '     ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, _
1694. '         TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, _
1695. '         xOffset%, yOffset%, numTilesX%, numTilesY%
1696.  
1697. ' TODO: this can be simplified & optimized:
1698. '       - we don't need x/y offsets
1699. '       - tile height/width can be hardcoded
1700. '       - etc.
1701.  
1702. Sub ComputeTileLocations (arrTileSheetMap() As TileSheetMapType, arrTileMap() As TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
1703.     Dim TileNum%
1704.     Dim sc%
1705.     Dim sr%
1706.     Dim sx1%
1707.     Dim sx2%
1708.     Dim sy1%
1709.     Dim sy2%
1710.  
1711.     Dim dx%
1712.     Dim dy%
1713.     Dim xDest%
1714.     Dim yDest%
1715.  
1716.     ' -----------------------------------------------------------------------------
1717.     ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
1718.  
1719.     For TileNum% = 0 To (TileCount% - 1)
1720.  
1721.         ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
1722.         sc% = TileNum% Mod TilesheetCols%
1723.         sr% = TileNum% \ TilesheetRows%
1724.  
1725.         'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
1726.  
1727.         ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
1728.         'sx1% = sc% * tw%
1729.         sx1% = sc% * tileWidthPx%
1730.  
1731.         ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
1732.         'sy1% = sr% * tw%
1733.         sy1% = sr% * tileHeightPx%
1734.  
1735.         ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
1736.         'sx2% = sx1% + (tw% - 1)
1737.         sx2% = sx1% + (tileWidthPx% - 1)
1738.  
1739.         ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
1740.         'sy2% = sy1% + (tw% - 1)
1741.         sy2% = sy1% + (tileHeightPx% - 1)
1742.  
1743.         ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
1744.         arrTileSheetMap(TileNum%).xStart = sx1%
1745.         arrTileSheetMap(TileNum%).xEnd = sx2%
1746.         arrTileSheetMap(TileNum%).yStart = sy1%
1747.         arrTileSheetMap(TileNum%).yEnd = sy2%
1748.  
1749.     Next TileNum%
1750.  
1751.     ' -----------------------------------------------------------------------------
1752.     ' CALCULATE SCREEN COORDINATES FOR TILES
1753.  
1754.     For dx% = 0 To (numTilesX% - 1)
1755.         For dy% = 0 To (numTilesY% - 1)
1756.  
1757.             ' GET THE DESTINATION X COORDINATE ON THE SCREEN
1758.             'xDest% = dx% * tw%
1759.             xDest% = (dx% * tileWidthPx%) + xOffset%
1760.  
1761.             ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
1762.             'yDest% = (dy% * tw%) + 64
1763.             yDest% = (dy% * tileHeightPx%) + yOffset%
1764.  
1765.             'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
1766.  
1767.             ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
1768.             ' WHERE dx% and dy% ARE 1-BASED
1769.             arrTileMap(dx% + 1, dy% + 1).xPos = xDest%
1770.             arrTileMap(dx% + 1, dy% + 1).yPos = yDest%
1771.  
1772.         Next dy%
1773.     Next dx%
1774.  
1775. End Sub ' ComputeTileLocations
1776.  
1777. ' /////////////////////////////////////////////////////////////////////////////
1778. ' Latest version with NOVARSEG's changes.
1779.  
1780. ' Based on code from:
1781.  
1782. ' Image color swap?
1783. ' https://www.qb64.org/forum/index.php?topic=2312.0
1784.  
1785. ' Like Function swapcolor& except returns new image in a parameter
1786. ' in case being a function causes a memory leak?
1787.  
1788. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
1789.     Dim m As _MEM
1790.     Dim a As _Offset
1791.     Dim c As _Unsigned Long
1792.     a = 0
1793.     imgNew& = _CopyImage(imgOriginal&, 32)
1794.     m = _MemImage(imgNew&)
1795.     Do Until a = m.SIZE - 4
1796.         a = a + 4
1797.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
1798.         If c = oldcolor~& Then
1799.             _MemPut m, m.OFFSET + a, newcolor~&
1800.         End If
1801.     Loop
1802.     _MemFree m
1803. End Sub ' DoColorSwap&
1804.  
1805. ' ################################################################################################################################################################
1806. ' END TILE UTILITIES
1807. ' ################################################################################################################################################################
1808.  
1809. ' ################################################################################################################################################################
1810. ' BEGIN HELPER ROUTINES
1811. ' ################################################################################################################################################################
1812.  
1813. ' /////////////////////////////////////////////////////////////////////////////
1814. ' div: int1% = num1% \ den1%
1815. ' mod: rem1% = num1% MOD den1%
1816.  
1817. Function NextColorIndex% (iX As Integer, iY As Integer)
1818.     Dim iIndex As Integer
1819.     Dim iAdd As Integer
1820.     iOut = (iX Mod 4)
1821.     iAdd = (iY Mod 4)
1822.     NextColorIndex% = iOut + iAdd + 1
1823. End Function ' NextColorIndex%
1824.  
1825. ' /////////////////////////////////////////////////////////////////////////////
1826. ' Pauses for iDS deciseconds (iDS * 100 ms)
1827.  
1828. Sub PauseDecisecond (iDS As Integer)
1829.     Dim iCount As Integer
1830.     iCount = 0
1831.     Do
1832.         iCount = iCount + 1
1833.         _Limit 10 ' run 10x every second
1834.     Loop Until iCount = iDS
1835. End Sub ' PauseDecisecond
1836.  
1837. ' /////////////////////////////////////////////////////////////////////////////
1838. ' Returns TRUE if point (x1%, y1%) is adjacent to point (x2%, y2%)
1839.  
1840. Function PointsAreAdjacent% (x1%, y1%, x2%, y2%)
1841.     Dim bResult%: bResult% = FALSE
1842.  
1843.     ' x or y can be the same, but not both
1844.     If (x1% <> x2%) Or (y1% <> y2%) Then
1845.         If (x1% = x2%) Or ((x1% = (x2% + 1)) Or (x2% = (x1% + 1))) Then
1846.             If (y1% = y2%) Or ((y1% = (y2% + 1)) Or (y2% = (y1% + 1))) Then
1847.                 bResult% = TRUE
1848.             End If
1849.         End If
1850.     End If
1851.     PointsAreAdjacent% = bResult%
1852. End Function ' PointsAreAdjacent%
1853.  
1854. ' ################################################################################################################################################################
1855. ' END HELPER ROUTINES
1856. ' ################################################################################################################################################################
1857.  
1858. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1859. ' BEGIN COLOR ARRAY FUNCTIONS
1860. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1861.  
1862. ' /////////////////////////////////////////////////////////////////////////////
1863.  
1864. Sub AddColor (ColorValue As _Unsigned Long, ColorName As String, arrColor() As ColorType)
1865.     ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As ColorType
1866.     arrColor(UBound(arrColor)).name = ColorName
1867.     arrColor(UBound(arrColor)).value = ColorValue
1868. End Sub ' AddColor
1869.  
1870. ' /////////////////////////////////////////////////////////////////////////////
1871.  
1872. Sub AddColors (arrColor() As ColorType)
1873.     AddColor cBlack, "cBlack", arrColor()
1874.     AddColor cGray, "cGray", arrColor()
1875.     AddColor cSilver, "cSilver", arrColor()
1876.     AddColor cWhite, "cWhite", arrColor()
1877.     AddColor cRed, "cRed", arrColor()
1878.     AddColor cOrangeRed, "cOrangeRed", arrColor()
1879.     AddColor cYellow, "cYellow", arrColor()
1880.     AddColor cLime, "cLime", arrColor()
1881.     AddColor cCyan, "cCyan", arrColor()
1882.     AddColor cDodgerBlue, "cDodgerBlue", arrColor()
1883.     AddColor cBlue, "cBlue", arrColor()
1884.     AddColor cDeepPurple, "cDeepPurple", arrColor()
1885.     AddColor cDarkGreen, "cDarkGreen", arrColor()
1886.     AddColor cMagenta, "cMagenta", arrColor()
1887.     AddColor cHotPink, "cHotPink", arrColor()
1888.     AddColor cDarkBrown, "cDarkBrown", arrColor()
1889.     AddColor cEmpty, "cEmpty", arrColor()
1890. End Sub ' AddColors
1891.  
1892. ' /////////////////////////////////////////////////////////////////////////////
1893.  
1894. Sub AddGrayscaleColors (arrColor() As ColorType)
1895.     'AddColor cBlack, "cBlack", arrColor()
1896.     AddColor cDimGray, "cDimGray", arrColor()
1897.     AddColor cGray, "cGray", arrColor()
1898.     AddColor cDarkGray, "cDarkGray", arrColor()
1899.     AddColor cSilver, "cSilver", arrColor()
1900.     AddColor cLightGray, "cLightGray", arrColor()
1901.     AddColor cWhite, "cGainsboro", arrColor()
1902.     AddColor cWhite, "cWhiteSmoke", arrColor()
1903.     AddColor cWhite, "cWhite", arrColor()
1904. End Sub ' AddGrayscaleColors
1905.  
1906. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1907. ' END COLOR ARRAY FUNCTIONS
1908. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1909.  
1910. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1911. ' BEGIN COLOR FUNCTIONS
1912. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1913.  
1914. Function cRed~& ()
1915.     cRed = _RGB32(255, 0, 0)
1916. End Function
1917.  
1918. Function cOrangeRed~& ()
1919.     cOrangeRed = _RGB32(255, 69, 0)
1920. End Function ' cOrangeRed~&
1921.  
1922. Function cDarkOrange~& ()
1923.     cDarkOrange = _RGB32(255, 140, 0)
1924. End Function ' cDarkOrange~&
1925.  
1926. Function cOrange~& ()
1927.     cOrange = _RGB32(255, 165, 0)
1928. End Function ' cOrange~&
1929.  
1930. Function cGold~& ()
1931.     cGold = _RGB32(255, 215, 0)
1932. End Function ' cGold~&
1933.  
1934. Function cYellow~& ()
1935.     cYellow = _RGB32(255, 255, 0)
1936. End Function ' cYellow~&
1937.  
1938. 'Function cChartreuse~& ()
1939. '    cChartreuse = _RGB32(127, 255, 0)
1940. 'End Function ' cChartreuse~&
1941.  
1942. ' WE USE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW
1943. ' INSTEAD OF Chartreuse WHICH IS NOT YELLOW ENOUGH
1944. Function cOliveDrab1~& ()
1945.     cOliveDrab1 = _RGB32(192, 255, 62)
1946. End Function ' cOliveDrab1~&
1947.  
1948. Function cLime~& ()
1949.     cLime = _RGB32(0, 255, 0)
1950. End Function ' cLime~&
1951.  
1952. Function cMediumSpringGreen~& ()
1953.     cMediumSpringGreen = _RGB32(0, 250, 154)
1954. End Function ' cMediumSpringGreen~&
1955.  
1956. Function cCyan~& ()
1957.     cCyan = _RGB32(0, 255, 255)
1958. End Function ' cCyan~&
1959.  
1960. Function cDeepSkyBlue~& ()
1961.     cDeepSkyBlue = _RGB32(0, 191, 255)
1962. End Function ' cDeepSkyBlue~&
1963.  
1964. Function cDodgerBlue~& ()
1965.     cDodgerBlue = _RGB32(30, 144, 255)
1966. End Function ' cDodgerBlue~&
1967.  
1968. Function cSeaBlue~& ()
1969.     cSeaBlue = _RGB32(0, 64, 255)
1970. End Function ' cSeaBlue~&
1971.  
1972. Function cBlue~& ()
1973.     cBlue = _RGB32(0, 0, 255)
1974. End Function ' cBlue~&
1975.  
1976. Function cBluePurple~& ()
1977.     cBluePurple = _RGB32(64, 0, 255)
1978. End Function ' cBluePurple~&
1979.  
1980. Function cDeepPurple~& ()
1981.     cDeepPurple = _RGB32(96, 0, 255)
1982. End Function ' cDeepPurple~&
1983.  
1984. Function cPurple~& ()
1985.     cPurple = _RGB32(128, 0, 255)
1986. End Function ' cPurple~&
1987.  
1988. Function cPurpleRed~& ()
1989.     cPurpleRed = _RGB32(128, 0, 192)
1990. End Function ' cPurpleRed~&
1991.  
1992. Function cDarkRed~& ()
1993.     cDarkRed = _RGB32(160, 0, 64)
1994. End Function ' cDarkRed~&
1995.  
1996. Function cBrickRed~& ()
1997.     cBrickRed = _RGB32(192, 0, 32)
1998. End Function ' cBrickRed~&
1999.  
2000. Function cDarkGreen~& ()
2001.     cDarkGreen = _RGB32(0, 100, 0)
2002. End Function ' cDarkGreen~&
2003.  
2004. Function cGreen~& ()
2005.     cGreen = _RGB32(0, 128, 0)
2006. End Function ' cGreen~&
2007.  
2008. Function cOliveDrab~& ()
2009.     cOliveDrab = _RGB32(107, 142, 35)
2010. End Function ' cOliveDrab~&
2011.  
2012. Function cLightPink~& ()
2013.     cLightPink = _RGB32(255, 182, 193)
2014. End Function ' cLightPink~&
2015.  
2016. Function cHotPink~& ()
2017.     cHotPink = _RGB32(255, 105, 180)
2018. End Function ' cHotPink~&
2019.  
2020. Function cDeepPink~& ()
2021.     cDeepPink = _RGB32(255, 20, 147)
2022. End Function ' cDeepPink~&
2023.  
2024. Function cMagenta~& ()
2025.     cMagenta = _RGB32(255, 0, 255)
2026. End Function ' cMagenta~&
2027.  
2028. Function cBlack~& ()
2029.     cBlack = _RGB32(0, 0, 0)
2030. End Function ' cBlack~&
2031.  
2032. Function cDimGray~& ()
2033.     cDimGray = _RGB32(105, 105, 105)
2034. End Function ' cDimGray~&
2035.  
2036. Function cGray~& ()
2037.     cGray = _RGB32(128, 128, 128)
2038. End Function ' cGray~&
2039.  
2040. Function cDarkGray~& ()
2041.     cDarkGray = _RGB32(169, 169, 169)
2042. End Function ' cDarkGray~&
2043.  
2044. Function cSilver~& ()
2045.     cSilver = _RGB32(192, 192, 192)
2046. End Function ' cSilver~&
2047.  
2048. Function cLightGray~& ()
2049.     cLightGray = _RGB32(211, 211, 211)
2050. End Function ' cLightGray~&
2051.  
2052. Function cGainsboro~& ()
2053.     cGainsboro = _RGB32(220, 220, 220)
2054. End Function ' cGainsboro~&
2055.  
2056. Function cWhiteSmoke~& ()
2057.     cWhiteSmoke = _RGB32(245, 245, 245)
2058. End Function ' cWhiteSmoke~&
2059.  
2060. Function cWhite~& ()
2061.     cWhite = _RGB32(255, 255, 255)
2062.     'cWhite = _RGB32(254, 254, 254)
2063. End Function ' cWhite~&
2064.  
2065. Function cDarkBrown~& ()
2066.     cDarkBrown = _RGB32(128, 64, 0)
2067. End Function ' cDarkBrown~&
2068.  
2069. Function cLightBrown~& ()
2070.     cLightBrown = _RGB32(196, 96, 0)
2071. End Function ' cLightBrown~&
2072.  
2073. Function cKhaki~& ()
2074.     cKhaki = _RGB32(240, 230, 140)
2075. End Function ' cKhaki~&
2076.  
2077. Function cEmpty~& ()
2078.     'cEmpty~& = -1
2079.     cEmpty = _RGB32(0, 0, 0, 0)
2080. End Function ' cEmpty~&
2081.  
2082. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2083. ' END COLOR FUNCTIONS
2084. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2085.  
2086. ' ################################################################################################################################################################
2087. ' BEGIN GENERAL PURPOSE ROUTINES
2088. ' ################################################################################################################################################################
2089.  
2090. ' /////////////////////////////////////////////////////////////////////////////
2091. ' Convert a value to string and trim it (because normal Str$ adds spaces)
2092.  
2093. Function cstr$ (myValue)
2094.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
2095.     cstr$ = _Trim$(Str$(myValue))
2096. End Function ' cstr$
2097.  
2098. ' /////////////////////////////////////////////////////////////////////////////
2099. ' FROM: String Manipulation
2100. ' found at abandoned, outdated and now likely malicious qb64 dot net website
2101. ' http://www.qb64.[net]/forum/index_topic_5964-0/
2102. '
2103. 'SUMMARY:
2104. '   Purpose:  A library of custom functions that transform strings.
2105. '   Author:   Dustinian Camburides (dustinian@gmail.com)
2106. '   Platform: QB64 (www.qb64.org)
2107. '   Revision: 1.6
2108. '   Updated:  5/28/2012
2109.  
2110. 'SUMMARY:
2111. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
2112. 'INPUT:
2113. 'Text: The input string; the text that's being manipulated.
2114. 'Find: The specified sub-string; the string sought within the [Text] string.
2115. 'Add: The sub-string that's being added to the [Text] string.
2116.  
2117. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
2118.     ' VARIABLES:
2119.     Dim Text2 As String
2120.     Dim Find2 As String
2121.     Dim Add2 As String
2122.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
2123.     Dim strBefore As String ' The characters before the string to be replaced.
2124.     Dim strAfter As String ' The characters after the string to be replaced.
2125.  
2126.     ' INITIALIZE:
2127.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
2128.     Text2 = Text1
2129.     Find2 = Find1
2130.     Add2 = Add1
2131.  
2132.     lngLocation = InStr(1, Text2, Find2)
2133.  
2134.     ' PROCESSING:
2135.     ' While [Find2] appears in [Text2]...
2136.     While lngLocation
2137.         ' Extract all Text2 before the [Find2] substring:
2138.         strBefore = Left$(Text2, lngLocation - 1)
2139.  
2140.         ' Extract all text after the [Find2] substring:
2141.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
2142.  
2143.         ' Return the substring:
2144.         Text2 = strBefore + Add2 + strAfter
2145.  
2146.         ' Locate the next instance of [Find2]:
2147.         lngLocation = InStr(1, Text2, Find2)
2148.  
2149.         ' Next instance of [Find2]...
2150.     Wend
2151.  
2152.     ' OUTPUT:
2153.     Replace$ = Text2
2154. End Function ' Replace$
2155.  
2156. ' /////////////////////////////////////////////////////////////////////////////
2157. ' Split and join strings
2158. ' https://www.qb64.org/forum/index.php?topic=1073.0
2159. '
2160. ' FROM luke, QB64 Developer
2161. ' Date: February 15, 2019, 04:11:07 AM
2162. '
2163. ' Given a string of words separated by spaces (or any other character),
2164. ' splits it into an array of the words. I've no doubt many people have
2165. ' written a version of this over the years and no doubt there's a million
2166. ' ways to do it, but I thought I'd put mine here so we have at least one
2167. ' version. There's also a join function that does the opposite
2168. ' array -> single string.
2169. '
2170. ' Code is hopefully reasonably self explanatory with comments and a little demo.
2171. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
2172.  
2173. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
2174. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
2175. '
2176. 'delimiter$ must be one character long.
2177. 'result$() must have been REDIMmed previously.
2178.  
2179. ' Modified to handle multi-character delimiters
2180.  
2181. Sub split (in$, delimiter$, result$())
2182.     Dim start As Integer
2183.     Dim finish As Integer
2184.     Dim iDelimLen As Integer
2185.     ReDim result$(-1)
2186.  
2187.     iDelimLen = Len(delimiter$)
2188.  
2189.     start = 1
2190.     Do
2191.         'While Mid$(in$, start, 1) = delimiter$
2192.         While Mid$(in$, start, iDelimLen) = delimiter$
2193.             'start = start + 1
2194.             start = start + iDelimLen
2195.             If start > Len(in$) Then
2196.                 Exit Sub
2197.             End If
2198.         Wend
2199.         finish = InStr(start, in$, delimiter$)
2200.         If finish = 0 Then
2201.             finish = Len(in$) + 1
2202.         End If
2203.  
2204.         ReDim _Preserve result$(0 To UBound(result$) + 1)
2205.  
2206.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
2207.         start = finish + 1
2208.     Loop While start <= Len(in$)
2209. End Sub ' split
2210.  
2211. ' ################################################################################################################################################################
2212. ' END GENERAL PURPOSE ROUTINES
2213. ' ################################################################################################################################################################
2214.  
2215. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2216. ' BEGIN DEBUGGING ROUTINES #DEBUGGING
2217. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2218.  
2219. Sub DebugPrint (MyString As String)
2220.     If m_bDebug = TRUE Then
2221.         '_Echo MyString
2222.  
2223.         ReDim arrLines(-1) As String
2224.         Dim iLoop As Integer
2225.         split MyString, Chr$(13), arrLines()
2226.         For iLoop = LBound(arrLines) To UBound(arrLines)
2227.             _Echo arrLines(iLoop)
2228.         Next iLoop
2229.     End If
2230. End Sub ' DebugPrint
2231.  
2232. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2233. ' END DEBUGGING ROUTINES @DEBUGGING
2234. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2235.  
2236.  

[Pete]

Like Steve mentioned, it's just missing _AUTODISPALY.

    INPUT "PRESS <ENTER> TO CONTINUE"; in$
    _AUTODISPLAY
END SUB   

Pete

[madscijr]

Like Steve mentioned, it's just missing _AUTODISPALY.

    INPUT "PRESS <ENTER> TO CONTINUE"; in$
    _AUTODISPLAY
END SUB   

Pete

Yes that's right. Thanks.

[madscijr]

One thing that would be *very* different with all hardware images vs what you're doing currently, is the fact that you have to remember:  Hardware images display once and then flush themselves from the GPU buffer. 
...
About 600 times in 3 seconds, for a total of 200 FPS on my machine.

The faux hardware screen array is ~ 3 times faster than this, without us trying to do anything to optimize performance any more than just sticking to the very basics.  ;)

More is required to work with it, but it does run faster once all is said and done, if that's the primary concern that your program is facing -- display speeds from character rendering.  :)

If only for my own intellectual curiosity, I was bitten by the desire to figure out some way to compute the minimum set of rectangles to draw with Line, that would yield a given 8x8 raster tile, and I think it's working.
I'm sure there are better ways to do it, but without all the output statements (DebugPrint which explain what's going on) it runs decently fast. Once the shapes for the tiles are calculated, you can use that to generate the routine to draw the tile, and it doesn't have to change unless the tileset changes.

Anyway, when i get more time I will try to do some apples to apples speed tests with this method versus the hardware screen method. Even if this way doesn't turn out to be the solution, it was still interesting & fun figuring out how to optimize drawing a tile with a minimum # of rectangles...

Here is the version without extra debugging out, it just analyzes some tiles and writes the minimum rectangles to draw each in the Console window:

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2. ' VECTOR TILE DRAWING EXPERIMENT
3.  
4. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
5. ' FOR ONE OR MORE 8X8 RASTER TILES.
6.  
7. ' Eventually we would store a list of line coordinates for each tile
8. ' in a 2D array or similar data structure, with just one general-
9. ' purpose drawing routine that receives a list of (x1,y1,x2,y2)
10. ' and a color and draws the shape with Line. The background would
11. ' be transparent but if we want a background color can be specified
12. ' and simply draw an 8x8 background color rectangle first and then
13. ' draw the shape on top of that.
14.  
15. ' TODO: Optimize for each shape by determining how to draw it with the
16. '       minimum number of line commands.
17. '
18. '       For example this:
19. '           ' DRAW WITH HORIZONTAL LINES
20. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
21. '           Line (iX + 6, iY + 4)-(iX + 6, iY + 4), fgColor
22. '       could be replaced with:
23. '           ' DRAW WITH VERTICAL LINES
24. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
25. '
26. '       Google "rectangular decomposition of binary images" and similar
27. '       to find a better algorithm.
28. '
29. '       Brute force method would be to draw every size rectangle from 1x1
30. '       up to 8x8 (which can themselves be precalculated) in every available
31. '       location in the 8x8 grid (where no part of any rectangle falls off
32. '       the grid), then try every combination of those rectangles to find
33. '       combination where the the minimum number of rectangles cover all
34. '       points.
35. '
36. '       Rather than compute this on the fly, we could precompute it and
37. '       for each given tile, store the list of those rectangle coordinates
38. '       (x1,y1,x2,y2) for drawing it indexed by the tile's definition in
39. '       hexidecimal where 16-bits (0-F) defines the bit pattern for each
40. '       row in the tile, therefore a tile's definition can be stored by
41. '       8 characters (or less if we use base 64). Perhaps build a utility
42. '       that will compute the optimal drawing pattern for every possible
43. '       combination of an 8x8 grid, and index them all by the tile's 8-byte
44. '       hexidecimal definition. It might take a while to run, but once it
45. '       does, we will have a database of every possible tile's optimized
46. '       drawing instructions that can be quickly looked up.
47. '       Then we only pull out those definitions for the tiles that our
48. '       given program uses, so the data would be relatively small
49. '       (even smaller if we encode it with base-64).
50.  
51. ' ################################################################################################################################################################
52.  
53. ' ===============================================================================
54. ' GLOBAL CONSTANTS
55. ' ===============================================================================
56. ' BOOLEAN VALUES
57. Const FALSE = 0
58. Const TRUE = Not FALSE
59.  
60. ' ===============================================================================
61. ' USER DEFINED TYPES
62. ' ===============================================================================
63. ' UDT TO HOLD COORDINATES FOR DRAWING A RECTANGLE
64. Type RectangleType
65.     x1 As Integer ' start x
66.     x2 As Integer ' end x
67.     y1 As Integer ' start y
68.     y2 As Integer ' end y
69.     PixelCount As Integer
70.     IsActive As Integer
71. End Type ' RectangleType
72.  
73. Type DrawCompareType
74.     IndexList As String
75.     ShapeCount As Integer
76.     PixelCount As Integer
77.     IsActive As Integer
78. End Type ' DrawCompareType
79.  
80. Type CoordinateType
81.     x1 As Integer ' start x
82.     x2 As Integer ' end x
83.     y1 As Integer ' start y
84.     y2 As Integer ' end y
85. End Type ' CoordinateType
86.  
87. ' UDT TO HOLD COLOR CODE INFO
88. Type ColorType
89.     name As String
90.     value As _Unsigned Long
91. End Type ' ColorType
92.  
93. ' UDT FOR PRECALCULATED TILESHEET
94. Type TileSheetMapType
95.     xStart As Integer
96.     xEnd As Integer
97.     yStart As Integer
98.     yEnd As Integer
99. End Type
100.  
101. ' UDT FOR PRECALCULATED TILE MAP
102. Type TileMapType
103.     xPos As Integer
104.     yPos As Integer
105. End Type
106.  
107. ' ===============================================================================
108. ' GLOBAL VARIABLES
109. ' ===============================================================================
110. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES CONSOLE WINDOW AND DebugPrint
111. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
112. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
113. Dim Shared m_iCount As Long: m_iCount = 0
114.  
115. ' ===============================================================================
116. ' LOCAL VARIABLES
117. ' ===============================================================================
118. Dim in$
119.  
120. ' ****************************************************************************************************************************************************************
121. ' ACTIVATE DEBUGGING WINDOW
122. If m_bDebug = TRUE Then
123.     $Console
124.     _Delay 4
125.     _Console On
126.     _Echo "Started " + m_ProgramName$
127.     _Echo "Debugging on..."
128. End If
129. ' ****************************************************************************************************************************************************************
130.  
131. ' ===============================================================================
132. ' START THE MAIN ROUTINE
133. ' ===============================================================================
134. main
135.  
136. ' ===============================================================================
137. ' FINISH
138. ' ===============================================================================
139. Screen 0
140. Print m_ProgramName$ + " finished."
141. Input "Press <ENTER> to continue", in$
142. ' ****************************************************************************************************************************************************************
143. ' DEACTIVATE DEBUGGING WINDOW
144. If m_bDebug = TRUE Then
145.     _Console Off
146. End If
147. ' ****************************************************************************************************************************************************************
148. System ' return control to the operating system
149. End
150.  
151. ' ################################################################################################################################################################
152. ' BEGIN MAIN MENU
153. ' ################################################################################################################################################################
154.  
155. ' /////////////////////////////////////////////////////////////////////////////
156.  
157. Sub main
158.     Dim RoutineName As String: RoutineName = "main"
159.     Dim in$
160.     Dim bFinished As Integer: bFinished = FALSE
161.     Dim result$: result$ = ""
162.     Do
163.         Screen 0
164.         Cls
165.         Print m_ProgramName$
166.         Print
167.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
168.         Print "How about using the Line statement and draw tiles as vector images?"
169.         Print
170.         Print "This code finds the optimized minimum rectangles to draw a given"
171.         Print "8x8 raster tile, for using Line."
172.         Print "Press 6 to try it. Results appear in the Console window."
173.         Print
174.        
175.         'I GUESS I BROKE OPTIONS 1,3,4,5 WHEN DISABLING DebugPrint, WHOOPS!
176.         'Print "1) GenerateVectorTileCode"
177.         'Print "2) DrawVectorTilesTest1"
178.         'Print "3) GetAllPossibleShapesTest"
179.         'Print "4) FindAllCombinationsTest1 - find all combinations of n numbers"
180.         'Print "5) FindAllCombinationsTest2 - find all combinations of n numbers"
181.         Print "6) FindOptimizedVectorTest - find minimum shapes to draw a tile"
182.         Print
183.         Print "Q) Exit program"
184.         Do
185.             in$ = InKey$
186.             If UCase$(in$) = "Q" Then
187.                 bFinished = TRUE: Exit Do
188.                 'ElseIf UCase$(in$) = "1" Then
189.                 '    GenerateVectorTileCode: Exit Do
190.                 'ElseIf UCase$(in$) = "2" Then
191.                 '    DrawVectorTilesTest1: Exit Do
192.                 'ElseIf UCase$(in$) = "3" Then
193.                 '    GetAllPossibleShapesTest: Exit Do
194.                 'ElseIf UCase$(in$) = "4" Then
195.                 '    FindAllCombinationsTest1: Exit Do
196.                 'ElseIf UCase$(in$) = "5" Then
197.                 '    FindAllCombinationsTest2: Exit Do
198.             ElseIf UCase$(in$) = "6" Then
199.                 FindOptimizedVectorTest: Exit Do
200.             End If
201.         Loop
202.     Loop Until bFinished = TRUE
203. End Sub ' main
204.  
205. ' ################################################################################################################################################################
206. ' END MAIN MENU
207. ' ################################################################################################################################################################
208.  
209. ' ################################################################################################################################################################
210. ' BEGIN VECTOR TILE DRAWING TEST ROUTINES
211. ' ################################################################################################################################################################
212.  
213. ' /////////////////////////////////////////////////////////////////////////////
214.  
215. Sub DrawVectorTilesTest1
216.     Dim iX As Integer
217.     Dim iY As Integer
218.     Dim iMaxX As Integer
219.     Dim iMaxY As Integer
220.     Dim iShape As Integer
221.     Dim iMaxShape As Integer
222.     Dim fgColor As _Unsigned Long
223.     Dim arrColor(0 To 7) As _Unsigned Long
224.     Dim iColorIndex As Integer
225.     Dim in$
226.  
227.     arrColor(0) = cBlack
228.     arrColor(1) = cRed
229.     arrColor(2) = cYellow
230.     arrColor(3) = cLime
231.     arrColor(4) = cCyan
232.     arrColor(5) = cBlue
233.     arrColor(6) = cPurple
234.     arrColor(7) = cMagenta
235.  
236.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
237.     Cls , cBlack
238.  
239.     iMaxX = ((_Width(0) - 16) \ 8)
240.     iMaxY = (_Height(0) - 16)
241.     iMaxShape = 24
242.     iShape = 0:: iColorIndex = 1
243.  
244.     For iY = (8 * 10) To iMaxY Step 8
245.         For iX = 0 To iMaxX Step 8
246.             DrawShape iShape, iX, iY, arrColor(iColorIndex)
247.             iShape = iShape + 1: If iShape > iMaxShape Then iShape = 0
248.             iColorIndex = iColorIndex + 1: If iColorIndex > 7 Then iColorIndex = 1
249.         Next iX
250.     Next iY
251.  
252.     Locate 1, 1
253.     Input "PRESS <ENTER> TO CONTINUE"; in$
254.     Screen 0
255. End Sub ' DrawVectorTilesTest1
256.  
257. ' /////////////////////////////////////////////////////////////////////////////
258.  
259. Sub DrawShape (iShape As Integer, iX As Integer, iY As Integer, fgColor As _Unsigned Long)
260.     Select Case iShape
261.         Case 0:
262.             DrawHomeLine8x8_VT_1 iX, iY, fgColor
263.         Case 1:
264.             DrawHomeLine8x8_HZ_1 iX, iY, fgColor
265.         Case 2:
266.             DrawHomeLine8x8_NW_1 iX, iY, fgColor
267.         Case 3:
268.             DrawHomeLine8x8_NE_1 iX, iY, fgColor
269.         Case 4:
270.             DrawHomeLine8x8_SW_1 iX, iY, fgColor
271.         Case 5:
272.             DrawHomeLine8x8_SE_1 iX, iY, fgColor
273.         Case 6:
274.             DrawHomeLine8x8_VT_2 iX, iY, fgColor
275.         Case 7:
276.             DrawHomeLine8x8_HZ_2 iX, iY, fgColor
277.         Case 8:
278.             DrawHomeLine8x8_NW_2 iX, iY, fgColor
279.         Case 9:
280.             DrawHomeLine8x8_NE_2 iX, iY, fgColor
281.         Case 10:
282.             DrawHomeLine8x8_SW_2 iX, iY, fgColor
283.         Case 11:
284.             DrawHomeLine8x8_SE_2 iX, iY, fgColor
285.         Case 12:
286.             DrawHomeLine8x8_VT_3 iX, iY, fgColor
287.         Case 13:
288.             DrawHomeLine8x8_HZ_3 iX, iY, fgColor
289.         Case 14:
290.             DrawHomeLine8x8_NW_3 iX, iY, fgColor
291.         Case 15:
292.             DrawHomeLine8x8_NE_3 iX, iY, fgColor
293.         Case 16:
294.             DrawHomeLine8x8_SW_3 iX, iY, fgColor
295.         Case 17:
296.             DrawHomeLine8x8_SE_3 iX, iY, fgColor
297.         Case 18:
298.             DrawJailLine8x8_VT_2 iX, iY, fgColor
299.         Case 19:
300.             DrawJailLine8x8_VT_1 iX, iY, fgColor
301.         Case 20:
302.             DrawJailLine8x8_HZ_2 iX, iY, fgColor
303.         Case 21:
304.             DrawJailLine8x8_HZ_1 iX, iY, fgColor
305.         Case 22:
306.             DrawJailLine8x8_Grid_1 iX, iY, fgColor
307.         Case 23:
308.             DrawJailLine8x8_Grid_2 iX, iY, fgColor
309.         Case 24:
310.             DrawJailLine8x8_Grid_3 iX, iY, fgColor
311.         Case Else:
312.             '(IGNORE)
313.     End Select
314. End Sub ' DrawShape
315.  
316. ' ################################################################################################################################################################
317. ' END VECTOR TILE DRAWING TEST ROUTINES
318. ' ################################################################################################################################################################
319.  
320. ' ################################################################################################################################################################
321. ' BEGIN BOX DRAWING ROUTINES
322. ' ################################################################################################################################################################
323.  
324. ' /////////////////////////////////////////////////////////////////////////////
325. ' DRAW A 2-D BOX (OUTLINE)
326. ' https://www.qb64.org/wiki/LINE
327.  
328. Sub DrawBoxOutline (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
329.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, B ' Draw box outline
330. End Sub ' DrawBoxOutline
331.  
332. ' /////////////////////////////////////////////////////////////////////////////
333. ' DRAW A 2-D BOX (SOLID)
334. ' https://www.qb64.org/wiki/LINE
335.  
336. ' Renamed DrawBox/DrawBoxLine to DrawSolidBox
337.  
338. Sub DrawBoxSolid (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
339.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, BF ' Draw a solid box
340. End Sub ' DrawBoxSolid
341.  
342. ' /////////////////////////////////////////////////////////////////////////////
343. ' DRAW A 2-D RECTANGLE (OUTLINE)
344.  
345. Sub DrawRectOutline (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
346.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, B ' Draw rectangle outline
347. End Sub ' DrawRectOutline
348.  
349. ' /////////////////////////////////////////////////////////////////////////////
350. ' DRAW A 2-D RECTANGLE (SOLID)
351.  
352. Sub DrawRectSolid (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
353.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, BF ' Draw a solid rectangle
354. End Sub ' DrawRectSolid
355.  
356. ' /////////////////////////////////////////////////////////////////////////////
357. ' DRAW A 2-D BOX (OUTLINE)
358. ' https://www.qb64.org/wiki/LINE
359.  
360. ' The style parameter 0-255 doesn't seem to have a solid line?
361. ' For that, use DrawOutlineBox.
362.  
363. ' LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]
364. ' B creates a box outline with each side parallel to the program screen sides. BF creates a filled box.
365. ' The style% signed INTEGER value sets a dotted pattern to draw the line or rectangle outline.
366.  
367. Sub DrawStyledOutlineBox (iX%, iY%, iSize%, iColor~&, iStyle%)
368.     Line (iX%, iY%)-(iX% + (iSize% - 1), iY% + (iSize% - 1)), iColor~&, B , iStyle%
369. End Sub ' DrawStyledOutlineBox
370.  
371. ' /////////////////////////////////////////////////////////////////////////////
372. ' DRAW A 2-D BOX (OUTLINE) WITH A SOLID LINE
373.  
374. Sub DrawOutlineBox (iX%, iY%, iSize2%, iColor~&, iWeight2%)
375.     Dim iFromX%
376.     Dim iFromY%
377.     Dim iToX%
378.     Dim iToY%
379.     iSize% = iSize2% - 1
380.     iWeight% = iWeight2% - 1
381.     If iWeight% = 0 Then
382.         ' TOP LINE
383.         iFromX% = iX%
384.         iFromY% = iY%
385.         iToX% = iX% + iSize%
386.         iToY% = iY%
387.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
388.  
389.         ' BOTTOM LINE
390.         iFromX% = iX%
391.         iFromY% = iY% + iSize%
392.         iToX% = iX% + iSize%
393.         iToY% = iY% + iSize%
394.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
395.  
396.         ' LEFT LINE
397.         iFromX% = iX%
398.         iFromY% = iY%
399.         iToX% = iX%
400.         iToY% = iY% + iSize%
401.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
402.  
403.         ' RIGHT LINE
404.         iFromX% = iX% + iSize%
405.         iFromY% = iY%
406.         iToX% = iX% + iSize%
407.         iToY% = iY% + iSize%
408.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
409.     ElseIf iWeight% > 0 Then
410.         ' TOP LINE
411.         For iFromY% = iY% To (iY% + iWeight%)
412.             iFromX% = iX%
413.             'iFromY% = iY%
414.             iToX% = iX% + iSize%
415.             iToY% = iFromY%
416.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
417.         Next iFromY%
418.  
419.         ' BOTTOM LINE
420.         For iFromY% = ((iY% + iSize%) - iWeight%) To (iY% + iSize%)
421.             iFromX% = iX%
422.             'iFromY% = iY% + iSize%
423.             iToX% = iX% + iSize%
424.             iToY% = iFromY%
425.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
426.         Next iFromY%
427.  
428.         ' LEFT LINE
429.         For iFromX% = iX% To (iX% + iWeight%)
430.             'iFromX% = iX%
431.             iFromY% = iY%
432.             iToX% = iFromX%
433.             iToY% = iY% + iSize%
434.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
435.         Next iFromX%
436.  
437.         ' RIGHT LINE
438.         For iFromX% = ((iX% + iSize%) - iWeight%) To (iX% + iSize%)
439.             'iFromX% = iX% + iSize%
440.             iFromY% = iY%
441.             iToX% = iFromX%
442.             iToY% = iY% + iSize%
443.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
444.         Next iFromX%
445.     End If
446. End Sub ' DrawOutlineBox
447.  
448. ' ################################################################################################################################################################
449. ' END BOX DRAWING ROUTINES
450. ' ################################################################################################################################################################
451.  
452. ' ################################################################################################################################################################
453. ' BEGIN GENERATE LINE DRAWING SHAPE ROUTINES
454. ' ################################################################################################################################################################
455.  
456. ' /////////////////////////////////////////////////////////////////////////////
457.  
458. Sub GetAllPossibleShapes (arrShapes1() As RectangleType)
459.     ReDim arrShapes1(-1) As RectangleType
460.     Dim iLoopRows As Integer
461.     Dim iLoopCols As Integer
462.     Dim iIndex As Integer
463.     Dim iLoopY As Integer
464.     Dim iLoopX As Integer
465.  
466.     For iLoopRows = 1 To 8
467.         For iLoopCols = 1 To 8
468.             ' Add next shape to array
469.             iIndex = UBound(arrShapes1) + 1
470.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
471.  
472.             ' Save coordinates
473.             arrShapes1(iIndex).x1 = 1
474.             arrShapes1(iIndex).y1 = 1
475.             arrShapes1(iIndex).x2 = iLoopCols
476.             arrShapes1(iIndex).y2 = iLoopRows
477.             arrShapes1(UBound(arrShapes1)).PixelCount = 0
478.  
479.             ' Count Pixels
480.             For iLoopY = 1 To 8
481.                 For iLoopX = 1 To 8
482.                     if _
483.                         iLoopY >= arrShapes1(iIndex).y1 _
484.                         and _
485.                         iLoopY <= arrShapes1(iIndex).y2 _
486.                         and _
487.                         iLoopX >= arrShapes1(iIndex).x1 _
488.                         and _
489.                         iLoopX <= arrShapes1(iIndex).x2 _
490.                         then
491.  
492.                         'sLine = sLine + "#"
493.                         arrShapes1(UBound(arrShapes1)).PixelCount = arrShapes1(UBound(arrShapes1)).PixelCount + 1
494.                     Else
495.                         'sLine = sLine + "."
496.                     End If
497.                 Next iLoopX
498.                 ''DebugPrint sLine
499.             Next iLoopY
500.  
501.         Next iLoopCols
502.     Next iLoopRows
503. End Sub ' GetAllPossibleShapes
504.  
505. ' /////////////////////////////////////////////////////////////////////////////
506.  
507. Sub GetAllPossibleShapesTest
508.     ReDim arrShapes1(-1) As RectangleType
509.     Dim arrColor(0 To 7) As _Unsigned Long
510.     Dim iLoopShape As Integer
511.     Dim iOffsetY As Integer
512.     Dim iOffsetX As Integer
513.     Dim iColorIndex As Integer
514.     Dim iMinColorIndex As Integer: iMinColorIndex = 1
515.     Dim iMaxColorIndex As Integer: iMaxColorIndex = 7
516.     Dim in$
517.     Dim iX As Integer
518.     Dim iY As Integer
519.     Dim iSizeW As Integer
520.     Dim iSizeH As Integer
521.     Dim fgColor As _Unsigned Long
522.     Dim iMinX As Integer
523.     Dim iMinY As Integer
524.     Dim iMaxX As Integer
525.     Dim iMaxY As Integer
526.  
527.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
528.     iMinX = 0
529.     iMinY = 17
530.     iMaxX = (_Width(0) / 8) ' iMaxX = _Width(0) - 16
531.     iMaxY = _Height(0) - 16
532.     iOffsetY = iMinY
533.     iOffsetX = iMinX
534.  
535.     arrColor(0) = cBlack
536.     arrColor(1) = cRed
537.     arrColor(2) = cYellow
538.     arrColor(3) = cLime
539.     arrColor(4) = cCyan
540.     arrColor(5) = cBlue
541.     arrColor(6) = cPurple
542.     arrColor(7) = cMagenta
543.  
544.     GetAllPossibleShapes arrShapes1()
545.  
546.     iColorIndex = iMinColorIndex
547.     For iLoopShape = 0 To UBound(arrShapes1)
548.         'DebugPrint _
549.         '    "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
550.         '    "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
551.         '    cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
552.  
553.         iX = arrShapes1(iLoopShape).x1 + iOffsetX
554.         iY = arrShapes1(iLoopShape).y1 + iOffsetY
555.         iSizeW = (arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1) + 1
556.         iSizeH = (arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1) + 1
557.         fgColor = arrColor(iColorIndex)
558.         DrawRectSolid iX, iY, iSizeW, iSizeH, fgColor
559.  
560.         iOffsetX = iOffsetX + 16: If iOffsetX > iMaxX Then iOffsetX = iMinX: iOffsetY = iOffsetY + 16: If iOffsetY > iMaxY Then iOffsetY = iMinY
561.         iColorIndex = iColorIndex + 1: If iColorIndex > iMaxColorIndex Then iColorIndex = iMinColorIndex
562.     Next iLoopShape
563.  
564.     Locate 1, 1
565.     Color cWhite, cBlack
566.     Input "PRESS <ENTER> TO CONTINUE"; in$
567.     Screen 0
568. End Sub ' GetAllPossibleShapes
569.  
570.  
571. Function DedupeDelimList$ (sInput As String, sDelim As String)
572.     ReDim arrLines(-1) As String
573.     Dim sOutput As String
574.     Dim iLoop As Integer
575.  
576.     split sInput, sDelim, arrLines()
577.     sOutput = sDelim
578.     For iLoop = LBound(arrLines) To UBound(arrLines)
579.         If InStr(1, sOutput, sDelim + arrLines(iLoop) + sDelim) = 0 Then
580.             sOutput = sOutput + arrLines(iLoop) + sDelim
581.         End If
582.     Next iLoop
583.  
584.     DedupeDelimList$ = sOutput
585. End Function ' DedupeDelimList$
586.  
587. ' /////////////////////////////////////////////////////////////////////////////
588.  
589. Function FindAllCombinationsNext$ (arrGroup() As Integer)
590.     Dim sResult As String: sResult = ""
591.     ReDim arrSubGroup(0 To UBound(arrGroup) - 1) As Integer
592.     Dim iOmit As Integer
593.     Dim iKeep As Integer
594.     Dim iIndex As Integer
595.  
596.     'dim sLine as string : sLine = "Received: "
597.     '    ''DebugPrint "FindAllCombinationsNext$ called, level " + cstr$(iLevel)
598.     '    m_iCount = m_iCount + 1
599.     '    'DebugPrint CurrentDateTime$ + " FindAllCombinationsNext$ called, m_iCount=" + cstr$(m_iCount)
600.     'For iKeep = 0 To UBound(arrGroup)
601.     'sLine = sLine + cstr$(arrGroup(iKeep)) + " "
602.     'Next iKeep
603.     ''DebugPrint "    " + sLine
604.  
605.     ' Recursively try omitting each one
606.     If UBound(arrGroup) > 0 Then
607.         For iOmit = 0 To UBound(arrGroup)
608.             ReDim arrSubGroup(0 To UBound(arrGroup) - 1) As Integer
609.             iIndex = -1
610.             For iKeep = 0 To UBound(arrGroup)
611.                 If arrGroup(iKeep) <> arrGroup(iOmit) Then
612.                     iIndex = iIndex + 1
613.                     arrSubGroup(iIndex) = arrGroup(iKeep)
614.                     'sResult = sResult + IIFSTR$(len(sResult)=0, "", ",") + cstr$(arrGroup(iKeep))
615.                     sResult = sResult + cstr$(arrGroup(iKeep)) + ","
616.                 End If
617.             Next iKeep
618.             'sResult = sResult + IIFSTR$(len(sResult)=0, "", ";") + FindAllCombinationsTestNext$(arrSubGroup())
619.             sResult = sResult + ";" + FindAllCombinationsNext$(arrSubGroup())
620.             sResult = DedupeDelimList$(sResult, ";")
621.         Next iOmit
622.     Else
623.         sResult = cstr$(arrGroup(0)) + ";"
624.     End If
625.  
626.     sResult = DedupeDelimList$(sResult, ";")
627.     'm_iCount = m_iCount - 1
628.     ''DebugPrint "    Returning: " + chr$(34) + sResult + chr$(34)
629.     FindAllCombinationsNext$ = sResult
630. End Function ' FindAllCombinationsNext$
631.  
632. ' /////////////////////////////////////////////////////////////////////////////
633. ' Get all combinations of the items in the list
634.  
635. Sub FindAllCombinations (sItemList As String)
636.     ReDim arrGroup(-1) As Integer
637.     Dim iLoop As Integer
638.     Dim sResult As String: sResult = ""
639.     ReDim arrLines(-1) As String
640.     Dim sFinal As String: sFinal = ""
641.  
642.     ' Start with all
643.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrGroup()
644.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
645.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(iLoop)
646.     Next iLoop
647.  
648.     ' Find all other combinations (including without)
649.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
650.     sResult = Replace$(sResult, ",;", ";")
651.  
652.     ' Dedupe results
653.     split sResult, ";", arrLines()
654.     sFinal = ";"
655.     For iLoop = LBound(arrLines) To UBound(arrLines)
656.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
657.             sFinal = sFinal + arrLines(iLoop) + ";"
658.             'DebugPrint arrLines(iLoop)
659.         End If
660.     Next iLoop
661. End Sub ' FindAllCombinations
662.  
663. ' /////////////////////////////////////////////////////////////////////////////
664.  
665. Sub FindAllCombinationsTest2
666.     Dim sItemList As String
667.     ReDim arrGroup(-1) As Integer
668.     Dim iLoop As Integer
669.     Dim sResult As String: sResult = ""
670.     ReDim arrLines(-1) As String
671.     Dim sFinal As String: sFinal = ""
672.  
673.     ' Use non-contiguous test data
674.     'sItemList = "1,2,3,4"
675.     'sItemList = "1,2,4,8,16,32,64,128"
676.     Input "Enter a space-separated list of numbers"; sItemList
677.     sItemList = Replace$(sItemList, " ", ",")
678.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrGroup()
679.  
680.     ' Start with all
681.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
682.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(arrGroup(iLoop))
683.     Next iLoop
684.  
685.     ' Find all other combinations (including without)
686.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
687.     sResult = Replace$(sResult, ",;", ";")
688.  
689.     ' Dedupe results
690.     split sResult, ";", arrLines()
691.     sFinal = ";"
692.     For iLoop = LBound(arrLines) To UBound(arrLines)
693.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
694.             sFinal = sFinal + arrLines(iLoop) + ";"
695.             'DebugPrint arrLines(iLoop)
696.         End If
697.     Next iLoop
698. End Sub ' FindAllCombinationsTest2
699.  
700. ' /////////////////////////////////////////////////////////////////////////////
701.  
702. Sub FindAllCombinationsTest1
703.     Dim iFrom As Integer: iFrom = 1
704.     Dim iTo As Integer: iTo = 4
705.     ReDim arrGroup(-1) As Integer
706.     Dim iLoop As Integer
707.     Dim sResult As String: sResult = ""
708.     ReDim arrLines(-1) As String
709.     Dim sFinal As String: sFinal = ""
710.  
711.     ' Generate some simple test data
712.     For iLoop = iFrom To iTo
713.         ReDim _Preserve arrGroup(0 To UBound(arrGroup) + 1) As Integer
714.         arrGroup(UBound(arrGroup)) = iLoop
715.     Next iLoop
716.  
717.     ' Start with all
718.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
719.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(arrGroup(iLoop))
720.     Next iLoop
721.  
722.     ' Find all other combinations (including without)
723.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
724.     sResult = Replace$(sResult, ",;", ";")
725.  
726.     ' Dedupe results
727.     split sResult, ";", arrLines()
728.     sFinal = ";"
729.     For iLoop = LBound(arrLines) To UBound(arrLines)
730.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
731.             sFinal = sFinal + arrLines(iLoop) + ";"
732.             'DebugPrint arrLines(iLoop)
733.         End If
734.     Next iLoop
735. End Sub ' FindAllCombinationsTest1
736.  
737. ' /////////////////////////////////////////////////////////////////////////////
738.  
739. Sub FindOptimizedVector (TileString As String)
740.     ReDim arrTile1(1 To 8, 1 To 8) As String
741.     ReDim arrTile2(1 To 8, 1 To 8) As String
742.     ReDim arrShapes1(-1) As RectangleType
743.     ReDim arrShapes2(-1) As RectangleType
744.     ReDim arrShapes3(-1) As RectangleType
745.  
746.     Dim iLoopShape As Integer
747.     Dim iLoopY As Integer
748.     Dim iLoopX As Integer
749.     Dim iDestY As Integer
750.     Dim iDestX As Integer
751.     Dim iSizeY As Integer
752.     Dim iSizeX As Integer
753.     Dim iEndY As Integer
754.     Dim iEndX As Integer
755.     Dim iTestY As Integer
756.     Dim iTestX As Integer
757.     Dim bShapeFits As Integer
758.     Dim sLine As String
759.     Dim sNextPixel As String
760.     Dim iShape1 As Integer
761.     Dim iShape2 As Integer
762.     Dim iIndex As Integer
763.  
764.     Dim sItemList As String
765.     ReDim arrNumGroup(-1) As Integer
766.     ReDim arrListGroup(-1) As String
767.     ReDim arrShapeList(-1) As String
768.     Dim iLoop1 As Integer
769.     Dim iLoop2 As Integer
770.     Dim sGroupList1 As String
771.     Dim sGroupList2 As String
772.     ReDim arrLines(-1) As String
773.  
774.     Dim iPixelCount As Integer
775.     Dim iShapeCount As Integer
776.     ReDim arrCompare(-1) As DrawCompareType
777.     Dim iMatchCount As Integer
778.  
779.     ' Turn tile into 2D array
780.     StringToArray arrTile1(), TileString
781.  
782.     ' Get all shapes to try
783.     GetAllPossibleShapes arrShapes1()
784.  
785.     ' Try all shapes
786.     For iLoopShape = 0 To UBound(arrShapes1)
787.         ' Try next shape
788.  
789.         ' BEGIN DEBUG SHOW NEXT SHAPE
790.         If TRUE = FALSE Then
791.             'DebugPrint "arrShapes1(" + cstr$(iLoopShape) + "):"
792.             'DebugPrint _
793.             '    "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
794.             '    "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
795.             '    cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
796.             For iLoopY = 1 To 8
797.                 sLine = ""
798.                 For iLoopX = 1 To 8
799.                 if _
800.                     iLoopY >= arrShapes1(iLoopShape).y1 _
801.                     and _
802.                     iLoopY <= arrShapes1(iLoopShape).y2 _
803.                     and _
804.                     iLoopX >= arrShapes1(iLoopShape).x1 _
805.                     and _
806.                     iLoopX <= arrShapes1(iLoopShape).x2 _
807.                     then
808.  
809.                         sLine = sLine + "#"
810.                     Else
811.                         sLine = sLine + "."
812.                     End If
813.                 Next iLoopX
814.                 'DebugPrint sLine
815.             Next iLoopY
816.             'DebugPrint ""
817.         End If
818.         ' END DEBUG SHOW NEXT SHAPE
819.  
820.         ' Try test tile in every position (that it fits)
821.         For iDestY = 1 To 8
822.             For iDestX = 1 To 8
823.                 bShapeFits = FALSE
824.  
825.                 ' Does shape fit at this Y position?
826.                 iSizeY = arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1
827.                 iEndY = iDestY + iSizeY
828.                 If iEndY < 9 Then
829.                     ' Does shape fit at this X position?
830.                     iSizeX = arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1
831.                     iEndX = iDestX + iSizeX
832.                     If iEndX < 9 Then
833.                         ' Do any of shape's pixels fall outside of tile's pixels?
834.                         bShapeFits = TRUE
835.                         For iTestY = iDestY To iEndY
836.                             For iTestX = iDestX To iEndX
837.                                 If arrTile1(iTestY, iTestX) = "." Then
838.                                     ' No pixel here, shape fails
839.                                     bShapeFits = FALSE
840.                                     Exit For
841.                                 End If
842.                             Next iTestX
843.                             If bShapeFits = FALSE Then Exit For
844.                         Next iTestY
845.                     End If
846.                 End If
847.  
848.                 ' If shape fits, add it to the list
849.                 If bShapeFits = TRUE Then
850.                     iIndex = UBound(arrShapes2) + 1
851.                     ReDim _Preserve arrShapes2(0 To iIndex) As RectangleType
852.                     arrShapes2(iIndex).y1 = iDestY
853.                     arrShapes2(iIndex).x1 = iDestX
854.                     arrShapes2(iIndex).y2 = iEndY
855.                     arrShapes2(iIndex).x2 = iEndX
856.                     arrShapes2(iIndex).PixelCount = arrShapes1(iLoopShape).PixelCount
857.                     arrShapes2(iIndex).IsActive = TRUE
858.                 End If
859.             Next iDestX
860.         Next iDestY
861.     Next iLoopShape
862.  
863.     '' Show tile
864.     ''DebugPrint "TILE TO CHECK:"
865.     'for iLoopY = lbound(arrTile1, 1) to ubound(arrTile1, 1)
866.     '    sLine = ""
867.     '    for iLoopX = lbound(arrTile1, 2) to ubound(arrTile1, 2)
868.     '        sLine=sLine + arrTile1(iLoopY, iLoopX)
869.     '    next iLoopX
870.     '    'DebugPrint sLine
871.     'next iLoopY
872.  
873.     '' Show all contender shapes
874.     ''DebugPrint "SHAPES THAT MATCHED + FIT:"
875.     'for iLoopShape = 0 to ubound(arrShapes2)
876.     '    if arrShapes2(iLoopShape).IsActive = TRUE then
877.     '        'DebugPrint _
878.     '            "(" + cstr$(arrShapes2(iLoopShape).x1) + ", " + cstr$(arrShapes2(iLoopShape).y1) + ")-" + _
879.     '            "(" + cstr$(arrShapes2(iLoopShape).x2) + ", " + cstr$(arrShapes2(iLoopShape).y2) + ") " + _
880.     '            cstr$(arrShapes2(iLoopShape).PixelCount) + " pixels"
881.     '        for iDestY = 1 To 8
882.     '            sLine = ""
883.     '            for iDestX = 1 To 8
884.     '                sNextPixel = "."
885.     '                if iDestY >= arrShapes2(iLoopShape).y1 then
886.     '                    if iDestY <= arrShapes2(iLoopShape).y2 then
887.     '                        if iDestX >= arrShapes2(iLoopShape).x1 then
888.     '                            if iDestX <= arrShapes2(iLoopShape).x2 then
889.     '                                sNextPixel = "#"
890.     '                            end if
891.     '                        end if
892.     '                    end if
893.     '                end if
894.     '                sLine = sLine + sNextPixel
895.     '            next iDestX
896.     '            'DebugPrint sLine
897.     '        next iDestY
898.     '    end if
899.     'next iLoopShape
900.  
901.     ' Remove redundant shapes (any where another shape covers more points)
902.     For iShape1 = 0 To UBound(arrShapes2)
903.  
904.         ' make sure shape #1 was not eliminated
905.         If arrShapes2(iShape1).IsActive = TRUE Then
906.  
907.             ' compare shape #1 against all other shapes
908.             For iShape2 = 0 To UBound(arrShapes2)
909.  
910.                 ' don't compare against itself
911.                 If iShape2 <> iShape1 Then
912.  
913.                     ' make sure shape #2 was not eliminated
914.                     If arrShapes2(iShape2).IsActive = TRUE Then
915.  
916.                         ' can shape #2 do what shape #1 can do? (covers all points shape #1 does)
917.                         if _
918.                             arrShapes2(iShape1).y1 >= arrShapes2(iShape2).y1 _
919.                             and _
920.                             arrShapes2(iShape1).y2 <= arrShapes2(iShape2).y2 _
921.                             and _
922.                             arrShapes2(iShape1).x1 >= arrShapes2(iShape2).x1 _
923.                             and _
924.                             arrShapes2(iShape1).x2 <= arrShapes2(iShape2).x2 _
925.                             then
926.  
927.                             ' does shape #2 do it better? (cover more points than shape #1)
928.                             If arrShapes2(iShape2).PixelCount >= arrShapes2(iShape1).PixelCount Then
929.                                 ' Remove shape #1
930.                                 arrShapes2(iShape1).IsActive = FALSE
931.                             End If
932.  
933.                         End If
934.  
935.                     End If
936.  
937.                 End If
938.  
939.             Next iShape2
940.  
941.         End If
942.  
943.     Next iShape1
944.  
945.     ' Add level 1 non-redundant shapes to the next list
946.     For iLoopShape = 0 To UBound(arrShapes2)
947.         If arrShapes2(iLoopShape).IsActive = TRUE Then
948.             iIndex = UBound(arrShapes3) + 1
949.             ReDim _Preserve arrShapes3(0 To iIndex) As RectangleType
950.             arrShapes3(iIndex).y1 = arrShapes2(iLoopShape).y1
951.             arrShapes3(iIndex).x1 = arrShapes2(iLoopShape).x1
952.             arrShapes3(iIndex).y2 = arrShapes2(iLoopShape).y2
953.             arrShapes3(iIndex).x2 = arrShapes2(iLoopShape).x2
954.             arrShapes3(iIndex).PixelCount = arrShapes2(iLoopShape).PixelCount
955.             arrShapes3(iIndex).IsActive = arrShapes2(iLoopShape).IsActive
956.         End If
957.     Next iLoopShape
958.  
959.     ' Show all non-redundant shapes
960.     'DebugPrint "SHAPES THAT MATCHED + FIT, NON-REDUNDANT LEVEL 1:"
961.     For iLoopShape = 0 To UBound(arrShapes3)
962.         'DebugPrint _
963.         '    "(" + cstr$(arrShapes3(iLoopShape).x1) + ", " + cstr$(arrShapes3(iLoopShape).y1) + ")-" + _
964.         '    "(" + cstr$(arrShapes3(iLoopShape).x2) + ", " + cstr$(arrShapes3(iLoopShape).y2) + ") " + _
965.         '    cstr$(arrShapes3(iLoopShape).PixelCount) + " pixels"
966.         For iDestY = 1 To 8
967.             sLine = ""
968.             For iDestX = 1 To 8
969.                 sNextPixel = "."
970.                 If iDestY >= arrShapes3(iLoopShape).y1 Then
971.                     If iDestY <= arrShapes3(iLoopShape).y2 Then
972.                         If iDestX >= arrShapes3(iLoopShape).x1 Then
973.                             If iDestX <= arrShapes3(iLoopShape).x2 Then
974.                                 sNextPixel = "#"
975.                             End If
976.                         End If
977.                     End If
978.                 End If
979.                 sLine = sLine + sNextPixel
980.             Next iDestX
981.             'DebugPrint sLine
982.         Next iDestY
983.     Next iLoopShape
984.  
985.  
986.  
987.  
988.  
989.  
990.     ' Can we do without any?
991.  
992.     ' Try all combinations
993.  
994.     ' Items to combine
995.     sItemList = ""
996.     For iShape1 = 0 To UBound(arrShapes3)
997.         sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iShape1)
998.     Next iShape1
999.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrNumGroup()
1000.  
1001.     ' Start with all
1002.     sGroupList1 = ""
1003.     For iLoop1 = LBound(arrNumGroup) To UBound(arrNumGroup)
1004.         sGroupList1 = sGroupList1 + IIFSTR$(Len(sGroupList1) = 0, "", ",") + cstr$(arrNumGroup(iLoop1))
1005.     Next iLoop1
1006.  
1007.     ' Find all other combinations (including without)
1008.     sGroupList1 = sGroupList1 + ";" + FindAllCombinationsNext$(arrNumGroup())
1009.     sGroupList1 = Replace$(sGroupList1, ",;", ";")
1010.  
1011.     ' Dedupe results
1012.     split sGroupList1, ";", arrListGroup()
1013.     sGroupList2 = ";"
1014.     For iLoop1 = LBound(arrListGroup) To UBound(arrListGroup)
1015.         If InStr(1, sGroupList2, ";" + arrListGroup(iLoop1) + ";") = 0 Then
1016.             sGroupList2 = sGroupList2 + arrListGroup(iLoop1) + ";"
1017.             ''DebugPrint arrListGroup(iLoop1)
1018.         End If
1019.     Next iLoop1
1020.  
1021.     ' Now see which combinations can draw the tile
1022.     'DebugPrint "==============================================================================="
1023.     'DebugPrint "Now see which combinations can draw the tile..."
1024.     iMatchCount = 0
1025.     split sGroupList2, ";", arrListGroup()
1026.     For iLoop1 = LBound(arrListGroup) To UBound(arrListGroup)
1027.         'DebugPrint "arrListGroup(" + cstr$(iLoop1) + ") = " + chr$(34) + arrListGroup(iLoop1) + chr$(34)
1028.  
1029.         ' Clear test tile
1030.         ReDim arrTile2(1 To 8, 1 To 8) As String
1031.         For iDestY = 1 To 8
1032.             For iDestX = 1 To 8
1033.                 arrTile2(iDestY, iDestX) = "."
1034.             Next iDestX
1035.         Next iDestY
1036.  
1037.         ' Get list of indexes that make up the next combination of shape
1038.         split arrListGroup(iLoop1), ",", arrShapeList()
1039.  
1040.         ' Try drawing next combination of shapes in the test tile
1041.         iShapeCount = 0
1042.         iPixelCount = 0
1043.         For iLoop2 = LBound(arrShapeList) To UBound(arrShapeList)
1044.             If IsNum%(arrShapeList(iLoop2)) = TRUE Then
1045.                 iIndex = Val(arrShapeList(iLoop2))
1046.                 iShapeCount = iShapeCount + 1
1047.                 iPixelCount = iPixelCount + arrShapes3(iIndex).PixelCount
1048.  
1049.                 For iDestY = 1 To 8
1050.                     For iDestX = 1 To 8
1051.                         'arrTile2(iDestY, iDestX) = "."
1052.                         If iDestY >= arrShapes3(iIndex).y1 Then
1053.                             If iDestY <= arrShapes3(iIndex).y2 Then
1054.                                 If iDestX >= arrShapes3(iIndex).x1 Then
1055.                                     If iDestX <= arrShapes3(iIndex).x2 Then
1056.                                         arrTile2(iDestY, iDestX) = "#"
1057.                                     End If
1058.                                 End If
1059.                             End If
1060.                         End If
1061.                     Next iDestX
1062.                 Next iDestY
1063.             Else
1064.                 'DebugPrint "ERROR NON-NUMERIC AT arrShapeList(" + cstr$(iLoop2) + ") = " + chr$(34) + arrShapeList(iLoop2) + chr$(34)
1065.                 'exit for
1066.             End If
1067.         Next iLoop2
1068.  
1069.         ' Does the test tile match the real tile?
1070.         If TilesAreEqual%(arrTile1(), arrTile2()) = TRUE Then
1071.             'DebugPrint "Found matching tile at iLoop1=" + cstr$(iLoop1)
1072.             iMatchCount = iMatchCount + 1
1073.  
1074.             iIndex = UBound(arrCompare) + 1
1075.             'DebugPrint "Appending to arrCompare at position " + cstr$(iIndex)
1076.             'DebugPrint "    after:"
1077.             'DebugPrint "        lbound(arrCompare)=" + cstr$(lbound(arrCompare))
1078.             'DebugPrint "        ubound(arrCompare)=" + cstr$(ubound(arrCompare))
1079.             ReDim _Preserve arrCompare(0 To iIndex) As DrawCompareType
1080.             'DebugPrint "    after:"
1081.             'DebugPrint "        lbound(arrCompare)=" + cstr$(lbound(arrCompare))
1082.             'DebugPrint "        ubound(arrCompare)=" + cstr$(ubound(arrCompare))
1083.             arrCompare(iIndex).IndexList = arrListGroup(iLoop1)
1084.             arrCompare(iIndex).ShapeCount = iShapeCount
1085.             arrCompare(iIndex).PixelCount = iPixelCount
1086.             arrCompare(iIndex).IsActive = TRUE
1087.         Else
1088.             'DebugPrint "Tiles didn't match"
1089.         End If
1090.  
1091.     Next iLoop1
1092.  
1093.     ' Identify the best combination that uses the least # of shapes + pixels
1094.     If UBound(arrCompare) > LBound(arrCompare) Then
1095.         For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
1096.             For iLoop2 = LBound(arrCompare) To UBound(arrCompare)
1097.                 If iLoop1 <> iLoop2 Then
1098.                     If arrCompare(iLoop1).IsActive = TRUE Then
1099.                         If arrCompare(iLoop2).IsActive = TRUE Then
1100.                             'DebugPrint "Comparing   ShapeCount   PixelCount   IndexList"
1101.  
1102.                             'DebugPrint left$(cstr$(iLoop1) + String$(9, " "), 9) + _
1103.                             '    "   " + _
1104.                             '    left$(cstr$(arrCompare(iLoop1).ShapeCount) + String$(10, " "), 10) + _
1105.                             '    "   " + _
1106.                             '    left$(cstr$(arrCompare(iLoop1).PixelCount) + String$(10, " "), 10) + _
1107.                             '    "   " + _
1108.                             '    arrCompare(iLoop1).IndexList
1109.                             'DebugPrint left$(cstr$(iLoop2) + String$(9, " "), 9) + _
1110.                             '    "   " + _
1111.                             '    left$(cstr$(arrCompare(iLoop2).ShapeCount) + String$(10, " "), 10) + _
1112.                             '    "   " + _
1113.                             '    left$(cstr$(arrCompare(iLoop2).PixelCount) + String$(10, " "), 10) + _
1114.                             '    "   " + _
1115.                             '    arrCompare(iLoop2).IndexList
1116.  
1117.                             If arrCompare(iLoop2).ShapeCount < arrCompare(iLoop1).ShapeCount Then
1118.                                 'DebugPrint "#" + cstr$(iLoop1) + " uses more shapes, marking inactive"
1119.                                 arrCompare(iLoop1).IsActive = FALSE
1120.                             ElseIf arrCompare(iLoop2).ShapeCount > arrCompare(iLoop1).ShapeCount Then
1121.                                 'DebugPrint "#" + cstr$(iLoop2) + " uses more shapes, marking inactive"
1122.                                 arrCompare(iLoop2).IsActive = FALSE
1123.                             Else
1124.                                 If arrCompare(iLoop2).PixelCount < arrCompare(iLoop1).PixelCount Then
1125.                                     'DebugPrint "#" + cstr$(iLoop1) + " uses more pixels, marking inactive"
1126.                                     arrCompare(iLoop1).IsActive = FALSE
1127.                                 ElseIf arrCompare(iLoop2).PixelCount > arrCompare(iLoop1).PixelCount Then
1128.                                     'DebugPrint "#" + cstr$(iLoop2) + " uses more pixels, marking inactive"
1129.                                     arrCompare(iLoop2).IsActive = FALSE
1130.                                 Else
1131.                                     'DebugPrint "Same # of shapes and pixels, marking #" + cstr$(iLoop2) + " inactive"
1132.                                     arrCompare(iLoop2).IsActive = FALSE
1133.                                 End If
1134.                             End If
1135.                         End If
1136.                     End If
1137.                 End If
1138.             Next iLoop2
1139.         Next iLoop1
1140.     End If
1141.  
1142.     ' The winner!
1143.     ' Get list of indexes that make up the winning shape combination
1144.     'DebugPrint "Looking for the winner"
1145.     'DebugPrint "lbound(arrCompare)=" + cstr$(lbound(arrCompare))
1146.     'DebugPrint "ubound(arrCompare)=" + cstr$(ubound(arrCompare))
1147.     'DebugPrint "arrCompare  ShapeCount   PixelCount   IsActive   IndexList"
1148.  
1149.     iIndex = -1
1150.     For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
1151.         'DebugPrint "iLoop1=" + cstr$(iLoop1)
1152.  
1153.         'sLine = ""
1154.         'sLine = sLine + left$(cstr$(iLoop1) + String$(9, " "), 9)
1155.         'sLine = sLine + "   "
1156.         'sLine = sLine + left$(cstr$(arrCompare(iLoop1).ShapeCount) + String$(10, " "), 10)
1157.         'sLine = sLine + "   "
1158.         'sLine = sLine + left$(cstr$(arrCompare(iLoop1).PixelCount) + String$(10, " "), 10)
1159.         'sLine = sLine + "   "
1160.         'sLine = sLine + left$(TrueFalse$(arrCompare(iLoop1).IsActive) + String$(8, " "), 8)
1161.         'sLine = sLine + "   "
1162.         'sLine = sLine + arrCompare(iLoop1).IndexList
1163.         'DebugPrint sLine
1164.  
1165.         If arrCompare(iLoop1).IsActive = TRUE Then
1166.             iIndex = iLoop1: Exit For
1167.         End If
1168.     Next iLoop1
1169.     If iIndex > -1 Then
1170.         'DebugPrint "-------------------------------------------------------------------------------"
1171.         'DebugPrint "The winning shape combination:"
1172.         split arrCompare(iIndex).IndexList, ",", arrShapeList()
1173.         For iLoop2 = LBound(arrShapeList) To UBound(arrShapeList)
1174.             DebugPrint "-------------------------------------------------------------------------------"
1175.             'DebugPrint "Shape #" + arrShapeList(iLoop2)
1176.             If IsNum%(arrShapeList(iLoop2)) = TRUE Then
1177.                 iIndex = Val(arrShapeList(iLoop2))
1178.                 For iDestY = 1 To 8
1179.                     sLine = ""
1180.                     For iDestX = 1 To 8
1181.                         sNextPixel = "."
1182.                         If iDestY >= arrShapes3(iIndex).y1 Then
1183.                             If iDestY <= arrShapes3(iIndex).y2 Then
1184.                                 If iDestX >= arrShapes3(iIndex).x1 Then
1185.                                     If iDestX <= arrShapes3(iIndex).x2 Then
1186.                                         sNextPixel = "#"
1187.                                     End If
1188.                                 End If
1189.                             End If
1190.                         End If
1191.                         sLine = sLine + sNextPixel
1192.                     Next iDestX
1193.                     DebugPrint sLine
1194.                 Next iDestY
1195.             Else
1196.                 'DebugPrint "ERROR NON-NUMERIC AT arrShapeList(" + cstr$(iLoop2) + ") = " + chr$(34) + arrShapeList(iLoop2) + chr$(34)
1197.                 'exit for
1198.             End If
1199.         Next iLoop2
1200.         DebugPrint "-------------------------------------------------------------------------------"
1201.     Else
1202.         'DebugPrint "ERROR: NO WORKING SHAPE COMBINATIONS FOUND"
1203.     End If
1204.  
1205. End Sub ' FindOptimizedVector
1206.  
1207. Function TilesAreEqual% (arrTile1() As String, arrTile2() As String)
1208.     Dim bResult As Integer: bResult = FALSE
1209.     Dim iLoopY As Integer
1210.     Dim iLoopX As Integer
1211.     Dim sLine As String
1212.     If LBound(arrTile1, 1) = LBound(arrTile2, 1) Then
1213.         If UBound(arrTile1, 1) = UBound(arrTile2, 1) Then
1214.             If LBound(arrTile1, 2) = LBound(arrTile2, 2) Then
1215.                 If UBound(arrTile1, 2) = UBound(arrTile2, 2) Then
1216.  
1217.                     If TRUE = FALSE Then
1218.                         'DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1219.                         'DebugPrint "Comparing arrTile1:"
1220.                         For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
1221.                             sLine = ""
1222.                             For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
1223.                                 sLine = sLine + arrTile1(iLoopY, iLoopX)
1224.                             Next iLoopX
1225.                             'DebugPrint sLine
1226.                         Next iLoopY
1227.                         'DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1228.                         'DebugPrint "With arrTile2:"
1229.                         For iLoopY = LBound(arrTile2, 1) To UBound(arrTile2, 1)
1230.                             sLine = ""
1231.                             For iLoopX = LBound(arrTile2, 2) To UBound(arrTile2, 2)
1232.                                 sLine = sLine + arrTile2(iLoopY, iLoopX)
1233.                             Next iLoopX
1234.                             'DebugPrint sLine
1235.                         Next iLoopY
1236.                         'DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1237.                     End If
1238.  
1239.  
1240.  
1241.  
1242.                     bResult = TRUE
1243.                     For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
1244.                         For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
1245.                             If arrTile1(iLoopY, iLoopX) = "." And arrTile2(iLoopY, iLoopX) <> "." Then
1246.                                 bResult = FALSE: Exit For
1247.                             ElseIf arrTile1(iLoopY, iLoopX) <> "." And arrTile2(iLoopY, iLoopX) = "." Then
1248.                                 bResult = FALSE: Exit For
1249.                             End If
1250.                         Next iLoopX
1251.                         If bResult = FALSE Then Exit For
1252.                     Next iLoopY
1253.                 Else
1254.                     'DebugPrint "ubound(tile,2) didn't match"
1255.                 End If
1256.             Else
1257.                 'DebugPrint "lbound(tile,2) didn't match"
1258.             End If
1259.         Else
1260.             'DebugPrint "ubound(tile,1) didn't match"
1261.         End If
1262.     Else
1263.         'DebugPrint "lbound(tile,1) didn't match"
1264.     End If
1265.     TilesAreEqual% = bResult
1266. End Function ' TilesAreEqual%
1267.  
1268. ' /////////////////////////////////////////////////////////////////////////////
1269.  
1270. Sub FindOptimizedVectorTest
1271.     Dim RoutineName As String: RoutineName = "FindOptimizedVectorTest"
1272.     Dim sError As String: sError = ""
1273.     Dim in$
1274.     ReDim arrTileText(0 To 255) As String
1275.     Dim sTestList As String
1276.     ReDim arrTestIndex(-1) As Integer
1277.     Dim iLoop As Integer
1278.     Dim iIndex As Integer
1279.  
1280.     ' Start output
1281.     'DebugPrint "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1282.     'DebugPrint "Testing tiles: " + sTestList
1283.     'DebugPrint ""
1284.  
1285.     ' Get raster tiles as a string array
1286.     GetTileText arrTileText()
1287.  
1288.     ' List of tiles to test
1289.     'sTestList = "254,253,247,32,238,241,225,233,213,214,212,203,194,193,192,169,154,151,145,147,129,115,114,84,65,46,44,35,252"
1290.     'sTestList = "46,35"
1291.     sTestList = "84,253,192,151,147,114,65"
1292.     GetIntegerArrayFromDelimList sTestList, ",", 0, arrTestIndex()
1293.  
1294.     ' Test tiles
1295.     For iLoop = LBound(arrTestIndex) To UBound(arrTestIndex)
1296.         iIndex = arrTestIndex(iLoop)
1297.         DebugPrint "----------------------------------------------------------------------------------------------------------------------------------------------------------------"
1298.         DebugPrint "Tile #" + cstr$(iIndex) + ":"
1299.         DebugPrint arrTileText(iIndex)
1300.         DebugPrint ""
1301.  
1302.         ' Process next tile and generate line drawing routines
1303.         FindOptimizedVector arrTileText(iIndex)
1304.  
1305.         DebugPrint ""
1306.     Next iLoop
1307.  
1308.     ' DONE
1309.     DebugPrint RoutineName + " finished."
1310.     'Input "PRESS <ENTER> TO CONTINUE";in$
1311. End Sub ' FindOptimizedVectorTest
1312.  
1313. ' /////////////////////////////////////////////////////////////////////////////
1314.  
1315. Sub GetIntegerArrayFromDelimList (MyString As String, sDelimiter As String, iMinIndex As Integer, arrInteger() As Integer)
1316.     ReDim arrString(-1) As String
1317.     Dim CleanString As String
1318.     Dim iLoop As Integer
1319.     Dim iCount As Integer: iCount = iMinIndex - 1
1320.  
1321.     ReDim arrInteger(-1) As Integer
1322.  
1323.     If Len(sDelimiter) > 0 Then
1324.         CleanString = MyString
1325.         If sDelimiter <> " " Then
1326.             CleanString = Replace$(CleanString, " ", "")
1327.         End If
1328.  
1329.         split CleanString, sDelimiter, arrString()
1330.         iCount = iMinIndex - 1
1331.         For iLoop = LBound(arrString) To UBound(arrString)
1332.             If IsNum%(arrString(iLoop)) = TRUE Then
1333.                 iCount = iCount + 1
1334.                 ReDim _Preserve arrInteger(iMinIndex To iCount) As Integer
1335.                 arrInteger(iCount) = Val(arrString(iLoop))
1336.             End If
1337.         Next iLoop
1338.     Else
1339.         If IsNum%(MyString) = TRUE Then
1340.             ReDim _Preserve arrInteger(iMinIndex To iMinIndex) As Integer
1341.             arrInteger(iMinIndex) = Val(MyString)
1342.         End If
1343.     End If
1344. End Sub ' GetIntegerArrayFromDelimList
1345.  
1346. ' /////////////////////////////////////////////////////////////////////////////
1347.  
1348. Sub BreakMultipleIntoShapes (MyString As String, arrShapes1() As String)
1349.     ReDim arrLines(-1) As String
1350.     ReDim arrCols(-1) As String
1351.     Dim sLine As String
1352.     Dim iLen As Integer
1353.     Dim iCount As Integer
1354.     Dim iLoopRows As Integer
1355.     Dim iLoopCols As Integer
1356.     Dim iShapeCount As Integer
1357.  
1358.     ' Break multiple up into shapes
1359.     split MyString, Chr$(13), arrLines()
1360.     sLine = arrLines(LBound(arrLines))
1361.     iLen = Len(sLine)
1362.     sLine = Replace$(sLine, " ", "")
1363.     iCount = (iLen - Len(sLine)) + 1
1364.     For iLoopRows = LBound(arrLines) To UBound(arrLines)
1365.         If Len(arrLines(iLoopRows)) > 0 Then
1366.             split arrLines(iLoopRows), " ", arrCols()
1367.             iShapeCount = 0
1368.             For iLoopCols = LBound(arrCols) To UBound(arrCols)
1369.                 If Len(arrCols(iLoopCols)) > 0 Then
1370.                     iShapeCount = iShapeCount + 1
1371.                     If UBound(arrShapes1) < iShapeCount Then
1372.                         ReDim _Preserve arrShapes1(0 To iShapeCount)
1373.                     End If
1374.                     arrShapes1(iShapeCount) = arrShapes1(iShapeCount) + arrCols(iLoopCols) + Chr$(13)
1375.                 End If
1376.             Next iLoopCols
1377.         End If
1378.     Next iLoopRows
1379. End Sub ' BreakMultipleIntoShapes
1380.  
1381. ' /////////////////////////////////////////////////////////////////////////////
1382.  
1383. Sub BreakMultipleIntoShapesTest
1384.     Dim in$
1385.     Dim MyString As String
1386.     ReDim arrShapes1(-1) As String
1387.     Dim iLoop As Integer
1388.  
1389.     ' Test data
1390.     MyString = ""
1391.     MyString = MyString + "######## #.#.#.#. ####.... ...##... ######## ........ ........ 2222.... 22..22.. ...22..." + Chr$(13)
1392.     MyString = MyString + "######## .#.#.#.# ####.... ...##... #......# .2222222 ........ 2222.... 22..22.. ...22..." + Chr$(13)
1393.     MyString = MyString + "######## #.#.#.#. ####.... ...##... #......# .2222222 ........ 2222.... ..22..22 ...22..." + Chr$(13)
1394.     MyString = MyString + "######## .#.#.#.#.####.... ######## #......# .2222222 ........ 2222.... ..22..22 ...22222" + Chr$(13)
1395.     MyString = MyString + "######## #.#.#.#. ....#### ######## #......# .2222222 ........ 2222.... 22..22.. ...22222" + Chr$(13)
1396.     MyString = MyString + "######## .#.#.#.# ....#### ...##... #......# .2222222 ........ 2222.... 22..22.. ........" + Chr$(13)
1397.     MyString = MyString + "######## #.#.#.#. ....#### ...##... #......# .2222222 ........ 2222.... ..22..22 ........" + Chr$(13)
1398.     MyString = MyString + "######## .#.#.#.# ....#### ...##... ######## .2222222 ........ 2222.... ..22..22 ........"
1399.  
1400.     ' Break up
1401.     BreakMultipleIntoShapes MyString, arrShapes1()
1402.  
1403.     ' Show Results
1404.     For iLoop = LBound(arrShapes1) To UBound(arrShapes1)
1405.         Print "arrShapes1(" + cstr$(iLoop) + "):"
1406.         Print arrShapes1(iLoop)
1407.         Print
1408.         Input "PRESS <ENTER> TO CONTINUE"; in$
1409.     Next iLoop
1410.  
1411. End Sub ' BreakMultipleIntoShapesTest
1412.  
1413. ' /////////////////////////////////////////////////////////////////////////////
1414. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
1415. ' FOR ONE OR MORE 8X8 TILES.
1416.  
1417. ' TODO: Optimize for each shape by determining how to draw it with the
1418. '       minimum number of line commands.
1419.  
1420. Sub GenerateNextVectorTileCode (MyString As String, sNameList As String)
1421.     Dim RoutineName As String: RoutineName = "GenerateNextVectorTileCode"
1422.     Dim sError As String: sError = ""
1423.     ReDim arrShapes1(-1) As String
1424.     ReDim arrLines(-1) As String
1425.     ReDim arrCols(-1) As String
1426.     ReDim arrCount(-1) As String
1427.     ReDim arrLenCountHZ(-1) As Integer
1428.     ReDim arrLenCountVT(-1) As Integer
1429.     ReDim arrNextShape(-1, -1) As String
1430.     ReDim arrNames(-1) As String
1431.     Dim sLine As String
1432.     Dim iLen As Integer
1433.     Dim iCount As Integer
1434.     Dim in$
1435.     Dim iLoopRows As Integer
1436.     Dim iLoopCols As Integer
1437.     Dim iShapeCount As Integer
1438.     Dim iLoopShape As Integer
1439.     ReDim arrColSize As Integer
1440.     ReDim arrRowSize As Integer
1441.     Dim iCountHZ As Integer
1442.     Dim iCountVT As Integer
1443.     Dim iLoopCount As Integer
1444.     Dim sTransposed As String
1445.     Dim iColumnCount As Integer
1446.     Dim iRowCount As Integer
1447.     Dim iScoreHZ As Integer
1448.     Dim iScoreVT As Integer
1449.     Dim iRow As Integer
1450.     Dim iX1 As Integer
1451.     Dim iX2 As Integer
1452.     Dim iY1 As Integer
1453.     Dim iY2 As Integer
1454.     Dim iLast As Integer
1455.     Dim sTemplate1 As String
1456.     Dim sTemplate2 As String
1457.     Dim sShapeCode As String
1458.     Dim sLineCommands As String
1459.     Dim iTotalCount As Integer: iTotalCount = 0
1460.     Dim sNextShapeComment As String
1461.  
1462.     ' Initialize screen
1463.     If Len(sError) = 0 Then
1464.         Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
1465.     End If
1466.  
1467.     ' Initialize template
1468.     If Len(sError) = 0 Then
1469.         ' Template for code for a shape routine:
1470.         sTemplate1 = "" + _
1471.             "' /////////////////////////////////////////////////////////////////////////////" + chr$(13) + _
1472.             "' Draw this shape with Line commands:" + chr$(13) + _
1473.             "{shape comments}" + _
1474.             "Sub {name}(iX As Integer, iY As Integer, fgColor As _UNSIGNED Long)" + chr$(13) + _
1475.             "    ' {comment}" + chr$(13) + _
1476.             "{line commands}" + _
1477.             "End Sub ' {name}" + chr$(13) + _
1478.             chr$(13) + ""
1479.  
1480.         ' Template for what replaces "{line commands}":
1481.         sTemplate2 = "    Line ({x1}, {y1})-({x2}, {y2}), fgColor" + Chr$(13)
1482.     End If
1483.  
1484.     ' Break multiple up into shapes
1485.     If Len(sError) = 0 Then
1486.         split MyString, Chr$(13), arrLines()
1487.         sLine = arrLines(LBound(arrLines))
1488.         iLen = Len(sLine)
1489.         sLine = Replace$(sLine, " ", "")
1490.         iCount = (iLen - Len(sLine)) + 1
1491.         For iLoopRows = LBound(arrLines) To UBound(arrLines)
1492.             If Len(arrLines(iLoopRows)) > 0 Then
1493.                 split arrLines(iLoopRows), " ", arrCols()
1494.                 iShapeCount = 0
1495.  
1496.                 For iLoopCols = LBound(arrCols) To UBound(arrCols)
1497.                     If Len(arrCols(iLoopCols)) > 0 Then
1498.                         iShapeCount = iShapeCount + 1
1499.  
1500.                         If UBound(arrShapes1) < iShapeCount Then
1501.                             ReDim _Preserve arrShapes1(0 To iShapeCount)
1502.                         End If
1503.  
1504.                         arrShapes1(iShapeCount) = arrShapes1(iShapeCount) + arrCols(iLoopCols) + Chr$(13)
1505.                     End If
1506.                 Next iLoopCols
1507.             End If
1508.         Next iLoopRows
1509.     End If
1510.  
1511.     ' Get names
1512.     If Len(sError) = 0 Then
1513.         split sNameList, ",", arrNames()
1514.         If (UBound(arrNames) + 1 < iShapeCount) Then
1515.             sError = "Not enough names in sNameList." + chr$(13) + _
1516.                 "Detected " + cstr$( ubound(arrNames)+1 ) + "names in " + chr$(13) + _
1517.                 "sNameList " + chr$(34) + sNameList + chr$(34) + chr$(13) + _
1518.                 "and " + cstr$(iShapeCount) + " shapes."
1519.         End If
1520.     End If
1521.  
1522.     ' Process shapes and generate line drawing routines
1523.     If Len(sError) = 0 Then
1524.         For iLoopShape = 1 To iShapeCount
1525.             Cls
1526.             Print "Shape #" + cstr$(iLoopShape)
1527.             Print arrShapes1(iLoopShape)
1528.  
1529.             ' Count rows/columns and create comment showing the shape
1530.             iRowCount = 0
1531.             iColumnCount = 0
1532.             sNextShapeComment = ""
1533.             split arrShapes1(iLoopShape), Chr$(13), arrLines()
1534.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1535.                 If Len(arrLines(iLoopRows)) > 0 Then
1536.                     sNextShapeComment = sNextShapeComment + "' " + _Trim$(arrLines(iLoopRows)) + Chr$(13)
1537.                     iRowCount = iRowCount + 1
1538.                     iLen = Len(_Trim$(arrLines(iLoopRows)))
1539.                     If iLen > iColumnCount Then
1540.                         iColumnCount = iLen
1541.                     End If
1542.                 End If
1543.             Next iLoopRows
1544.             ReDim arrLenCountHZ(1 To iColumnCount) As Integer
1545.             ReDim arrLenCountVT(1 To iRowCount) As Integer
1546.             Print "iRowCount   =" + cstr$(iRowCount)
1547.             Print "iColumnCount=" + cstr$(iColumnCount)
1548.             ReDim arrNextShape(iRowCount, iColumnCount) As String
1549.  
1550.             ' Count consecutive horizontal
1551.             iCountHZ = 0
1552.             Print "lbound(arrLines)=" + cstr$(LBound(arrLines))
1553.             Print "ubound(arrLines)=" + cstr$(UBound(arrLines))
1554.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1555.                 If Len(arrLines(iLoopRows)) > 0 Then
1556.                     split arrLines(iLoopRows), ".", arrCount()
1557.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
1558.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
1559.                         arrLenCountHZ(iLen) = arrLenCountHZ(iLen) + 1
1560.                         If iLen > 0 Then
1561.                             iCountHZ = iCountHZ + 1
1562.                         End If
1563.                     Next iLoopCount
1564.                 End If
1565.             Next iLoopRows
1566.             Print "iCountHZ = " + cstr$(iCountHZ)
1567.  
1568.             ' Transpose to count vertical and create 2D array
1569.             sTransposed = ""
1570.             iCount = 0
1571.             ReDim arrCols(iColumnCount) As String
1572.             iRow = 0
1573.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1574.                 If Len(arrLines(iLoopRows)) > 0 Then
1575.                     iRow = iRow + 1
1576.                     For iLoopCols = 1 To Len(arrLines(iLoopRows))
1577.                         arrCols(iLoopCols) = arrCols(iLoopCols) + Mid$(arrLines(iLoopRows), iLoopCols, 1)
1578.                         arrNextShape(iRow, iLoopCols) = Mid$(arrLines(iLoopRows), iLoopCols, 1)
1579.                     Next iLoopCols
1580.                 End If
1581.             Next iLoopRows
1582.             For iLoopCols = LBound(arrCols) To UBound(arrCols)
1583.                 sTransposed = sTransposed + arrCols(iLoopCols) + Chr$(13)
1584.             Next iLoopCols
1585.             'print "Transposed:"
1586.             'print sTransposed
1587.  
1588.             ' Count consecutive vertical
1589.             iCountVT = 0
1590.             For iLoopRows = LBound(arrCols) To UBound(arrCols)
1591.                 If Len(arrCols(iLoopRows)) > 0 Then
1592.                     split arrCols(iLoopRows), ".", arrCount()
1593.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
1594.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
1595.                         arrLenCountVT(iLen) = arrLenCountVT(iLen) + 1
1596.                         If iLen > 0 Then
1597.                             iCountVT = iCountVT + 1
1598.                         End If
1599.                     Next iLoopCount
1600.                 End If
1601.             Next iLoopRows
1602.  
1603.             ' Weigh horizontal vs vertical
1604.             iScoreHZ = 0
1605.             sLine = ""
1606.             For iCount = 1 To iColumnCount
1607.                 If iCount > 1 Then sLine = sLine + ", "
1608.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountHZ(iCount))
1609.                 iScoreHZ = iScoreHZ + (iCount * arrLenCountHZ(iCount))
1610.             Next iCount
1611.             Print "Horizontal count: " + sLine
1612.             Print "Horizontal total: " + cstr$(iCountHZ)
1613.             Print "Horizontal miles: " + cstr$(iScoreHZ)
1614.  
1615.             iScoreVT = 0
1616.             sLine = ""
1617.             For iCount = 1 To iRowCount
1618.                 If iCount > 1 Then sLine = sLine + ", "
1619.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountVT(iCount))
1620.                 iScoreVT = iScoreVT + (iCount * arrLenCountVT(iCount))
1621.             Next iCount
1622.             Print "Vertical   count: " + sLine
1623.             Print "Vertical   total: " + cstr$(iCountVT)
1624.             Print "Vertical   miles: " + cstr$(iScoreVT)
1625.  
1626.             '' Verify break up into array
1627.             'print "REGURGITATED 2D:"
1628.             'for iLoopRows = lbound(arrNextShape, 1) to ubound(arrNextShape, 1)
1629.             '    sLine = ""
1630.             '    for iLoopCols = lbound(arrNextShape, 2) to ubound(arrNextShape, 2)
1631.             '        sLine = sLine + arrNextShape(iLoopRows, iLoopCols)
1632.             '    next iLoopCols
1633.             '    print sLine
1634.             'next iLoopRows
1635.  
1636.             ' DID WE FIND ANYTHING TO DRAW?
1637.             If iCountVT > 0 And iCountHZ > 0 Then
1638.  
1639.                 ' INTIALIZE TEMPLATE FOR NEXT SHAPE
1640.                 'sTemplate1: {name} {comment} {line commands}
1641.                 sShapeCode = sTemplate1
1642.                 sShapeCode = Replace$(sShapeCode, "{name}", arrNames(iLoopShape - 1))
1643.                 sShapeCode = Replace$(sShapeCode, "{shape comments}", sNextShapeComment)
1644.                 sLineCommands = ""
1645.  
1646.                 ' More consecutive horizontal or vertical?
1647.                 If iCountVT < iCountHZ Then
1648.  
1649.                     ' ADD A COMMENT THAT THIS ROUTINE USES VERTICAL LINES
1650.                     'sTemplate1: {name} {comment} {line commands}
1651.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH VERTICAL LINES")
1652.  
1653.                     ' LOOK AT SHAPE COLUMN BY COLUMN
1654.                     For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
1655.                         iX1 = iLoopCols
1656.                         iX2 = iLoopCols
1657.                         iY1 = -1
1658.                         iY2 = -1
1659.  
1660.                         ' LOOK AT SHAPE ROW BY ROW
1661.                         For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
1662.  
1663.                             ' PIXEL HERE...
1664.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
1665.                                 ' ARE WE CURRENTLY IN A LINE?
1666.                                 If iY1 = -1 Then
1667.                                     ' NO, START A NEW LINE
1668.                                     ' Remember this as the starting point
1669.                                     iY1 = iLoopRows
1670.                                 End If
1671.  
1672.                                 ' Remember the most recent point
1673.                                 iLast = iLoopRows
1674.  
1675.                                 ' NO PIXEL HERE...
1676.                             Else
1677.                                 ' ARE WE CURRENTLY IN A LINE?
1678.                                 If iY1 <> -1 Then
1679.                                     ' Use the most recent point as the end point
1680.                                     iY2 = iLast
1681.  
1682.                                     ' GENERATE THE NEXT LINE COMMAND
1683.                                     'sTemplate1: {name} {comment} {line commands}
1684.                                     'sTemplate2: {x1} {y1} {x2} {y2}
1685.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1686.                                     sLine = sTemplate2
1687.  
1688.                                     If iX1 = 1 Then
1689.                                         sLine = Replace$(sLine, "{x1}", "iX")
1690.                                     Else
1691.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1692.                                     End If
1693.  
1694.                                     If iY1 = 1 Then
1695.                                         sLine = Replace$(sLine, "{y1}", "iY")
1696.                                     Else
1697.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1698.                                     End If
1699.  
1700.                                     If iX2 = 1 Then
1701.                                         sLine = Replace$(sLine, "{x2}", "iX")
1702.                                     Else
1703.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1704.                                     End If
1705.  
1706.                                     If iY2 = 1 Then
1707.                                         sLine = Replace$(sLine, "{y2}", "iY")
1708.                                     Else
1709.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1710.                                     End If
1711.  
1712.                                     ' SAVE THE COMMAND TO BE ADDED
1713.                                     sLineCommands = sLineCommands + sLine
1714.  
1715.                                     ' RESET (NO LONGER IN A LINE)
1716.                                     iY1 = -1
1717.                                 End If
1718.                             End If
1719.                         Next iLoopRows
1720.  
1721.                         ' AND CHECK AGAIN AT THE END
1722.                         ' ARE WE CURRENTLY IN A LINE?
1723.                         If iY1 <> -1 Then
1724.                             ' Use the most recent point as the end point
1725.                             iY2 = iLast
1726.  
1727.                             ' GENERATE THE NEXT LINE COMMAND
1728.                             'sTemplate1: {name} {comment} {line commands}
1729.                             'sTemplate2: {x1} {y1} {x2} {y2}
1730.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1731.                             sLine = sTemplate2
1732.  
1733.                             If iX1 = 1 Then
1734.                                 sLine = Replace$(sLine, "{x1}", "iX")
1735.                             Else
1736.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1737.                             End If
1738.  
1739.                             If iY1 = 1 Then
1740.                                 sLine = Replace$(sLine, "{y1}", "iY")
1741.                             Else
1742.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1743.                             End If
1744.  
1745.                             If iX2 = 1 Then
1746.                                 sLine = Replace$(sLine, "{x2}", "iX")
1747.                             Else
1748.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1749.                             End If
1750.  
1751.                             If iY2 = 1 Then
1752.                                 sLine = Replace$(sLine, "{y2}", "iY")
1753.                             Else
1754.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1755.                             End If
1756.  
1757.                             ' SAVE THE COMMAND TO BE ADDED
1758.                             sLineCommands = sLineCommands + sLine
1759.  
1760.                             ' RESET (NO LONGER IN A LINE)
1761.                             iY1 = -1
1762.                         End If
1763.                     Next iLoopCols
1764.  
1765.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
1766.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
1767.  
1768.                     ' OUTPUT IT
1769.                     iTotalCount = iTotalCount + 1
1770.                     'DebugPrint sShapeCode
1771.  
1772.                 Else
1773.                     ' ADD A COMMENT THAT THIS ROUTINE USES HORIZONTAL LINES
1774.                     'sTemplate1: {name} {comment} {line commands}
1775.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH HORIZONTAL LINES")
1776.  
1777.                     ' LOOK AT SHAPE ROW BY ROW
1778.                     For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
1779.                         iX1 = -1
1780.                         iX2 = -1
1781.                         iY1 = iLoopRows
1782.                         iY2 = iLoopRows
1783.  
1784.                         ' LOOK AT SHAPE COLUMN BY COLUMN
1785.                         For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
1786.  
1787.                             ' PIXEL HERE...
1788.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
1789.                                 ' ARE WE CURRENTLY IN A LINE?
1790.                                 If iX1 = -1 Then
1791.                                     ' NO, START A NEW LINE
1792.                                     ' Remember this as the starting point
1793.                                     iX1 = iLoopCols
1794.                                 End If
1795.  
1796.                                 ' Remember the most recent point
1797.                                 iLast = iLoopCols
1798.  
1799.                                 ' NO PIXEL HERE...
1800.                             Else
1801.                                 ' ARE WE CURRENTLY IN A LINE?
1802.                                 If iX1 <> -1 Then
1803.                                     ' Use the most recent point as the end point
1804.                                     iX2 = iLast
1805.  
1806.                                     ' GENERATE THE NEXT LINE COMMAND
1807.                                     'sTemplate1: {name} {comment} {line commands}
1808.                                     'sTemplate2: {x1} {y1} {x2} {y2}
1809.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1810.                                     sLine = sTemplate2
1811.  
1812.                                     If iX1 = 1 Then
1813.                                         sLine = Replace$(sLine, "{x1}", "iX")
1814.                                     Else
1815.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1816.                                     End If
1817.  
1818.                                     If iY1 = 1 Then
1819.                                         sLine = Replace$(sLine, "{y1}", "iY")
1820.                                     Else
1821.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1822.                                     End If
1823.  
1824.                                     If iX2 = 1 Then
1825.                                         sLine = Replace$(sLine, "{x2}", "iX")
1826.                                     Else
1827.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1828.                                     End If
1829.  
1830.                                     If iY2 = 1 Then
1831.                                         sLine = Replace$(sLine, "{y2}", "iY")
1832.                                     Else
1833.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1834.                                     End If
1835.  
1836.                                     ' SAVE THE COMMAND TO BE ADDED
1837.                                     sLineCommands = sLineCommands + sLine
1838.  
1839.                                     ' RESET (NO LONGER IN A LINE)
1840.                                     iX1 = -1
1841.                                 End If
1842.                             End If
1843.                         Next iLoopCols
1844.  
1845.                         ' AND CHECK AGAIN AT THE END
1846.                         ' ARE WE CURRENTLY IN A LINE?
1847.                         If iX1 <> -1 Then
1848.                             ' Use the most recent point as the end point
1849.                             iX2 = iLast
1850.  
1851.                             ' GENERATE THE NEXT LINE COMMAND
1852.                             'sTemplate1: {name} {comment} {line commands}
1853.                             'sTemplate2: {x1} {y1} {x2} {y2}
1854.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1855.                             sLine = sTemplate2
1856.  
1857.                             If iX1 = 1 Then
1858.                                 sLine = Replace$(sLine, "{x1}", "iX")
1859.                             Else
1860.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1861.                             End If
1862.  
1863.                             If iY1 = 1 Then
1864.                                 sLine = Replace$(sLine, "{y1}", "iY")
1865.                             Else
1866.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1867.                             End If
1868.  
1869.                             If iX2 = 1 Then
1870.                                 sLine = Replace$(sLine, "{x2}", "iX")
1871.                             Else
1872.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1873.                             End If
1874.  
1875.                             If iY2 = 1 Then
1876.                                 sLine = Replace$(sLine, "{y2}", "iY")
1877.                             Else
1878.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1879.                             End If
1880.  
1881.                             ' SAVE THE COMMAND TO BE ADDED
1882.                             sLineCommands = sLineCommands + sLine
1883.  
1884.                             ' RESET (NO LONGER IN A LINE)
1885.                             iX1 = -1
1886.                         End If
1887.                     Next iLoopRows
1888.  
1889.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
1890.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
1891.  
1892.                     ' OUTPUT IT
1893.                     iTotalCount = iTotalCount + 1
1894.                     'DebugPrint sShapeCode
1895.                 End If
1896.             End If
1897.  
1898.             ' DONE
1899.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1900.             Print sShapeCode
1901.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1902.             'Input "PRESS <ENTER> TO CONTINUE";in$
1903.         Next iLoopShape
1904.     End If
1905.  
1906.     ' SHOW RESULTS
1907.     If Len(sError) = 0 Then
1908.         Print "Generated " + cstr$(iTotalCount) + " shape routines."
1909.     Else
1910.         Print RoutineName + " failed:"
1911.         Print sError
1912.     End If
1913.     'Input "PRESS <ENTER> TO CONTINUE";in$
1914.  
1915.     Screen 0
1916. End Sub ' GenerateNextVectorTileCode
1917.  
1918. ' /////////////////////////////////////////////////////////////////////////////
1919. ' Defines various 8x8 tiles and calls GenerateNextVectorTileCode to generate vector
1920. ' Line routines to draw each one.
1921.  
1922. Sub GenerateVectorTileCode ()
1923.     Dim MyString As String
1924.     Dim sNameList As String
1925.     Dim in$
1926.  
1927.     MyString = ""
1928.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1929.     MyString = MyString + "...#.... ........ ........ ........ ...#.... ...#...." + Chr$(13)
1930.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1931.     MyString = MyString + "...#.... #.#.#.#. ...##.#. #.##.... ...##.#. #.##...." + Chr$(13)
1932.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
1933.     MyString = MyString + "...#.... ........ ........ ........ ........ ........" + Chr$(13)
1934.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
1935.     MyString = MyString + "...#.... ........ ........ ........ ........ ........"
1936.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1937.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1938.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1939.     sNameList = Replace$(sNameList, "{n}", "1")
1940.     GenerateNextVectorTileCode MyString, sNameList
1941.  
1942.     MyString = ""
1943.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1944.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1945.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1946.     MyString = MyString + "...##... #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
1947.     MyString = MyString + "........ #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
1948.     MyString = MyString + "...##... ........ ........ ........ ........ ........" + Chr$(13)
1949.     MyString = MyString + "........ ........ ...##... ...##... ........ ........" + Chr$(13)
1950.     MyString = MyString + "...##... ........ ........ ........ ........ ........"
1951.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1952.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1953.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1954.     sNameList = Replace$(sNameList, "{n}", "2")
1955.     GenerateNextVectorTileCode MyString, sNameList
1956.  
1957.     MyString = ""
1958.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1959.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1960.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1961.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
1962.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
1963.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
1964.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
1965.     MyString = MyString + "........ ........ ........ ........ ........ ........"
1966.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1967.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1968.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1969.     sNameList = Replace$(sNameList, "{n}", "3")
1970.     GenerateNextVectorTileCode MyString, sNameList
1971.  
1972.     MyString = ""
1973.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ...##... ...#...#" + Chr$(13)
1974.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
1975.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
1976.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ######## ########" + Chr$(13)
1977.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ######## ...#...#" + Chr$(13)
1978.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
1979.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
1980.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ...##... ########"
1981.     sNameList = "DrawJailLine8x8_VT_2,DrawJailLine8x8_VT_1," + _
1982.         "DrawJailLine8x8_HZ_2,DrawJailLine8x8_HZ_1," + _
1983.         "DrawJailLine8x8_Grid_1,DrawJailLine8x8_Grid_3," + _
1984.         "DrawJailLine8x8_Grid_2"
1985.     GenerateNextVectorTileCode MyString, sNameList
1986.     Print
1987.     Print "See console window for generated code."
1988.     Input "PRESS <ENTER> TO CONTINUE"; in$
1989. End Sub ' GenerateVectorTileCode
1990.  
1991. ' ################################################################################################################################################################
1992. ' END GENERATE LINE DRAWING SHAPE ROUTINES
1993. ' ################################################################################################################################################################
1994.  
1995. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1996. ' BEGIN GENERATED VECTOR TILE ROUTINES
1997. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1998.  
1999. ' /////////////////////////////////////////////////////////////////////////////
2000. ' Draw this shape with Line commands:
2001. ' ........
2002. ' ...#....
2003. ' ........
2004. ' ...#....
2005. ' ........
2006. ' ...#....
2007. ' ........
2008. ' ...#....
2009. Sub DrawHomeLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2010.     ' DRAW WITH HORIZONTAL LINES
2011.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2012.     Line (iX + 3, iY + 3)-(iX + 3, iY + 3), fgColor
2013.     Line (iX + 3, iY + 5)-(iX + 3, iY + 5), fgColor
2014.     Line (iX + 3, iY + 7)-(iX + 3, iY + 7), fgColor
2015. End Sub ' DrawHomeLine8x8_VT_1
2016.  
2017. ' /////////////////////////////////////////////////////////////////////////////
2018. ' Draw this shape with Line commands:
2019. ' ........
2020. ' ........
2021. ' ........
2022. ' #.#.#.#.
2023. ' ........
2024. ' ........
2025. ' ........
2026. ' ........
2027. Sub DrawHomeLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2028.     ' DRAW WITH HORIZONTAL LINES
2029.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2030.     Line (iX + 2, iY + 3)-(iX + 2, iY + 3), fgColor
2031.     Line (iX + 4, iY + 3)-(iX + 4, iY + 3), fgColor
2032.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2033. End Sub ' DrawHomeLine8x8_HZ_1
2034.  
2035. ' /////////////////////////////////////////////////////////////////////////////
2036. ' Draw this shape with Line commands:
2037. ' ........
2038. ' ........
2039. ' ........
2040. ' ...##.#.
2041. ' ...#....
2042. ' ........
2043. ' ...#....
2044. ' ........
2045. Sub DrawHomeLine8x8_NW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2046.     ' DRAW WITH HORIZONTAL LINES
2047.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2048.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2049.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
2050.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
2051. End Sub ' DrawHomeLine8x8_NW_1
2052.  
2053. ' /////////////////////////////////////////////////////////////////////////////
2054. ' Draw this shape with Line commands:
2055. ' ........
2056. ' ........
2057. ' ........
2058. ' #.##....
2059. ' ...#....
2060. ' ........
2061. ' ...#....
2062. ' ........
2063. Sub DrawHomeLine8x8_NE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2064.     ' DRAW WITH HORIZONTAL LINES
2065.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2066.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
2067.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
2068.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
2069. End Sub ' DrawHomeLine8x8_NE_1
2070.  
2071. ' /////////////////////////////////////////////////////////////////////////////
2072. ' Draw this shape with Line commands:
2073. ' ........
2074. ' ...#....
2075. ' ........
2076. ' ...##.#.
2077. ' ........
2078. ' ........
2079. ' ........
2080. ' ........
2081. Sub DrawHomeLine8x8_SW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2082.     ' DRAW WITH HORIZONTAL LINES
2083.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2084.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2085.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2086. End Sub ' DrawHomeLine8x8_SW_1
2087.  
2088. ' /////////////////////////////////////////////////////////////////////////////
2089. ' Draw this shape with Line commands:
2090. ' ........
2091. ' ...#....
2092. ' ........
2093. ' #.##....
2094. ' ........
2095. ' ........
2096. ' ........
2097. ' ........
2098. Sub DrawHomeLine8x8_SE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2099.     ' DRAW WITH HORIZONTAL LINES
2100.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2101.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2102.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
2103. End Sub ' DrawHomeLine8x8_SE_1
2104.  
2105. ' /////////////////////////////////////////////////////////////////////////////
2106. ' Draw this shape with Line commands:
2107. ' ........
2108. ' ...##...
2109. ' ........
2110. ' ...##...
2111. ' ........
2112. ' ...##...
2113. ' ........
2114. ' ...##...
2115. Sub DrawHomeLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2116.     ' DRAW WITH HORIZONTAL LINES
2117.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2118.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2119.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2120.     Line (iX + 3, iY + 7)-(iX + 4, iY + 7), fgColor
2121. End Sub ' DrawHomeLine8x8_VT_2
2122.  
2123. ' /////////////////////////////////////////////////////////////////////////////
2124. ' Draw this shape with Line commands:
2125. ' ........
2126. ' ........
2127. ' ........
2128. ' #.#.#.#.
2129. ' #.#.#.#.
2130. ' ........
2131. ' ........
2132. ' ........
2133. Sub DrawHomeLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2134.     ' DRAW WITH VERTICAL LINES
2135.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2136.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2137.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2138.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
2139. End Sub ' DrawHomeLine8x8_HZ_2
2140.  
2141. ' /////////////////////////////////////////////////////////////////////////////
2142. ' Draw this shape with Line commands:
2143. ' ........
2144. ' ........
2145. ' ........
2146. ' ...##.#.
2147. ' ...##.#.
2148. ' ........
2149. ' ...##...
2150. ' ........
2151. Sub DrawHomeLine8x8_NW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2152.     ' DRAW WITH HORIZONTAL LINES
2153.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2154.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
2155.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2156.  
2157.     ' DRAW WITH VERTICAL LINES
2158.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
2159. End Sub ' DrawHomeLine8x8_NW_2
2160.  
2161. ' /////////////////////////////////////////////////////////////////////////////
2162. ' Draw this shape with Line commands:
2163. ' ........
2164. ' ........
2165. ' ........
2166. ' #.#.#...
2167. ' #.#.#...
2168. ' ........
2169. ' ...##...
2170. ' ........
2171. Sub DrawHomeLine8x8_NE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2172.     ' DRAW WITH VERTICAL LINES
2173.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2174.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2175.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2176.  
2177.     ' DRAW WITH HORIZONTAL LINES
2178.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2179. End Sub ' DrawHomeLine8x8_NE_2
2180.  
2181. ' /////////////////////////////////////////////////////////////////////////////
2182. ' Draw this shape with Line commands:
2183. ' ........
2184. ' ...##...
2185. ' ........
2186. ' ...##.#.
2187. ' ...##.#.
2188. ' ........
2189. ' ........
2190. ' ........
2191. Sub DrawHomeLine8x8_SW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2192.     ' DRAW WITH HORIZONTAL LINES
2193.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2194.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2195.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
2196.  
2197.     ' DRAW WITH VERTICAL LINES
2198.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2199. End Sub ' DrawHomeLine8x8_SW_2
2200.  
2201. ' /////////////////////////////////////////////////////////////////////////////
2202. ' Draw this shape with Line commands:
2203. ' ........
2204. ' ...##...
2205. ' ........
2206. ' #.#.#...
2207. ' #.#.#...
2208. ' ........
2209. ' ........
2210. ' ........
2211. Sub DrawHomeLine8x8_SE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2212.     ' DRAW WITH HORIZONTAL LINES
2213.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2214.  
2215.     ' DRAW WITH VERTICAL LINES
2216.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2217.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2218.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2219.  
2220. End Sub ' DrawHomeLine8x8_SE_2
2221.  
2222. ' /////////////////////////////////////////////////////////////////////////////
2223. ' Draw this shape with Line commands:
2224. ' ........
2225. ' ...##...
2226. ' ...##...
2227. ' ........
2228. ' ........
2229. ' ...##...
2230. ' ...##...
2231. ' ........
2232. Sub DrawHomeLine8x8_VT_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2233.     ' DRAW WITH HORIZONTAL LINES
2234.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2235.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2236.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2237.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2238. End Sub ' DrawHomeLine8x8_VT_3
2239.  
2240. ' /////////////////////////////////////////////////////////////////////////////
2241. ' Draw this shape with Line commands:
2242. ' ........
2243. ' ........
2244. ' ........
2245. ' .##..##.
2246. ' .##..##.
2247. ' ........
2248. ' ........
2249. ' ........
2250. Sub DrawHomeLine8x8_HZ_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2251.     ' DRAW WITH HORIZONTAL LINES
2252.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2253.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2254.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2255.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2256. End Sub ' DrawHomeLine8x8_HZ_3
2257.  
2258. ' /////////////////////////////////////////////////////////////////////////////
2259. ' Draw this shape with Line commands:
2260. ' ........
2261. ' ........
2262. ' ........
2263. ' .....##.
2264. ' .....##.
2265. ' ...##...
2266. ' ...##...
2267. ' ........
2268. Sub DrawHomeLine8x8_NW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2269.     ' DRAW WITH HORIZONTAL LINES
2270.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2271.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2272.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2273.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2274. End Sub ' DrawHomeLine8x8_NW_3
2275.  
2276. ' /////////////////////////////////////////////////////////////////////////////
2277. ' Draw this shape with Line commands:
2278. ' ........
2279. ' ........
2280. ' ........
2281. ' .##.....
2282. ' .##.....
2283. ' ...##...
2284. ' ...##...
2285. ' ........
2286. Sub DrawHomeLine8x8_NE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2287.     ' DRAW WITH HORIZONTAL LINES
2288.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2289.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2290.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2291.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2292. End Sub ' DrawHomeLine8x8_NE_3
2293.  
2294. ' /////////////////////////////////////////////////////////////////////////////
2295. ' Draw this shape with Line commands:
2296. ' ........
2297. ' ...##...
2298. ' ...##...
2299. ' .....##.
2300. ' .....##.
2301. ' ........
2302. ' ........
2303. ' ........
2304. Sub DrawHomeLine8x8_SW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2305.     ' DRAW WITH HORIZONTAL LINES
2306.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2307.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2308.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2309.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2310. End Sub ' DrawHomeLine8x8_SW_3
2311.  
2312. ' /////////////////////////////////////////////////////////////////////////////
2313. ' Draw this shape with Line commands:
2314. ' ........
2315. ' ...##...
2316. ' ...##...
2317. ' .##.....
2318. ' .##.....
2319. ' ........
2320. ' ........
2321. ' ........
2322. Sub DrawHomeLine8x8_SE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2323.     ' DRAW WITH HORIZONTAL LINES
2324.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2325.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2326.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2327.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2328. End Sub ' DrawHomeLine8x8_SE_3
2329.  
2330. ' /////////////////////////////////////////////////////////////////////////////
2331. ' Draw this shape with Line commands:
2332. ' ##..##..
2333. ' ##..##..
2334. ' ##..##..
2335. ' ##..##..
2336. ' ##..##..
2337. ' ##..##..
2338. ' ##..##..
2339. ' ##..##..
2340. Sub DrawJailLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2341.     ' DRAW WITH VERTICAL LINES
2342.     Line (iX, iY)-(iX, iY + 7), fgColor
2343.     Line (iX + 1, iY)-(iX + 1, iY + 7), fgColor
2344.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2345.     Line (iX + 5, iY)-(iX + 5, iY + 7), fgColor
2346. End Sub ' DrawJailLine8x8_VT_2
2347.  
2348. ' /////////////////////////////////////////////////////////////////////////////
2349. ' Draw this shape with Line commands:
2350. ' #.#.#.#.
2351. ' #.#.#.#.
2352. ' #.#.#.#.
2353. ' #.#.#.#.
2354. ' #.#.#.#.
2355. ' #.#.#.#.
2356. ' #.#.#.#.
2357. ' #.#.#.#.
2358. Sub DrawJailLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2359.     ' DRAW WITH VERTICAL LINES
2360.     Line (iX, iY)-(iX, iY + 7), fgColor
2361.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
2362.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2363.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
2364. End Sub ' DrawJailLine8x8_VT_1
2365.  
2366. ' /////////////////////////////////////////////////////////////////////////////
2367. ' Draw this shape with Line commands:
2368. ' ########
2369. ' ########
2370. ' ........
2371. ' ........
2372. ' ########
2373. ' ########
2374. ' ........
2375. ' ........
2376. Sub DrawJailLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2377.     ' DRAW WITH HORIZONTAL LINES
2378.     Line (iX, iY)-(iX + 7, iY), fgColor
2379.     Line (iX, iY + 1)-(iX + 7, iY + 1), fgColor
2380.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2381.     Line (iX, iY + 5)-(iX + 7, iY + 5), fgColor
2382. End Sub ' DrawJailLine8x8_HZ_2
2383.  
2384. ' /////////////////////////////////////////////////////////////////////////////
2385. ' Draw this shape with Line commands:
2386. ' ########
2387. ' ........
2388. ' ########
2389. ' ........
2390. ' ########
2391. ' ........
2392. ' ########
2393. ' ........
2394. Sub DrawJailLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2395.     ' DRAW WITH HORIZONTAL LINES
2396.     Line (iX, iY)-(iX + 7, iY), fgColor
2397.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
2398.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2399.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
2400. End Sub ' DrawJailLine8x8_HZ_1
2401.  
2402. ' /////////////////////////////////////////////////////////////////////////////
2403. ' Draw this shape with Line commands:
2404. ' #######.
2405. ' #.#.#.#.
2406. ' #######.
2407. ' #.#.#.#.
2408. ' #######.
2409. ' #.#.#.#.
2410. ' #######.
2411. ' #.#.#.#.
2412. Sub DrawJailLine8x8_Grid_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2413.     ' DRAW WITH VERTICAL LINES
2414.     Line (iX, iY)-(iX, iY + 7), fgColor
2415.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
2416.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2417.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
2418.  
2419.     ' DRAW WITH HORIZONTAL LINES
2420.     Line (iX, iY)-(iX + 7, iY), fgColor
2421.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
2422.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2423.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
2424. End Sub ' DrawJailLine8x8_Grid_1
2425.  
2426. ' /////////////////////////////////////////////////////////////////////////////
2427. ' Draw this shape with Line commands:
2428. ' ...#...#
2429. ' ...#...#
2430. ' ...#...#
2431. ' ########
2432. ' ...#...#
2433. ' ...#...#
2434. ' ...#...#
2435. ' ########
2436. Sub DrawJailLine8x8_Grid_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2437.     ' DRAW WITH VERTICAL LINES
2438.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
2439.     Line (iX + 7, iY)-(iX + 7, iY + 7), fgColor
2440.     ' DRAW WITH HORIZONTAL LINES
2441.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
2442.     Line (iX, iY + 7)-(iX + 7, iY + 7), fgColor
2443. End Sub ' DrawJailLine8x8_Grid_2
2444.  
2445. ' /////////////////////////////////////////////////////////////////////////////
2446. ' Draw this shape with Line commands:
2447. ' ...##...
2448. ' ...##...
2449. ' ...##...
2450. ' ########
2451. ' ########
2452. ' ...##...
2453. ' ...##...
2454. ' ...##...
2455. Sub DrawJailLine8x8_Grid_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2456.     ' DRAW WITH VERTICAL LINES
2457.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
2458.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2459.     ' DRAW WITH HORIZONTAL LINES
2460.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
2461.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2462. End Sub ' DrawJailLine8x8_Grid_3
2463.  
2464. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2465. ' END GENERATED VECTOR TILE ROUTINES
2466. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2467.  
2468. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2469. ' BEGIN MANUALLY CREATED VECTOR TILE ROUTINES
2470. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2471.  
2472. ' /////////////////////////////////////////////////////////////////////////////
2473. ' Fastest!
2474.  
2475. Sub DrawUpArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2476.     Dim iStartX As Integer: iStartX = iX + 3
2477.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
2478.     Line (iStartX, iY)-(iX, iY + 3), fgColor
2479.     Line (iStartX, iY)-(iStartX + 3, iY + 3), fgColor
2480. End Sub ' DrawUpArrowLine_8x8
2481.  
2482. ' /////////////////////////////////////////////////////////////////////////////
2483. ' Fastest!
2484.  
2485. Sub DrawDownArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2486.     Dim iStartX As Integer: iStartX = iX + 3
2487.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
2488.     Line (iStartX, iY + 7)-(iX, iY + 4), fgColor
2489.     Line (iStartX, iY + 7)-(iStartX + 3, iY + 4), fgColor
2490. End Sub ' DrawDownArrowLine_8x8
2491.  
2492. ' /////////////////////////////////////////////////////////////////////////////
2493. ' Fastest!
2494.  
2495. Sub DrawLeftArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2496.     Dim iStartY As Integer: iStartY = iY + 3
2497.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
2498.     Line (iX, iStartY)-(iX + 3, iY), fgColor
2499.     Line (iX, iStartY)-(iX + 3, iStartY + 3), fgColor
2500. End Sub ' DrawLeftArrowLine_8x8
2501.  
2502. ' /////////////////////////////////////////////////////////////////////////////
2503. ' Fastest!
2504.  
2505. Sub DrawRightArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2506.     Dim iStartY As Integer: iStartY = iY + 3
2507.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
2508.     Line (iX + 7, iStartY)-(iX + 4, iY), fgColor
2509.     Line (iX + 7, iStartY)-(iX + 4, iStartY + 3), fgColor
2510. End Sub ' DrawRightArrowLine_8x8
2511.  
2512. ' /////////////////////////////////////////////////////////////////////////////
2513. ' This uses PSET to draw the arrow pixel-by-pixel
2514. ' PSET = second fastest method after Line.
2515.  
2516. ' PSET (X, Y), Color
2517. ' draw will start where pset leaves off
2518.  
2519. Sub DrawLeftArrowPset_8x8 (iX As Long, iY As Long, fgColor As _Unsigned Long)
2520.     Dim iLoopX As Integer
2521.     Dim iLoopY As Integer
2522.     For iLoopX = iX To iX + 7: PSet (iLoopX, iY), fgColor: Next iLoopX
2523.     PSet (iX + 1, iY - 1), fgColor
2524.     PSet (iX + 2, iY - 2), fgColor
2525.     PSet (iX + 3, iY - 3), fgColor
2526.     PSet (iX + 1, iY + 1), fgColor
2527.     PSet (iX + 2, iY + 2), fgColor
2528.     PSet (iX + 3, iY + 3), fgColor
2529. End Sub ' DrawLeftArrowPset_8x8
2530.  
2531. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2532. ' END MANUALLY CREATED VECTOR TILE ROUTINES
2533. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2534.  
2535. ' ################################################################################################################################################################
2536. ' END MISC GRAPHICS ROUTINES
2537. ' ################################################################################################################################################################
2538.  
2539. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2540. ' BEGIN STRING TO ARRAY FUNCTIONS
2541. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2542.  
2543. ' /////////////////////////////////////////////////////////////////////////////
2544.  
2545. ' Usage:
2546. ' Dim StringArray(1 To 48, 1 To 128) As String
2547. ' StringToArray StringArray(), GetMap$
2548.  
2549. ' version 2 with indexed array(row, columm)
2550.  
2551. Sub StringToArray (MyArray() As String, MyString As String)
2552.     Dim sDelim As String
2553.     ReDim arrLines(0) As String
2554.     Dim iRow As Integer
2555.     Dim iCol As Integer
2556.     Dim sChar As String
2557.     Dim iDim1 As Integer
2558.     Dim iDim2 As Integer
2559.     Dim iIndex1 As Integer
2560.     Dim iIndex2 As Integer
2561.  
2562.     iDim1 = LBound(MyArray, 1)
2563.     iDim2 = LBound(MyArray, 2)
2564.     sDelim = Chr$(13)
2565.     split MyString, sDelim, arrLines()
2566.     For iRow = LBound(arrLines) To UBound(arrLines)
2567.         If iRow <= UBound(MyArray, 1) Then
2568.             For iCol = 1 To Len(arrLines(iRow))
2569.                 If iCol <= UBound(MyArray, 2) Then
2570.                     sChar = Mid$(arrLines(iRow), iCol, 1)
2571.  
2572.                     If Len(sChar) > 1 Then
2573.                         sChar = Left$(sChar, 1)
2574.                     Else
2575.                         If Len(sChar) = 0 Then
2576.                             sChar = "."
2577.                         End If
2578.                     End If
2579.  
2580.                     iIndex1 = iRow + iDim1
2581.                     iIndex2 = (iCol - 1) + iDim2
2582.                     MyArray(iIndex1, iIndex2) = sChar
2583.                     ''DebugPrint "MyArray(" + cstr$(iIndex1) + ", " + cstr$(iIndex2) + " = " + chr$(34) + sChar + chr$(34)
2584.                 Else
2585.                     ' Exit if out of bounds
2586.                     Exit For
2587.                 End If
2588.             Next iCol
2589.         Else
2590.             ' Exit if out of bounds
2591.             Exit For
2592.         End If
2593.     Next iRow
2594. End Sub ' StringToArray
2595.  
2596. ' /////////////////////////////////////////////////////////////////////////////
2597.  
2598. Function Array2dToString$ (MyArray() As String)
2599.     Dim MyString As String
2600.     Dim iY As Integer
2601.     Dim iX As Integer
2602.     Dim sLine As String
2603.     MyString = ""
2604.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2605.         sLine = ""
2606.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2607.             sLine = sLine + MyArray(iY, iX)
2608.         Next iX
2609.         MyString = MyString + sLine + Chr$(13)
2610.     Next iY
2611.     Array2dToString$ = MyString
2612. End Function ' Array2dToString$
2613.  
2614. ' /////////////////////////////////////////////////////////////////////////////
2615.  
2616. Function ArrayToString$ (MyArray( 1 To 32 , 1 To 32) As String)
2617.     Dim MyString As String
2618.     Dim iY As Integer
2619.     Dim iX As Integer
2620.     Dim sLine As String
2621.     MyString = ""
2622.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2623.         sLine = ""
2624.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2625.             sLine = sLine + MyArray(iY, iX)
2626.         Next iX
2627.         MyString = MyString + sLine + Chr$(13)
2628.     Next iY
2629.     ArrayToString$ = MyString
2630. End Function ' ArrayToString$
2631.  
2632. ' /////////////////////////////////////////////////////////////////////////////
2633.  
2634. Function ArrayToStringTest$ (MyArray() As String)
2635.     Dim MyString As String
2636.     Dim iY As Integer
2637.     Dim iX As Integer
2638.     Dim sLine As String
2639.     MyString = ""
2640.  
2641.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
2642.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
2643.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2644.         sLine = ""
2645.         sLine = sLine + Right$("  " + cstr$(iY), 2)
2646.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2647.             sLine = sLine + MyArray(iY, iX)
2648.         Next iX
2649.         sLine = sLine + Right$("  " + cstr$(iY), 2)
2650.         MyString = MyString + sLine + Chr$(13)
2651.     Next iY
2652.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
2653.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
2654.     ArrayToStringTest$ = MyString
2655. End Function ' ArrayToStringTest$
2656.  
2657. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2658. ' END STRING TO ARRAY FUNCTIONS
2659. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2660.  
2661. ' ################################################################################################################################################################
2662. ' BEGIN TILE UTILITIES
2663. ' ################################################################################################################################################################
2664.  
2665. ' /////////////////////////////////////////////////////////////////////////////
2666. ' Precalculates the tile locations ahead of time to save time copying them
2667. ' to the screen.
2668.  
2669. ' Requires the following types be declared:
2670. '
2671. '     Type TileSheetMapType ' UDT FOR PRECALCULATED TILESHEET
2672. '         xStart As Integer
2673. '         xEnd As Integer
2674. '         yStart As Integer
2675. '         yEnd As Integer
2676. '     End Type
2677. '     Type TileMapType ' UDT FOR PRECALCULATED TILE MAP
2678. '         xPos As Integer
2679. '         yPos As Integer
2680. '     End Type
2681. '
2682. ' EXAMPLE USAGE:
2683. '
2684. '     Dim TileCount%
2685. '     Dim TilesheetCols%
2686. '     Dim TilesheetRows%
2687. '     Dim tileHeightPx%
2688. '     Dim tileWidthPx%
2689. '     Dim xOffset%
2690. '     Dim yOffset%
2691. '     Dim numTilesX%
2692. '     Dim numTilesY%
2693. '     REDIM arrTileSheetMap(255) AS TileSheetMapType
2694. '     REDIM arrTileMap(20, 20) AS TileMapType
2695. '     TileCount% = 256 ' TOTAL # OF TILES
2696. '     TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
2697. '     TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
2698. '     tileHeightPx% = 32 ' TILE HEIGHT
2699. '     tileWidthPx% = 32 ' TILE WIDTH
2700. '     xOffset% = 0 ' SCREEN OFFSET X
2701. '     yOffset% = 64 ' SCREEN OFFSET Y
2702. '     numTilesX% = 20 ' HOW MANY TILES ACROSS (ON DESTINATION)
2703. '     numTilesY% = 20 ' HOW MANY TILES UP/DOWN (ON DESTINATION)
2704. '     ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, _
2705. '         TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, _
2706. '         xOffset%, yOffset%, numTilesX%, numTilesY%
2707.  
2708. ' TODO: this can be simplified & optimized:
2709. '       - we don't need x/y offsets
2710. '       - tile height/width can be hardcoded
2711. '       - etc.
2712.  
2713. Sub ComputeTileLocations (arrTileSheetMap() As TileSheetMapType, arrTileMap() As TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
2714.     Dim TileNum%
2715.     Dim sc%
2716.     Dim sr%
2717.     Dim sx1%
2718.     Dim sx2%
2719.     Dim sy1%
2720.     Dim sy2%
2721.  
2722.     Dim dx%
2723.     Dim dy%
2724.     Dim xDest%
2725.     Dim yDest%
2726.  
2727.     ' -----------------------------------------------------------------------------
2728.     ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
2729.  
2730.     For TileNum% = 0 To (TileCount% - 1)
2731.  
2732.         ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2733.         sc% = TileNum% Mod TilesheetCols%
2734.         sr% = TileNum% \ TilesheetRows%
2735.  
2736.         'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
2737.  
2738.         ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2739.         'sx1% = sc% * tw%
2740.         sx1% = sc% * tileWidthPx%
2741.  
2742.         ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2743.         'sy1% = sr% * tw%
2744.         sy1% = sr% * tileHeightPx%
2745.  
2746.         ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2747.         'sx2% = sx1% + (tw% - 1)
2748.         sx2% = sx1% + (tileWidthPx% - 1)
2749.  
2750.         ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2751.         'sy2% = sy1% + (tw% - 1)
2752.         sy2% = sy1% + (tileHeightPx% - 1)
2753.  
2754.         ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
2755.         arrTileSheetMap(TileNum%).xStart = sx1%
2756.         arrTileSheetMap(TileNum%).xEnd = sx2%
2757.         arrTileSheetMap(TileNum%).yStart = sy1%
2758.         arrTileSheetMap(TileNum%).yEnd = sy2%
2759.  
2760.     Next TileNum%
2761.  
2762.     ' -----------------------------------------------------------------------------
2763.     ' CALCULATE SCREEN COORDINATES FOR TILES
2764.  
2765.     For dx% = 0 To (numTilesX% - 1)
2766.         For dy% = 0 To (numTilesY% - 1)
2767.  
2768.             ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2769.             'xDest% = dx% * tw%
2770.             xDest% = (dx% * tileWidthPx%) + xOffset%
2771.  
2772.             ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2773.             'yDest% = (dy% * tw%) + 64
2774.             yDest% = (dy% * tileHeightPx%) + yOffset%
2775.  
2776.             'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
2777.  
2778.             ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
2779.             ' WHERE dx% and dy% ARE 1-BASED
2780.             arrTileMap(dx% + 1, dy% + 1).xPos = xDest%
2781.             arrTileMap(dx% + 1, dy% + 1).yPos = yDest%
2782.  
2783.         Next dy%
2784.     Next dx%
2785.  
2786. End Sub ' ComputeTileLocations
2787.  
2788. ' /////////////////////////////////////////////////////////////////////////////
2789. ' Latest version with NOVARSEG's changes.
2790.  
2791. ' Based on code from:
2792.  
2793. ' Image color swap?
2794. ' https://www.qb64.org/forum/index.php?topic=2312.0
2795.  
2796. ' Like Function swapcolor& except returns new image in a parameter
2797. ' in case being a function causes a memory leak?
2798.  
2799. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
2800.     Dim m As _MEM
2801.     Dim a As _Offset
2802.     Dim c As _Unsigned Long
2803.     a = 0
2804.     imgNew& = _CopyImage(imgOriginal&, 32)
2805.     m = _MemImage(imgNew&)
2806.     Do Until a = m.SIZE - 4
2807.         a = a + 4
2808.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
2809.         If c = oldcolor~& Then
2810.             _MemPut m, m.OFFSET + a, newcolor~&
2811.         End If
2812.     Loop
2813.     _MemFree m
2814. End Sub ' DoColorSwap&
2815.  
2816. ' ################################################################################################################################################################
2817. ' END TILE UTILITIES
2818. ' ################################################################################################################################################################
2819.  
2820. ' ################################################################################################################################################################
2821. ' BEGIN HELPER ROUTINES
2822. ' ################################################################################################################################################################
2823.  
2824. ' /////////////////////////////////////////////////////////////////////////////
2825. ' div: int1% = num1% \ den1%
2826. ' mod: rem1% = num1% MOD den1%
2827.  
2828. Function NextColorIndex% (iX As Integer, iY As Integer)
2829.     Dim iIndex As Integer
2830.     Dim iAdd As Integer
2831.     iOut = (iX Mod 4)
2832.     iAdd = (iY Mod 4)
2833.     NextColorIndex% = iOut + iAdd + 1
2834. End Function ' NextColorIndex%
2835.  
2836. ' /////////////////////////////////////////////////////////////////////////////
2837. ' Pauses for iDS deciseconds (iDS * 100 ms)
2838.  
2839. Sub PauseDecisecond (iDS As Integer)
2840.     Dim iCount As Integer
2841.     iCount = 0
2842.     Do
2843.         iCount = iCount + 1
2844.         _Limit 10 ' run 10x every second
2845.     Loop Until iCount = iDS
2846. End Sub ' PauseDecisecond
2847.  
2848. ' /////////////////////////////////////////////////////////////////////////////
2849. ' Returns TRUE if point (x1%, y1%) is adjacent to point (x2%, y2%)
2850.  
2851. Function PointsAreAdjacent% (x1%, y1%, x2%, y2%)
2852.     Dim bResult%: bResult% = FALSE
2853.  
2854.     ' x or y can be the same, but not both
2855.     If (x1% <> x2%) Or (y1% <> y2%) Then
2856.         If (x1% = x2%) Or ((x1% = (x2% + 1)) Or (x2% = (x1% + 1))) Then
2857.             If (y1% = y2%) Or ((y1% = (y2% + 1)) Or (y2% = (y1% + 1))) Then
2858.                 bResult% = TRUE
2859.             End If
2860.         End If
2861.     End If
2862.     PointsAreAdjacent% = bResult%
2863. End Function ' PointsAreAdjacent%
2864.  
2865. ' ################################################################################################################################################################
2866. ' END HELPER ROUTINES
2867. ' ################################################################################################################################################################
2868.  
2869. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2870. ' BEGIN COLOR ARRAY FUNCTIONS
2871. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2872.  
2873. ' /////////////////////////////////////////////////////////////////////////////
2874.  
2875. Sub AddColor (ColorValue As _Unsigned Long, ColorName As String, arrColor() As ColorType)
2876.     ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As ColorType
2877.     arrColor(UBound(arrColor)).name = ColorName
2878.     arrColor(UBound(arrColor)).value = ColorValue
2879. End Sub ' AddColor
2880.  
2881. ' /////////////////////////////////////////////////////////////////////////////
2882.  
2883. Sub AddColors (arrColor() As ColorType)
2884.     AddColor cBlack, "cBlack", arrColor()
2885.     AddColor cGray, "cGray", arrColor()
2886.     AddColor cSilver, "cSilver", arrColor()
2887.     AddColor cWhite, "cWhite", arrColor()
2888.     AddColor cRed, "cRed", arrColor()
2889.     AddColor cOrangeRed, "cOrangeRed", arrColor()
2890.     AddColor cYellow, "cYellow", arrColor()
2891.     AddColor cLime, "cLime", arrColor()
2892.     AddColor cCyan, "cCyan", arrColor()
2893.     AddColor cDodgerBlue, "cDodgerBlue", arrColor()
2894.     AddColor cBlue, "cBlue", arrColor()
2895.     AddColor cDeepPurple, "cDeepPurple", arrColor()
2896.     AddColor cDarkGreen, "cDarkGreen", arrColor()
2897.     AddColor cMagenta, "cMagenta", arrColor()
2898.     AddColor cHotPink, "cHotPink", arrColor()
2899.     AddColor cDarkBrown, "cDarkBrown", arrColor()
2900.     AddColor cEmpty, "cEmpty", arrColor()
2901. End Sub ' AddColors
2902.  
2903. ' /////////////////////////////////////////////////////////////////////////////
2904.  
2905. Sub AddGrayscaleColors (arrColor() As ColorType)
2906.     'AddColor cBlack, "cBlack", arrColor()
2907.     AddColor cDimGray, "cDimGray", arrColor()
2908.     AddColor cGray, "cGray", arrColor()
2909.     AddColor cDarkGray, "cDarkGray", arrColor()
2910.     AddColor cSilver, "cSilver", arrColor()
2911.     AddColor cLightGray, "cLightGray", arrColor()
2912.     AddColor cWhite, "cGainsboro", arrColor()
2913.     AddColor cWhite, "cWhiteSmoke", arrColor()
2914.     AddColor cWhite, "cWhite", arrColor()
2915. End Sub ' AddGrayscaleColors
2916.  
2917. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2918. ' END COLOR ARRAY FUNCTIONS
2919. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2920.  
2921. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2922. ' BEGIN COLOR FUNCTIONS
2923. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2924.  
2925. Function cRed~& ()
2926.     cRed = _RGB32(255, 0, 0)
2927. End Function
2928.  
2929. Function cOrangeRed~& ()
2930.     cOrangeRed = _RGB32(255, 69, 0)
2931. End Function ' cOrangeRed~&
2932.  
2933. Function cDarkOrange~& ()
2934.     cDarkOrange = _RGB32(255, 140, 0)
2935. End Function ' cDarkOrange~&
2936.  
2937. Function cOrange~& ()
2938.     cOrange = _RGB32(255, 165, 0)
2939. End Function ' cOrange~&
2940.  
2941. Function cGold~& ()
2942.     cGold = _RGB32(255, 215, 0)
2943. End Function ' cGold~&
2944.  
2945. Function cYellow~& ()
2946.     cYellow = _RGB32(255, 255, 0)
2947. End Function ' cYellow~&
2948.  
2949. 'Function cChartreuse~& ()
2950. '    cChartreuse = _RGB32(127, 255, 0)
2951. 'End Function ' cChartreuse~&
2952.  
2953. ' WE USE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW
2954. ' INSTEAD OF Chartreuse WHICH IS NOT YELLOW ENOUGH
2955. Function cOliveDrab1~& ()
2956.     cOliveDrab1 = _RGB32(192, 255, 62)
2957. End Function ' cOliveDrab1~&
2958.  
2959. Function cLime~& ()
2960.     cLime = _RGB32(0, 255, 0)
2961. End Function ' cLime~&
2962.  
2963. Function cMediumSpringGreen~& ()
2964.     cMediumSpringGreen = _RGB32(0, 250, 154)
2965. End Function ' cMediumSpringGreen~&
2966.  
2967. Function cCyan~& ()
2968.     cCyan = _RGB32(0, 255, 255)
2969. End Function ' cCyan~&
2970.  
2971. Function cDeepSkyBlue~& ()
2972.     cDeepSkyBlue = _RGB32(0, 191, 255)
2973. End Function ' cDeepSkyBlue~&
2974.  
2975. Function cDodgerBlue~& ()
2976.     cDodgerBlue = _RGB32(30, 144, 255)
2977. End Function ' cDodgerBlue~&
2978.  
2979. Function cSeaBlue~& ()
2980.     cSeaBlue = _RGB32(0, 64, 255)
2981. End Function ' cSeaBlue~&
2982.  
2983. Function cBlue~& ()
2984.     cBlue = _RGB32(0, 0, 255)
2985. End Function ' cBlue~&
2986.  
2987. Function cBluePurple~& ()
2988.     cBluePurple = _RGB32(64, 0, 255)
2989. End Function ' cBluePurple~&
2990.  
2991. Function cDeepPurple~& ()
2992.     cDeepPurple = _RGB32(96, 0, 255)
2993. End Function ' cDeepPurple~&
2994.  
2995. Function cPurple~& ()
2996.     cPurple = _RGB32(128, 0, 255)
2997. End Function ' cPurple~&
2998.  
2999. Function cPurpleRed~& ()
3000.     cPurpleRed = _RGB32(128, 0, 192)
3001. End Function ' cPurpleRed~&
3002.  
3003. Function cDarkRed~& ()
3004.     cDarkRed = _RGB32(160, 0, 64)
3005. End Function ' cDarkRed~&
3006.  
3007. Function cBrickRed~& ()
3008.     cBrickRed = _RGB32(192, 0, 32)
3009. End Function ' cBrickRed~&
3010.  
3011. Function cDarkGreen~& ()
3012.     cDarkGreen = _RGB32(0, 100, 0)
3013. End Function ' cDarkGreen~&
3014.  
3015. Function cGreen~& ()
3016.     cGreen = _RGB32(0, 128, 0)
3017. End Function ' cGreen~&
3018.  
3019. Function cOliveDrab~& ()
3020.     cOliveDrab = _RGB32(107, 142, 35)
3021. End Function ' cOliveDrab~&
3022.  
3023. Function cLightPink~& ()
3024.     cLightPink = _RGB32(255, 182, 193)
3025. End Function ' cLightPink~&
3026.  
3027. Function cHotPink~& ()
3028.     cHotPink = _RGB32(255, 105, 180)
3029. End Function ' cHotPink~&
3030.  
3031. Function cDeepPink~& ()
3032.     cDeepPink = _RGB32(255, 20, 147)
3033. End Function ' cDeepPink~&
3034.  
3035. Function cMagenta~& ()
3036.     cMagenta = _RGB32(255, 0, 255)
3037. End Function ' cMagenta~&
3038.  
3039. Function cBlack~& ()
3040.     cBlack = _RGB32(0, 0, 0)
3041. End Function ' cBlack~&
3042.  
3043. Function cDimGray~& ()
3044.     cDimGray = _RGB32(105, 105, 105)
3045. End Function ' cDimGray~&
3046.  
3047. Function cGray~& ()
3048.     cGray = _RGB32(128, 128, 128)
3049. End Function ' cGray~&
3050.  
3051. Function cDarkGray~& ()
3052.     cDarkGray = _RGB32(169, 169, 169)
3053. End Function ' cDarkGray~&
3054.  
3055. Function cSilver~& ()
3056.     cSilver = _RGB32(192, 192, 192)
3057. End Function ' cSilver~&
3058.  
3059. Function cLightGray~& ()
3060.     cLightGray = _RGB32(211, 211, 211)
3061. End Function ' cLightGray~&
3062.  
3063. Function cGainsboro~& ()
3064.     cGainsboro = _RGB32(220, 220, 220)
3065. End Function ' cGainsboro~&
3066.  
3067. Function cWhiteSmoke~& ()
3068.     cWhiteSmoke = _RGB32(245, 245, 245)
3069. End Function ' cWhiteSmoke~&
3070.  
3071. Function cWhite~& ()
3072.     cWhite = _RGB32(255, 255, 255)
3073.     'cWhite = _RGB32(254, 254, 254)
3074. End Function ' cWhite~&
3075.  
3076. Function cDarkBrown~& ()
3077.     cDarkBrown = _RGB32(128, 64, 0)
3078. End Function ' cDarkBrown~&
3079.  
3080. Function cLightBrown~& ()
3081.     cLightBrown = _RGB32(196, 96, 0)
3082. End Function ' cLightBrown~&
3083.  
3084. Function cKhaki~& ()
3085.     cKhaki = _RGB32(240, 230, 140)
3086. End Function ' cKhaki~&
3087.  
3088. Function cEmpty~& ()
3089.     'cEmpty~& = -1
3090.     cEmpty = _RGB32(0, 0, 0, 0)
3091. End Function ' cEmpty~&
3092.  
3093. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3094. ' END COLOR FUNCTIONS
3095. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3096.  
3097. ' ################################################################################################################################################################
3098. ' BEGIN GENERAL PURPOSE ROUTINES
3099. ' ################################################################################################################################################################
3100.  
3101. ' /////////////////////////////////////////////////////////////////////////////
3102. ' Convert a value to string and trim it (because normal Str$ adds spaces)
3103.  
3104. Function cstr$ (myValue)
3105.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
3106.     cstr$ = _Trim$(Str$(myValue))
3107. End Function ' cstr$
3108.  
3109. ' /////////////////////////////////////////////////////////////////////////////
3110.  
3111. Function CurrentDateTime$
3112.     CurrentDateTime$ = Mid$(Date$, 7, 4) + "-" + _
3113.         Mid$(Date$, 1, 5) + " " + _
3114.         Time$
3115. End Function ' CurrentDateTime$
3116.  
3117. ' /////////////////////////////////////////////////////////////////////////////
3118.  
3119. Function IIF (Condition, IfTrue, IfFalse)
3120.     If Condition Then IIF = IfTrue Else IIF = IfFalse
3121. End Function
3122.  
3123. ' /////////////////////////////////////////////////////////////////////////////
3124.  
3125. Function IIFSTR$ (Condition, IfTrue$, IfFalse$)
3126.     If Condition Then IIFSTR$ = IfTrue$ Else IIFSTR$ = IfFalse$
3127. End Function
3128.  
3129. ' /////////////////////////////////////////////////////////////////////////////
3130. ' By sMcNeill from https://www.qb64.org/forum/index.php?topic=896.0
3131.  
3132. Function IsNum% (text$)
3133.     Dim a$
3134.     Dim b$
3135.     a$ = _Trim$(text$)
3136.     b$ = _Trim$(Str$(Val(text$)))
3137.     If a$ = b$ Then
3138.         IsNum% = TRUE
3139.     Else
3140.         IsNum% = FALSE
3141.     End If
3142. End Function ' IsNum%
3143.  
3144. ' /////////////////////////////////////////////////////////////////////////////
3145. ' FROM: String Manipulation
3146. ' found at abandoned, outdated and now likely malicious qb64 dot net website
3147. ' http://www.qb64.[net]/forum/index_topic_5964-0/
3148. '
3149. 'SUMMARY:
3150. '   Purpose:  A library of custom functions that transform strings.
3151. '   Author:   Dustinian Camburides (dustinian@gmail.com)
3152. '   Platform: QB64 (www.qb64.org)
3153. '   Revision: 1.6
3154. '   Updated:  5/28/2012
3155.  
3156. 'SUMMARY:
3157. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
3158. 'INPUT:
3159. 'Text: The input string; the text that's being manipulated.
3160. 'Find: The specified sub-string; the string sought within the [Text] string.
3161. 'Add: The sub-string that's being added to the [Text] string.
3162.  
3163. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
3164.     ' VARIABLES:
3165.     Dim Text2 As String
3166.     Dim Find2 As String
3167.     Dim Add2 As String
3168.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
3169.     Dim strBefore As String ' The characters before the string to be replaced.
3170.     Dim strAfter As String ' The characters after the string to be replaced.
3171.  
3172.     ' INITIALIZE:
3173.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
3174.     Text2 = Text1
3175.     Find2 = Find1
3176.     Add2 = Add1
3177.  
3178.     lngLocation = InStr(1, Text2, Find2)
3179.  
3180.     ' PROCESSING:
3181.     ' While [Find2] appears in [Text2]...
3182.     While lngLocation
3183.         ' Extract all Text2 before the [Find2] substring:
3184.         strBefore = Left$(Text2, lngLocation - 1)
3185.  
3186.         ' Extract all text after the [Find2] substring:
3187.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
3188.  
3189.         ' Return the substring:
3190.         Text2 = strBefore + Add2 + strAfter
3191.  
3192.         ' Locate the next instance of [Find2]:
3193.         lngLocation = InStr(1, Text2, Find2)
3194.  
3195.         ' Next instance of [Find2]...
3196.     Wend
3197.  
3198.     ' OUTPUT:
3199.     Replace$ = Text2
3200. End Function ' Replace$
3201.  
3202. ' /////////////////////////////////////////////////////////////////////////////
3203. ' Split and join strings
3204. ' https://www.qb64.org/forum/index.php?topic=1073.0
3205. '
3206. ' FROM luke, QB64 Developer
3207. ' Date: February 15, 2019, 04:11:07 AM
3208. '
3209. ' Given a string of words separated by spaces (or any other character),
3210. ' splits it into an array of the words. I've no doubt many people have
3211. ' written a version of this over the years and no doubt there's a million
3212. ' ways to do it, but I thought I'd put mine here so we have at least one
3213. ' version. There's also a join function that does the opposite
3214. ' array -> single string.
3215. '
3216. ' Code is hopefully reasonably self explanatory with comments and a little demo.
3217. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
3218.  
3219. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
3220. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
3221. '
3222. 'delimiter$ must be one character long.
3223. 'result$() must have been REDIMmed previously.
3224.  
3225. ' Modified to handle multi-character delimiters
3226.  
3227. Sub split (in$, delimiter$, result$())
3228.     Dim start As Integer
3229.     Dim finish As Integer
3230.     Dim iDelimLen As Integer
3231.     ReDim result$(-1)
3232.  
3233.     iDelimLen = Len(delimiter$)
3234.  
3235.     start = 1
3236.     Do
3237.         'While Mid$(in$, start, 1) = delimiter$
3238.         While Mid$(in$, start, iDelimLen) = delimiter$
3239.             'start = start + 1
3240.             start = start + iDelimLen
3241.             If start > Len(in$) Then
3242.                 Exit Sub
3243.             End If
3244.         Wend
3245.         finish = InStr(start, in$, delimiter$)
3246.         If finish = 0 Then
3247.             finish = Len(in$) + 1
3248.         End If
3249.  
3250.         ReDim _Preserve result$(0 To UBound(result$) + 1)
3251.  
3252.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
3253.         start = finish + 1
3254.     Loop While start <= Len(in$)
3255. End Sub ' split
3256.  
3257. ' /////////////////////////////////////////////////////////////////////////////
3258.  
3259. Function TrueFalse$ (myValue)
3260.     If myValue = TRUE Then
3261.         TrueFalse$ = "TRUE"
3262.     Else
3263.         TrueFalse$ = "FALSE"
3264.     End If
3265. End Function ' TrueFalse$
3266.  
3267. ' ################################################################################################################################################################
3268. ' END GENERAL PURPOSE ROUTINES
3269. ' ################################################################################################################################################################
3270.  
3271. ' ################################################################################################################################################################
3272. ' BEGIN TILE DEFINITIONS
3273. ' ################################################################################################################################################################
3274.  
3275. ' /////////////////////////////////////////////////////////////////////////////
3276. ' Returns an array of 256 8x8 tiles defined in text
3277. ' where each tile is defined by "." as blank and anything else is a pixel
3278. ' and each row is delimited by chr$(13)
3279.  
3280. Sub GetTileText (arrTileText() As String)
3281.     ReDim arrTileText(0 To 255) As String
3282.  
3283.     m$ = ""
3284.     m$ = m$ + "22....22" + Chr$(13)
3285.     m$ = m$ + "2..22..2" + Chr$(13)
3286.     m$ = m$ + "2..2...2" + Chr$(13)
3287.     m$ = m$ + "2...2..2" + Chr$(13)
3288.     m$ = m$ + "2..22..2" + Chr$(13)
3289.     m$ = m$ + "2..22..2" + Chr$(13)
3290.     m$ = m$ + "22....22" + Chr$(13)
3291.     m$ = m$ + "22222222" + Chr$(13)
3292.     arrTileText(0) = m$
3293.  
3294.     m$ = ""
3295.     m$ = m$ + "........" + Chr$(13)
3296.     m$ = m$ + "........" + Chr$(13)
3297.     m$ = m$ + "........" + Chr$(13)
3298.     m$ = m$ + "........" + Chr$(13)
3299.     m$ = m$ + "........" + Chr$(13)
3300.     m$ = m$ + "........" + Chr$(13)
3301.     m$ = m$ + "........" + Chr$(13)
3302.     m$ = m$ + "........" + Chr$(13)
3303.     arrTileText(1) = m$
3304.  
3305.     m$ = ""
3306.     m$ = m$ + "........" + Chr$(13)
3307.     m$ = m$ + "........" + Chr$(13)
3308.     m$ = m$ + "........" + Chr$(13)
3309.     m$ = m$ + "........" + Chr$(13)
3310.     m$ = m$ + "........" + Chr$(13)
3311.     m$ = m$ + "........" + Chr$(13)
3312.     m$ = m$ + "........" + Chr$(13)
3313.     m$ = m$ + "........" + Chr$(13)
3314.     arrTileText(2) = m$
3315.  
3316.     m$ = ""
3317.     m$ = m$ + "........" + Chr$(13)
3318.     m$ = m$ + "........" + Chr$(13)
3319.     m$ = m$ + "........" + Chr$(13)
3320.     m$ = m$ + "........" + Chr$(13)
3321.     m$ = m$ + "........" + Chr$(13)
3322.     m$ = m$ + "........" + Chr$(13)
3323.     m$ = m$ + "........" + Chr$(13)
3324.     m$ = m$ + "........" + Chr$(13)
3325.     arrTileText(3) = m$
3326.  
3327.     m$ = ""
3328.     m$ = m$ + "........" + Chr$(13)
3329.     m$ = m$ + "........" + Chr$(13)
3330.     m$ = m$ + "........" + Chr$(13)
3331.     m$ = m$ + "........" + Chr$(13)
3332.     m$ = m$ + "........" + Chr$(13)
3333.     m$ = m$ + "........" + Chr$(13)
3334.     m$ = m$ + "........" + Chr$(13)
3335.     m$ = m$ + "........" + Chr$(13)
3336.     arrTileText(4) = m$
3337.  
3338.     m$ = ""
3339.     m$ = m$ + "........" + Chr$(13)
3340.     m$ = m$ + "........" + Chr$(13)
3341.     m$ = m$ + "........" + Chr$(13)
3342.     m$ = m$ + "........" + Chr$(13)
3343.     m$ = m$ + "........" + Chr$(13)
3344.     m$ = m$ + "........" + Chr$(13)
3345.     m$ = m$ + "........" + Chr$(13)
3346.     m$ = m$ + "........" + Chr$(13)
3347.     arrTileText(5) = m$
3348.  
3349.     m$ = ""
3350.     m$ = m$ + "........" + Chr$(13)
3351.     m$ = m$ + "........" + Chr$(13)
3352.     m$ = m$ + "........" + Chr$(13)
3353.     m$ = m$ + "........" + Chr$(13)
3354.     m$ = m$ + "........" + Chr$(13)
3355.     m$ = m$ + "........" + Chr$(13)
3356.     m$ = m$ + "........" + Chr$(13)
3357.     m$ = m$ + "........" + Chr$(13)
3358.     arrTileText(6) = m$
3359.  
3360.     m$ = ""
3361.     m$ = m$ + "........" + Chr$(13)
3362.     m$ = m$ + "........" + Chr$(13)
3363.     m$ = m$ + "........" + Chr$(13)
3364.     m$ = m$ + "........" + Chr$(13)
3365.     m$ = m$ + "........" + Chr$(13)
3366.     m$ = m$ + "........" + Chr$(13)
3367.     m$ = m$ + "........" + Chr$(13)
3368.     m$ = m$ + "........" + Chr$(13)
3369.     arrTileText(7) = m$
3370.  
3371.     m$ = ""
3372.     m$ = m$ + "........" + Chr$(13)
3373.     m$ = m$ + "........" + Chr$(13)
3374.     m$ = m$ + "........" + Chr$(13)
3375.     m$ = m$ + "........" + Chr$(13)
3376.     m$ = m$ + "........" + Chr$(13)
3377.     m$ = m$ + "........" + Chr$(13)
3378.     m$ = m$ + "........" + Chr$(13)
3379.     m$ = m$ + "........" + Chr$(13)
3380.     arrTileText(8) = m$
3381.  
3382.     m$ = ""
3383.     m$ = m$ + "........" + Chr$(13)
3384.     m$ = m$ + "........" + Chr$(13)
3385.     m$ = m$ + "........" + Chr$(13)
3386.     m$ = m$ + "........" + Chr$(13)
3387.     m$ = m$ + "........" + Chr$(13)
3388.     m$ = m$ + "........" + Chr$(13)
3389.     m$ = m$ + "........" + Chr$(13)
3390.     m$ = m$ + "........" + Chr$(13)
3391.     arrTileText(9) = m$
3392.  
3393.     m$ = ""
3394.     m$ = m$ + "........" + Chr$(13)
3395.     m$ = m$ + "........" + Chr$(13)
3396.     m$ = m$ + "........" + Chr$(13)
3397.     m$ = m$ + "........" + Chr$(13)
3398.     m$ = m$ + "........" + Chr$(13)
3399.     m$ = m$ + "........" + Chr$(13)
3400.     m$ = m$ + "........" + Chr$(13)
3401.     m$ = m$ + "........" + Chr$(13)
3402.     arrTileText(10) = m$
3403.  
3404.     m$ = ""
3405.     m$ = m$ + "........" + Chr$(13)
3406.     m$ = m$ + "........" + Chr$(13)
3407.     m$ = m$ + "........" + Chr$(13)
3408.     m$ = m$ + "........" + Chr$(13)
3409.     m$ = m$ + "........" + Chr$(13)
3410.     m$ = m$ + "........" + Chr$(13)
3411.     m$ = m$ + "........" + Chr$(13)
3412.     m$ = m$ + "........" + Chr$(13)
3413.     arrTileText(11) = m$
3414.  
3415.     m$ = ""
3416.     m$ = m$ + "........" + Chr$(13)
3417.     m$ = m$ + "........" + Chr$(13)
3418.     m$ = m$ + "........" + Chr$(13)
3419.     m$ = m$ + "........" + Chr$(13)
3420.     m$ = m$ + "........" + Chr$(13)
3421.     m$ = m$ + "........" + Chr$(13)
3422.     m$ = m$ + "........" + Chr$(13)
3423.     m$ = m$ + "........" + Chr$(13)
3424.     arrTileText(12) = m$
3425.  
3426.     m$ = ""
3427.     m$ = m$ + "........" + Chr$(13)
3428.     m$ = m$ + "........" + Chr$(13)
3429.     m$ = m$ + "........" + Chr$(13)
3430.     m$ = m$ + "........" + Chr$(13)
3431.     m$ = m$ + "........" + Chr$(13)
3432.     m$ = m$ + "........" + Chr$(13)
3433.     m$ = m$ + "........" + Chr$(13)
3434.     m$ = m$ + "........" + Chr$(13)
3435.     arrTileText(13) = m$
3436.  
3437.     m$ = ""
3438.     m$ = m$ + "........" + Chr$(13)
3439.     m$ = m$ + "........" + Chr$(13)
3440.     m$ = m$ + "........" + Chr$(13)
3441.     m$ = m$ + "........" + Chr$(13)
3442.     m$ = m$ + "........" + Chr$(13)
3443.     m$ = m$ + "........" + Chr$(13)
3444.     m$ = m$ + "........" + Chr$(13)
3445.     m$ = m$ + "........" + Chr$(13)
3446.     arrTileText(14) = m$
3447.  
3448.     m$ = ""
3449.     m$ = m$ + "........" + Chr$(13)
3450.     m$ = m$ + "........" + Chr$(13)
3451.     m$ = m$ + "........" + Chr$(13)
3452.     m$ = m$ + "........" + Chr$(13)
3453.     m$ = m$ + "........" + Chr$(13)
3454.     m$ = m$ + "........" + Chr$(13)
3455.     m$ = m$ + "........" + Chr$(13)
3456.     m$ = m$ + "........" + Chr$(13)
3457.     arrTileText(15) = m$
3458.  
3459.     m$ = ""
3460.     m$ = m$ + "........" + Chr$(13)
3461.     m$ = m$ + "........" + Chr$(13)
3462.     m$ = m$ + "........" + Chr$(13)
3463.     m$ = m$ + "........" + Chr$(13)
3464.     m$ = m$ + "........" + Chr$(13)
3465.     m$ = m$ + "........" + Chr$(13)
3466.     m$ = m$ + "........" + Chr$(13)
3467.     m$ = m$ + "........" + Chr$(13)
3468.     arrTileText(16) = m$
3469.  
3470.     m$ = ""
3471.     m$ = m$ + "........" + Chr$(13)
3472.     m$ = m$ + "........" + Chr$(13)
3473.     m$ = m$ + "........" + Chr$(13)
3474.     m$ = m$ + "........" + Chr$(13)
3475.     m$ = m$ + "........" + Chr$(13)
3476.     m$ = m$ + "........" + Chr$(13)
3477.     m$ = m$ + "........" + Chr$(13)
3478.     m$ = m$ + "........" + Chr$(13)
3479.     arrTileText(17) = m$
3480.  
3481.     m$ = ""
3482.     m$ = m$ + "........" + Chr$(13)
3483.     m$ = m$ + "........" + Chr$(13)
3484.     m$ = m$ + "........" + Chr$(13)
3485.     m$ = m$ + "........" + Chr$(13)
3486.     m$ = m$ + "........" + Chr$(13)
3487.     m$ = m$ + "........" + Chr$(13)
3488.     m$ = m$ + "........" + Chr$(13)
3489.     m$ = m$ + "........" + Chr$(13)
3490.     arrTileText(18) = m$
3491.  
3492.     m$ = ""
3493.     m$ = m$ + "........" + Chr$(13)
3494.     m$ = m$ + "........" + Chr$(13)
3495.     m$ = m$ + "........" + Chr$(13)
3496.     m$ = m$ + "........" + Chr$(13)
3497.     m$ = m$ + "........" + Chr$(13)
3498.     m$ = m$ + "........" + Chr$(13)
3499.     m$ = m$ + "........" + Chr$(13)
3500.     m$ = m$ + "........" + Chr$(13)
3501.     arrTileText(19) = m$
3502.  
3503.     m$ = ""
3504.     m$ = m$ + "........" + Chr$(13)
3505.     m$ = m$ + "........" + Chr$(13)
3506.     m$ = m$ + "........" + Chr$(13)
3507.     m$ = m$ + "........" + Chr$(13)
3508.     m$ = m$ + "........" + Chr$(13)
3509.     m$ = m$ + "........" + Chr$(13)
3510.     m$ = m$ + "........" + Chr$(13)
3511.     m$ = m$ + "........" + Chr$(13)
3512.     arrTileText(20) = m$
3513.  
3514.     m$ = ""
3515.     m$ = m$ + "........" + Chr$(13)
3516.     m$ = m$ + "........" + Chr$(13)
3517.     m$ = m$ + "........" + Chr$(13)
3518.     m$ = m$ + "........" + Chr$(13)
3519.     m$ = m$ + "........" + Chr$(13)
3520.     m$ = m$ + "........" + Chr$(13)
3521.     m$ = m$ + "........" + Chr$(13)
3522.     m$ = m$ + "........" + Chr$(13)
3523.     arrTileText(21) = m$
3524.  
3525.     m$ = ""
3526.     m$ = m$ + "........" + Chr$(13)
3527.     m$ = m$ + "........" + Chr$(13)
3528.     m$ = m$ + "........" + Chr$(13)
3529.     m$ = m$ + "........" + Chr$(13)
3530.     m$ = m$ + "........" + Chr$(13)
3531.     m$ = m$ + "........" + Chr$(13)
3532.     m$ = m$ + "........" + Chr$(13)
3533.     m$ = m$ + "........" + Chr$(13)
3534.     arrTileText(22) = m$
3535.  
3536.     m$ = ""
3537.     m$ = m$ + "........" + Chr$(13)
3538.     m$ = m$ + "........" + Chr$(13)
3539.     m$ = m$ + "........" + Chr$(13)
3540.     m$ = m$ + "........" + Chr$(13)
3541.     m$ = m$ + "........" + Chr$(13)
3542.     m$ = m$ + "........" + Chr$(13)
3543.     m$ = m$ + "........" + Chr$(13)
3544.     m$ = m$ + "........" + Chr$(13)
3545.     arrTileText(23) = m$
3546.  
3547.     m$ = ""
3548.     m$ = m$ + "........" + Chr$(13)
3549.     m$ = m$ + "........" + Chr$(13)
3550.     m$ = m$ + "........" + Chr$(13)
3551.     m$ = m$ + "........" + Chr$(13)
3552.     m$ = m$ + "........" + Chr$(13)
3553.     m$ = m$ + "........" + Chr$(13)
3554.     m$ = m$ + "........" + Chr$(13)
3555.     m$ = m$ + "........" + Chr$(13)
3556.     arrTileText(24) = m$
3557.  
3558.     m$ = ""
3559.     m$ = m$ + "........" + Chr$(13)
3560.     m$ = m$ + "........" + Chr$(13)
3561.     m$ = m$ + "........" + Chr$(13)
3562.     m$ = m$ + "........" + Chr$(13)
3563.     m$ = m$ + "........" + Chr$(13)
3564.     m$ = m$ + "........" + Chr$(13)
3565.     m$ = m$ + "........" + Chr$(13)
3566.     m$ = m$ + "........" + Chr$(13)
3567.     arrTileText(25) = m$
3568.  
3569.     m$ = ""
3570.     m$ = m$ + "........" + Chr$(13)
3571.     m$ = m$ + "........" + Chr$(13)
3572.     m$ = m$ + "........" + Chr$(13)
3573.     m$ = m$ + "........" + Chr$(13)
3574.     m$ = m$ + "........" + Chr$(13)
3575.     m$ = m$ + "........" + Chr$(13)
3576.     m$ = m$ + "........" + Chr$(13)
3577.     m$ = m$ + "........" + Chr$(13)
3578.     arrTileText(26) = m$
3579.  
3580.     m$ = ""
3581.     m$ = m$ + "........" + Chr$(13)
3582.     m$ = m$ + "........" + Chr$(13)
3583.     m$ = m$ + "........" + Chr$(13)
3584.     m$ = m$ + "........" + Chr$(13)
3585.     m$ = m$ + "........" + Chr$(13)
3586.     m$ = m$ + "........" + Chr$(13)
3587.     m$ = m$ + "........" + Chr$(13)
3588.     m$ = m$ + "........" + Chr$(13)
3589.     arrTileText(27) = m$
3590.  
3591.     m$ = ""
3592.     m$ = m$ + "........" + Chr$(13)
3593.     m$ = m$ + "........" + Chr$(13)
3594.     m$ = m$ + "........" + Chr$(13)
3595.     m$ = m$ + "........" + Chr$(13)
3596.     m$ = m$ + "........" + Chr$(13)
3597.     m$ = m$ + "........" + Chr$(13)
3598.     m$ = m$ + "........" + Chr$(13)
3599.     m$ = m$ + "........" + Chr$(13)
3600.     arrTileText(28) = m$
3601.  
3602.     m$ = ""
3603.     m$ = m$ + "........" + Chr$(13)
3604.     m$ = m$ + "........" + Chr$(13)
3605.     m$ = m$ + "........" + Chr$(13)
3606.     m$ = m$ + "........" + Chr$(13)
3607.     m$ = m$ + "........" + Chr$(13)
3608.     m$ = m$ + "........" + Chr$(13)
3609.     m$ = m$ + "........" + Chr$(13)
3610.     m$ = m$ + "........" + Chr$(13)
3611.     arrTileText(29) = m$
3612.  
3613.     m$ = ""
3614.     m$ = m$ + "........" + Chr$(13)
3615.     m$ = m$ + "........" + Chr$(13)
3616.     m$ = m$ + "........" + Chr$(13)
3617.     m$ = m$ + "........" + Chr$(13)
3618.     m$ = m$ + "........" + Chr$(13)
3619.     m$ = m$ + "........" + Chr$(13)
3620.     m$ = m$ + "........" + Chr$(13)
3621.     m$ = m$ + "........" + Chr$(13)
3622.     arrTileText(30) = m$
3623.  
3624.     m$ = ""
3625.     m$ = m$ + "........" + Chr$(13)
3626.     m$ = m$ + "........" + Chr$(13)
3627.     m$ = m$ + "........" + Chr$(13)
3628.     m$ = m$ + "........" + Chr$(13)
3629.     m$ = m$ + "........" + Chr$(13)
3630.     m$ = m$ + "........" + Chr$(13)
3631.     m$ = m$ + "........" + Chr$(13)
3632.     m$ = m$ + "........" + Chr$(13)
3633.     arrTileText(31) = m$
3634.  
3635.     m$ = ""
3636.     m$ = m$ + "........" + Chr$(13)
3637.     m$ = m$ + "........" + Chr$(13)
3638.     m$ = m$ + "........" + Chr$(13)
3639.     m$ = m$ + "........" + Chr$(13)
3640.     m$ = m$ + "........" + Chr$(13)
3641.     m$ = m$ + "........" + Chr$(13)
3642.     m$ = m$ + "........" + Chr$(13)
3643.     m$ = m$ + "........" + Chr$(13)
3644.     arrTileText(32) = m$
3645.  
3646.     m$ = ""
3647.     m$ = m$ + "...22..." + Chr$(13)
3648.     m$ = m$ + "...22..." + Chr$(13)
3649.     m$ = m$ + "...22..." + Chr$(13)
3650.     m$ = m$ + "...22..." + Chr$(13)
3651.     m$ = m$ + "........" + Chr$(13)
3652.     m$ = m$ + "........" + Chr$(13)
3653.     m$ = m$ + "...22..." + Chr$(13)
3654.     m$ = m$ + "........" + Chr$(13)
3655.     arrTileText(33) = m$
3656.  
3657.     m$ = ""
3658.     m$ = m$ + ".22..22." + Chr$(13)
3659.     m$ = m$ + ".22..22." + Chr$(13)
3660.     m$ = m$ + ".22..22." + Chr$(13)
3661.     m$ = m$ + "........" + Chr$(13)
3662.     m$ = m$ + "........" + Chr$(13)
3663.     m$ = m$ + "........" + Chr$(13)
3664.     m$ = m$ + "........" + Chr$(13)
3665.     m$ = m$ + "........" + Chr$(13)
3666.     arrTileText(34) = m$
3667.  
3668.     m$ = ""
3669.     m$ = m$ + ".22..22." + Chr$(13)
3670.     m$ = m$ + ".22..22." + Chr$(13)
3671.     m$ = m$ + "22222222" + Chr$(13)
3672.     m$ = m$ + ".22..22." + Chr$(13)
3673.     m$ = m$ + "22222222" + Chr$(13)
3674.     m$ = m$ + ".22..22." + Chr$(13)
3675.     m$ = m$ + ".22..22." + Chr$(13)
3676.     m$ = m$ + "........" + Chr$(13)
3677.     arrTileText(35) = m$
3678.  
3679.     m$ = ""
3680.     m$ = m$ + "...22..." + Chr$(13)
3681.     m$ = m$ + "..22222." + Chr$(13)
3682.     m$ = m$ + ".22....." + Chr$(13)
3683.     m$ = m$ + "..2222.." + Chr$(13)
3684.     m$ = m$ + ".....22." + Chr$(13)
3685.     m$ = m$ + ".22222.." + Chr$(13)
3686.     m$ = m$ + "...22..." + Chr$(13)
3687.     m$ = m$ + "........" + Chr$(13)
3688.     arrTileText(36) = m$
3689.  
3690.     m$ = ""
3691.     m$ = m$ + ".22...2." + Chr$(13)
3692.     m$ = m$ + ".22..22." + Chr$(13)
3693.     m$ = m$ + "....22.." + Chr$(13)
3694.     m$ = m$ + "...22..." + Chr$(13)
3695.     m$ = m$ + "..22...." + Chr$(13)
3696.     m$ = m$ + ".22..22." + Chr$(13)
3697.     m$ = m$ + ".2...22." + Chr$(13)
3698.     m$ = m$ + "........" + Chr$(13)
3699.     arrTileText(37) = m$
3700.  
3701.     m$ = ""
3702.     m$ = m$ + "..2222.." + Chr$(13)
3703.     m$ = m$ + ".22..22." + Chr$(13)
3704.     m$ = m$ + "..2222.." + Chr$(13)
3705.     m$ = m$ + "..222..." + Chr$(13)
3706.     m$ = m$ + ".22..222" + Chr$(13)
3707.     m$ = m$ + ".22..22." + Chr$(13)
3708.     m$ = m$ + "..222222" + Chr$(13)
3709.     m$ = m$ + "........" + Chr$(13)
3710.     arrTileText(38) = m$
3711.  
3712.     m$ = ""
3713.     m$ = m$ + ".....22." + Chr$(13)
3714.     m$ = m$ + "....22.." + Chr$(13)
3715.     m$ = m$ + "...22..." + Chr$(13)
3716.     m$ = m$ + "........" + Chr$(13)
3717.     m$ = m$ + "........" + Chr$(13)
3718.     m$ = m$ + "........" + Chr$(13)
3719.     m$ = m$ + "........" + Chr$(13)
3720.     m$ = m$ + "........" + Chr$(13)
3721.     arrTileText(39) = m$
3722.  
3723.     m$ = ""
3724.     m$ = m$ + "....22.." + Chr$(13)
3725.     m$ = m$ + "...22..." + Chr$(13)
3726.     m$ = m$ + "..22...." + Chr$(13)
3727.     m$ = m$ + "..22...." + Chr$(13)
3728.     m$ = m$ + "..22...." + Chr$(13)
3729.     m$ = m$ + "...22..." + Chr$(13)
3730.     m$ = m$ + "....22.." + Chr$(13)
3731.     m$ = m$ + "........" + Chr$(13)
3732.     arrTileText(40) = m$
3733.  
3734.     m$ = ""
3735.     m$ = m$ + "..22...." + Chr$(13)
3736.     m$ = m$ + "...22..." + Chr$(13)
3737.     m$ = m$ + "....22.." + Chr$(13)
3738.     m$ = m$ + "....22.." + Chr$(13)
3739.     m$ = m$ + "....22.." + Chr$(13)
3740.     m$ = m$ + "...22..." + Chr$(13)
3741.     m$ = m$ + "..22...." + Chr$(13)
3742.     m$ = m$ + "........" + Chr$(13)
3743.     arrTileText(41) = m$
3744.  
3745.     m$ = ""
3746.     m$ = m$ + "........" + Chr$(13)
3747.     m$ = m$ + ".22..22." + Chr$(13)
3748.     m$ = m$ + "..2222.." + Chr$(13)
3749.     m$ = m$ + "22222222" + Chr$(13)
3750.     m$ = m$ + "..2222.." + Chr$(13)
3751.     m$ = m$ + ".22..22." + Chr$(13)
3752.     m$ = m$ + "........" + Chr$(13)
3753.     m$ = m$ + "........" + Chr$(13)
3754.     arrTileText(42) = m$
3755.  
3756.     m$ = ""
3757.     m$ = m$ + "........" + Chr$(13)
3758.     m$ = m$ + "...22..." + Chr$(13)
3759.     m$ = m$ + "...22..." + Chr$(13)
3760.     m$ = m$ + ".222222." + Chr$(13)
3761.     m$ = m$ + "...22..." + Chr$(13)
3762.     m$ = m$ + "...22..." + Chr$(13)
3763.     m$ = m$ + "........" + Chr$(13)
3764.     m$ = m$ + "........" + Chr$(13)
3765.     arrTileText(43) = m$
3766.  
3767.     m$ = ""
3768.     m$ = m$ + "........" + Chr$(13)
3769.     m$ = m$ + "........" + Chr$(13)
3770.     m$ = m$ + "........" + Chr$(13)
3771.     m$ = m$ + "........" + Chr$(13)
3772.     m$ = m$ + "........" + Chr$(13)
3773.     m$ = m$ + "...22..." + Chr$(13)
3774.     m$ = m$ + "...22..." + Chr$(13)
3775.     m$ = m$ + "..22...." + Chr$(13)
3776.     arrTileText(44) = m$
3777.  
3778.     m$ = ""
3779.     m$ = m$ + "........" + Chr$(13)
3780.     m$ = m$ + "........" + Chr$(13)
3781.     m$ = m$ + "........" + Chr$(13)
3782.     m$ = m$ + ".222222." + Chr$(13)
3783.     m$ = m$ + "........" + Chr$(13)
3784.     m$ = m$ + "........" + Chr$(13)
3785.     m$ = m$ + "........" + Chr$(13)
3786.     m$ = m$ + "........" + Chr$(13)
3787.     arrTileText(45) = m$
3788.  
3789.     m$ = ""
3790.     m$ = m$ + "........" + Chr$(13)
3791.     m$ = m$ + "........" + Chr$(13)
3792.     m$ = m$ + "........" + Chr$(13)
3793.     m$ = m$ + "........" + Chr$(13)
3794.     m$ = m$ + "........" + Chr$(13)
3795.     m$ = m$ + "...22..." + Chr$(13)
3796.     m$ = m$ + "...22..." + Chr$(13)
3797.     m$ = m$ + "........" + Chr$(13)
3798.     arrTileText(46) = m$
3799.  
3800.     m$ = ""
3801.     m$ = m$ + "........" + Chr$(13)
3802.     m$ = m$ + "......22" + Chr$(13)
3803.     m$ = m$ + ".....22." + Chr$(13)
3804.     m$ = m$ + "....22.." + Chr$(13)
3805.     m$ = m$ + "...22..." + Chr$(13)
3806.     m$ = m$ + "..22...." + Chr$(13)
3807.     m$ = m$ + ".22....." + Chr$(13)
3808.     m$ = m$ + "........" + Chr$(13)
3809.     arrTileText(47) = m$
3810.  
3811.     m$ = ""
3812.     m$ = m$ + "..2222.." + Chr$(13)
3813.     m$ = m$ + ".22..22." + Chr$(13)
3814.     m$ = m$ + ".22.222." + Chr$(13)
3815.     m$ = m$ + ".222.22." + Chr$(13)
3816.     m$ = m$ + ".22..22." + Chr$(13)
3817.     m$ = m$ + ".22..22." + Chr$(13)
3818.     m$ = m$ + "..2222.." + Chr$(13)
3819.     m$ = m$ + "........" + Chr$(13)
3820.     arrTileText(48) = m$
3821.  
3822.     m$ = ""
3823.     m$ = m$ + "...22..." + Chr$(13)
3824.     m$ = m$ + "...22..." + Chr$(13)
3825.     m$ = m$ + "..222..." + Chr$(13)
3826.     m$ = m$ + "...22..." + Chr$(13)
3827.     m$ = m$ + "...22..." + Chr$(13)
3828.     m$ = m$ + "...22..." + Chr$(13)
3829.     m$ = m$ + ".222222." + Chr$(13)
3830.     m$ = m$ + "........" + Chr$(13)
3831.     arrTileText(49) = m$
3832.  
3833.     m$ = ""
3834.     m$ = m$ + "..2222.." + Chr$(13)
3835.     m$ = m$ + ".22..22." + Chr$(13)
3836.     m$ = m$ + ".....22." + Chr$(13)
3837.     m$ = m$ + "....22.." + Chr$(13)
3838.     m$ = m$ + "..22...." + Chr$(13)
3839.     m$ = m$ + ".22....." + Chr$(13)
3840.     m$ = m$ + ".222222." + Chr$(13)
3841.     m$ = m$ + "........" + Chr$(13)
3842.     arrTileText(50) = m$
3843.  
3844.     m$ = ""
3845.     m$ = m$ + "..2222.." + Chr$(13)
3846.     m$ = m$ + ".22..22." + Chr$(13)
3847.     m$ = m$ + ".....22." + Chr$(13)
3848.     m$ = m$ + "...222.." + Chr$(13)
3849.     m$ = m$ + ".....22." + Chr$(13)
3850.     m$ = m$ + ".22..22." + Chr$(13)
3851.     m$ = m$ + "..2222.." + Chr$(13)
3852.     m$ = m$ + "........" + Chr$(13)
3853.     arrTileText(51) = m$
3854.  
3855.     m$ = ""
3856.     m$ = m$ + ".....22." + Chr$(13)
3857.     m$ = m$ + "....222." + Chr$(13)
3858.     m$ = m$ + "...2222." + Chr$(13)
3859.     m$ = m$ + ".22..22." + Chr$(13)
3860.     m$ = m$ + ".2222222" + Chr$(13)
3861.     m$ = m$ + ".....22." + Chr$(13)
3862.     m$ = m$ + ".....22." + Chr$(13)
3863.     m$ = m$ + "........" + Chr$(13)
3864.     arrTileText(52) = m$
3865.  
3866.     m$ = ""
3867.     m$ = m$ + ".222222." + Chr$(13)
3868.     m$ = m$ + ".22....." + Chr$(13)
3869.     m$ = m$ + ".22222.." + Chr$(13)
3870.     m$ = m$ + ".....22." + Chr$(13)
3871.     m$ = m$ + ".....22." + Chr$(13)
3872.     m$ = m$ + ".22..22." + Chr$(13)
3873.     m$ = m$ + "..2222.." + Chr$(13)
3874.     m$ = m$ + "........" + Chr$(13)
3875.     arrTileText(53) = m$
3876.  
3877.     m$ = ""
3878.     m$ = m$ + "..2222.." + Chr$(13)
3879.     m$ = m$ + ".22..22." + Chr$(13)
3880.     m$ = m$ + ".22....." + Chr$(13)
3881.     m$ = m$ + ".22222.." + Chr$(13)
3882.     m$ = m$ + ".22..22." + Chr$(13)
3883.     m$ = m$ + ".22..22." + Chr$(13)
3884.     m$ = m$ + "..2222.." + Chr$(13)
3885.     m$ = m$ + "........" + Chr$(13)
3886.     arrTileText(54) = m$
3887.  
3888.     m$ = ""
3889.     m$ = m$ + ".222222." + Chr$(13)
3890.     m$ = m$ + ".22..22." + Chr$(13)
3891.     m$ = m$ + "....22.." + Chr$(13)
3892.     m$ = m$ + "...22..." + Chr$(13)
3893.     m$ = m$ + "...22..." + Chr$(13)
3894.     m$ = m$ + "...22..." + Chr$(13)
3895.     m$ = m$ + "...22..." + Chr$(13)
3896.     m$ = m$ + "........" + Chr$(13)
3897.     arrTileText(55) = m$
3898.  
3899.     m$ = ""
3900.     m$ = m$ + "..2222.." + Chr$(13)
3901.     m$ = m$ + ".22..22." + Chr$(13)
3902.     m$ = m$ + ".22..22." + Chr$(13)
3903.     m$ = m$ + "..2222.." + Chr$(13)
3904.     m$ = m$ + ".22..22." + Chr$(13)
3905.     m$ = m$ + ".22..22." + Chr$(13)
3906.     m$ = m$ + "..2222.." + Chr$(13)
3907.     m$ = m$ + "........" + Chr$(13)
3908.     arrTileText(56) = m$
3909.  
3910.     m$ = ""
3911.     m$ = m$ + "..2222.." + Chr$(13)
3912.     m$ = m$ + ".22..22." + Chr$(13)
3913.     m$ = m$ + ".22..22." + Chr$(13)
3914.     m$ = m$ + "..22222." + Chr$(13)
3915.     m$ = m$ + ".....22." + Chr$(13)
3916.     m$ = m$ + ".22..22." + Chr$(13)
3917.     m$ = m$ + "..2222.." + Chr$(13)
3918.     m$ = m$ + "........" + Chr$(13)
3919.     arrTileText(57) = m$
3920.  
3921.     m$ = ""
3922.     m$ = m$ + "........" + Chr$(13)
3923.     m$ = m$ + "........" + Chr$(13)
3924.     m$ = m$ + "...22..." + Chr$(13)
3925.     m$ = m$ + "........" + Chr$(13)
3926.     m$ = m$ + "........" + Chr$(13)
3927.     m$ = m$ + "...22..." + Chr$(13)
3928.     m$ = m$ + "........" + Chr$(13)
3929.     m$ = m$ + "........" + Chr$(13)
3930.     arrTileText(58) = m$
3931.  
3932.     m$ = ""
3933.     m$ = m$ + "........" + Chr$(13)
3934.     m$ = m$ + "........" + Chr$(13)
3935.     m$ = m$ + "...22..." + Chr$(13)
3936.     m$ = m$ + "........" + Chr$(13)
3937.     m$ = m$ + "........" + Chr$(13)
3938.     m$ = m$ + "...22..." + Chr$(13)
3939.     m$ = m$ + "...22..." + Chr$(13)
3940.     m$ = m$ + "..22...." + Chr$(13)
3941.     arrTileText(59) = m$
3942.  
3943.     m$ = ""
3944.     m$ = m$ + "....222." + Chr$(13)
3945.     m$ = m$ + "...22..." + Chr$(13)
3946.     m$ = m$ + "..22...." + Chr$(13)
3947.     m$ = m$ + ".22....." + Chr$(13)
3948.     m$ = m$ + "..22...." + Chr$(13)
3949.     m$ = m$ + "...22..." + Chr$(13)
3950.     m$ = m$ + "....222." + Chr$(13)
3951.     m$ = m$ + "........" + Chr$(13)
3952.     arrTileText(60) = m$
3953.  
3954.     m$ = ""
3955.     m$ = m$ + "........" + Chr$(13)
3956.     m$ = m$ + "........" + Chr$(13)
3957.     m$ = m$ + ".222222." + Chr$(13)
3958.     m$ = m$ + "........" + Chr$(13)
3959.     m$ = m$ + ".222222." + Chr$(13)
3960.     m$ = m$ + "........" + Chr$(13)
3961.     m$ = m$ + "........" + Chr$(13)
3962.     m$ = m$ + "........" + Chr$(13)
3963.     arrTileText(61) = m$
3964.  
3965.     m$ = ""
3966.     m$ = m$ + ".222...." + Chr$(13)
3967.     m$ = m$ + "...22..." + Chr$(13)
3968.     m$ = m$ + "....22.." + Chr$(13)
3969.     m$ = m$ + ".....22." + Chr$(13)
3970.     m$ = m$ + "....22.." + Chr$(13)
3971.     m$ = m$ + "...22..." + Chr$(13)
3972.     m$ = m$ + ".222...." + Chr$(13)
3973.     m$ = m$ + "........" + Chr$(13)
3974.     arrTileText(62) = m$
3975.  
3976.     m$ = ""
3977.     m$ = m$ + "..2222.." + Chr$(13)
3978.     m$ = m$ + ".22..22." + Chr$(13)
3979.     m$ = m$ + ".....22." + Chr$(13)
3980.     m$ = m$ + "....22.." + Chr$(13)
3981.     m$ = m$ + "...22..." + Chr$(13)
3982.     m$ = m$ + "........" + Chr$(13)
3983.     m$ = m$ + "...22..." + Chr$(13)
3984.     m$ = m$ + "........" + Chr$(13)
3985.     arrTileText(63) = m$
3986.  
3987.     m$ = ""
3988.     m$ = m$ + "..2222.." + Chr$(13)
3989.     m$ = m$ + ".22..22." + Chr$(13)
3990.     m$ = m$ + ".22.222." + Chr$(13)
3991.     m$ = m$ + ".22.222." + Chr$(13)
3992.     m$ = m$ + ".22....." + Chr$(13)
3993.     m$ = m$ + ".22...2." + Chr$(13)
3994.     m$ = m$ + "..2222.." + Chr$(13)
3995.     m$ = m$ + "........" + Chr$(13)
3996.     arrTileText(64) = m$
3997.  
3998.     m$ = ""
3999.     m$ = m$ + "...22..." + Chr$(13)
4000.     m$ = m$ + "..2222.." + Chr$(13)
4001.     m$ = m$ + ".22..22." + Chr$(13)
4002.     m$ = m$ + ".222222." + Chr$(13)
4003.     m$ = m$ + ".22..22." + Chr$(13)
4004.     m$ = m$ + ".22..22." + Chr$(13)
4005.     m$ = m$ + ".22..22." + Chr$(13)
4006.     m$ = m$ + "........" + Chr$(13)
4007.     arrTileText(65) = m$
4008.  
4009.     m$ = ""
4010.     m$ = m$ + ".22222.." + Chr$(13)
4011.     m$ = m$ + ".22..22." + Chr$(13)
4012.     m$ = m$ + ".22..22." + Chr$(13)
4013.     m$ = m$ + ".22222.." + Chr$(13)
4014.     m$ = m$ + ".22..22." + Chr$(13)
4015.     m$ = m$ + ".22..22." + Chr$(13)
4016.     m$ = m$ + ".22222.." + Chr$(13)
4017.     m$ = m$ + "........" + Chr$(13)
4018.     arrTileText(66) = m$
4019.  
4020.     m$ = ""
4021.     m$ = m$ + "..2222.." + Chr$(13)
4022.     m$ = m$ + ".22..22." + Chr$(13)
4023.     m$ = m$ + ".22....." + Chr$(13)
4024.     m$ = m$ + ".22....." + Chr$(13)
4025.     m$ = m$ + ".22....." + Chr$(13)
4026.     m$ = m$ + ".22..22." + Chr$(13)
4027.     m$ = m$ + "..2222.." + Chr$(13)
4028.     m$ = m$ + "........" + Chr$(13)
4029.     arrTileText(67) = m$
4030.  
4031.     m$ = ""
4032.     m$ = m$ + ".2222..." + Chr$(13)
4033.     m$ = m$ + ".22.22.." + Chr$(13)
4034.     m$ = m$ + ".22..22." + Chr$(13)
4035.     m$ = m$ + ".22..22." + Chr$(13)
4036.     m$ = m$ + ".22..22." + Chr$(13)
4037.     m$ = m$ + ".22.22.." + Chr$(13)
4038.     m$ = m$ + ".2222..." + Chr$(13)
4039.     m$ = m$ + "........" + Chr$(13)
4040.     arrTileText(68) = m$
4041.  
4042.     m$ = ""
4043.     m$ = m$ + ".222222." + Chr$(13)
4044.     m$ = m$ + ".22....." + Chr$(13)
4045.     m$ = m$ + ".22....." + Chr$(13)
4046.     m$ = m$ + ".2222..." + Chr$(13)
4047.     m$ = m$ + ".22....." + Chr$(13)
4048.     m$ = m$ + ".22....." + Chr$(13)
4049.     m$ = m$ + ".222222." + Chr$(13)
4050.     m$ = m$ + "........" + Chr$(13)
4051.     arrTileText(69) = m$
4052.  
4053.     m$ = ""
4054.     m$ = m$ + ".222222." + Chr$(13)
4055.     m$ = m$ + ".22....." + Chr$(13)
4056.     m$ = m$ + ".22....." + Chr$(13)
4057.     m$ = m$ + ".2222..." + Chr$(13)
4058.     m$ = m$ + ".22....." + Chr$(13)
4059.     m$ = m$ + ".22....." + Chr$(13)
4060.     m$ = m$ + ".22....." + Chr$(13)
4061.     m$ = m$ + "........" + Chr$(13)
4062.     arrTileText(70) = m$
4063.  
4064.     m$ = ""
4065.     m$ = m$ + "..2222.." + Chr$(13)
4066.     m$ = m$ + ".22..22." + Chr$(13)
4067.     m$ = m$ + ".22....." + Chr$(13)
4068.     m$ = m$ + ".22.222." + Chr$(13)
4069.     m$ = m$ + ".22..22." + Chr$(13)
4070.     m$ = m$ + ".22..22." + Chr$(13)
4071.     m$ = m$ + "..2222.." + Chr$(13)
4072.     m$ = m$ + "........" + Chr$(13)
4073.     arrTileText(71) = m$
4074.  
4075.     m$ = ""
4076.     m$ = m$ + ".22..22." + Chr$(13)
4077.     m$ = m$ + ".22..22." + Chr$(13)
4078.     m$ = m$ + ".22..22." + Chr$(13)
4079.     m$ = m$ + ".222222." + Chr$(13)
4080.     m$ = m$ + ".22..22." + Chr$(13)
4081.     m$ = m$ + ".22..22." + Chr$(13)
4082.     m$ = m$ + ".22..22." + Chr$(13)
4083.     m$ = m$ + "........" + Chr$(13)
4084.     arrTileText(72) = m$
4085.  
4086.     m$ = ""
4087.     m$ = m$ + "..2222.." + Chr$(13)
4088.     m$ = m$ + "...22..." + Chr$(13)
4089.     m$ = m$ + "...22..." + Chr$(13)
4090.     m$ = m$ + "...22..." + Chr$(13)
4091.     m$ = m$ + "...22..." + Chr$(13)
4092.     m$ = m$ + "...22..." + Chr$(13)
4093.     m$ = m$ + "..2222.." + Chr$(13)
4094.     m$ = m$ + "........" + Chr$(13)
4095.     arrTileText(73) = m$
4096.  
4097.     m$ = ""
4098.     m$ = m$ + "...2222." + Chr$(13)
4099.     m$ = m$ + "....22.." + Chr$(13)
4100.     m$ = m$ + "....22.." + Chr$(13)
4101.     m$ = m$ + "....22.." + Chr$(13)
4102.     m$ = m$ + "....22.." + Chr$(13)
4103.     m$ = m$ + ".22.22.." + Chr$(13)
4104.     m$ = m$ + "..222..." + Chr$(13)
4105.     m$ = m$ + "........" + Chr$(13)
4106.     arrTileText(74) = m$
4107.  
4108.     m$ = ""
4109.     m$ = m$ + ".22..22." + Chr$(13)
4110.     m$ = m$ + ".22.22.." + Chr$(13)
4111.     m$ = m$ + ".2222..." + Chr$(13)
4112.     m$ = m$ + ".222...." + Chr$(13)
4113.     m$ = m$ + ".2222..." + Chr$(13)
4114.     m$ = m$ + ".22.22.." + Chr$(13)
4115.     m$ = m$ + ".22..22." + Chr$(13)
4116.     m$ = m$ + "........" + Chr$(13)
4117.     arrTileText(75) = m$
4118.  
4119.     m$ = ""
4120.     m$ = m$ + ".22....." + Chr$(13)
4121.     m$ = m$ + ".22....." + Chr$(13)
4122.     m$ = m$ + ".22....." + Chr$(13)
4123.     m$ = m$ + ".22....." + Chr$(13)
4124.     m$ = m$ + ".22....." + Chr$(13)
4125.     m$ = m$ + ".22....." + Chr$(13)
4126.     m$ = m$ + ".222222." + Chr$(13)
4127.     m$ = m$ + "........" + Chr$(13)
4128.     arrTileText(76) = m$
4129.  
4130.     m$ = ""
4131.     m$ = m$ + ".22...22" + Chr$(13)
4132.     m$ = m$ + ".222.222" + Chr$(13)
4133.     m$ = m$ + ".2222222" + Chr$(13)
4134.     m$ = m$ + ".22.2.22" + Chr$(13)
4135.     m$ = m$ + ".22...22" + Chr$(13)
4136.     m$ = m$ + ".22...22" + Chr$(13)
4137.     m$ = m$ + ".22...22" + Chr$(13)
4138.     m$ = m$ + "........" + Chr$(13)
4139.     arrTileText(77) = m$
4140.  
4141.     m$ = ""
4142.     m$ = m$ + ".22..22." + Chr$(13)
4143.     m$ = m$ + ".222.22." + Chr$(13)
4144.     m$ = m$ + ".222222." + Chr$(13)
4145.     m$ = m$ + ".222222." + Chr$(13)
4146.     m$ = m$ + ".22.222." + Chr$(13)
4147.     m$ = m$ + ".22..22." + Chr$(13)
4148.     m$ = m$ + ".22..22." + Chr$(13)
4149.     m$ = m$ + "........" + Chr$(13)
4150.     arrTileText(78) = m$
4151.  
4152.     m$ = ""
4153.     m$ = m$ + "..2222.." + Chr$(13)
4154.     m$ = m$ + ".22..22." + Chr$(13)
4155.     m$ = m$ + ".22..22." + Chr$(13)
4156.     m$ = m$ + ".22..22." + Chr$(13)
4157.     m$ = m$ + ".22..22." + Chr$(13)
4158.     m$ = m$ + ".22..22." + Chr$(13)
4159.     m$ = m$ + "..2222.." + Chr$(13)
4160.     m$ = m$ + "........" + Chr$(13)
4161.     arrTileText(79) = m$
4162.  
4163.     m$ = ""
4164.     m$ = m$ + ".22222.." + Chr$(13)
4165.     m$ = m$ + ".22..22." + Chr$(13)
4166.     m$ = m$ + ".22..22." + Chr$(13)
4167.     m$ = m$ + ".22222.." + Chr$(13)
4168.     m$ = m$ + ".22....." + Chr$(13)
4169.     m$ = m$ + ".22....." + Chr$(13)
4170.     m$ = m$ + ".22....." + Chr$(13)
4171.     m$ = m$ + "........" + Chr$(13)
4172.     arrTileText(80) = m$
4173.  
4174.     m$ = ""
4175.     m$ = m$ + "..2222.." + Chr$(13)
4176.     m$ = m$ + ".22..22." + Chr$(13)
4177.     m$ = m$ + ".22..22." + Chr$(13)
4178.     m$ = m$ + ".22..22." + Chr$(13)
4179.     m$ = m$ + ".22..22." + Chr$(13)
4180.     m$ = m$ + "..2222.." + Chr$(13)
4181.     m$ = m$ + "....222." + Chr$(13)
4182.     m$ = m$ + "........" + Chr$(13)
4183.     arrTileText(81) = m$
4184.  
4185.     m$ = ""
4186.     m$ = m$ + ".22222.." + Chr$(13)
4187.     m$ = m$ + ".22..22." + Chr$(13)
4188.     m$ = m$ + ".22..22." + Chr$(13)
4189.     m$ = m$ + ".22222.." + Chr$(13)
4190.     m$ = m$ + ".2222..." + Chr$(13)
4191.     m$ = m$ + ".22.22.." + Chr$(13)
4192.     m$ = m$ + ".22..22." + Chr$(13)
4193.     m$ = m$ + "........" + Chr$(13)
4194.     arrTileText(82) = m$
4195.  
4196.     m$ = ""
4197.     m$ = m$ + "..2222.." + Chr$(13)
4198.     m$ = m$ + ".22..22." + Chr$(13)
4199.     m$ = m$ + ".22....." + Chr$(13)
4200.     m$ = m$ + "..2222.." + Chr$(13)
4201.     m$ = m$ + ".....22." + Chr$(13)
4202.     m$ = m$ + ".22..22." + Chr$(13)
4203.     m$ = m$ + "..2222.." + Chr$(13)
4204.     m$ = m$ + "........" + Chr$(13)
4205.     arrTileText(83) = m$
4206.  
4207.     m$ = ""
4208.     m$ = m$ + ".222222." + Chr$(13)
4209.     m$ = m$ + "...22..." + Chr$(13)
4210.     m$ = m$ + "...22..." + Chr$(13)
4211.     m$ = m$ + "...22..." + Chr$(13)
4212.     m$ = m$ + "...22..." + Chr$(13)
4213.     m$ = m$ + "...22..." + Chr$(13)
4214.     m$ = m$ + "...22..." + Chr$(13)
4215.     m$ = m$ + "........" + Chr$(13)
4216.     arrTileText(84) = m$
4217.  
4218.     m$ = ""
4219.     m$ = m$ + ".22..22." + Chr$(13)
4220.     m$ = m$ + ".22..22." + Chr$(13)
4221.     m$ = m$ + ".22..22." + Chr$(13)
4222.     m$ = m$ + ".22..22." + Chr$(13)
4223.     m$ = m$ + ".22..22." + Chr$(13)
4224.     m$ = m$ + ".22..22." + Chr$(13)
4225.     m$ = m$ + "..2222.." + Chr$(13)
4226.     m$ = m$ + "........" + Chr$(13)
4227.     arrTileText(85) = m$
4228.  
4229.     m$ = ""
4230.     m$ = m$ + ".22..22." + Chr$(13)
4231.     m$ = m$ + ".22..22." + Chr$(13)
4232.     m$ = m$ + ".22..22." + Chr$(13)
4233.     m$ = m$ + ".22..22." + Chr$(13)
4234.     m$ = m$ + ".22..22." + Chr$(13)
4235.     m$ = m$ + "..2222.." + Chr$(13)
4236.     m$ = m$ + "...22..." + Chr$(13)
4237.     m$ = m$ + "........" + Chr$(13)
4238.     arrTileText(86) = m$
4239.  
4240.     m$ = ""
4241.     m$ = m$ + ".22...22" + Chr$(13)
4242.     m$ = m$ + ".22...22" + Chr$(13)
4243.     m$ = m$ + ".22...22" + Chr$(13)
4244.     m$ = m$ + ".22.2.22" + Chr$(13)
4245.     m$ = m$ + ".2222222" + Chr$(13)
4246.     m$ = m$ + ".222.222" + Chr$(13)
4247.     m$ = m$ + ".22...22" + Chr$(13)
4248.     m$ = m$ + "........" + Chr$(13)
4249.     arrTileText(87) = m$
4250.  
4251.     m$ = ""
4252.     m$ = m$ + ".22..22." + Chr$(13)
4253.     m$ = m$ + ".22..22." + Chr$(13)
4254.     m$ = m$ + "..2222.." + Chr$(13)
4255.     m$ = m$ + "...22..." + Chr$(13)
4256.     m$ = m$ + "..2222.." + Chr$(13)
4257.     m$ = m$ + ".22..22." + Chr$(13)
4258.     m$ = m$ + ".22..22." + Chr$(13)
4259.     m$ = m$ + "........" + Chr$(13)
4260.     arrTileText(88) = m$
4261.  
4262.     m$ = ""
4263.     m$ = m$ + ".22..22." + Chr$(13)
4264.     m$ = m$ + ".22..22." + Chr$(13)
4265.     m$ = m$ + ".22..22." + Chr$(13)
4266.     m$ = m$ + "..2222.." + Chr$(13)
4267.     m$ = m$ + "...22..." + Chr$(13)
4268.     m$ = m$ + "...22..." + Chr$(13)
4269.     m$ = m$ + "...22..." + Chr$(13)
4270.     m$ = m$ + "........" + Chr$(13)
4271.     arrTileText(89) = m$
4272.  
4273.     m$ = ""
4274.     m$ = m$ + ".222222." + Chr$(13)
4275.     m$ = m$ + ".....22." + Chr$(13)
4276.     m$ = m$ + "....22.." + Chr$(13)
4277.     m$ = m$ + "...22..." + Chr$(13)
4278.     m$ = m$ + "..22...." + Chr$(13)
4279.     m$ = m$ + ".22....." + Chr$(13)
4280.     m$ = m$ + ".222222." + Chr$(13)
4281.     m$ = m$ + "........" + Chr$(13)
4282.     arrTileText(90) = m$
4283.  
4284.     m$ = ""
4285.     m$ = m$ + "..2222.." + Chr$(13)
4286.     m$ = m$ + "..22...." + Chr$(13)
4287.     m$ = m$ + "..22...." + Chr$(13)
4288.     m$ = m$ + "..22...." + Chr$(13)
4289.     m$ = m$ + "..22...." + Chr$(13)
4290.     m$ = m$ + "..22...." + Chr$(13)
4291.     m$ = m$ + "..2222.." + Chr$(13)
4292.     m$ = m$ + "........" + Chr$(13)
4293.     arrTileText(91) = m$
4294.  
4295.     m$ = ""
4296.     m$ = m$ + "........" + Chr$(13)
4297.     m$ = m$ + ".22....." + Chr$(13)
4298.     m$ = m$ + "..22...." + Chr$(13)
4299.     m$ = m$ + "...22..." + Chr$(13)
4300.     m$ = m$ + "....22.." + Chr$(13)
4301.     m$ = m$ + ".....22." + Chr$(13)
4302.     m$ = m$ + "......22" + Chr$(13)
4303.     m$ = m$ + "........" + Chr$(13)
4304.     arrTileText(92) = m$
4305.  
4306.     m$ = ""
4307.     m$ = m$ + "..2222.." + Chr$(13)
4308.     m$ = m$ + "....22.." + Chr$(13)
4309.     m$ = m$ + "....22.." + Chr$(13)
4310.     m$ = m$ + "....22.." + Chr$(13)
4311.     m$ = m$ + "....22.." + Chr$(13)
4312.     m$ = m$ + "....22.." + Chr$(13)
4313.     m$ = m$ + "..2222.." + Chr$(13)
4314.     m$ = m$ + "........" + Chr$(13)
4315.     arrTileText(93) = m$
4316.  
4317.     m$ = ""
4318.     m$ = m$ + "...22..." + Chr$(13)
4319.     m$ = m$ + "..2222.." + Chr$(13)
4320.     m$ = m$ + ".22..22." + Chr$(13)
4321.     m$ = m$ + "........" + Chr$(13)
4322.     m$ = m$ + "........" + Chr$(13)
4323.     m$ = m$ + "........" + Chr$(13)
4324.     m$ = m$ + "........" + Chr$(13)
4325.     m$ = m$ + "........" + Chr$(13)
4326.     arrTileText(94) = m$
4327.  
4328.     m$ = ""
4329.     m$ = m$ + "........" + Chr$(13)
4330.     m$ = m$ + "........" + Chr$(13)
4331.     m$ = m$ + "........" + Chr$(13)
4332.     m$ = m$ + "........" + Chr$(13)
4333.     m$ = m$ + "........" + Chr$(13)
4334.     m$ = m$ + ".222222." + Chr$(13)
4335.     m$ = m$ + "........" + Chr$(13)
4336.     m$ = m$ + "........" + Chr$(13)
4337.     arrTileText(95) = m$
4338.  
4339.     m$ = ""
4340.     m$ = m$ + "........" + Chr$(13)
4341.     m$ = m$ + "........" + Chr$(13)
4342.     m$ = m$ + "........" + Chr$(13)
4343.     m$ = m$ + "........" + Chr$(13)
4344.     m$ = m$ + "........" + Chr$(13)
4345.     m$ = m$ + "........" + Chr$(13)
4346.     m$ = m$ + "........" + Chr$(13)
4347.     m$ = m$ + "........" + Chr$(13)
4348.     arrTileText(96) = m$
4349.  
4350.     m$ = ""
4351.     m$ = m$ + "........" + Chr$(13)
4352.     m$ = m$ + "..2222.." + Chr$(13)
4353.     m$ = m$ + ".....22." + Chr$(13)
4354.     m$ = m$ + "..22222." + Chr$(13)
4355.     m$ = m$ + ".22..22." + Chr$(13)
4356.     m$ = m$ + "..22222." + Chr$(13)
4357.     m$ = m$ + "........" + Chr$(13)
4358.     m$ = m$ + "........" + Chr$(13)
4359.     arrTileText(97) = m$
4360.  
4361.     m$ = ""
4362.     m$ = m$ + ".22....." + Chr$(13)
4363.     m$ = m$ + ".22....." + Chr$(13)
4364.     m$ = m$ + ".22222.." + Chr$(13)
4365.     m$ = m$ + ".22..22." + Chr$(13)
4366.     m$ = m$ + ".22..22." + Chr$(13)
4367.     m$ = m$ + ".22222.." + Chr$(13)
4368.     m$ = m$ + "........" + Chr$(13)
4369.     m$ = m$ + "........" + Chr$(13)
4370.     arrTileText(98) = m$
4371.  
4372.     m$ = ""
4373.     m$ = m$ + "........" + Chr$(13)
4374.     m$ = m$ + "..2222.." + Chr$(13)
4375.     m$ = m$ + ".22....." + Chr$(13)
4376.     m$ = m$ + ".22....." + Chr$(13)
4377.     m$ = m$ + ".22....." + Chr$(13)
4378.     m$ = m$ + "..2222.." + Chr$(13)
4379.     m$ = m$ + "........" + Chr$(13)
4380.     m$ = m$ + "........" + Chr$(13)
4381.     arrTileText(99) = m$
4382.  
4383.     m$ = ""
4384.     m$ = m$ + ".....22." + Chr$(13)
4385.     m$ = m$ + ".....22." + Chr$(13)
4386.     m$ = m$ + "..22222." + Chr$(13)
4387.     m$ = m$ + ".22..22." + Chr$(13)
4388.     m$ = m$ + ".22..22." + Chr$(13)
4389.     m$ = m$ + "..22222." + Chr$(13)
4390.     m$ = m$ + "........" + Chr$(13)
4391.     m$ = m$ + "........" + Chr$(13)
4392.     arrTileText(100) = m$
4393.  
4394.     m$ = ""
4395.     m$ = m$ + "........" + Chr$(13)
4396.     m$ = m$ + "..2222.." + Chr$(13)
4397.     m$ = m$ + ".22..22." + Chr$(13)
4398.     m$ = m$ + ".222222." + Chr$(13)
4399.     m$ = m$ + ".22....." + Chr$(13)
4400.     m$ = m$ + "..2222.." + Chr$(13)
4401.     m$ = m$ + "........" + Chr$(13)
4402.     m$ = m$ + "........" + Chr$(13)
4403.     arrTileText(101) = m$
4404.  
4405.     m$ = ""
4406.     m$ = m$ + "....222." + Chr$(13)
4407.     m$ = m$ + "...22..." + Chr$(13)
4408.     m$ = m$ + "..22222." + Chr$(13)
4409.     m$ = m$ + "...22..." + Chr$(13)
4410.     m$ = m$ + "...22..." + Chr$(13)
4411.     m$ = m$ + "...22..." + Chr$(13)
4412.     m$ = m$ + "........" + Chr$(13)
4413.     m$ = m$ + "........" + Chr$(13)
4414.     arrTileText(102) = m$
4415.  
4416.     m$ = ""
4417.     m$ = m$ + "........" + Chr$(13)
4418.     m$ = m$ + "..22222." + Chr$(13)
4419.     m$ = m$ + ".22..22." + Chr$(13)
4420.     m$ = m$ + ".22..22." + Chr$(13)
4421.     m$ = m$ + "..22222." + Chr$(13)
4422.     m$ = m$ + ".....22." + Chr$(13)
4423.     m$ = m$ + ".22222.." + Chr$(13)
4424.     m$ = m$ + "........" + Chr$(13)
4425.     arrTileText(103) = m$
4426.  
4427.     m$ = ""
4428.     m$ = m$ + ".22....." + Chr$(13)
4429.     m$ = m$ + ".22....." + Chr$(13)
4430.     m$ = m$ + ".22222.." + Chr$(13)
4431.     m$ = m$ + ".22..22." + Chr$(13)
4432.     m$ = m$ + ".22..22." + Chr$(13)
4433.     m$ = m$ + ".22..22." + Chr$(13)
4434.     m$ = m$ + "........" + Chr$(13)
4435.     m$ = m$ + "........" + Chr$(13)
4436.     arrTileText(104) = m$
4437.  
4438.     m$ = ""
4439.     m$ = m$ + "...22..." + Chr$(13)
4440.     m$ = m$ + "........" + Chr$(13)
4441.     m$ = m$ + "..222..." + Chr$(13)
4442.     m$ = m$ + "...22..." + Chr$(13)
4443.     m$ = m$ + "...22..." + Chr$(13)
4444.     m$ = m$ + "..2222.." + Chr$(13)
4445.     m$ = m$ + "........" + Chr$(13)
4446.     m$ = m$ + "........" + Chr$(13)
4447.     arrTileText(105) = m$
4448.  
4449.     m$ = ""
4450.     m$ = m$ + ".....22." + Chr$(13)
4451.     m$ = m$ + "........" + Chr$(13)
4452.     m$ = m$ + ".....22." + Chr$(13)
4453.     m$ = m$ + ".....22." + Chr$(13)
4454.     m$ = m$ + ".....22." + Chr$(13)
4455.     m$ = m$ + ".....22." + Chr$(13)
4456.     m$ = m$ + "..2222.." + Chr$(13)
4457.     m$ = m$ + "........" + Chr$(13)
4458.     arrTileText(106) = m$
4459.  
4460.     m$ = ""
4461.     m$ = m$ + ".22....." + Chr$(13)
4462.     m$ = m$ + ".22....." + Chr$(13)
4463.     m$ = m$ + ".22.22.." + Chr$(13)
4464.     m$ = m$ + ".2222..." + Chr$(13)
4465.     m$ = m$ + ".22.22.." + Chr$(13)
4466.     m$ = m$ + ".22..22." + Chr$(13)
4467.     m$ = m$ + "........" + Chr$(13)
4468.     m$ = m$ + "........" + Chr$(13)
4469.     arrTileText(107) = m$
4470.  
4471.     m$ = ""
4472.     m$ = m$ + "..222..." + Chr$(13)
4473.     m$ = m$ + "...22..." + Chr$(13)
4474.     m$ = m$ + "...22..." + Chr$(13)
4475.     m$ = m$ + "...22..." + Chr$(13)
4476.     m$ = m$ + "...22..." + Chr$(13)
4477.     m$ = m$ + "..2222.." + Chr$(13)
4478.     m$ = m$ + "........" + Chr$(13)
4479.     m$ = m$ + "........" + Chr$(13)
4480.     arrTileText(108) = m$
4481.  
4482.     m$ = ""
4483.     m$ = m$ + "........" + Chr$(13)
4484.     m$ = m$ + ".22..22." + Chr$(13)
4485.     m$ = m$ + ".2222222" + Chr$(13)
4486.     m$ = m$ + ".2222222" + Chr$(13)
4487.     m$ = m$ + ".22.2.22" + Chr$(13)
4488.     m$ = m$ + ".22...22" + Chr$(13)
4489.     m$ = m$ + "........" + Chr$(13)
4490.     m$ = m$ + "........" + Chr$(13)
4491.     arrTileText(109) = m$
4492.  
4493.     m$ = ""
4494.     m$ = m$ + "........" + Chr$(13)
4495.     m$ = m$ + ".22222.." + Chr$(13)
4496.     m$ = m$ + ".22..22." + Chr$(13)
4497.     m$ = m$ + ".22..22." + Chr$(13)
4498.     m$ = m$ + ".22..22." + Chr$(13)
4499.     m$ = m$ + ".22..22." + Chr$(13)
4500.     m$ = m$ + "........" + Chr$(13)
4501.     m$ = m$ + "........" + Chr$(13)
4502.     arrTileText(110) = m$
4503.  
4504.     m$ = ""
4505.     m$ = m$ + "........" + Chr$(13)
4506.     m$ = m$ + "..2222.." + Chr$(13)
4507.     m$ = m$ + ".22..22." + Chr$(13)
4508.     m$ = m$ + ".22..22." + Chr$(13)
4509.     m$ = m$ + ".22..22." + Chr$(13)
4510.     m$ = m$ + "..2222.." + Chr$(13)
4511.     m$ = m$ + "........" + Chr$(13)
4512.     m$ = m$ + "........" + Chr$(13)
4513.     arrTileText(111) = m$
4514.  
4515.     m$ = ""
4516.     m$ = m$ + "........" + Chr$(13)
4517.     m$ = m$ + ".22222.." + Chr$(13)
4518.     m$ = m$ + ".22..22." + Chr$(13)
4519.     m$ = m$ + ".22..22." + Chr$(13)
4520.     m$ = m$ + ".22222.." + Chr$(13)
4521.     m$ = m$ + ".22....." + Chr$(13)
4522.     m$ = m$ + ".22....." + Chr$(13)
4523.     m$ = m$ + "........" + Chr$(13)
4524.     arrTileText(112) = m$
4525.  
4526.     m$ = ""
4527.     m$ = m$ + "........" + Chr$(13)
4528.     m$ = m$ + "..22222." + Chr$(13)
4529.     m$ = m$ + ".22..22." + Chr$(13)
4530.     m$ = m$ + ".22..22." + Chr$(13)
4531.     m$ = m$ + "..22222." + Chr$(13)
4532.     m$ = m$ + ".....22." + Chr$(13)
4533.     m$ = m$ + ".....22." + Chr$(13)
4534.     m$ = m$ + "........" + Chr$(13)
4535.     arrTileText(113) = m$
4536.  
4537.     m$ = ""
4538.     m$ = m$ + "........" + Chr$(13)
4539.     m$ = m$ + ".22222.." + Chr$(13)
4540.     m$ = m$ + ".22..22." + Chr$(13)
4541.     m$ = m$ + ".22....." + Chr$(13)
4542.     m$ = m$ + ".22....." + Chr$(13)
4543.     m$ = m$ + ".22....." + Chr$(13)
4544.     m$ = m$ + "........" + Chr$(13)
4545.     m$ = m$ + "........" + Chr$(13)
4546.     arrTileText(114) = m$
4547.  
4548.     m$ = ""
4549.     m$ = m$ + "........" + Chr$(13)
4550.     m$ = m$ + "..22222." + Chr$(13)
4551.     m$ = m$ + ".22....." + Chr$(13)
4552.     m$ = m$ + "..2222.." + Chr$(13)
4553.     m$ = m$ + ".....22." + Chr$(13)
4554.     m$ = m$ + ".22222.." + Chr$(13)
4555.     m$ = m$ + "........" + Chr$(13)
4556.     m$ = m$ + "........" + Chr$(13)
4557.     arrTileText(115) = m$
4558.  
4559.     m$ = ""
4560.     m$ = m$ + "...22..." + Chr$(13)
4561.     m$ = m$ + ".222222." + Chr$(13)
4562.     m$ = m$ + "...22..." + Chr$(13)
4563.     m$ = m$ + "...22..." + Chr$(13)
4564.     m$ = m$ + "...22..." + Chr$(13)
4565.     m$ = m$ + "....222." + Chr$(13)
4566.     m$ = m$ + "........" + Chr$(13)
4567.     m$ = m$ + "........" + Chr$(13)
4568.     arrTileText(116) = m$
4569.  
4570.     m$ = ""
4571.     m$ = m$ + "........" + Chr$(13)
4572.     m$ = m$ + ".22..22." + Chr$(13)
4573.     m$ = m$ + ".22..22." + Chr$(13)
4574.     m$ = m$ + ".22..22." + Chr$(13)
4575.     m$ = m$ + ".22..22." + Chr$(13)
4576.     m$ = m$ + "..22222." + Chr$(13)
4577.     m$ = m$ + "........" + Chr$(13)
4578.     m$ = m$ + "........" + Chr$(13)
4579.     arrTileText(117) = m$
4580.  
4581.     m$ = ""
4582.     m$ = m$ + "........" + Chr$(13)
4583.     m$ = m$ + ".22..22." + Chr$(13)
4584.     m$ = m$ + ".22..22." + Chr$(13)
4585.     m$ = m$ + ".22..22." + Chr$(13)
4586.     m$ = m$ + "..2222.." + Chr$(13)
4587.     m$ = m$ + "...22..." + Chr$(13)
4588.     m$ = m$ + "........" + Chr$(13)
4589.     m$ = m$ + "........" + Chr$(13)
4590.     arrTileText(118) = m$
4591.  
4592.     m$ = ""
4593.     m$ = m$ + "........" + Chr$(13)
4594.     m$ = m$ + ".22...22" + Chr$(13)
4595.     m$ = m$ + ".22.2.22" + Chr$(13)
4596.     m$ = m$ + ".2222222" + Chr$(13)
4597.     m$ = m$ + "..22222." + Chr$(13)
4598.     m$ = m$ + "..22.22." + Chr$(13)
4599.     m$ = m$ + "........" + Chr$(13)
4600.     m$ = m$ + "........" + Chr$(13)
4601.     arrTileText(119) = m$
4602.  
4603.     m$ = ""
4604.     m$ = m$ + "........" + Chr$(13)
4605.     m$ = m$ + ".22..22." + Chr$(13)
4606.     m$ = m$ + "..2222.." + Chr$(13)
4607.     m$ = m$ + "...22..." + Chr$(13)
4608.     m$ = m$ + "..2222.." + Chr$(13)
4609.     m$ = m$ + ".22..22." + Chr$(13)
4610.     m$ = m$ + "........" + Chr$(13)
4611.     m$ = m$ + "........" + Chr$(13)
4612.     arrTileText(120) = m$
4613.  
4614.     m$ = ""
4615.     m$ = m$ + "........" + Chr$(13)
4616.     m$ = m$ + ".22..22." + Chr$(13)
4617.     m$ = m$ + ".22..22." + Chr$(13)
4618.     m$ = m$ + ".22..22." + Chr$(13)
4619.     m$ = m$ + "..22222." + Chr$(13)
4620.     m$ = m$ + "....22.." + Chr$(13)
4621.     m$ = m$ + ".2222..." + Chr$(13)
4622.     m$ = m$ + "........" + Chr$(13)
4623.     arrTileText(121) = m$
4624.  
4625.     m$ = ""
4626.     m$ = m$ + "........" + Chr$(13)
4627.     m$ = m$ + ".222222." + Chr$(13)
4628.     m$ = m$ + "....22.." + Chr$(13)
4629.     m$ = m$ + "...22..." + Chr$(13)
4630.     m$ = m$ + "..22...." + Chr$(13)
4631.     m$ = m$ + ".222222." + Chr$(13)
4632.     m$ = m$ + "........" + Chr$(13)
4633.     m$ = m$ + "........" + Chr$(13)
4634.     arrTileText(122) = m$
4635.  
4636.     m$ = ""
4637.     m$ = m$ + "...222.." + Chr$(13)
4638.     m$ = m$ + "..22...." + Chr$(13)
4639.     m$ = m$ + "..2....." + Chr$(13)
4640.     m$ = m$ + ".22....." + Chr$(13)
4641.     m$ = m$ + "..2....." + Chr$(13)
4642.     m$ = m$ + "..22...." + Chr$(13)
4643.     m$ = m$ + "...222.." + Chr$(13)
4644.     m$ = m$ + "........" + Chr$(13)
4645.     arrTileText(123) = m$
4646.  
4647.     m$ = ""
4648.     m$ = m$ + "....2..." + Chr$(13)
4649.     m$ = m$ + "....2..." + Chr$(13)
4650.     m$ = m$ + "....2..." + Chr$(13)
4651.     m$ = m$ + "....2..." + Chr$(13)
4652.     m$ = m$ + "....2..." + Chr$(13)
4653.     m$ = m$ + "....2..." + Chr$(13)
4654.     m$ = m$ + "....2..." + Chr$(13)
4655.     m$ = m$ + "........" + Chr$(13)
4656.     arrTileText(124) = m$
4657.  
4658.     m$ = ""
4659.     m$ = m$ + "..222..." + Chr$(13)
4660.     m$ = m$ + "....22.." + Chr$(13)
4661.     m$ = m$ + ".....2.." + Chr$(13)
4662.     m$ = m$ + ".....22." + Chr$(13)
4663.     m$ = m$ + ".....2.." + Chr$(13)
4664.     m$ = m$ + "....22.." + Chr$(13)
4665.     m$ = m$ + "..222..." + Chr$(13)
4666.     m$ = m$ + "........" + Chr$(13)
4667.     arrTileText(125) = m$
4668.  
4669.     m$ = ""
4670.     m$ = m$ + "........" + Chr$(13)
4671.     m$ = m$ + ".22....2" + Chr$(13)
4672.     m$ = m$ + "2..2..2." + Chr$(13)
4673.     m$ = m$ + "....22.." + Chr$(13)
4674.     m$ = m$ + "........" + Chr$(13)
4675.     m$ = m$ + "........" + Chr$(13)
4676.     m$ = m$ + "........" + Chr$(13)
4677.     m$ = m$ + "........" + Chr$(13)
4678.     arrTileText(126) = m$
4679.  
4680.     m$ = ""
4681.     m$ = m$ + "........" + Chr$(13)
4682.     m$ = m$ + "........" + Chr$(13)
4683.     m$ = m$ + "........" + Chr$(13)
4684.     m$ = m$ + "........" + Chr$(13)
4685.     m$ = m$ + "........" + Chr$(13)
4686.     m$ = m$ + "........" + Chr$(13)
4687.     m$ = m$ + "........" + Chr$(13)
4688.     m$ = m$ + "........" + Chr$(13)
4689.     arrTileText(127) = m$
4690.  
4691.     m$ = ""
4692.     m$ = m$ + "........" + Chr$(13)
4693.     m$ = m$ + "........" + Chr$(13)
4694.     m$ = m$ + "........" + Chr$(13)
4695.     m$ = m$ + "22222222" + Chr$(13)
4696.     m$ = m$ + "22222222" + Chr$(13)
4697.     m$ = m$ + "........" + Chr$(13)
4698.     m$ = m$ + "........" + Chr$(13)
4699.     m$ = m$ + "........" + Chr$(13)
4700.     arrTileText(128) = m$
4701.  
4702.     m$ = ""
4703.     m$ = m$ + "....2..." + Chr$(13)
4704.     m$ = m$ + "...222.." + Chr$(13)
4705.     m$ = m$ + "..22222." + Chr$(13)
4706.     m$ = m$ + ".2222222" + Chr$(13)
4707.     m$ = m$ + ".2222222" + Chr$(13)
4708.     m$ = m$ + "...222.." + Chr$(13)
4709.     m$ = m$ + "..22222." + Chr$(13)
4710.     m$ = m$ + "........" + Chr$(13)
4711.     arrTileText(129) = m$
4712.  
4713.     m$ = ""
4714.     m$ = m$ + "...22..." + Chr$(13)
4715.     m$ = m$ + "...22..." + Chr$(13)
4716.     m$ = m$ + "...22..." + Chr$(13)
4717.     m$ = m$ + "...22..." + Chr$(13)
4718.     m$ = m$ + "...22..." + Chr$(13)
4719.     m$ = m$ + "...22..." + Chr$(13)
4720.     m$ = m$ + "...22..." + Chr$(13)
4721.     m$ = m$ + "...22..." + Chr$(13)
4722.     arrTileText(130) = m$
4723.  
4724.     m$ = ""
4725.     m$ = m$ + "........" + Chr$(13)
4726.     m$ = m$ + "........" + Chr$(13)
4727.     m$ = m$ + "........" + Chr$(13)
4728.     m$ = m$ + "22222222" + Chr$(13)
4729.     m$ = m$ + "22222222" + Chr$(13)
4730.     m$ = m$ + "........" + Chr$(13)
4731.     m$ = m$ + "........" + Chr$(13)
4732.     m$ = m$ + "........" + Chr$(13)
4733.     arrTileText(131) = m$
4734.  
4735.     m$ = ""
4736.     m$ = m$ + "........" + Chr$(13)
4737.     m$ = m$ + "........" + Chr$(13)
4738.     m$ = m$ + "22222222" + Chr$(13)
4739.     m$ = m$ + "22222222" + Chr$(13)
4740.     m$ = m$ + "........" + Chr$(13)
4741.     m$ = m$ + "........" + Chr$(13)
4742.     m$ = m$ + "........" + Chr$(13)
4743.     m$ = m$ + "........" + Chr$(13)
4744.     arrTileText(132) = m$
4745.  
4746.     m$ = ""
4747.     m$ = m$ + "........" + Chr$(13)
4748.     m$ = m$ + "22222222" + Chr$(13)
4749.     m$ = m$ + "22222222" + Chr$(13)
4750.     m$ = m$ + "........" + Chr$(13)
4751.     m$ = m$ + "........" + Chr$(13)
4752.     m$ = m$ + "........" + Chr$(13)
4753.     m$ = m$ + "........" + Chr$(13)
4754.     m$ = m$ + "........" + Chr$(13)
4755.     arrTileText(133) = m$
4756.  
4757.     m$ = ""
4758.     m$ = m$ + "........" + Chr$(13)
4759.     m$ = m$ + "........" + Chr$(13)
4760.     m$ = m$ + "........" + Chr$(13)
4761.     m$ = m$ + "........" + Chr$(13)
4762.     m$ = m$ + "22222222" + Chr$(13)
4763.     m$ = m$ + "22222222" + Chr$(13)
4764.     m$ = m$ + "........" + Chr$(13)
4765.     m$ = m$ + "........" + Chr$(13)
4766.     arrTileText(134) = m$
4767.  
4768.     m$ = ""
4769.     m$ = m$ + "..22...." + Chr$(13)
4770.     m$ = m$ + "..22...." + Chr$(13)
4771.     m$ = m$ + "..22...." + Chr$(13)
4772.     m$ = m$ + "..22...." + Chr$(13)
4773.     m$ = m$ + "..22...." + Chr$(13)
4774.     m$ = m$ + "..22...." + Chr$(13)
4775.     m$ = m$ + "..22...." + Chr$(13)
4776.     m$ = m$ + "..22...." + Chr$(13)
4777.     arrTileText(135) = m$
4778.  
4779.     m$ = ""
4780.     m$ = m$ + "....22.." + Chr$(13)
4781.     m$ = m$ + "....22.." + Chr$(13)
4782.     m$ = m$ + "....22.." + Chr$(13)
4783.     m$ = m$ + "....22.." + Chr$(13)
4784.     m$ = m$ + "....22.." + Chr$(13)
4785.     m$ = m$ + "....22.." + Chr$(13)
4786.     m$ = m$ + "....22.." + Chr$(13)
4787.     m$ = m$ + "....22.." + Chr$(13)
4788.     arrTileText(136) = m$
4789.  
4790.     m$ = ""
4791.     m$ = m$ + "........" + Chr$(13)
4792.     m$ = m$ + "........" + Chr$(13)
4793.     m$ = m$ + "........" + Chr$(13)
4794.     m$ = m$ + "222....." + Chr$(13)
4795.     m$ = m$ + "2222...." + Chr$(13)
4796.     m$ = m$ + "..222..." + Chr$(13)
4797.     m$ = m$ + "...22..." + Chr$(13)
4798.     m$ = m$ + "...22..." + Chr$(13)
4799.     arrTileText(137) = m$
4800.  
4801.     m$ = ""
4802.     m$ = m$ + "...22..." + Chr$(13)
4803.     m$ = m$ + "...22..." + Chr$(13)
4804.     m$ = m$ + "...222.." + Chr$(13)
4805.     m$ = m$ + "....2222" + Chr$(13)
4806.     m$ = m$ + ".....222" + Chr$(13)
4807.     m$ = m$ + "........" + Chr$(13)
4808.     m$ = m$ + "........" + Chr$(13)
4809.     m$ = m$ + "........" + Chr$(13)
4810.     arrTileText(138) = m$
4811.  
4812.     m$ = ""
4813.     m$ = m$ + "...22..." + Chr$(13)
4814.     m$ = m$ + "...22..." + Chr$(13)
4815.     m$ = m$ + "..222..." + Chr$(13)
4816.     m$ = m$ + "2222...." + Chr$(13)
4817.     m$ = m$ + "222....." + Chr$(13)
4818.     m$ = m$ + "........" + Chr$(13)
4819.     m$ = m$ + "........" + Chr$(13)
4820.     m$ = m$ + "........" + Chr$(13)
4821.     arrTileText(139) = m$
4822.  
4823.     m$ = ""
4824.     m$ = m$ + "22......" + Chr$(13)
4825.     m$ = m$ + "22......" + Chr$(13)
4826.     m$ = m$ + "22......" + Chr$(13)
4827.     m$ = m$ + "22......" + Chr$(13)
4828.     m$ = m$ + "22......" + Chr$(13)
4829.     m$ = m$ + "22......" + Chr$(13)
4830.     m$ = m$ + "22222222" + Chr$(13)
4831.     m$ = m$ + "22222222" + Chr$(13)
4832.     arrTileText(140) = m$
4833.  
4834.     m$ = ""
4835.     m$ = m$ + "22......" + Chr$(13)
4836.     m$ = m$ + "222....." + Chr$(13)
4837.     m$ = m$ + ".222...." + Chr$(13)
4838.     m$ = m$ + "..222..." + Chr$(13)
4839.     m$ = m$ + "...222.." + Chr$(13)
4840.     m$ = m$ + "....222." + Chr$(13)
4841.     m$ = m$ + ".....222" + Chr$(13)
4842.     m$ = m$ + "......22" + Chr$(13)
4843.     arrTileText(141) = m$
4844.  
4845.     m$ = ""
4846.     m$ = m$ + "......22" + Chr$(13)
4847.     m$ = m$ + ".....222" + Chr$(13)
4848.     m$ = m$ + "....222." + Chr$(13)
4849.     m$ = m$ + "...222.." + Chr$(13)
4850.     m$ = m$ + "..222..." + Chr$(13)
4851.     m$ = m$ + ".222...." + Chr$(13)
4852.     m$ = m$ + "222....." + Chr$(13)
4853.     m$ = m$ + "22......" + Chr$(13)
4854.     arrTileText(142) = m$
4855.  
4856.     m$ = ""
4857.     m$ = m$ + "22222222" + Chr$(13)
4858.     m$ = m$ + "22222222" + Chr$(13)
4859.     m$ = m$ + "22......" + Chr$(13)
4860.     m$ = m$ + "22......" + Chr$(13)
4861.     m$ = m$ + "22......" + Chr$(13)
4862.     m$ = m$ + "22......" + Chr$(13)
4863.     m$ = m$ + "22......" + Chr$(13)
4864.     m$ = m$ + "22......" + Chr$(13)
4865.     arrTileText(143) = m$
4866.  
4867.     m$ = ""
4868.     m$ = m$ + "22222222" + Chr$(13)
4869.     m$ = m$ + "22222222" + Chr$(13)
4870.     m$ = m$ + "......22" + Chr$(13)
4871.     m$ = m$ + "......22" + Chr$(13)
4872.     m$ = m$ + "......22" + Chr$(13)
4873.     m$ = m$ + "......22" + Chr$(13)
4874.     m$ = m$ + "......22" + Chr$(13)
4875.     m$ = m$ + "......22" + Chr$(13)
4876.     arrTileText(144) = m$
4877.  
4878.     m$ = ""
4879.     m$ = m$ + "........" + Chr$(13)
4880.     m$ = m$ + "..2222.." + Chr$(13)
4881.     m$ = m$ + ".222222." + Chr$(13)
4882.     m$ = m$ + ".222222." + Chr$(13)
4883.     m$ = m$ + ".222222." + Chr$(13)
4884.     m$ = m$ + ".222222." + Chr$(13)
4885.     m$ = m$ + "..2222.." + Chr$(13)
4886.     m$ = m$ + "........" + Chr$(13)
4887.     arrTileText(145) = m$
4888.  
4889.     m$ = ""
4890.     m$ = m$ + "........" + Chr$(13)
4891.     m$ = m$ + "........" + Chr$(13)
4892.     m$ = m$ + "........" + Chr$(13)
4893.     m$ = m$ + "........" + Chr$(13)
4894.     m$ = m$ + "........" + Chr$(13)
4895.     m$ = m$ + "22222222" + Chr$(13)
4896.     m$ = m$ + "22222222" + Chr$(13)
4897.     m$ = m$ + "........" + Chr$(13)
4898.     arrTileText(146) = m$
4899.  
4900.     m$ = ""
4901.     m$ = m$ + "..22.22." + Chr$(13)
4902.     m$ = m$ + ".2222222" + Chr$(13)
4903.     m$ = m$ + ".2222222" + Chr$(13)
4904.     m$ = m$ + ".2222222" + Chr$(13)
4905.     m$ = m$ + "..22222." + Chr$(13)
4906.     m$ = m$ + "...222.." + Chr$(13)
4907.     m$ = m$ + "....2..." + Chr$(13)
4908.     m$ = m$ + "........" + Chr$(13)
4909.     arrTileText(147) = m$
4910.  
4911.     m$ = ""
4912.     m$ = m$ + ".22....." + Chr$(13)
4913.     m$ = m$ + ".22....." + Chr$(13)
4914.     m$ = m$ + ".22....." + Chr$(13)
4915.     m$ = m$ + ".22....." + Chr$(13)
4916.     m$ = m$ + ".22....." + Chr$(13)
4917.     m$ = m$ + ".22....." + Chr$(13)
4918.     m$ = m$ + ".22....." + Chr$(13)
4919.     m$ = m$ + ".22....." + Chr$(13)
4920.     arrTileText(148) = m$
4921.  
4922.     m$ = ""
4923.     m$ = m$ + "........" + Chr$(13)
4924.     m$ = m$ + "........" + Chr$(13)
4925.     m$ = m$ + "........" + Chr$(13)
4926.     m$ = m$ + ".....222" + Chr$(13)
4927.     m$ = m$ + "....2222" + Chr$(13)
4928.     m$ = m$ + "...222.." + Chr$(13)
4929.     m$ = m$ + "...22..." + Chr$(13)
4930.     m$ = m$ + "...22..." + Chr$(13)
4931.     arrTileText(149) = m$
4932.  
4933.     m$ = ""
4934.     m$ = m$ + "22....22" + Chr$(13)
4935.     m$ = m$ + "222..222" + Chr$(13)
4936.     m$ = m$ + ".222222." + Chr$(13)
4937.     m$ = m$ + "..2222.." + Chr$(13)
4938.     m$ = m$ + "..2222.." + Chr$(13)
4939.     m$ = m$ + ".222222." + Chr$(13)
4940.     m$ = m$ + "222..222" + Chr$(13)
4941.     m$ = m$ + "22....22" + Chr$(13)
4942.     arrTileText(150) = m$
4943.  
4944.     m$ = ""
4945.     m$ = m$ + "........" + Chr$(13)
4946.     m$ = m$ + "..2222.." + Chr$(13)
4947.     m$ = m$ + ".222222." + Chr$(13)
4948.     m$ = m$ + ".22..22." + Chr$(13)
4949.     m$ = m$ + ".22..22." + Chr$(13)
4950.     m$ = m$ + ".222222." + Chr$(13)
4951.     m$ = m$ + "..2222.." + Chr$(13)
4952.     m$ = m$ + "........" + Chr$(13)
4953.     arrTileText(151) = m$
4954.  
4955.     m$ = ""
4956.     m$ = m$ + "...22..." + Chr$(13)
4957.     m$ = m$ + "...22..." + Chr$(13)
4958.     m$ = m$ + ".22..22." + Chr$(13)
4959.     m$ = m$ + ".22..22." + Chr$(13)
4960.     m$ = m$ + "...22..." + Chr$(13)
4961.     m$ = m$ + "...22..." + Chr$(13)
4962.     m$ = m$ + "..2222.." + Chr$(13)
4963.     m$ = m$ + "........" + Chr$(13)
4964.     arrTileText(152) = m$
4965.  
4966.     m$ = ""
4967.     m$ = m$ + ".....22." + Chr$(13)
4968.     m$ = m$ + ".....22." + Chr$(13)
4969.     m$ = m$ + ".....22." + Chr$(13)
4970.     m$ = m$ + ".....22." + Chr$(13)
4971.     m$ = m$ + ".....22." + Chr$(13)
4972.     m$ = m$ + ".....22." + Chr$(13)
4973.     m$ = m$ + ".....22." + Chr$(13)
4974.     m$ = m$ + ".....22." + Chr$(13)
4975.     arrTileText(153) = m$
4976.  
4977.     m$ = ""
4978.     m$ = m$ + "....2..." + Chr$(13)
4979.     m$ = m$ + "...222.." + Chr$(13)
4980.     m$ = m$ + "..22222." + Chr$(13)
4981.     m$ = m$ + ".2222222" + Chr$(13)
4982.     m$ = m$ + "..22222." + Chr$(13)
4983.     m$ = m$ + "...222.." + Chr$(13)
4984.     m$ = m$ + "....2..." + Chr$(13)
4985.     m$ = m$ + "........" + Chr$(13)
4986.     arrTileText(154) = m$
4987.  
4988.     m$ = ""
4989.     m$ = m$ + "...22..." + Chr$(13)
4990.     m$ = m$ + "...22..." + Chr$(13)
4991.     m$ = m$ + "...22..." + Chr$(13)
4992.     m$ = m$ + "22222222" + Chr$(13)
4993.     m$ = m$ + "22222222" + Chr$(13)
4994.     m$ = m$ + "...22..." + Chr$(13)
4995.     m$ = m$ + "...22..." + Chr$(13)
4996.     m$ = m$ + "...22..." + Chr$(13)
4997.     arrTileText(155) = m$
4998.  
4999.     m$ = ""
5000.     m$ = m$ + "22......" + Chr$(13)
5001.     m$ = m$ + "22......" + Chr$(13)
5002.     m$ = m$ + "..22...." + Chr$(13)
5003.     m$ = m$ + "..22...." + Chr$(13)
5004.     m$ = m$ + "22......" + Chr$(13)
5005.     m$ = m$ + "22......" + Chr$(13)
5006.     m$ = m$ + "..22...." + Chr$(13)
5007.     m$ = m$ + "..22...." + Chr$(13)
5008.     arrTileText(156) = m$
5009.  
5010.     m$ = ""
5011.     m$ = m$ + "...22..." + Chr$(13)
5012.     m$ = m$ + "...22..." + Chr$(13)
5013.     m$ = m$ + "...22..." + Chr$(13)
5014.     m$ = m$ + "...22..." + Chr$(13)
5015.     m$ = m$ + "...22..." + Chr$(13)
5016.     m$ = m$ + "...22..." + Chr$(13)
5017.     m$ = m$ + "...22..." + Chr$(13)
5018.     m$ = m$ + "...22..." + Chr$(13)
5019.     arrTileText(157) = m$
5020.  
5021.     m$ = ""
5022.     m$ = m$ + "........" + Chr$(13)
5023.     m$ = m$ + "........" + Chr$(13)
5024.     m$ = m$ + "......22" + Chr$(13)
5025.     m$ = m$ + "..22222." + Chr$(13)
5026.     m$ = m$ + ".222.22." + Chr$(13)
5027.     m$ = m$ + "..22.22." + Chr$(13)
5028.     m$ = m$ + "..22.22." + Chr$(13)
5029.     m$ = m$ + "........" + Chr$(13)
5030.     arrTileText(158) = m$
5031.  
5032.     m$ = ""
5033.     m$ = m$ + "22222222" + Chr$(13)
5034.     m$ = m$ + ".2222222" + Chr$(13)
5035.     m$ = m$ + "..222222" + Chr$(13)
5036.     m$ = m$ + "...22222" + Chr$(13)
5037.     m$ = m$ + "....2222" + Chr$(13)
5038.     m$ = m$ + ".....222" + Chr$(13)
5039.     m$ = m$ + "......22" + Chr$(13)
5040.     m$ = m$ + ".......2" + Chr$(13)
5041.     arrTileText(159) = m$
5042.  
5043.     m$ = ""
5044.     m$ = m$ + "........" + Chr$(13)
5045.     m$ = m$ + "........" + Chr$(13)
5046.     m$ = m$ + "........" + Chr$(13)
5047.     m$ = m$ + "........" + Chr$(13)
5048.     m$ = m$ + "........" + Chr$(13)
5049.     m$ = m$ + "........" + Chr$(13)
5050.     m$ = m$ + "........" + Chr$(13)
5051.     m$ = m$ + "........" + Chr$(13)
5052.     arrTileText(160) = m$
5053.  
5054.     m$ = ""
5055.     m$ = m$ + "2222...." + Chr$(13)
5056.     m$ = m$ + "2222...." + Chr$(13)
5057.     m$ = m$ + "2222...." + Chr$(13)
5058.     m$ = m$ + "2222...." + Chr$(13)
5059.     m$ = m$ + "2222...." + Chr$(13)
5060.     m$ = m$ + "2222...." + Chr$(13)
5061.     m$ = m$ + "2222...." + Chr$(13)
5062.     m$ = m$ + "2222...." + Chr$(13)
5063.     arrTileText(161) = m$
5064.  
5065.     m$ = ""
5066.     m$ = m$ + "........" + Chr$(13)
5067.     m$ = m$ + "........" + Chr$(13)
5068.     m$ = m$ + "........" + Chr$(13)
5069.     m$ = m$ + "........" + Chr$(13)
5070.     m$ = m$ + "22222222" + Chr$(13)
5071.     m$ = m$ + "22222222" + Chr$(13)
5072.     m$ = m$ + "22222222" + Chr$(13)
5073.     m$ = m$ + "22222222" + Chr$(13)
5074.     arrTileText(162) = m$
5075.  
5076.     m$ = ""
5077.     m$ = m$ + "22222222" + Chr$(13)
5078.     m$ = m$ + "........" + Chr$(13)
5079.     m$ = m$ + "........" + Chr$(13)
5080.     m$ = m$ + "........" + Chr$(13)
5081.     m$ = m$ + "........" + Chr$(13)
5082.     m$ = m$ + "........" + Chr$(13)
5083.     m$ = m$ + "........" + Chr$(13)
5084.     m$ = m$ + "........" + Chr$(13)
5085.     arrTileText(163) = m$
5086.  
5087.     m$ = ""
5088.     m$ = m$ + "........" + Chr$(13)
5089.     m$ = m$ + "........" + Chr$(13)
5090.     m$ = m$ + "........" + Chr$(13)
5091.     m$ = m$ + "........" + Chr$(13)
5092.     m$ = m$ + "........" + Chr$(13)
5093.     m$ = m$ + "........" + Chr$(13)
5094.     m$ = m$ + "........" + Chr$(13)
5095.     m$ = m$ + "22222222" + Chr$(13)
5096.     arrTileText(164) = m$
5097.  
5098.     m$ = ""
5099.     m$ = m$ + "22......" + Chr$(13)
5100.     m$ = m$ + "22......" + Chr$(13)
5101.     m$ = m$ + "22......" + Chr$(13)
5102.     m$ = m$ + "22......" + Chr$(13)
5103.     m$ = m$ + "22......" + Chr$(13)
5104.     m$ = m$ + "22......" + Chr$(13)
5105.     m$ = m$ + "22......" + Chr$(13)
5106.     m$ = m$ + "22......" + Chr$(13)
5107.     arrTileText(165) = m$
5108.  
5109.     m$ = ""
5110.     m$ = m$ + "22..22.." + Chr$(13)
5111.     m$ = m$ + "22..22.." + Chr$(13)
5112.     m$ = m$ + "..22..22" + Chr$(13)
5113.     m$ = m$ + "..22..22" + Chr$(13)
5114.     m$ = m$ + "22..22.." + Chr$(13)
5115.     m$ = m$ + "22..22.." + Chr$(13)
5116.     m$ = m$ + "..22..22" + Chr$(13)
5117.     m$ = m$ + "..22..22" + Chr$(13)
5118.     arrTileText(166) = m$
5119.  
5120.     m$ = ""
5121.     m$ = m$ + "......22" + Chr$(13)
5122.     m$ = m$ + "......22" + Chr$(13)
5123.     m$ = m$ + "......22" + Chr$(13)
5124.     m$ = m$ + "......22" + Chr$(13)
5125.     m$ = m$ + "......22" + Chr$(13)
5126.     m$ = m$ + "......22" + Chr$(13)
5127.     m$ = m$ + "......22" + Chr$(13)
5128.     m$ = m$ + "......22" + Chr$(13)
5129.     arrTileText(167) = m$
5130.  
5131.     m$ = ""
5132.     m$ = m$ + "........" + Chr$(13)
5133.     m$ = m$ + "........" + Chr$(13)
5134.     m$ = m$ + "........" + Chr$(13)
5135.     m$ = m$ + "........" + Chr$(13)
5136.     m$ = m$ + "22..22.." + Chr$(13)
5137.     m$ = m$ + "22..22.." + Chr$(13)
5138.     m$ = m$ + "..22..22" + Chr$(13)
5139.     m$ = m$ + "..22..22" + Chr$(13)
5140.     arrTileText(168) = m$
5141.  
5142.     m$ = ""
5143.     m$ = m$ + "22222222" + Chr$(13)
5144.     m$ = m$ + "2222222." + Chr$(13)
5145.     m$ = m$ + "222222.." + Chr$(13)
5146.     m$ = m$ + "22222..." + Chr$(13)
5147.     m$ = m$ + "2222...." + Chr$(13)
5148.     m$ = m$ + "222....." + Chr$(13)
5149.     m$ = m$ + "22......" + Chr$(13)
5150.     m$ = m$ + "2......." + Chr$(13)
5151.     arrTileText(169) = m$
5152.  
5153.     m$ = ""
5154.     m$ = m$ + "......22" + Chr$(13)
5155.     m$ = m$ + "......22" + Chr$(13)
5156.     m$ = m$ + "......22" + Chr$(13)
5157.     m$ = m$ + "......22" + Chr$(13)
5158.     m$ = m$ + "......22" + Chr$(13)
5159.     m$ = m$ + "......22" + Chr$(13)
5160.     m$ = m$ + "......22" + Chr$(13)
5161.     m$ = m$ + "......22" + Chr$(13)
5162.     arrTileText(170) = m$
5163.  
5164.     m$ = ""
5165.     m$ = m$ + "...22..." + Chr$(13)
5166.     m$ = m$ + "...22..." + Chr$(13)
5167.     m$ = m$ + "...22..." + Chr$(13)
5168.     m$ = m$ + "...22222" + Chr$(13)
5169.     m$ = m$ + "...22222" + Chr$(13)
5170.     m$ = m$ + "...22..." + Chr$(13)
5171.     m$ = m$ + "...22..." + Chr$(13)
5172.     m$ = m$ + "...22..." + Chr$(13)
5173.     arrTileText(171) = m$
5174.  
5175.     m$ = ""
5176.     m$ = m$ + "........" + Chr$(13)
5177.     m$ = m$ + "........" + Chr$(13)
5178.     m$ = m$ + "........" + Chr$(13)
5179.     m$ = m$ + "........" + Chr$(13)
5180.     m$ = m$ + "....2222" + Chr$(13)
5181.     m$ = m$ + "....2222" + Chr$(13)
5182.     m$ = m$ + "....2222" + Chr$(13)
5183.     m$ = m$ + "....2222" + Chr$(13)
5184.     arrTileText(172) = m$
5185.  
5186.     m$ = ""
5187.     m$ = m$ + "...22..." + Chr$(13)
5188.     m$ = m$ + "...22..." + Chr$(13)
5189.     m$ = m$ + "...22..." + Chr$(13)
5190.     m$ = m$ + "...22222" + Chr$(13)
5191.     m$ = m$ + "...22222" + Chr$(13)
5192.     m$ = m$ + "........" + Chr$(13)
5193.     m$ = m$ + "........" + Chr$(13)
5194.     m$ = m$ + "........" + Chr$(13)
5195.     arrTileText(173) = m$
5196.  
5197.     m$ = ""
5198.     m$ = m$ + "........" + Chr$(13)
5199.     m$ = m$ + "........" + Chr$(13)
5200.     m$ = m$ + "........" + Chr$(13)
5201.     m$ = m$ + "22222..." + Chr$(13)
5202.     m$ = m$ + "22222..." + Chr$(13)
5203.     m$ = m$ + "...22..." + Chr$(13)
5204.     m$ = m$ + "...22..." + Chr$(13)
5205.     m$ = m$ + "...22..." + Chr$(13)
5206.     arrTileText(174) = m$
5207.  
5208.     m$ = ""
5209.     m$ = m$ + "........" + Chr$(13)
5210.     m$ = m$ + "........" + Chr$(13)
5211.     m$ = m$ + "........" + Chr$(13)
5212.     m$ = m$ + "........" + Chr$(13)
5213.     m$ = m$ + "........" + Chr$(13)
5214.     m$ = m$ + "........" + Chr$(13)
5215.     m$ = m$ + "22222222" + Chr$(13)
5216.     m$ = m$ + "22222222" + Chr$(13)
5217.     arrTileText(175) = m$
5218.  
5219.     m$ = ""
5220.     m$ = m$ + "........" + Chr$(13)
5221.     m$ = m$ + "........" + Chr$(13)
5222.     m$ = m$ + "........" + Chr$(13)
5223.     m$ = m$ + "...22222" + Chr$(13)
5224.     m$ = m$ + "...22222" + Chr$(13)
5225.     m$ = m$ + "...22..." + Chr$(13)
5226.     m$ = m$ + "...22..." + Chr$(13)
5227.     m$ = m$ + "...22..." + Chr$(13)
5228.     arrTileText(176) = m$
5229.  
5230.     m$ = ""
5231.     m$ = m$ + "...22..." + Chr$(13)
5232.     m$ = m$ + "...22..." + Chr$(13)
5233.     m$ = m$ + "...22..." + Chr$(13)
5234.     m$ = m$ + "22222222" + Chr$(13)
5235.     m$ = m$ + "22222222" + Chr$(13)
5236.     m$ = m$ + "........" + Chr$(13)
5237.     m$ = m$ + "........" + Chr$(13)
5238.     m$ = m$ + "........" + Chr$(13)
5239.     arrTileText(177) = m$
5240.  
5241.     m$ = ""
5242.     m$ = m$ + "........" + Chr$(13)
5243.     m$ = m$ + "........" + Chr$(13)
5244.     m$ = m$ + "........" + Chr$(13)
5245.     m$ = m$ + "22222222" + Chr$(13)
5246.     m$ = m$ + "22222222" + Chr$(13)
5247.     m$ = m$ + "...22..." + Chr$(13)
5248.     m$ = m$ + "...22..." + Chr$(13)
5249.     m$ = m$ + "...22..." + Chr$(13)
5250.     arrTileText(178) = m$
5251.  
5252.     m$ = ""
5253.     m$ = m$ + "...22..." + Chr$(13)
5254.     m$ = m$ + "...22..." + Chr$(13)
5255.     m$ = m$ + "...22..." + Chr$(13)
5256.     m$ = m$ + "22222..." + Chr$(13)
5257.     m$ = m$ + "22222..." + Chr$(13)
5258.     m$ = m$ + "...22..." + Chr$(13)
5259.     m$ = m$ + "...22..." + Chr$(13)
5260.     m$ = m$ + "...22..." + Chr$(13)
5261.     arrTileText(179) = m$
5262.  
5263.     m$ = ""
5264.     m$ = m$ + "22......" + Chr$(13)
5265.     m$ = m$ + "22......" + Chr$(13)
5266.     m$ = m$ + "22......" + Chr$(13)
5267.     m$ = m$ + "22......" + Chr$(13)
5268.     m$ = m$ + "22......" + Chr$(13)
5269.     m$ = m$ + "22......" + Chr$(13)
5270.     m$ = m$ + "22......" + Chr$(13)
5271.     m$ = m$ + "22......" + Chr$(13)
5272.     arrTileText(180) = m$
5273.  
5274.     m$ = ""
5275.     m$ = m$ + "222....." + Chr$(13)
5276.     m$ = m$ + "222....." + Chr$(13)
5277.     m$ = m$ + "222....." + Chr$(13)
5278.     m$ = m$ + "222....." + Chr$(13)
5279.     m$ = m$ + "222....." + Chr$(13)
5280.     m$ = m$ + "222....." + Chr$(13)
5281.     m$ = m$ + "222....." + Chr$(13)
5282.     m$ = m$ + "222....." + Chr$(13)
5283.     arrTileText(181) = m$
5284.  
5285.     m$ = ""
5286.     m$ = m$ + ".....222" + Chr$(13)
5287.     m$ = m$ + ".....222" + Chr$(13)
5288.     m$ = m$ + ".....222" + Chr$(13)
5289.     m$ = m$ + ".....222" + Chr$(13)
5290.     m$ = m$ + ".....222" + Chr$(13)
5291.     m$ = m$ + ".....222" + Chr$(13)
5292.     m$ = m$ + ".....222" + Chr$(13)
5293.     m$ = m$ + ".....222" + Chr$(13)
5294.     arrTileText(182) = m$
5295.  
5296.     m$ = ""
5297.     m$ = m$ + "22222222" + Chr$(13)
5298.     m$ = m$ + "22222222" + Chr$(13)
5299.     m$ = m$ + "........" + Chr$(13)
5300.     m$ = m$ + "........" + Chr$(13)
5301.     m$ = m$ + "........" + Chr$(13)
5302.     m$ = m$ + "........" + Chr$(13)
5303.     m$ = m$ + "........" + Chr$(13)
5304.     m$ = m$ + "........" + Chr$(13)
5305.     arrTileText(183) = m$
5306.  
5307.     m$ = ""
5308.     m$ = m$ + "22222222" + Chr$(13)
5309.     m$ = m$ + "22222222" + Chr$(13)
5310.     m$ = m$ + "22222222" + Chr$(13)
5311.     m$ = m$ + "........" + Chr$(13)
5312.     m$ = m$ + "........" + Chr$(13)
5313.     m$ = m$ + "........" + Chr$(13)
5314.     m$ = m$ + "........" + Chr$(13)
5315.     m$ = m$ + "........" + Chr$(13)
5316.     arrTileText(184) = m$
5317.  
5318.     m$ = ""
5319.     m$ = m$ + "........" + Chr$(13)
5320.     m$ = m$ + "........" + Chr$(13)
5321.     m$ = m$ + "........" + Chr$(13)
5322.     m$ = m$ + "........" + Chr$(13)
5323.     m$ = m$ + "........" + Chr$(13)
5324.     m$ = m$ + "22222222" + Chr$(13)
5325.     m$ = m$ + "22222222" + Chr$(13)
5326.     m$ = m$ + "22222222" + Chr$(13)
5327.     arrTileText(185) = m$
5328.  
5329.     m$ = ""
5330.     m$ = m$ + "......22" + Chr$(13)
5331.     m$ = m$ + "......22" + Chr$(13)
5332.     m$ = m$ + "......22" + Chr$(13)
5333.     m$ = m$ + "......22" + Chr$(13)
5334.     m$ = m$ + "......22" + Chr$(13)
5335.     m$ = m$ + "......22" + Chr$(13)
5336.     m$ = m$ + "22222222" + Chr$(13)
5337.     m$ = m$ + "22222222" + Chr$(13)
5338.     arrTileText(186) = m$
5339.  
5340.     m$ = ""
5341.     m$ = m$ + "........" + Chr$(13)
5342.     m$ = m$ + "........" + Chr$(13)
5343.     m$ = m$ + "........" + Chr$(13)
5344.     m$ = m$ + "........" + Chr$(13)
5345.     m$ = m$ + "2222...." + Chr$(13)
5346.     m$ = m$ + "2222...." + Chr$(13)
5347.     m$ = m$ + "2222...." + Chr$(13)
5348.     m$ = m$ + "2222...." + Chr$(13)
5349.     arrTileText(187) = m$
5350.  
5351.     m$ = ""
5352.     m$ = m$ + "....2222" + Chr$(13)
5353.     m$ = m$ + "....2222" + Chr$(13)
5354.     m$ = m$ + "....2222" + Chr$(13)
5355.     m$ = m$ + "....2222" + Chr$(13)
5356.     m$ = m$ + "........" + Chr$(13)
5357.     m$ = m$ + "........" + Chr$(13)
5358.     m$ = m$ + "........" + Chr$(13)
5359.     m$ = m$ + "........" + Chr$(13)
5360.     arrTileText(188) = m$
5361.  
5362.     m$ = ""
5363.     m$ = m$ + "...22..." + Chr$(13)
5364.     m$ = m$ + "...22..." + Chr$(13)
5365.     m$ = m$ + "...22..." + Chr$(13)
5366.     m$ = m$ + "22222..." + Chr$(13)
5367.     m$ = m$ + "22222..." + Chr$(13)
5368.     m$ = m$ + "........" + Chr$(13)
5369.     m$ = m$ + "........" + Chr$(13)
5370.     m$ = m$ + "........" + Chr$(13)
5371.     arrTileText(189) = m$
5372.  
5373.     m$ = ""
5374.     m$ = m$ + "2222...." + Chr$(13)
5375.     m$ = m$ + "2222...." + Chr$(13)
5376.     m$ = m$ + "2222...." + Chr$(13)
5377.     m$ = m$ + "2222...." + Chr$(13)
5378.     m$ = m$ + "........" + Chr$(13)
5379.     m$ = m$ + "........" + Chr$(13)
5380.     m$ = m$ + "........" + Chr$(13)
5381.     m$ = m$ + "........" + Chr$(13)
5382.     arrTileText(190) = m$
5383.  
5384.     m$ = ""
5385.     m$ = m$ + "2222...." + Chr$(13)
5386.     m$ = m$ + "2222...." + Chr$(13)
5387.     m$ = m$ + "2222...." + Chr$(13)
5388.     m$ = m$ + "2222...." + Chr$(13)
5389.     m$ = m$ + "....2222" + Chr$(13)
5390.     m$ = m$ + "....2222" + Chr$(13)
5391.     m$ = m$ + "....2222" + Chr$(13)
5392.     m$ = m$ + "....2222" + Chr$(13)
5393.     arrTileText(191) = m$
5394.  
5395.     m$ = ""
5396.     m$ = m$ + "........" + Chr$(13)
5397.     m$ = m$ + ".2222222" + Chr$(13)
5398.     m$ = m$ + ".2.....2" + Chr$(13)
5399.     m$ = m$ + ".2.....2" + Chr$(13)
5400.     m$ = m$ + ".2.....2" + Chr$(13)
5401.     m$ = m$ + ".2.....2" + Chr$(13)
5402.     m$ = m$ + ".2.....2" + Chr$(13)
5403.     m$ = m$ + ".2222222" + Chr$(13)
5404.     arrTileText(192) = m$
5405.  
5406.     m$ = ""
5407.     m$ = m$ + "........" + Chr$(13)
5408.     m$ = m$ + ".2222222" + Chr$(13)
5409.     m$ = m$ + ".2222222" + Chr$(13)
5410.     m$ = m$ + ".2222222" + Chr$(13)
5411.     m$ = m$ + ".2222222" + Chr$(13)
5412.     m$ = m$ + ".2222222" + Chr$(13)
5413.     m$ = m$ + ".2222222" + Chr$(13)
5414.     m$ = m$ + ".2222222" + Chr$(13)
5415.     arrTileText(193) = m$
5416.  
5417.     m$ = ""
5418.     m$ = m$ + "........" + Chr$(13)
5419.     m$ = m$ + "...22..." + Chr$(13)
5420.     m$ = m$ + "..2222.." + Chr$(13)
5421.     m$ = m$ + ".222222." + Chr$(13)
5422.     m$ = m$ + "...22..." + Chr$(13)
5423.     m$ = m$ + "...22..." + Chr$(13)
5424.     m$ = m$ + "...22..." + Chr$(13)
5425.     m$ = m$ + "...22..." + Chr$(13)
5426.     arrTileText(194) = m$
5427.  
5428.     m$ = ""
5429.     m$ = m$ + "........" + Chr$(13)
5430.     m$ = m$ + "...22..." + Chr$(13)
5431.     m$ = m$ + "...22..." + Chr$(13)
5432.     m$ = m$ + "...22..." + Chr$(13)
5433.     m$ = m$ + "...22..." + Chr$(13)
5434.     m$ = m$ + ".222222." + Chr$(13)
5435.     m$ = m$ + "..2222.." + Chr$(13)
5436.     m$ = m$ + "...22..." + Chr$(13)
5437.     arrTileText(195) = m$
5438.  
5439.     m$ = ""
5440.     m$ = m$ + "........" + Chr$(13)
5441.     m$ = m$ + "...2...." + Chr$(13)
5442.     m$ = m$ + "..22...." + Chr$(13)
5443.     m$ = m$ + ".2222222" + Chr$(13)
5444.     m$ = m$ + ".2222222" + Chr$(13)
5445.     m$ = m$ + "..22...." + Chr$(13)
5446.     m$ = m$ + "...2...." + Chr$(13)
5447.     m$ = m$ + "........" + Chr$(13)
5448.     arrTileText(196) = m$
5449.  
5450.     m$ = ""
5451.     m$ = m$ + "........" + Chr$(13)
5452.     m$ = m$ + ".....2.." + Chr$(13)
5453.     m$ = m$ + ".....22." + Chr$(13)
5454.     m$ = m$ + ".2222222" + Chr$(13)
5455.     m$ = m$ + ".2222222" + Chr$(13)
5456.     m$ = m$ + ".....22." + Chr$(13)
5457.     m$ = m$ + ".....2.." + Chr$(13)
5458.     m$ = m$ + "........" + Chr$(13)
5459.     arrTileText(197) = m$
5460.  
5461.     m$ = ""
5462.     m$ = m$ + "........" + Chr$(13)
5463.     m$ = m$ + "........" + Chr$(13)
5464.     m$ = m$ + "........" + Chr$(13)
5465.     m$ = m$ + "........" + Chr$(13)
5466.     m$ = m$ + "........" + Chr$(13)
5467.     m$ = m$ + "........" + Chr$(13)
5468.     m$ = m$ + "........" + Chr$(13)
5469.     m$ = m$ + "........" + Chr$(13)
5470.     arrTileText(198) = m$
5471.  
5472.     m$ = ""
5473.     m$ = m$ + ".222222." + Chr$(13)
5474.     m$ = m$ + "2......2" + Chr$(13)
5475.     m$ = m$ + "2.2..2.2" + Chr$(13)
5476.     m$ = m$ + "2......2" + Chr$(13)
5477.     m$ = m$ + "2.2..2.2" + Chr$(13)
5478.     m$ = m$ + "2.2222.2" + Chr$(13)
5479.     m$ = m$ + "2......2" + Chr$(13)
5480.     m$ = m$ + ".222222." + Chr$(13)
5481.     arrTileText(199) = m$
5482.  
5483.     m$ = ""
5484.     m$ = m$ + ".222222." + Chr$(13)
5485.     m$ = m$ + "2......2" + Chr$(13)
5486.     m$ = m$ + "2.2..2.2" + Chr$(13)
5487.     m$ = m$ + "2......2" + Chr$(13)
5488.     m$ = m$ + "2.2222.2" + Chr$(13)
5489.     m$ = m$ + "2.2..2.2" + Chr$(13)
5490.     m$ = m$ + "2......2" + Chr$(13)
5491.     m$ = m$ + ".222222." + Chr$(13)
5492.     arrTileText(200) = m$
5493.  
5494.     m$ = ""
5495.     m$ = m$ + "........" + Chr$(13)
5496.     m$ = m$ + "........" + Chr$(13)
5497.     m$ = m$ + "........" + Chr$(13)
5498.     m$ = m$ + "........" + Chr$(13)
5499.     m$ = m$ + "........" + Chr$(13)
5500.     m$ = m$ + "........" + Chr$(13)
5501.     m$ = m$ + "........" + Chr$(13)
5502.     m$ = m$ + "........" + Chr$(13)
5503.     arrTileText(201) = m$
5504.  
5505.     m$ = ""
5506.     m$ = m$ + ".222222." + Chr$(13)
5507.     m$ = m$ + ".....22." + Chr$(13)
5508.     m$ = m$ + "....22.." + Chr$(13)
5509.     m$ = m$ + "...22..." + Chr$(13)
5510.     m$ = m$ + "..22...." + Chr$(13)
5511.     m$ = m$ + ".22....." + Chr$(13)
5512.     m$ = m$ + ".222222." + Chr$(13)
5513.     m$ = m$ + "........" + Chr$(13)
5514.     arrTileText(202) = m$
5515.  
5516.     m$ = ""
5517.     m$ = m$ + "...22..." + Chr$(13)
5518.     m$ = m$ + "...22..." + Chr$(13)
5519.     m$ = m$ + "...22..." + Chr$(13)
5520.     m$ = m$ + "22222222" + Chr$(13)
5521.     m$ = m$ + "22222222" + Chr$(13)
5522.     m$ = m$ + "...22..." + Chr$(13)
5523.     m$ = m$ + "...22..." + Chr$(13)
5524.     m$ = m$ + "...22..." + Chr$(13)
5525.     arrTileText(203) = m$
5526.  
5527.     m$ = ""
5528.     m$ = m$ + "22......" + Chr$(13)
5529.     m$ = m$ + "22......" + Chr$(13)
5530.     m$ = m$ + "..22...." + Chr$(13)
5531.     m$ = m$ + "..22...." + Chr$(13)
5532.     m$ = m$ + "22......" + Chr$(13)
5533.     m$ = m$ + "22......" + Chr$(13)
5534.     m$ = m$ + "..22...." + Chr$(13)
5535.     m$ = m$ + "..22...." + Chr$(13)
5536.     arrTileText(204) = m$
5537.  
5538.     m$ = ""
5539.     m$ = m$ + "...22..." + Chr$(13)
5540.     m$ = m$ + "...22..." + Chr$(13)
5541.     m$ = m$ + "...22..." + Chr$(13)
5542.     m$ = m$ + "...22..." + Chr$(13)
5543.     m$ = m$ + "...22..." + Chr$(13)
5544.     m$ = m$ + "...22..." + Chr$(13)
5545.     m$ = m$ + "...22..." + Chr$(13)
5546.     m$ = m$ + "...22..." + Chr$(13)
5547.     arrTileText(205) = m$
5548.  
5549.     m$ = ""
5550.     m$ = m$ + "..22..22" + Chr$(13)
5551.     m$ = m$ + "..22..22" + Chr$(13)
5552.     m$ = m$ + "22..22.." + Chr$(13)
5553.     m$ = m$ + "22..22.." + Chr$(13)
5554.     m$ = m$ + "..22..22" + Chr$(13)
5555.     m$ = m$ + "..22..22" + Chr$(13)
5556.     m$ = m$ + "22..22.." + Chr$(13)
5557.     m$ = m$ + "22..22.." + Chr$(13)
5558.     arrTileText(206) = m$
5559.  
5560.     m$ = ""
5561.     m$ = m$ + "..22..22" + Chr$(13)
5562.     m$ = m$ + "2..22..2" + Chr$(13)
5563.     m$ = m$ + "22..22.." + Chr$(13)
5564.     m$ = m$ + ".22..22." + Chr$(13)
5565.     m$ = m$ + "..22..22" + Chr$(13)
5566.     m$ = m$ + "2..22..2" + Chr$(13)
5567.     m$ = m$ + "22..22.." + Chr$(13)
5568.     m$ = m$ + ".22..22." + Chr$(13)
5569.     arrTileText(207) = m$
5570.  
5571.     m$ = ""
5572.     m$ = m$ + "........" + Chr$(13)
5573.     m$ = m$ + "........" + Chr$(13)
5574.     m$ = m$ + "........" + Chr$(13)
5575.     m$ = m$ + "........" + Chr$(13)
5576.     m$ = m$ + "........" + Chr$(13)
5577.     m$ = m$ + "........" + Chr$(13)
5578.     m$ = m$ + "........" + Chr$(13)
5579.     m$ = m$ + "........" + Chr$(13)
5580.     arrTileText(208) = m$
5581.  
5582.     m$ = ""
5583.     m$ = m$ + "2222...." + Chr$(13)
5584.     m$ = m$ + "2222...." + Chr$(13)
5585.     m$ = m$ + "2222...." + Chr$(13)
5586.     m$ = m$ + "2222...." + Chr$(13)
5587.     m$ = m$ + "2222...." + Chr$(13)
5588.     m$ = m$ + "2222...." + Chr$(13)
5589.     m$ = m$ + "2222...." + Chr$(13)
5590.     m$ = m$ + "2222...." + Chr$(13)
5591.     arrTileText(209) = m$
5592.  
5593.     m$ = ""
5594.     m$ = m$ + "........" + Chr$(13)
5595.     m$ = m$ + "........" + Chr$(13)
5596.     m$ = m$ + "........" + Chr$(13)
5597.     m$ = m$ + "........" + Chr$(13)
5598.     m$ = m$ + "22222222" + Chr$(13)
5599.     m$ = m$ + "22222222" + Chr$(13)
5600.     m$ = m$ + "22222222" + Chr$(13)
5601.     m$ = m$ + "22222222" + Chr$(13)
5602.     arrTileText(210) = m$
5603.  
5604.     m$ = ""
5605.     m$ = m$ + "22222222" + Chr$(13)
5606.     m$ = m$ + "........" + Chr$(13)
5607.     m$ = m$ + "........" + Chr$(13)
5608.     m$ = m$ + "........" + Chr$(13)
5609.     m$ = m$ + "........" + Chr$(13)
5610.     m$ = m$ + "........" + Chr$(13)
5611.     m$ = m$ + "........" + Chr$(13)
5612.     m$ = m$ + "........" + Chr$(13)
5613.     arrTileText(211) = m$
5614.  
5615.     m$ = ""
5616.     m$ = m$ + "........" + Chr$(13)
5617.     m$ = m$ + "........" + Chr$(13)
5618.     m$ = m$ + "........" + Chr$(13)
5619.     m$ = m$ + "........" + Chr$(13)
5620.     m$ = m$ + "........" + Chr$(13)
5621.     m$ = m$ + "........" + Chr$(13)
5622.     m$ = m$ + "........" + Chr$(13)
5623.     m$ = m$ + "22222222" + Chr$(13)
5624.     arrTileText(212) = m$
5625.  
5626.     m$ = ""
5627.     m$ = m$ + "22......" + Chr$(13)
5628.     m$ = m$ + "22......" + Chr$(13)
5629.     m$ = m$ + "22......" + Chr$(13)
5630.     m$ = m$ + "22......" + Chr$(13)
5631.     m$ = m$ + "22......" + Chr$(13)
5632.     m$ = m$ + "22......" + Chr$(13)
5633.     m$ = m$ + "22......" + Chr$(13)
5634.     m$ = m$ + "22......" + Chr$(13)
5635.     arrTileText(213) = m$
5636.  
5637.     m$ = ""
5638.     m$ = m$ + "22..22.." + Chr$(13)
5639.     m$ = m$ + "22..22.." + Chr$(13)
5640.     m$ = m$ + "..22..22" + Chr$(13)
5641.     m$ = m$ + "..22..22" + Chr$(13)
5642.     m$ = m$ + "22..22.." + Chr$(13)
5643.     m$ = m$ + "22..22.." + Chr$(13)
5644.     m$ = m$ + "..22..22" + Chr$(13)
5645.     m$ = m$ + "..22..22" + Chr$(13)
5646.     arrTileText(214) = m$
5647.  
5648.     m$ = ""
5649.     m$ = m$ + "......22" + Chr$(13)
5650.     m$ = m$ + "......22" + Chr$(13)
5651.     m$ = m$ + "......22" + Chr$(13)
5652.     m$ = m$ + "......22" + Chr$(13)
5653.     m$ = m$ + "......22" + Chr$(13)
5654.     m$ = m$ + "......22" + Chr$(13)
5655.     m$ = m$ + "......22" + Chr$(13)
5656.     m$ = m$ + "......22" + Chr$(13)
5657.     arrTileText(215) = m$
5658.  
5659.     m$ = ""
5660.     m$ = m$ + "........" + Chr$(13)
5661.     m$ = m$ + "........" + Chr$(13)
5662.     m$ = m$ + "........" + Chr$(13)
5663.     m$ = m$ + "........" + Chr$(13)
5664.     m$ = m$ + "22..22.." + Chr$(13)
5665.     m$ = m$ + "22..22.." + Chr$(13)
5666.     m$ = m$ + "..22..22" + Chr$(13)
5667.     m$ = m$ + "..22..22" + Chr$(13)
5668.     arrTileText(216) = m$
5669.  
5670.     m$ = ""
5671.     m$ = m$ + "22..22.." + Chr$(13)
5672.     m$ = m$ + "2..22..2" + Chr$(13)
5673.     m$ = m$ + "..22..22" + Chr$(13)
5674.     m$ = m$ + ".22..22." + Chr$(13)
5675.     m$ = m$ + "22..22.." + Chr$(13)
5676.     m$ = m$ + "2..22..2" + Chr$(13)
5677.     m$ = m$ + "..22..22" + Chr$(13)
5678.     m$ = m$ + ".22..22." + Chr$(13)
5679.     arrTileText(217) = m$
5680.  
5681.     m$ = ""
5682.     m$ = m$ + "......22" + Chr$(13)
5683.     m$ = m$ + "......22" + Chr$(13)
5684.     m$ = m$ + "......22" + Chr$(13)
5685.     m$ = m$ + "......22" + Chr$(13)
5686.     m$ = m$ + "......22" + Chr$(13)
5687.     m$ = m$ + "......22" + Chr$(13)
5688.     m$ = m$ + "......22" + Chr$(13)
5689.     m$ = m$ + "......22" + Chr$(13)
5690.     arrTileText(218) = m$
5691.  
5692.     m$ = ""
5693.     m$ = m$ + "...22..." + Chr$(13)
5694.     m$ = m$ + "...22..." + Chr$(13)
5695.     m$ = m$ + "...22..." + Chr$(13)
5696.     m$ = m$ + "...22222" + Chr$(13)
5697.     m$ = m$ + "...22222" + Chr$(13)
5698.     m$ = m$ + "...22..." + Chr$(13)
5699.     m$ = m$ + "...22..." + Chr$(13)
5700.     m$ = m$ + "...22..." + Chr$(13)
5701.     arrTileText(219) = m$
5702.  
5703.     m$ = ""
5704.     m$ = m$ + "........" + Chr$(13)
5705.     m$ = m$ + "........" + Chr$(13)
5706.     m$ = m$ + "........" + Chr$(13)
5707.     m$ = m$ + "........" + Chr$(13)
5708.     m$ = m$ + "....2222" + Chr$(13)
5709.     m$ = m$ + "....2222" + Chr$(13)
5710.     m$ = m$ + "....2222" + Chr$(13)
5711.     m$ = m$ + "....2222" + Chr$(13)
5712.     arrTileText(220) = m$
5713.  
5714.     m$ = ""
5715.     m$ = m$ + "...22..." + Chr$(13)
5716.     m$ = m$ + "...22..." + Chr$(13)
5717.     m$ = m$ + "...22..." + Chr$(13)
5718.     m$ = m$ + "...22222" + Chr$(13)
5719.     m$ = m$ + "...22222" + Chr$(13)
5720.     m$ = m$ + "........" + Chr$(13)
5721.     m$ = m$ + "........" + Chr$(13)
5722.     m$ = m$ + "........" + Chr$(13)
5723.     arrTileText(221) = m$
5724.  
5725.     m$ = ""
5726.     m$ = m$ + "........" + Chr$(13)
5727.     m$ = m$ + "........" + Chr$(13)
5728.     m$ = m$ + "........" + Chr$(13)
5729.     m$ = m$ + "22222..." + Chr$(13)
5730.     m$ = m$ + "22222..." + Chr$(13)
5731.     m$ = m$ + "...22..." + Chr$(13)
5732.     m$ = m$ + "...22..." + Chr$(13)
5733.     m$ = m$ + "...22..." + Chr$(13)
5734.     arrTileText(222) = m$
5735.  
5736.     m$ = ""
5737.     m$ = m$ + "........" + Chr$(13)
5738.     m$ = m$ + "........" + Chr$(13)
5739.     m$ = m$ + "........" + Chr$(13)
5740.     m$ = m$ + "........" + Chr$(13)
5741.     m$ = m$ + "........" + Chr$(13)
5742.     m$ = m$ + "........" + Chr$(13)
5743.     m$ = m$ + "22222222" + Chr$(13)
5744.     m$ = m$ + "22222222" + Chr$(13)
5745.     arrTileText(223) = m$
5746.  
5747.     m$ = ""
5748.     m$ = m$ + "........" + Chr$(13)
5749.     m$ = m$ + "........" + Chr$(13)
5750.     m$ = m$ + "........" + Chr$(13)
5751.     m$ = m$ + "...22222" + Chr$(13)
5752.     m$ = m$ + "...22222" + Chr$(13)
5753.     m$ = m$ + "...22..." + Chr$(13)
5754.     m$ = m$ + "...22..." + Chr$(13)
5755.     m$ = m$ + "...22..." + Chr$(13)
5756.     arrTileText(224) = m$
5757.  
5758.     m$ = ""
5759.     m$ = m$ + "...22..." + Chr$(13)
5760.     m$ = m$ + "...22..." + Chr$(13)
5761.     m$ = m$ + "...22..." + Chr$(13)
5762.     m$ = m$ + "22222222" + Chr$(13)
5763.     m$ = m$ + "22222222" + Chr$(13)
5764.     m$ = m$ + "........" + Chr$(13)
5765.     m$ = m$ + "........" + Chr$(13)
5766.     m$ = m$ + "........" + Chr$(13)
5767.     arrTileText(225) = m$
5768.  
5769.     m$ = ""
5770.     m$ = m$ + "........" + Chr$(13)
5771.     m$ = m$ + "........" + Chr$(13)
5772.     m$ = m$ + "........" + Chr$(13)
5773.     m$ = m$ + "22222222" + Chr$(13)
5774.     m$ = m$ + "22222222" + Chr$(13)
5775.     m$ = m$ + "...22..." + Chr$(13)
5776.     m$ = m$ + "...22..." + Chr$(13)
5777.     m$ = m$ + "...22..." + Chr$(13)
5778.     arrTileText(226) = m$
5779.  
5780.     m$ = ""
5781.     m$ = m$ + "...22..." + Chr$(13)
5782.     m$ = m$ + "...22..." + Chr$(13)
5783.     m$ = m$ + "...22..." + Chr$(13)
5784.     m$ = m$ + "22222..." + Chr$(13)
5785.     m$ = m$ + "22222..." + Chr$(13)
5786.     m$ = m$ + "...22..." + Chr$(13)
5787.     m$ = m$ + "...22..." + Chr$(13)
5788.     m$ = m$ + "...22..." + Chr$(13)
5789.     arrTileText(227) = m$
5790.  
5791.     m$ = ""
5792.     m$ = m$ + "22......" + Chr$(13)
5793.     m$ = m$ + "22......" + Chr$(13)
5794.     m$ = m$ + "22......" + Chr$(13)
5795.     m$ = m$ + "22......" + Chr$(13)
5796.     m$ = m$ + "22......" + Chr$(13)
5797.     m$ = m$ + "22......" + Chr$(13)
5798.     m$ = m$ + "22......" + Chr$(13)
5799.     m$ = m$ + "22......" + Chr$(13)
5800.     arrTileText(228) = m$
5801.  
5802.     m$ = ""
5803.     m$ = m$ + "222....." + Chr$(13)
5804.     m$ = m$ + "222....." + Chr$(13)
5805.     m$ = m$ + "222....." + Chr$(13)
5806.     m$ = m$ + "222....." + Chr$(13)
5807.     m$ = m$ + "222....." + Chr$(13)
5808.     m$ = m$ + "222....." + Chr$(13)
5809.     m$ = m$ + "222....." + Chr$(13)
5810.     m$ = m$ + "222....." + Chr$(13)
5811.     arrTileText(229) = m$
5812.  
5813.     m$ = ""
5814.     m$ = m$ + ".....222" + Chr$(13)
5815.     m$ = m$ + ".....222" + Chr$(13)
5816.     m$ = m$ + ".....222" + Chr$(13)
5817.     m$ = m$ + ".....222" + Chr$(13)
5818.     m$ = m$ + ".....222" + Chr$(13)
5819.     m$ = m$ + ".....222" + Chr$(13)
5820.     m$ = m$ + ".....222" + Chr$(13)
5821.     m$ = m$ + ".....222" + Chr$(13)
5822.     arrTileText(230) = m$
5823.  
5824.     m$ = ""
5825.     m$ = m$ + "22222222" + Chr$(13)
5826.     m$ = m$ + "22222222" + Chr$(13)
5827.     m$ = m$ + "........" + Chr$(13)
5828.     m$ = m$ + "........" + Chr$(13)
5829.     m$ = m$ + "........" + Chr$(13)
5830.     m$ = m$ + "........" + Chr$(13)
5831.     m$ = m$ + "........" + Chr$(13)
5832.     m$ = m$ + "........" + Chr$(13)
5833.     arrTileText(231) = m$
5834.  
5835.     m$ = ""
5836.     m$ = m$ + "22222222" + Chr$(13)
5837.     m$ = m$ + "22222222" + Chr$(13)
5838.     m$ = m$ + "22222222" + Chr$(13)
5839.     m$ = m$ + "........" + Chr$(13)
5840.     m$ = m$ + "........" + Chr$(13)
5841.     m$ = m$ + "........" + Chr$(13)
5842.     m$ = m$ + "........" + Chr$(13)
5843.     m$ = m$ + "........" + Chr$(13)
5844.     arrTileText(232) = m$
5845.  
5846.     m$ = ""
5847.     m$ = m$ + "........" + Chr$(13)
5848.     m$ = m$ + "........" + Chr$(13)
5849.     m$ = m$ + "........" + Chr$(13)
5850.     m$ = m$ + "........" + Chr$(13)
5851.     m$ = m$ + "........" + Chr$(13)
5852.     m$ = m$ + "22222222" + Chr$(13)
5853.     m$ = m$ + "22222222" + Chr$(13)
5854.     m$ = m$ + "22222222" + Chr$(13)
5855.     arrTileText(233) = m$
5856.  
5857.     m$ = ""
5858.     m$ = m$ + ".......2" + Chr$(13)
5859.     m$ = m$ + "......22" + Chr$(13)
5860.     m$ = m$ + ".....22." + Chr$(13)
5861.     m$ = m$ + ".22.22.." + Chr$(13)
5862.     m$ = m$ + ".2222..." + Chr$(13)
5863.     m$ = m$ + ".222...." + Chr$(13)
5864.     m$ = m$ + ".22....." + Chr$(13)
5865.     m$ = m$ + "........" + Chr$(13)
5866.     arrTileText(234) = m$
5867.  
5868.     m$ = ""
5869.     m$ = m$ + "........" + Chr$(13)
5870.     m$ = m$ + "........" + Chr$(13)
5871.     m$ = m$ + "........" + Chr$(13)
5872.     m$ = m$ + "........" + Chr$(13)
5873.     m$ = m$ + "2222...." + Chr$(13)
5874.     m$ = m$ + "2222...." + Chr$(13)
5875.     m$ = m$ + "2222...." + Chr$(13)
5876.     m$ = m$ + "2222...." + Chr$(13)
5877.     arrTileText(235) = m$
5878.  
5879.     m$ = ""
5880.     m$ = m$ + "....2222" + Chr$(13)
5881.     m$ = m$ + "....2222" + Chr$(13)
5882.     m$ = m$ + "....2222" + Chr$(13)
5883.     m$ = m$ + "....2222" + Chr$(13)
5884.     m$ = m$ + "........" + Chr$(13)
5885.     m$ = m$ + "........" + Chr$(13)
5886.     m$ = m$ + "........" + Chr$(13)
5887.     m$ = m$ + "........" + Chr$(13)
5888.     arrTileText(236) = m$
5889.  
5890.     m$ = ""
5891.     m$ = m$ + "...22..." + Chr$(13)
5892.     m$ = m$ + "...22..." + Chr$(13)
5893.     m$ = m$ + "...22..." + Chr$(13)
5894.     m$ = m$ + "22222..." + Chr$(13)
5895.     m$ = m$ + "22222..." + Chr$(13)
5896.     m$ = m$ + "........" + Chr$(13)
5897.     m$ = m$ + "........" + Chr$(13)
5898.     m$ = m$ + "........" + Chr$(13)
5899.     arrTileText(237) = m$
5900.  
5901.     m$ = ""
5902.     m$ = m$ + "2222...." + Chr$(13)
5903.     m$ = m$ + "2222...." + Chr$(13)
5904.     m$ = m$ + "2222...." + Chr$(13)
5905.     m$ = m$ + "2222...." + Chr$(13)
5906.     m$ = m$ + "........" + Chr$(13)
5907.     m$ = m$ + "........" + Chr$(13)
5908.     m$ = m$ + "........" + Chr$(13)
5909.     m$ = m$ + "........" + Chr$(13)
5910.     arrTileText(238) = m$
5911.  
5912.     m$ = ""
5913.     m$ = m$ + "2222...." + Chr$(13)
5914.     m$ = m$ + "2222...." + Chr$(13)
5915.     m$ = m$ + "2222...." + Chr$(13)
5916.     m$ = m$ + "2222...." + Chr$(13)
5917.     m$ = m$ + "....2222" + Chr$(13)
5918.     m$ = m$ + "....2222" + Chr$(13)
5919.     m$ = m$ + "....2222" + Chr$(13)
5920.     m$ = m$ + "....2222" + Chr$(13)
5921.     arrTileText(239) = m$
5922.  
5923.     m$ = ""
5924.     m$ = m$ + "........" + Chr$(13)
5925.     m$ = m$ + "........" + Chr$(13)
5926.     m$ = m$ + "........" + Chr$(13)
5927.     m$ = m$ + "........" + Chr$(13)
5928.     m$ = m$ + "........" + Chr$(13)
5929.     m$ = m$ + "........" + Chr$(13)
5930.     m$ = m$ + "........" + Chr$(13)
5931.     m$ = m$ + "........" + Chr$(13)
5932.     arrTileText(240) = m$
5933.  
5934.     m$ = ""
5935.     m$ = m$ + "22222.22" + Chr$(13)
5936.     m$ = m$ + "22222.22" + Chr$(13)
5937.     m$ = m$ + "22222.22" + Chr$(13)
5938.     m$ = m$ + "........" + Chr$(13)
5939.     m$ = m$ + "22.22222" + Chr$(13)
5940.     m$ = m$ + "22.22222" + Chr$(13)
5941.     m$ = m$ + "22.22222" + Chr$(13)
5942.     m$ = m$ + "........" + Chr$(13)
5943.     arrTileText(241) = m$
5944.  
5945.     m$ = ""
5946.     m$ = m$ + "........" + Chr$(13)
5947.     m$ = m$ + "........" + Chr$(13)
5948.     m$ = m$ + "........" + Chr$(13)
5949.     m$ = m$ + ".222222." + Chr$(13)
5950.     m$ = m$ + "........" + Chr$(13)
5951.     m$ = m$ + "........" + Chr$(13)
5952.     m$ = m$ + "........" + Chr$(13)
5953.     m$ = m$ + "........" + Chr$(13)
5954.     arrTileText(242) = m$
5955.  
5956.     m$ = ""
5957.     m$ = m$ + "........" + Chr$(13)
5958.     m$ = m$ + "...2...." + Chr$(13)
5959.     m$ = m$ + "...2...." + Chr$(13)
5960.     m$ = m$ + "...2...." + Chr$(13)
5961.     m$ = m$ + "...2...." + Chr$(13)
5962.     m$ = m$ + "...2...." + Chr$(13)
5963.     m$ = m$ + "...2...." + Chr$(13)
5964.     m$ = m$ + "........" + Chr$(13)
5965.     arrTileText(243) = m$
5966.  
5967.     m$ = ""
5968.     m$ = m$ + "........" + Chr$(13)
5969.     m$ = m$ + "........" + Chr$(13)
5970.     m$ = m$ + "........" + Chr$(13)
5971.     m$ = m$ + "...2222." + Chr$(13)
5972.     m$ = m$ + "...2...." + Chr$(13)
5973.     m$ = m$ + "...2...." + Chr$(13)
5974.     m$ = m$ + "...2...." + Chr$(13)
5975.     m$ = m$ + "........" + Chr$(13)
5976.     arrTileText(244) = m$
5977.  
5978.     m$ = ""
5979.     m$ = m$ + "........" + Chr$(13)
5980.     m$ = m$ + "........" + Chr$(13)
5981.     m$ = m$ + "........" + Chr$(13)
5982.     m$ = m$ + ".222...." + Chr$(13)
5983.     m$ = m$ + "...2...." + Chr$(13)
5984.     m$ = m$ + "...2...." + Chr$(13)
5985.     m$ = m$ + "...2...." + Chr$(13)
5986.     m$ = m$ + "........" + Chr$(13)
5987.     arrTileText(245) = m$
5988.  
5989.     m$ = ""
5990.     m$ = m$ + "........" + Chr$(13)
5991.     m$ = m$ + "...2...." + Chr$(13)
5992.     m$ = m$ + "...2...." + Chr$(13)
5993.     m$ = m$ + "...2222." + Chr$(13)
5994.     m$ = m$ + "........" + Chr$(13)
5995.     m$ = m$ + "........" + Chr$(13)
5996.     m$ = m$ + "........" + Chr$(13)
5997.     m$ = m$ + "........" + Chr$(13)
5998.     arrTileText(246) = m$
5999.  
6000.     m$ = ""
6001.     m$ = m$ + "........" + Chr$(13)
6002.     m$ = m$ + "...2...." + Chr$(13)
6003.     m$ = m$ + "...2...." + Chr$(13)
6004.     m$ = m$ + ".222...." + Chr$(13)
6005.     m$ = m$ + "........" + Chr$(13)
6006.     m$ = m$ + "........" + Chr$(13)
6007.     m$ = m$ + "........" + Chr$(13)
6008.     m$ = m$ + "........" + Chr$(13)
6009.     arrTileText(247) = m$
6010.  
6011.     m$ = ""
6012.     m$ = m$ + "........" + Chr$(13)
6013.     m$ = m$ + "........" + Chr$(13)
6014.     m$ = m$ + "........" + Chr$(13)
6015.     m$ = m$ + "........" + Chr$(13)
6016.     m$ = m$ + "........" + Chr$(13)
6017.     m$ = m$ + "........" + Chr$(13)
6018.     m$ = m$ + "........" + Chr$(13)
6019.     m$ = m$ + "........" + Chr$(13)
6020.     arrTileText(248) = m$
6021.  
6022.     m$ = ""
6023.     m$ = m$ + "........" + Chr$(13)
6024.     m$ = m$ + "........" + Chr$(13)
6025.     m$ = m$ + "........" + Chr$(13)
6026.     m$ = m$ + "........" + Chr$(13)
6027.     m$ = m$ + "........" + Chr$(13)
6028.     m$ = m$ + "........" + Chr$(13)
6029.     m$ = m$ + "........" + Chr$(13)
6030.     m$ = m$ + "........" + Chr$(13)
6031.     arrTileText(249) = m$
6032.  
6033.     m$ = ""
6034.     m$ = m$ + "........" + Chr$(13)
6035.     m$ = m$ + "........" + Chr$(13)
6036.     m$ = m$ + "........" + Chr$(13)
6037.     m$ = m$ + "........" + Chr$(13)
6038.     m$ = m$ + "........" + Chr$(13)
6039.     m$ = m$ + "........" + Chr$(13)
6040.     m$ = m$ + "........" + Chr$(13)
6041.     m$ = m$ + "........" + Chr$(13)
6042.     arrTileText(250) = m$
6043.  
6044.     m$ = ""
6045.     m$ = m$ + "........" + Chr$(13)
6046.     m$ = m$ + "........" + Chr$(13)
6047.     m$ = m$ + "........" + Chr$(13)
6048.     m$ = m$ + "........" + Chr$(13)
6049.     m$ = m$ + "........" + Chr$(13)
6050.     m$ = m$ + "........" + Chr$(13)
6051.     m$ = m$ + "........" + Chr$(13)
6052.     m$ = m$ + "........" + Chr$(13)
6053.     arrTileText(251) = m$
6054.  
6055.     m$ = ""
6056.     m$ = m$ + "2.2.2.2." + Chr$(13)
6057.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6058.     m$ = m$ + "2.2.2.2." + Chr$(13)
6059.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6060.     m$ = m$ + "2.2.2.2." + Chr$(13)
6061.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6062.     m$ = m$ + "2.2.2.2." + Chr$(13)
6063.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6064.     arrTileText(252) = m$
6065.  
6066.     m$ = ""
6067.     m$ = m$ + "22222222" + Chr$(13)
6068.     m$ = m$ + "2......2" + Chr$(13)
6069.     m$ = m$ + "2......2" + Chr$(13)
6070.     m$ = m$ + "2......2" + Chr$(13)
6071.     m$ = m$ + "2......2" + Chr$(13)
6072.     m$ = m$ + "2......2" + Chr$(13)
6073.     m$ = m$ + "2......2" + Chr$(13)
6074.     m$ = m$ + "22222222" + Chr$(13)
6075.     arrTileText(253) = m$
6076.  
6077.     m$ = ""
6078.     m$ = m$ + "22222222" + Chr$(13)
6079.     m$ = m$ + "22222222" + Chr$(13)
6080.     m$ = m$ + "22222222" + Chr$(13)
6081.     m$ = m$ + "22222222" + Chr$(13)
6082.     m$ = m$ + "22222222" + Chr$(13)
6083.     m$ = m$ + "22222222" + Chr$(13)
6084.     m$ = m$ + "22222222" + Chr$(13)
6085.     m$ = m$ + "22222222" + Chr$(13)
6086.     arrTileText(254) = m$
6087.  
6088.     m$ = ""
6089.     m$ = ""
6090.     m$ = m$ + "22....22" + Chr$(13)
6091.     m$ = m$ + "2..22..2" + Chr$(13)
6092.     m$ = m$ + "2..22..2" + Chr$(13)
6093.     m$ = m$ + "22.....2" + Chr$(13)
6094.     m$ = m$ + "22222..2" + Chr$(13)
6095.     m$ = m$ + "2..22..2" + Chr$(13)
6096.     m$ = m$ + "22....22" + Chr$(13)
6097.     m$ = m$ + "22222222" + Chr$(13)
6098.     arrTileText(255) = m$
6099.  
6100. End Sub ' GetTileText
6101.  
6102. ' ################################################################################################################################################################
6103. ' END TILE DEFINITIONS
6104. ' ################################################################################################################################################################
6105.  
6106. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6107. ' BEGIN DEBUGGING ROUTINES #DEBUGGING
6108. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6109.  
6110. Sub DebugPrint (MyString As String)
6111.     If m_bDebug = TRUE Then
6112.         '_Echo MyString
6113.  
6114.         ReDim arrLines(-1) As String
6115.         Dim iLoop As Integer
6116.         split MyString, Chr$(13), arrLines()
6117.         For iLoop = LBound(arrLines) To UBound(arrLines)
6118.             _Echo arrLines(iLoop)
6119.         Next iLoop
6120.     End If
6121. End Sub ' DebugPrint
6122.  
6123. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6124. ' END DEBUGGING ROUTINES @DEBUGGING
6125. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6126.  

Here is the version with extra debugging output explaining what it's doing:

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2. ' VECTOR TILE DRAWING EXPERIMENT
3.  
4. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
5. ' FOR ONE OR MORE 8X8 RASTER TILES.
6.  
7. ' Eventually we would store a list of line coordinates for each tile
8. ' in a 2D array or similar data structure, with just one general-
9. ' purpose drawing routine that receives a list of (x1,y1,x2,y2)
10. ' and a color and draws the shape with Line. The background would
11. ' be transparent but if we want a background color can be specified
12. ' and simply draw an 8x8 background color rectangle first and then
13. ' draw the shape on top of that.
14.  
15. ' TODO: Optimize for each shape by determining how to draw it with the
16. '       minimum number of line commands.
17. '
18. '       For example this:
19. '           ' DRAW WITH HORIZONTAL LINES
20. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
21. '           Line (iX + 6, iY + 4)-(iX + 6, iY + 4), fgColor
22. '       could be replaced with:
23. '           ' DRAW WITH VERTICAL LINES
24. '           Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
25. '
26. '       Google "rectangular decomposition of binary images" and similar
27. '       to find a better algorithm.
28. '
29. '       Brute force method would be to draw every size rectangle from 1x1
30. '       up to 8x8 (which can themselves be precalculated) in every available
31. '       location in the 8x8 grid (where no part of any rectangle falls off
32. '       the grid), then try every combination of those rectangles to find
33. '       combination where the the minimum number of rectangles cover all
34. '       points.
35. '
36. '       Rather than compute this on the fly, we could precompute it and
37. '       for each given tile, store the list of those rectangle coordinates
38. '       (x1,y1,x2,y2) for drawing it indexed by the tile's definition in
39. '       hexidecimal where 16-bits (0-F) defines the bit pattern for each
40. '       row in the tile, therefore a tile's definition can be stored by
41. '       8 characters (or less if we use base 64). Perhaps build a utility
42. '       that will compute the optimal drawing pattern for every possible
43. '       combination of an 8x8 grid, and index them all by the tile's 8-byte
44. '       hexidecimal definition. It might take a while to run, but once it
45. '       does, we will have a database of every possible tile's optimized
46. '       drawing instructions that can be quickly looked up.
47. '       Then we only pull out those definitions for the tiles that our
48. '       given program uses, so the data would be relatively small
49. '       (even smaller if we encode it with base-64).
50.  
51. ' ################################################################################################################################################################
52.  
53. ' ===============================================================================
54. ' GLOBAL CONSTANTS
55. ' ===============================================================================
56. ' BOOLEAN VALUES
57. Const FALSE = 0
58. Const TRUE = Not FALSE
59.  
60. ' ===============================================================================
61. ' USER DEFINED TYPES
62. ' ===============================================================================
63. ' UDT TO HOLD COORDINATES FOR DRAWING A RECTANGLE
64. Type RectangleType
65.     x1 As Integer ' start x
66.     x2 As Integer ' end x
67.     y1 As Integer ' start y
68.     y2 As Integer ' end y
69.     PixelCount As Integer
70.     IsActive As Integer
71. End Type ' RectangleType
72.  
73. Type DrawCompareType
74.     IndexList As String
75.     ShapeCount As Integer
76.     PixelCount As Integer
77.     IsActive As Integer
78. End Type ' DrawCompareType
79.  
80. Type CoordinateType
81.     x1 As Integer ' start x
82.     x2 As Integer ' end x
83.     y1 As Integer ' start y
84.     y2 As Integer ' end y
85. End Type ' CoordinateType
86.  
87. ' UDT TO HOLD COLOR CODE INFO
88. Type ColorType
89.     name As String
90.     value As _Unsigned Long
91. End Type ' ColorType
92.  
93. ' UDT FOR PRECALCULATED TILESHEET
94. Type TileSheetMapType
95.     xStart As Integer
96.     xEnd As Integer
97.     yStart As Integer
98.     yEnd As Integer
99. End Type
100.  
101. ' UDT FOR PRECALCULATED TILE MAP
102. Type TileMapType
103.     xPos As Integer
104.     yPos As Integer
105. End Type
106.  
107. ' ===============================================================================
108. ' GLOBAL VARIABLES
109. ' ===============================================================================
110. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES CONSOLE WINDOW AND DebugPrint
111. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
112. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
113. Dim Shared m_iCount As Long: m_iCount = 0
114.  
115. ' ===============================================================================
116. ' LOCAL VARIABLES
117. ' ===============================================================================
118. Dim in$
119.  
120. ' ****************************************************************************************************************************************************************
121. ' ACTIVATE DEBUGGING WINDOW
122. If m_bDebug = TRUE Then
123.     $Console
124.     _Delay 4
125.     _Console On
126.     _Echo "Started " + m_ProgramName$
127.     _Echo "Debugging on..."
128. End If
129. ' ****************************************************************************************************************************************************************
130.  
131. ' ===============================================================================
132. ' START THE MAIN ROUTINE
133. ' ===============================================================================
134. main
135.  
136. ' ===============================================================================
137. ' FINISH
138. ' ===============================================================================
139. Screen 0
140. Print m_ProgramName$ + " finished."
141. Input "Press <ENTER> to continue", in$
142. ' ****************************************************************************************************************************************************************
143. ' DEACTIVATE DEBUGGING WINDOW
144. If m_bDebug = TRUE Then
145.     _Console Off
146. End If
147. ' ****************************************************************************************************************************************************************
148. System ' return control to the operating system
149. End
150.  
151. ' ################################################################################################################################################################
152. ' BEGIN MAIN MENU
153. ' ################################################################################################################################################################
154.  
155. ' /////////////////////////////////////////////////////////////////////////////
156.  
157. Sub main
158.     Dim RoutineName As String: RoutineName = "main"
159.     Dim in$
160.     Dim bFinished As Integer: bFinished = FALSE
161.     Dim result$: result$ = ""
162.     Do
163.         Screen 0
164.         Cls
165.         Print m_ProgramName$
166.         Print
167.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
168.         Print "How about using the Line statement and draw tiles as vector images?"
169.         Print
170.         Print "1) GenerateVectorTileCode"
171.         Print "2) DrawVectorTilesTest1"
172.         Print "3) GetAllPossibleShapesTest"
173.         Print "4) FindAllCombinationsTest1 - find all combinations of n numbers"
174.         Print "5) FindAllCombinationsTest2 - find all combinations of n numbers"
175.         Print "6) FindOptimizedVectorTest - find minimum shapes to draw a tile"
176.         Print
177.         Print "Q) Exit program"
178.         Do
179.             in$ = InKey$
180.             If UCase$(in$) = "Q" Then
181.                 bFinished = TRUE: Exit Do
182.             ElseIf UCase$(in$) = "1" Then
183.                 GenerateVectorTileCode: Exit Do
184.             ElseIf UCase$(in$) = "2" Then
185.                 DrawVectorTilesTest1: Exit Do
186.             ElseIf UCase$(in$) = "3" Then
187.                 GetAllPossibleShapesTest: Exit Do
188.             ElseIf UCase$(in$) = "4" Then
189.                 FindAllCombinationsTest1: Exit Do
190.             ElseIf UCase$(in$) = "5" Then
191.                 FindAllCombinationsTest2: Exit Do
192.             ElseIf UCase$(in$) = "6" Then
193.                 FindOptimizedVectorTest: Exit Do
194.             End If
195.         Loop
196.     Loop Until bFinished = TRUE
197. End Sub ' main
198.  
199. ' ################################################################################################################################################################
200. ' END MAIN MENU
201. ' ################################################################################################################################################################
202.  
203. ' ################################################################################################################################################################
204. ' BEGIN VECTOR TILE DRAWING TEST ROUTINES
205. ' ################################################################################################################################################################
206.  
207. ' /////////////////////////////////////////////////////////////////////////////
208.  
209. Sub DrawVectorTilesTest1
210.     Dim iX As Integer
211.     Dim iY As Integer
212.     Dim iMaxX As Integer
213.     Dim iMaxY As Integer
214.     Dim iShape As Integer
215.     Dim iMaxShape As Integer
216.     Dim fgColor As _Unsigned Long
217.     Dim arrColor(0 To 7) As _Unsigned Long
218.     Dim iColorIndex As Integer
219.     Dim in$
220.  
221.     arrColor(0) = cBlack
222.     arrColor(1) = cRed
223.     arrColor(2) = cYellow
224.     arrColor(3) = cLime
225.     arrColor(4) = cCyan
226.     arrColor(5) = cBlue
227.     arrColor(6) = cPurple
228.     arrColor(7) = cMagenta
229.  
230.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
231.     Cls , cBlack
232.  
233.     iMaxX = ((_Width(0) - 16) \ 8)
234.     iMaxY = (_Height(0) - 16)
235.     iMaxShape = 24
236.     iShape = 0:: iColorIndex = 1
237.  
238.     For iY = (8 * 10) To iMaxY Step 8
239.         For iX = 0 To iMaxX Step 8
240.             DrawShape iShape, iX, iY, arrColor(iColorIndex)
241.             iShape = iShape + 1: If iShape > iMaxShape Then iShape = 0
242.             iColorIndex = iColorIndex + 1: If iColorIndex > 7 Then iColorIndex = 1
243.         Next iX
244.     Next iY
245.  
246.     Locate 1, 1
247.     Input "PRESS <ENTER> TO CONTINUE"; in$
248.     Screen 0
249. End Sub ' DrawVectorTilesTest1
250.  
251. ' /////////////////////////////////////////////////////////////////////////////
252.  
253. Sub DrawShape (iShape As Integer, iX As Integer, iY As Integer, fgColor As _Unsigned Long)
254.     Select Case iShape
255.         Case 0:
256.             DrawHomeLine8x8_VT_1 iX, iY, fgColor
257.         Case 1:
258.             DrawHomeLine8x8_HZ_1 iX, iY, fgColor
259.         Case 2:
260.             DrawHomeLine8x8_NW_1 iX, iY, fgColor
261.         Case 3:
262.             DrawHomeLine8x8_NE_1 iX, iY, fgColor
263.         Case 4:
264.             DrawHomeLine8x8_SW_1 iX, iY, fgColor
265.         Case 5:
266.             DrawHomeLine8x8_SE_1 iX, iY, fgColor
267.         Case 6:
268.             DrawHomeLine8x8_VT_2 iX, iY, fgColor
269.         Case 7:
270.             DrawHomeLine8x8_HZ_2 iX, iY, fgColor
271.         Case 8:
272.             DrawHomeLine8x8_NW_2 iX, iY, fgColor
273.         Case 9:
274.             DrawHomeLine8x8_NE_2 iX, iY, fgColor
275.         Case 10:
276.             DrawHomeLine8x8_SW_2 iX, iY, fgColor
277.         Case 11:
278.             DrawHomeLine8x8_SE_2 iX, iY, fgColor
279.         Case 12:
280.             DrawHomeLine8x8_VT_3 iX, iY, fgColor
281.         Case 13:
282.             DrawHomeLine8x8_HZ_3 iX, iY, fgColor
283.         Case 14:
284.             DrawHomeLine8x8_NW_3 iX, iY, fgColor
285.         Case 15:
286.             DrawHomeLine8x8_NE_3 iX, iY, fgColor
287.         Case 16:
288.             DrawHomeLine8x8_SW_3 iX, iY, fgColor
289.         Case 17:
290.             DrawHomeLine8x8_SE_3 iX, iY, fgColor
291.         Case 18:
292.             DrawJailLine8x8_VT_2 iX, iY, fgColor
293.         Case 19:
294.             DrawJailLine8x8_VT_1 iX, iY, fgColor
295.         Case 20:
296.             DrawJailLine8x8_HZ_2 iX, iY, fgColor
297.         Case 21:
298.             DrawJailLine8x8_HZ_1 iX, iY, fgColor
299.         Case 22:
300.             DrawJailLine8x8_Grid_1 iX, iY, fgColor
301.         Case 23:
302.             DrawJailLine8x8_Grid_2 iX, iY, fgColor
303.         Case 24:
304.             DrawJailLine8x8_Grid_3 iX, iY, fgColor
305.         Case Else:
306.             '(IGNORE)
307.     End Select
308. End Sub ' DrawShape
309.  
310. ' ################################################################################################################################################################
311. ' END VECTOR TILE DRAWING TEST ROUTINES
312. ' ################################################################################################################################################################
313.  
314. ' ################################################################################################################################################################
315. ' BEGIN BOX DRAWING ROUTINES
316. ' ################################################################################################################################################################
317.  
318. ' /////////////////////////////////////////////////////////////////////////////
319. ' DRAW A 2-D BOX (OUTLINE)
320. ' https://www.qb64.org/wiki/LINE
321.  
322. Sub DrawBoxOutline (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
323.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, B ' Draw box outline
324. End Sub ' DrawBoxOutline
325.  
326. ' /////////////////////////////////////////////////////////////////////////////
327. ' DRAW A 2-D BOX (SOLID)
328. ' https://www.qb64.org/wiki/LINE
329.  
330. ' Renamed DrawBox/DrawBoxLine to DrawSolidBox
331.  
332. Sub DrawBoxSolid (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
333.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, BF ' Draw a solid box
334. End Sub ' DrawBoxSolid
335.  
336. ' /////////////////////////////////////////////////////////////////////////////
337. ' DRAW A 2-D RECTANGLE (OUTLINE)
338.  
339. Sub DrawRectOutline (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
340.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, B ' Draw rectangle outline
341. End Sub ' DrawRectOutline
342.  
343. ' /////////////////////////////////////////////////////////////////////////////
344. ' DRAW A 2-D RECTANGLE (SOLID)
345.  
346. Sub DrawRectSolid (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
347.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, BF ' Draw a solid rectangle
348. End Sub ' DrawRectSolid
349.  
350. ' /////////////////////////////////////////////////////////////////////////////
351. ' DRAW A 2-D BOX (OUTLINE)
352. ' https://www.qb64.org/wiki/LINE
353.  
354. ' The style parameter 0-255 doesn't seem to have a solid line?
355. ' For that, use DrawOutlineBox.
356.  
357. ' LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]
358. ' B creates a box outline with each side parallel to the program screen sides. BF creates a filled box.
359. ' The style% signed INTEGER value sets a dotted pattern to draw the line or rectangle outline.
360.  
361. Sub DrawStyledOutlineBox (iX%, iY%, iSize%, iColor~&, iStyle%)
362.     Line (iX%, iY%)-(iX% + (iSize% - 1), iY% + (iSize% - 1)), iColor~&, B , iStyle%
363. End Sub ' DrawStyledOutlineBox
364.  
365. ' /////////////////////////////////////////////////////////////////////////////
366. ' DRAW A 2-D BOX (OUTLINE) WITH A SOLID LINE
367.  
368. Sub DrawOutlineBox (iX%, iY%, iSize2%, iColor~&, iWeight2%)
369.     Dim iFromX%
370.     Dim iFromY%
371.     Dim iToX%
372.     Dim iToY%
373.     iSize% = iSize2% - 1
374.     iWeight% = iWeight2% - 1
375.     If iWeight% = 0 Then
376.         ' TOP LINE
377.         iFromX% = iX%
378.         iFromY% = iY%
379.         iToX% = iX% + iSize%
380.         iToY% = iY%
381.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
382.  
383.         ' BOTTOM LINE
384.         iFromX% = iX%
385.         iFromY% = iY% + iSize%
386.         iToX% = iX% + iSize%
387.         iToY% = iY% + iSize%
388.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
389.  
390.         ' LEFT LINE
391.         iFromX% = iX%
392.         iFromY% = iY%
393.         iToX% = iX%
394.         iToY% = iY% + iSize%
395.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
396.  
397.         ' RIGHT LINE
398.         iFromX% = iX% + iSize%
399.         iFromY% = iY%
400.         iToX% = iX% + iSize%
401.         iToY% = iY% + iSize%
402.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
403.     ElseIf iWeight% > 0 Then
404.         ' TOP LINE
405.         For iFromY% = iY% To (iY% + iWeight%)
406.             iFromX% = iX%
407.             'iFromY% = iY%
408.             iToX% = iX% + iSize%
409.             iToY% = iFromY%
410.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
411.         Next iFromY%
412.  
413.         ' BOTTOM LINE
414.         For iFromY% = ((iY% + iSize%) - iWeight%) To (iY% + iSize%)
415.             iFromX% = iX%
416.             'iFromY% = iY% + iSize%
417.             iToX% = iX% + iSize%
418.             iToY% = iFromY%
419.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
420.         Next iFromY%
421.  
422.         ' LEFT LINE
423.         For iFromX% = iX% To (iX% + iWeight%)
424.             'iFromX% = iX%
425.             iFromY% = iY%
426.             iToX% = iFromX%
427.             iToY% = iY% + iSize%
428.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
429.         Next iFromX%
430.  
431.         ' RIGHT LINE
432.         For iFromX% = ((iX% + iSize%) - iWeight%) To (iX% + iSize%)
433.             'iFromX% = iX% + iSize%
434.             iFromY% = iY%
435.             iToX% = iFromX%
436.             iToY% = iY% + iSize%
437.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
438.         Next iFromX%
439.     End If
440. End Sub ' DrawOutlineBox
441.  
442. ' ################################################################################################################################################################
443. ' END BOX DRAWING ROUTINES
444. ' ################################################################################################################################################################
445.  
446. ' ################################################################################################################################################################
447. ' BEGIN GENERATE LINE DRAWING SHAPE ROUTINES
448. ' ################################################################################################################################################################
449.  
450. ' /////////////////////////////////////////////////////////////////////////////
451.  
452. Sub GetAllPossibleShapes (arrShapes1() As RectangleType)
453.     ReDim arrShapes1(-1) As RectangleType
454.     Dim iLoopRows As Integer
455.     Dim iLoopCols As Integer
456.     Dim iIndex As Integer
457.     Dim iLoopY As Integer
458.     Dim iLoopX As Integer
459.  
460.     For iLoopRows = 1 To 8
461.         For iLoopCols = 1 To 8
462.             ' Add next shape to array
463.             iIndex = UBound(arrShapes1) + 1
464.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
465.  
466.             ' Save coordinates
467.             arrShapes1(iIndex).x1 = 1
468.             arrShapes1(iIndex).y1 = 1
469.             arrShapes1(iIndex).x2 = iLoopCols
470.             arrShapes1(iIndex).y2 = iLoopRows
471.             arrShapes1(UBound(arrShapes1)).PixelCount = 0
472.  
473.             ' Count Pixels
474.             For iLoopY = 1 To 8
475.                 For iLoopX = 1 To 8
476.                     if _
477.                         iLoopY >= arrShapes1(iIndex).y1 _
478.                         and _
479.                         iLoopY <= arrShapes1(iIndex).y2 _
480.                         and _
481.                         iLoopX >= arrShapes1(iIndex).x1 _
482.                         and _
483.                         iLoopX <= arrShapes1(iIndex).x2 _
484.                         then
485.  
486.                         'sLine = sLine + "#"
487.                         arrShapes1(UBound(arrShapes1)).PixelCount = arrShapes1(UBound(arrShapes1)).PixelCount + 1
488.                     Else
489.                         'sLine = sLine + "."
490.                     End If
491.                 Next iLoopX
492.                 'DebugPrint sLine
493.             Next iLoopY
494.  
495.         Next iLoopCols
496.     Next iLoopRows
497. End Sub ' GetAllPossibleShapes
498.  
499. ' /////////////////////////////////////////////////////////////////////////////
500.  
501. Sub GetAllPossibleShapesTest
502.     ReDim arrShapes1(-1) As RectangleType
503.     Dim arrColor(0 To 7) As _Unsigned Long
504.     Dim iLoopShape As Integer
505.     Dim iOffsetY As Integer
506.     Dim iOffsetX As Integer
507.     Dim iColorIndex As Integer
508.     Dim iMinColorIndex As Integer: iMinColorIndex = 1
509.     Dim iMaxColorIndex As Integer: iMaxColorIndex = 7
510.     Dim in$
511.     Dim iX As Integer
512.     Dim iY As Integer
513.     Dim iSizeW As Integer
514.     Dim iSizeH As Integer
515.     Dim fgColor As _Unsigned Long
516.     Dim iMinX As Integer
517.     Dim iMinY As Integer
518.     Dim iMaxX As Integer
519.     Dim iMaxY As Integer
520.  
521.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
522.     iMinX = 0
523.     iMinY = 17
524.     iMaxX = (_Width(0) / 8) ' iMaxX = _Width(0) - 16
525.     iMaxY = _Height(0) - 16
526.     iOffsetY = iMinY
527.     iOffsetX = iMinX
528.  
529.     arrColor(0) = cBlack
530.     arrColor(1) = cRed
531.     arrColor(2) = cYellow
532.     arrColor(3) = cLime
533.     arrColor(4) = cCyan
534.     arrColor(5) = cBlue
535.     arrColor(6) = cPurple
536.     arrColor(7) = cMagenta
537.  
538.     GetAllPossibleShapes arrShapes1()
539.  
540.     iColorIndex = iMinColorIndex
541.     For iLoopShape = 0 To UBound(arrShapes1)
542.         DebugPrint _
543.             "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
544.             "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
545.             cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
546.  
547.         iX = arrShapes1(iLoopShape).x1 + iOffsetX
548.         iY = arrShapes1(iLoopShape).y1 + iOffsetY
549.         iSizeW = (arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1) + 1
550.         iSizeH = (arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1) + 1
551.         fgColor = arrColor(iColorIndex)
552.         DrawRectSolid iX, iY, iSizeW, iSizeH, fgColor
553.  
554.         iOffsetX = iOffsetX + 16: If iOffsetX > iMaxX Then iOffsetX = iMinX: iOffsetY = iOffsetY + 16: If iOffsetY > iMaxY Then iOffsetY = iMinY
555.         iColorIndex = iColorIndex + 1: If iColorIndex > iMaxColorIndex Then iColorIndex = iMinColorIndex
556.     Next iLoopShape
557.  
558.     Locate 1, 1
559.     Color cWhite, cBlack
560.     Input "PRESS <ENTER> TO CONTINUE"; in$
561.     Screen 0
562. End Sub ' GetAllPossibleShapes
563.  
564.  
565. Function DedupeDelimList$ (sInput As String, sDelim As String)
566.     ReDim arrLines(-1) As String
567.     Dim sOutput As String
568.     Dim iLoop As Integer
569.  
570.     split sInput, sDelim, arrLines()
571.     sOutput = sDelim
572.     For iLoop = LBound(arrLines) To UBound(arrLines)
573.         If InStr(1, sOutput, sDelim + arrLines(iLoop) + sDelim) = 0 Then
574.             sOutput = sOutput + arrLines(iLoop) + sDelim
575.         End If
576.     Next iLoop
577.  
578.     DedupeDelimList$ = sOutput
579. End Function ' DedupeDelimList$
580.  
581. ' /////////////////////////////////////////////////////////////////////////////
582.  
583. Function FindAllCombinationsNext$ (arrGroup() As Integer)
584.     Dim sResult As String: sResult = ""
585.     ReDim arrSubGroup(0 To UBound(arrGroup) - 1) As Integer
586.     Dim iOmit As Integer
587.     Dim iKeep As Integer
588.     Dim iIndex As Integer
589.  
590.     'dim sLine as string : sLine = "Received: "
591.     '    'DebugPrint "FindAllCombinationsNext$ called, level " + cstr$(iLevel)
592.     '    m_iCount = m_iCount + 1
593.     '    DebugPrint CurrentDateTime$ + " FindAllCombinationsNext$ called, m_iCount=" + cstr$(m_iCount)
594.     'For iKeep = 0 To UBound(arrGroup)
595.     'sLine = sLine + cstr$(arrGroup(iKeep)) + " "
596.     'Next iKeep
597.     'DebugPrint "    " + sLine
598.  
599.     ' Recursively try omitting each one
600.     If UBound(arrGroup) > 0 Then
601.         For iOmit = 0 To UBound(arrGroup)
602.             ReDim arrSubGroup(0 To UBound(arrGroup) - 1) As Integer
603.             iIndex = -1
604.             For iKeep = 0 To UBound(arrGroup)
605.                 If arrGroup(iKeep) <> arrGroup(iOmit) Then
606.                     iIndex = iIndex + 1
607.                     arrSubGroup(iIndex) = arrGroup(iKeep)
608.                     'sResult = sResult + IIFSTR$(len(sResult)=0, "", ",") + cstr$(arrGroup(iKeep))
609.                     sResult = sResult + cstr$(arrGroup(iKeep)) + ","
610.                 End If
611.             Next iKeep
612.             'sResult = sResult + IIFSTR$(len(sResult)=0, "", ";") + FindAllCombinationsTestNext$(arrSubGroup())
613.             sResult = sResult + ";" + FindAllCombinationsNext$(arrSubGroup())
614.             sResult = DedupeDelimList$(sResult, ";")
615.         Next iOmit
616.     Else
617.         sResult = cstr$(arrGroup(0)) + ";"
618.     End If
619.  
620.     sResult = DedupeDelimList$(sResult, ";")
621.     'm_iCount = m_iCount - 1
622.     'DebugPrint "    Returning: " + chr$(34) + sResult + chr$(34)
623.     FindAllCombinationsNext$ = sResult
624. End Function ' FindAllCombinationsNext$
625.  
626. ' /////////////////////////////////////////////////////////////////////////////
627. ' Get all combinations of the items in the list
628.  
629. Sub FindAllCombinations (sItemList As String)
630.     ReDim arrGroup(-1) As Integer
631.     Dim iLoop As Integer
632.     Dim sResult As String: sResult = ""
633.     ReDim arrLines(-1) As String
634.     Dim sFinal As String: sFinal = ""
635.  
636.     ' Start with all
637.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrGroup()
638.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
639.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(iLoop)
640.     Next iLoop
641.  
642.     ' Find all other combinations (including without)
643.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
644.     sResult = Replace$(sResult, ",;", ";")
645.  
646.     ' Dedupe results
647.     split sResult, ";", arrLines()
648.     sFinal = ";"
649.     For iLoop = LBound(arrLines) To UBound(arrLines)
650.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
651.             sFinal = sFinal + arrLines(iLoop) + ";"
652.             DebugPrint arrLines(iLoop)
653.         End If
654.     Next iLoop
655. End Sub ' FindAllCombinations
656.  
657. ' /////////////////////////////////////////////////////////////////////////////
658.  
659. Sub FindAllCombinationsTest2
660.     Dim sItemList As String
661.     ReDim arrGroup(-1) As Integer
662.     Dim iLoop As Integer
663.     Dim sResult As String: sResult = ""
664.     ReDim arrLines(-1) As String
665.     Dim sFinal As String: sFinal = ""
666.  
667.     ' Use non-contiguous test data
668.     'sItemList = "1,2,3,4"
669.     'sItemList = "1,2,4,8,16,32,64,128"
670.     Input "Enter a space-separated list of numbers"; sItemList
671.     sItemList = Replace$(sItemList, " ", ",")
672.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrGroup()
673.  
674.     ' Start with all
675.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
676.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(arrGroup(iLoop))
677.     Next iLoop
678.  
679.     ' Find all other combinations (including without)
680.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
681.     sResult = Replace$(sResult, ",;", ";")
682.  
683.     ' Dedupe results
684.     split sResult, ";", arrLines()
685.     sFinal = ";"
686.     For iLoop = LBound(arrLines) To UBound(arrLines)
687.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
688.             sFinal = sFinal + arrLines(iLoop) + ";"
689.             DebugPrint arrLines(iLoop)
690.         End If
691.     Next iLoop
692. End Sub ' FindAllCombinationsTest2
693.  
694. ' /////////////////////////////////////////////////////////////////////////////
695.  
696. Sub FindAllCombinationsTest1
697.     Dim iFrom As Integer: iFrom = 1
698.     Dim iTo As Integer: iTo = 4
699.     ReDim arrGroup(-1) As Integer
700.     Dim iLoop As Integer
701.     Dim sResult As String: sResult = ""
702.     ReDim arrLines(-1) As String
703.     Dim sFinal As String: sFinal = ""
704.  
705.     ' Generate some simple test data
706.     For iLoop = iFrom To iTo
707.         ReDim _Preserve arrGroup(0 To UBound(arrGroup) + 1) As Integer
708.         arrGroup(UBound(arrGroup)) = iLoop
709.     Next iLoop
710.  
711.     ' Start with all
712.     For iLoop = LBound(arrGroup) To UBound(arrGroup)
713.         sResult = sResult + IIFSTR$(Len(sResult) = 0, "", ",") + cstr$(arrGroup(iLoop))
714.     Next iLoop
715.  
716.     ' Find all other combinations (including without)
717.     sResult = sResult + ";" + FindAllCombinationsNext$(arrGroup())
718.     sResult = Replace$(sResult, ",;", ";")
719.  
720.     ' Dedupe results
721.     split sResult, ";", arrLines()
722.     sFinal = ";"
723.     For iLoop = LBound(arrLines) To UBound(arrLines)
724.         If InStr(1, sFinal, ";" + arrLines(iLoop) + ";") = 0 Then
725.             sFinal = sFinal + arrLines(iLoop) + ";"
726.             DebugPrint arrLines(iLoop)
727.         End If
728.     Next iLoop
729. End Sub ' FindAllCombinationsTest1
730.  
731. ' /////////////////////////////////////////////////////////////////////////////
732.  
733. Sub FindOptimizedVector (TileString As String)
734.     ReDim arrTile1(1 To 8, 1 To 8) As String
735.     ReDim arrTile2(1 To 8, 1 To 8) As String
736.     ReDim arrShapes1(-1) As RectangleType
737.     ReDim arrShapes2(-1) As RectangleType
738.     ReDim arrShapes3(-1) As RectangleType
739.  
740.     Dim iLoopShape As Integer
741.     Dim iLoopY As Integer
742.     Dim iLoopX As Integer
743.     Dim iDestY As Integer
744.     Dim iDestX As Integer
745.     Dim iSizeY As Integer
746.     Dim iSizeX As Integer
747.     Dim iEndY As Integer
748.     Dim iEndX As Integer
749.     Dim iTestY As Integer
750.     Dim iTestX As Integer
751.     Dim bShapeFits As Integer
752.     Dim sLine As String
753.     Dim sNextPixel As String
754.     Dim iShape1 As Integer
755.     Dim iShape2 As Integer
756.     Dim iIndex As Integer
757.  
758.     Dim sItemList As String
759.     ReDim arrNumGroup(-1) As Integer
760.     ReDim arrListGroup(-1) As String
761.     ReDim arrShapeList(-1) As String
762.     Dim iLoop1 As Integer
763.     Dim iLoop2 As Integer
764.     Dim sGroupList1 As String
765.     Dim sGroupList2 As String
766.     ReDim arrLines(-1) As String
767.  
768.     Dim iPixelCount As Integer
769.     Dim iShapeCount As Integer
770.     ReDim arrCompare(-1) As DrawCompareType
771.     Dim iMatchCount As Integer
772.  
773.     ' Turn tile into 2D array
774.     StringToArray arrTile1(), TileString
775.  
776.     ' Get all shapes to try
777.     GetAllPossibleShapes arrShapes1()
778.  
779.     ' Try all shapes
780.     For iLoopShape = 0 To UBound(arrShapes1)
781.         ' Try next shape
782.  
783.         ' BEGIN DEBUG SHOW NEXT SHAPE
784.         If TRUE = FALSE Then
785.             DebugPrint "arrShapes1(" + cstr$(iLoopShape) + "):"
786.         DebugPrint _
787.             "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
788.             "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
789.             cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
790.             For iLoopY = 1 To 8
791.                 sLine = ""
792.                 For iLoopX = 1 To 8
793.                 if _
794.                     iLoopY >= arrShapes1(iLoopShape).y1 _
795.                     and _
796.                     iLoopY <= arrShapes1(iLoopShape).y2 _
797.                     and _
798.                     iLoopX >= arrShapes1(iLoopShape).x1 _
799.                     and _
800.                     iLoopX <= arrShapes1(iLoopShape).x2 _
801.                     then
802.  
803.                         sLine = sLine + "#"
804.                     Else
805.                         sLine = sLine + "."
806.                     End If
807.                 Next iLoopX
808.                 DebugPrint sLine
809.             Next iLoopY
810.             DebugPrint ""
811.         End If
812.         ' END DEBUG SHOW NEXT SHAPE
813.  
814.         ' Try test tile in every position (that it fits)
815.         For iDestY = 1 To 8
816.             For iDestX = 1 To 8
817.                 bShapeFits = FALSE
818.  
819.                 ' Does shape fit at this Y position?
820.                 iSizeY = arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1
821.                 iEndY = iDestY + iSizeY
822.                 If iEndY < 9 Then
823.                     ' Does shape fit at this X position?
824.                     iSizeX = arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1
825.                     iEndX = iDestX + iSizeX
826.                     If iEndX < 9 Then
827.                         ' Do any of shape's pixels fall outside of tile's pixels?
828.                         bShapeFits = TRUE
829.                         For iTestY = iDestY To iEndY
830.                             For iTestX = iDestX To iEndX
831.                                 If arrTile1(iTestY, iTestX) = "." Then
832.                                     ' No pixel here, shape fails
833.                                     bShapeFits = FALSE
834.                                     Exit For
835.                                 End If
836.                             Next iTestX
837.                             If bShapeFits = FALSE Then Exit For
838.                         Next iTestY
839.                     End If
840.                 End If
841.  
842.                 ' If shape fits, add it to the list
843.                 If bShapeFits = TRUE Then
844.                     iIndex = UBound(arrShapes2) + 1
845.                     ReDim _Preserve arrShapes2(0 To iIndex) As RectangleType
846.                     arrShapes2(iIndex).y1 = iDestY
847.                     arrShapes2(iIndex).x1 = iDestX
848.                     arrShapes2(iIndex).y2 = iEndY
849.                     arrShapes2(iIndex).x2 = iEndX
850.                     arrShapes2(iIndex).PixelCount = arrShapes1(iLoopShape).PixelCount
851.                     arrShapes2(iIndex).IsActive = TRUE
852.                 End If
853.             Next iDestX
854.         Next iDestY
855.     Next iLoopShape
856.  
857.     '' Show tile
858.     'DebugPrint "TILE TO CHECK:"
859.     'for iLoopY = lbound(arrTile1, 1) to ubound(arrTile1, 1)
860.     '    sLine = ""
861.     '    for iLoopX = lbound(arrTile1, 2) to ubound(arrTile1, 2)
862.     '        sLine=sLine + arrTile1(iLoopY, iLoopX)
863.     '    next iLoopX
864.     '    DebugPrint sLine
865.     'next iLoopY
866.  
867.     '' Show all contender shapes
868.     'DebugPrint "SHAPES THAT MATCHED + FIT:"
869.     'for iLoopShape = 0 to ubound(arrShapes2)
870.     '    if arrShapes2(iLoopShape).IsActive = TRUE then
871.     '        DebugPrint _
872.     '            "(" + cstr$(arrShapes2(iLoopShape).x1) + ", " + cstr$(arrShapes2(iLoopShape).y1) + ")-" + _
873.     '            "(" + cstr$(arrShapes2(iLoopShape).x2) + ", " + cstr$(arrShapes2(iLoopShape).y2) + ") " + _
874.     '            cstr$(arrShapes2(iLoopShape).PixelCount) + " pixels"
875.     '        for iDestY = 1 To 8
876.     '            sLine = ""
877.     '            for iDestX = 1 To 8
878.     '                sNextPixel = "."
879.     '                if iDestY >= arrShapes2(iLoopShape).y1 then
880.     '                    if iDestY <= arrShapes2(iLoopShape).y2 then
881.     '                        if iDestX >= arrShapes2(iLoopShape).x1 then
882.     '                            if iDestX <= arrShapes2(iLoopShape).x2 then
883.     '                                sNextPixel = "#"
884.     '                            end if
885.     '                        end if
886.     '                    end if
887.     '                end if
888.     '                sLine = sLine + sNextPixel
889.     '            next iDestX
890.     '            DebugPrint sLine
891.     '        next iDestY
892.     '    end if
893.     'next iLoopShape
894.  
895.     ' Remove redundant shapes (any where another shape covers more points)
896.     For iShape1 = 0 To UBound(arrShapes2)
897.  
898.         ' make sure shape #1 was not eliminated
899.         If arrShapes2(iShape1).IsActive = TRUE Then
900.  
901.             ' compare shape #1 against all other shapes
902.             For iShape2 = 0 To UBound(arrShapes2)
903.  
904.                 ' don't compare against itself
905.                 If iShape2 <> iShape1 Then
906.  
907.                     ' make sure shape #2 was not eliminated
908.                     If arrShapes2(iShape2).IsActive = TRUE Then
909.  
910.                         ' can shape #2 do what shape #1 can do? (covers all points shape #1 does)
911.                         if _
912.                             arrShapes2(iShape1).y1 >= arrShapes2(iShape2).y1 _
913.                             and _
914.                             arrShapes2(iShape1).y2 <= arrShapes2(iShape2).y2 _
915.                             and _
916.                             arrShapes2(iShape1).x1 >= arrShapes2(iShape2).x1 _
917.                             and _
918.                             arrShapes2(iShape1).x2 <= arrShapes2(iShape2).x2 _
919.                             then
920.  
921.                             ' does shape #2 do it better? (cover more points than shape #1)
922.                             If arrShapes2(iShape2).PixelCount >= arrShapes2(iShape1).PixelCount Then
923.                                 ' Remove shape #1
924.                                 arrShapes2(iShape1).IsActive = FALSE
925.                             End If
926.  
927.                         End If
928.  
929.                     End If
930.  
931.                 End If
932.  
933.             Next iShape2
934.  
935.         End If
936.  
937.     Next iShape1
938.  
939.     ' Add level 1 non-redundant shapes to the next list
940.     For iLoopShape = 0 To UBound(arrShapes2)
941.         If arrShapes2(iLoopShape).IsActive = TRUE Then
942.             iIndex = UBound(arrShapes3) + 1
943.             ReDim _Preserve arrShapes3(0 To iIndex) As RectangleType
944.             arrShapes3(iIndex).y1 = arrShapes2(iLoopShape).y1
945.             arrShapes3(iIndex).x1 = arrShapes2(iLoopShape).x1
946.             arrShapes3(iIndex).y2 = arrShapes2(iLoopShape).y2
947.             arrShapes3(iIndex).x2 = arrShapes2(iLoopShape).x2
948.             arrShapes3(iIndex).PixelCount = arrShapes2(iLoopShape).PixelCount
949.             arrShapes3(iIndex).IsActive = arrShapes2(iLoopShape).IsActive
950.         End If
951.     Next iLoopShape
952.  
953.     ' Show all non-redundant shapes
954.     DebugPrint "SHAPES THAT MATCHED + FIT, NON-REDUNDANT LEVEL 1:"
955.     For iLoopShape = 0 To UBound(arrShapes3)
956.         DebugPrint _
957.             "(" + cstr$(arrShapes3(iLoopShape).x1) + ", " + cstr$(arrShapes3(iLoopShape).y1) + ")-" + _
958.             "(" + cstr$(arrShapes3(iLoopShape).x2) + ", " + cstr$(arrShapes3(iLoopShape).y2) + ") " + _
959.             cstr$(arrShapes3(iLoopShape).PixelCount) + " pixels"
960.         For iDestY = 1 To 8
961.             sLine = ""
962.             For iDestX = 1 To 8
963.                 sNextPixel = "."
964.                 If iDestY >= arrShapes3(iLoopShape).y1 Then
965.                     If iDestY <= arrShapes3(iLoopShape).y2 Then
966.                         If iDestX >= arrShapes3(iLoopShape).x1 Then
967.                             If iDestX <= arrShapes3(iLoopShape).x2 Then
968.                                 sNextPixel = "#"
969.                             End If
970.                         End If
971.                     End If
972.                 End If
973.                 sLine = sLine + sNextPixel
974.             Next iDestX
975.             DebugPrint sLine
976.         Next iDestY
977.     Next iLoopShape
978.  
979.  
980.  
981.  
982.  
983.  
984.     ' Can we do without any?
985.  
986.     ' Try all combinations
987.  
988.     ' Items to combine
989.     sItemList = ""
990.     For iShape1 = 0 To UBound(arrShapes3)
991.         sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iShape1)
992.     Next iShape1
993.     GetIntegerArrayFromDelimList sItemList, ",", 0, arrNumGroup()
994.  
995.     ' Start with all
996.     sGroupList1 = ""
997.     For iLoop1 = LBound(arrNumGroup) To UBound(arrNumGroup)
998.         sGroupList1 = sGroupList1 + IIFSTR$(Len(sGroupList1) = 0, "", ",") + cstr$(arrNumGroup(iLoop1))
999.     Next iLoop1
1000.  
1001.     ' Find all other combinations (including without)
1002.     sGroupList1 = sGroupList1 + ";" + FindAllCombinationsNext$(arrNumGroup())
1003.     sGroupList1 = Replace$(sGroupList1, ",;", ";")
1004.  
1005.     ' Dedupe results
1006.     split sGroupList1, ";", arrListGroup()
1007.     sGroupList2 = ";"
1008.     For iLoop1 = LBound(arrListGroup) To UBound(arrListGroup)
1009.         If InStr(1, sGroupList2, ";" + arrListGroup(iLoop1) + ";") = 0 Then
1010.             sGroupList2 = sGroupList2 + arrListGroup(iLoop1) + ";"
1011.             'DebugPrint arrListGroup(iLoop1)
1012.         End If
1013.     Next iLoop1
1014.  
1015.     ' Now see which combinations can draw the tile
1016.     DebugPrint "==============================================================================="
1017.     DebugPrint "Now see which combinations can draw the tile..."
1018.     iMatchCount = 0
1019.     split sGroupList2, ";", arrListGroup()
1020.     For iLoop1 = LBound(arrListGroup) To UBound(arrListGroup)
1021.         DebugPrint "arrListGroup(" + cstr$(iLoop1) + ") = " + Chr$(34) + arrListGroup(iLoop1) + Chr$(34)
1022.  
1023.         ' Clear test tile
1024.         ReDim arrTile2(1 To 8, 1 To 8) As String
1025.         For iDestY = 1 To 8
1026.             For iDestX = 1 To 8
1027.                 arrTile2(iDestY, iDestX) = "."
1028.             Next iDestX
1029.         Next iDestY
1030.  
1031.         ' Get list of indexes that make up the next combination of shape
1032.         split arrListGroup(iLoop1), ",", arrShapeList()
1033.  
1034.         ' Try drawing next combination of shapes in the test tile
1035.         iShapeCount = 0
1036.         iPixelCount = 0
1037.         For iLoop2 = LBound(arrShapeList) To UBound(arrShapeList)
1038.             If IsNum%(arrShapeList(iLoop2)) = TRUE Then
1039.                 iIndex = Val(arrShapeList(iLoop2))
1040.                 iShapeCount = iShapeCount + 1
1041.                 iPixelCount = iPixelCount + arrShapes3(iIndex).PixelCount
1042.  
1043.                 For iDestY = 1 To 8
1044.                     For iDestX = 1 To 8
1045.                         'arrTile2(iDestY, iDestX) = "."
1046.                         If iDestY >= arrShapes3(iIndex).y1 Then
1047.                             If iDestY <= arrShapes3(iIndex).y2 Then
1048.                                 If iDestX >= arrShapes3(iIndex).x1 Then
1049.                                     If iDestX <= arrShapes3(iIndex).x2 Then
1050.                                         arrTile2(iDestY, iDestX) = "#"
1051.                                     End If
1052.                                 End If
1053.                             End If
1054.                         End If
1055.                     Next iDestX
1056.                 Next iDestY
1057.             Else
1058.                 DebugPrint "ERROR NON-NUMERIC AT arrShapeList(" + cstr$(iLoop2) + ") = " + Chr$(34) + arrShapeList(iLoop2) + Chr$(34)
1059.                 'exit for
1060.             End If
1061.         Next iLoop2
1062.  
1063.         ' Does the test tile match the real tile?
1064.         If TilesAreEqual%(arrTile1(), arrTile2()) = TRUE Then
1065.             DebugPrint "Found matching tile at iLoop1=" + cstr$(iLoop1)
1066.             iMatchCount = iMatchCount + 1
1067.  
1068.             iIndex = UBound(arrCompare) + 1
1069.             DebugPrint "Appending to arrCompare at position " + cstr$(iIndex)
1070.             DebugPrint "    after:"
1071.             DebugPrint "        lbound(arrCompare)=" + cstr$(LBound(arrCompare))
1072.             DebugPrint "        ubound(arrCompare)=" + cstr$(UBound(arrCompare))
1073.             ReDim _Preserve arrCompare(0 To iIndex) As DrawCompareType
1074.             DebugPrint "    after:"
1075.             DebugPrint "        lbound(arrCompare)=" + cstr$(LBound(arrCompare))
1076.             DebugPrint "        ubound(arrCompare)=" + cstr$(UBound(arrCompare))
1077.             arrCompare(iIndex).IndexList = arrListGroup(iLoop1)
1078.             arrCompare(iIndex).ShapeCount = iShapeCount
1079.             arrCompare(iIndex).PixelCount = iPixelCount
1080.             arrCompare(iIndex).IsActive = TRUE
1081.         Else
1082.             DebugPrint "Tiles didn't match"
1083.         End If
1084.  
1085.     Next iLoop1
1086.  
1087.     ' Identify the best combination that uses the least # of shapes + pixels
1088.     If UBound(arrCompare) > LBound(arrCompare) Then
1089.         For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
1090.             For iLoop2 = LBound(arrCompare) To UBound(arrCompare)
1091.                 If iLoop1 <> iLoop2 Then
1092.                     If arrCompare(iLoop1).IsActive = TRUE Then
1093.                         If arrCompare(iLoop2).IsActive = TRUE Then
1094.                             DebugPrint "Comparing   ShapeCount   PixelCount   IndexList"
1095.  
1096.                             DebugPrint left$(cstr$(iLoop1) + String$(9, " "), 9) + _
1097.                                 "   " + _
1098.                                 left$(cstr$(arrCompare(iLoop1).ShapeCount) + String$(10, " "), 10) + _
1099.                                 "   " + _
1100.                                 left$(cstr$(arrCompare(iLoop1).PixelCount) + String$(10, " "), 10) + _
1101.                                 "   " + _
1102.                                 arrCompare(iLoop1).IndexList
1103.                             DebugPrint left$(cstr$(iLoop2) + String$(9, " "), 9) + _
1104.                                 "   " + _
1105.                                 left$(cstr$(arrCompare(iLoop2).ShapeCount) + String$(10, " "), 10) + _
1106.                                 "   " + _
1107.                                 left$(cstr$(arrCompare(iLoop2).PixelCount) + String$(10, " "), 10) + _
1108.                                 "   " + _
1109.                                 arrCompare(iLoop2).IndexList
1110.  
1111.                             If arrCompare(iLoop2).ShapeCount < arrCompare(iLoop1).ShapeCount Then
1112.                                 DebugPrint "#" + cstr$(iLoop1) + " uses more shapes, marking inactive"
1113.                                 arrCompare(iLoop1).IsActive = FALSE
1114.                             ElseIf arrCompare(iLoop2).ShapeCount > arrCompare(iLoop1).ShapeCount Then
1115.                                 DebugPrint "#" + cstr$(iLoop2) + " uses more shapes, marking inactive"
1116.                                 arrCompare(iLoop2).IsActive = FALSE
1117.                             Else
1118.                                 If arrCompare(iLoop2).PixelCount < arrCompare(iLoop1).PixelCount Then
1119.                                     DebugPrint "#" + cstr$(iLoop1) + " uses more pixels, marking inactive"
1120.                                     arrCompare(iLoop1).IsActive = FALSE
1121.                                 ElseIf arrCompare(iLoop2).PixelCount > arrCompare(iLoop1).PixelCount Then
1122.                                     DebugPrint "#" + cstr$(iLoop2) + " uses more pixels, marking inactive"
1123.                                     arrCompare(iLoop2).IsActive = FALSE
1124.                                 Else
1125.                                     DebugPrint "Same # of shapes and pixels, marking #" + cstr$(iLoop2) + " inactive"
1126.                                     arrCompare(iLoop2).IsActive = FALSE
1127.                                 End If
1128.                             End If
1129.                         End If
1130.                     End If
1131.                 End If
1132.             Next iLoop2
1133.         Next iLoop1
1134.     End If
1135.  
1136.     ' The winner!
1137.     ' Get list of indexes that make up the winning shape combination
1138.     DebugPrint "Looking for the winner"
1139.     DebugPrint "lbound(arrCompare)=" + cstr$(LBound(arrCompare))
1140.     DebugPrint "ubound(arrCompare)=" + cstr$(UBound(arrCompare))
1141.     DebugPrint "arrCompare  ShapeCount   PixelCount   IsActive   IndexList"
1142.  
1143.     iIndex = -1
1144.     For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
1145.         DebugPrint "iLoop1=" + cstr$(iLoop1)
1146.  
1147.         sLine = ""
1148.         sLine = sLine + Left$(cstr$(iLoop1) + String$(9, " "), 9)
1149.         sLine = sLine + "   "
1150.         sLine = sLine + Left$(cstr$(arrCompare(iLoop1).ShapeCount) + String$(10, " "), 10)
1151.         sLine = sLine + "   "
1152.         sLine = sLine + Left$(cstr$(arrCompare(iLoop1).PixelCount) + String$(10, " "), 10)
1153.         sLine = sLine + "   "
1154.         sLine = sLine + Left$(TrueFalse$(arrCompare(iLoop1).IsActive) + String$(8, " "), 8)
1155.         sLine = sLine + "   "
1156.         sLine = sLine + arrCompare(iLoop1).IndexList
1157.         DebugPrint sLine
1158.  
1159.         If arrCompare(iLoop1).IsActive = TRUE Then
1160.             iIndex = iLoop1: Exit For
1161.         End If
1162.     Next iLoop1
1163.     If iIndex > -1 Then
1164.         DebugPrint "-------------------------------------------------------------------------------"
1165.         DebugPrint "The winning shape combination:"
1166.         split arrCompare(iIndex).IndexList, ",", arrShapeList()
1167.         For iLoop2 = LBound(arrShapeList) To UBound(arrShapeList)
1168.             DebugPrint "-------------------------------------------------------------------------------"
1169.             DebugPrint "Shape #" + arrShapeList(iLoop2)
1170.             If IsNum%(arrShapeList(iLoop2)) = TRUE Then
1171.                 iIndex = Val(arrShapeList(iLoop2))
1172.                 For iDestY = 1 To 8
1173.                     sLine = ""
1174.                     For iDestX = 1 To 8
1175.                         sNextPixel = "."
1176.                         If iDestY >= arrShapes3(iIndex).y1 Then
1177.                             If iDestY <= arrShapes3(iIndex).y2 Then
1178.                                 If iDestX >= arrShapes3(iIndex).x1 Then
1179.                                     If iDestX <= arrShapes3(iIndex).x2 Then
1180.                                         sNextPixel = "#"
1181.                                     End If
1182.                                 End If
1183.                             End If
1184.                         End If
1185.                         sLine = sLine + sNextPixel
1186.                     Next iDestX
1187.                     DebugPrint sLine
1188.                 Next iDestY
1189.             Else
1190.                 DebugPrint "ERROR NON-NUMERIC AT arrShapeList(" + cstr$(iLoop2) + ") = " + Chr$(34) + arrShapeList(iLoop2) + Chr$(34)
1191.                 'exit for
1192.             End If
1193.         Next iLoop2
1194.         DebugPrint "-------------------------------------------------------------------------------"
1195.     Else
1196.         DebugPrint "ERROR: NO WORKING SHAPE COMBINATIONS FOUND"
1197.     End If
1198.  
1199. End Sub ' FindOptimizedVector
1200.  
1201. Function TilesAreEqual% (arrTile1() As String, arrTile2() As String)
1202.     Dim bResult As Integer: bResult = FALSE
1203.     Dim iLoopY As Integer
1204.     Dim iLoopX As Integer
1205.     Dim sLine As String
1206.     If LBound(arrTile1, 1) = LBound(arrTile2, 1) Then
1207.         If UBound(arrTile1, 1) = UBound(arrTile2, 1) Then
1208.             If LBound(arrTile1, 2) = LBound(arrTile2, 2) Then
1209.                 If UBound(arrTile1, 2) = UBound(arrTile2, 2) Then
1210.  
1211.                     If TRUE = FALSE Then
1212.                         DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1213.                         DebugPrint "Comparing arrTile1:"
1214.                         For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
1215.                             sLine = ""
1216.                             For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
1217.                                 sLine = sLine + arrTile1(iLoopY, iLoopX)
1218.                             Next iLoopX
1219.                             DebugPrint sLine
1220.                         Next iLoopY
1221.                         DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1222.                         DebugPrint "With arrTile2:"
1223.                         For iLoopY = LBound(arrTile2, 1) To UBound(arrTile2, 1)
1224.                             sLine = ""
1225.                             For iLoopX = LBound(arrTile2, 2) To UBound(arrTile2, 2)
1226.                                 sLine = sLine + arrTile2(iLoopY, iLoopX)
1227.                             Next iLoopX
1228.                             DebugPrint sLine
1229.                         Next iLoopY
1230.                         DebugPrint "???????????????????????????????????????????????????????????????????????????????"
1231.                     End If
1232.  
1233.  
1234.  
1235.  
1236.                     bResult = TRUE
1237.                     For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
1238.                         For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
1239.                             If arrTile1(iLoopY, iLoopX) = "." And arrTile2(iLoopY, iLoopX) <> "." Then
1240.                                 bResult = FALSE: Exit For
1241.                             ElseIf arrTile1(iLoopY, iLoopX) <> "." And arrTile2(iLoopY, iLoopX) = "." Then
1242.                                 bResult = FALSE: Exit For
1243.                             End If
1244.                         Next iLoopX
1245.                         If bResult = FALSE Then Exit For
1246.                     Next iLoopY
1247.                 Else
1248.                     DebugPrint "ubound(tile,2) didn't match"
1249.                 End If
1250.             Else
1251.                 DebugPrint "lbound(tile,2) didn't match"
1252.             End If
1253.         Else
1254.             DebugPrint "ubound(tile,1) didn't match"
1255.         End If
1256.     Else
1257.         DebugPrint "lbound(tile,1) didn't match"
1258.     End If
1259.     TilesAreEqual% = bResult
1260. End Function ' TilesAreEqual%
1261.  
1262. ' /////////////////////////////////////////////////////////////////////////////
1263.  
1264. Sub FindOptimizedVectorTest
1265.     Dim RoutineName As String: RoutineName = "FindOptimizedVectorTest"
1266.     Dim sError As String: sError = ""
1267.     Dim in$
1268.     ReDim arrTileText(0 To 255) As String
1269.     Dim sTestList As String
1270.     ReDim arrTestIndex(-1) As Integer
1271.     Dim iLoop As Integer
1272.     Dim iIndex As Integer
1273.  
1274.     ' Start output
1275.     DebugPrint "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1276.     DebugPrint "Testing tiles: " + sTestList
1277.     DebugPrint ""
1278.  
1279.     ' Get raster tiles as a string array
1280.     GetTileText arrTileText()
1281.  
1282.     ' List of tiles to test
1283.     'sTestList = "254,253,247,32,238,241,225,233,213,214,212,203,194,193,192,169,154,151,145,147,129,115,114,84,65,46,44,35,252"
1284.     'sTestList = "46,35"
1285.     sTestList = "84,253,192,151,147,114,65"
1286.     GetIntegerArrayFromDelimList sTestList, ",", 0, arrTestIndex()
1287.  
1288.     ' Test tiles
1289.     For iLoop = LBound(arrTestIndex) To UBound(arrTestIndex)
1290.         iIndex = arrTestIndex(iLoop)
1291.         DebugPrint "----------------------------------------------------------------------------------------------------------------------------------------------------------------"
1292.         DebugPrint "Tile #" + cstr$(iIndex) + ":"
1293.         DebugPrint arrTileText(iIndex)
1294.         DebugPrint ""
1295.  
1296.         ' Process next tile and generate line drawing routines
1297.         FindOptimizedVector arrTileText(iIndex)
1298.  
1299.         DebugPrint ""
1300.     Next iLoop
1301.  
1302.     ' DONE
1303.     DebugPrint RoutineName + " finished."
1304.     'Input "PRESS <ENTER> TO CONTINUE";in$
1305. End Sub ' FindOptimizedVectorTest
1306.  
1307. ' /////////////////////////////////////////////////////////////////////////////
1308.  
1309. Sub GetIntegerArrayFromDelimList (MyString As String, sDelimiter As String, iMinIndex As Integer, arrInteger() As Integer)
1310.     ReDim arrString(-1) As String
1311.     Dim CleanString As String
1312.     Dim iLoop As Integer
1313.     Dim iCount As Integer: iCount = iMinIndex - 1
1314.  
1315.     ReDim arrInteger(-1) As Integer
1316.  
1317.     If Len(sDelimiter) > 0 Then
1318.         CleanString = MyString
1319.         If sDelimiter <> " " Then
1320.             CleanString = Replace$(CleanString, " ", "")
1321.         End If
1322.  
1323.         split CleanString, sDelimiter, arrString()
1324.         iCount = iMinIndex - 1
1325.         For iLoop = LBound(arrString) To UBound(arrString)
1326.             If IsNum%(arrString(iLoop)) = TRUE Then
1327.                 iCount = iCount + 1
1328.                 ReDim _Preserve arrInteger(iMinIndex To iCount) As Integer
1329.                 arrInteger(iCount) = Val(arrString(iLoop))
1330.             End If
1331.         Next iLoop
1332.     Else
1333.         If IsNum%(MyString) = TRUE Then
1334.             ReDim _Preserve arrInteger(iMinIndex To iMinIndex) As Integer
1335.             arrInteger(iMinIndex) = Val(MyString)
1336.         End If
1337.     End If
1338. End Sub ' GetIntegerArrayFromDelimList
1339.  
1340. ' /////////////////////////////////////////////////////////////////////////////
1341.  
1342. Sub BreakMultipleIntoShapes (MyString As String, arrShapes1() As String)
1343.     ReDim arrLines(-1) As String
1344.     ReDim arrCols(-1) As String
1345.     Dim sLine As String
1346.     Dim iLen As Integer
1347.     Dim iCount As Integer
1348.     Dim iLoopRows As Integer
1349.     Dim iLoopCols As Integer
1350.     Dim iShapeCount As Integer
1351.  
1352.     ' Break multiple up into shapes
1353.     split MyString, Chr$(13), arrLines()
1354.     sLine = arrLines(LBound(arrLines))
1355.     iLen = Len(sLine)
1356.     sLine = Replace$(sLine, " ", "")
1357.     iCount = (iLen - Len(sLine)) + 1
1358.     For iLoopRows = LBound(arrLines) To UBound(arrLines)
1359.         If Len(arrLines(iLoopRows)) > 0 Then
1360.             split arrLines(iLoopRows), " ", arrCols()
1361.             iShapeCount = 0
1362.             For iLoopCols = LBound(arrCols) To UBound(arrCols)
1363.                 If Len(arrCols(iLoopCols)) > 0 Then
1364.                     iShapeCount = iShapeCount + 1
1365.                     If UBound(arrShapes1) < iShapeCount Then
1366.                         ReDim _Preserve arrShapes1(0 To iShapeCount)
1367.                     End If
1368.                     arrShapes1(iShapeCount) = arrShapes1(iShapeCount) + arrCols(iLoopCols) + Chr$(13)
1369.                 End If
1370.             Next iLoopCols
1371.         End If
1372.     Next iLoopRows
1373. End Sub ' BreakMultipleIntoShapes
1374.  
1375. ' /////////////////////////////////////////////////////////////////////////////
1376.  
1377. Sub BreakMultipleIntoShapesTest
1378.     Dim in$
1379.     Dim MyString As String
1380.     ReDim arrShapes1(-1) As String
1381.     Dim iLoop As Integer
1382.  
1383.     ' Test data
1384.     MyString = ""
1385.     MyString = MyString + "######## #.#.#.#. ####.... ...##... ######## ........ ........ 2222.... 22..22.. ...22..." + Chr$(13)
1386.     MyString = MyString + "######## .#.#.#.# ####.... ...##... #......# .2222222 ........ 2222.... 22..22.. ...22..." + Chr$(13)
1387.     MyString = MyString + "######## #.#.#.#. ####.... ...##... #......# .2222222 ........ 2222.... ..22..22 ...22..." + Chr$(13)
1388.     MyString = MyString + "######## .#.#.#.#.####.... ######## #......# .2222222 ........ 2222.... ..22..22 ...22222" + Chr$(13)
1389.     MyString = MyString + "######## #.#.#.#. ....#### ######## #......# .2222222 ........ 2222.... 22..22.. ...22222" + Chr$(13)
1390.     MyString = MyString + "######## .#.#.#.# ....#### ...##... #......# .2222222 ........ 2222.... 22..22.. ........" + Chr$(13)
1391.     MyString = MyString + "######## #.#.#.#. ....#### ...##... #......# .2222222 ........ 2222.... ..22..22 ........" + Chr$(13)
1392.     MyString = MyString + "######## .#.#.#.# ....#### ...##... ######## .2222222 ........ 2222.... ..22..22 ........"
1393.  
1394.     ' Break up
1395.     BreakMultipleIntoShapes MyString, arrShapes1()
1396.  
1397.     ' Show Results
1398.     For iLoop = LBound(arrShapes1) To UBound(arrShapes1)
1399.         Print "arrShapes1(" + cstr$(iLoop) + "):"
1400.         Print arrShapes1(iLoop)
1401.         Print
1402.         Input "PRESS <ENTER> TO CONTINUE"; in$
1403.     Next iLoop
1404.  
1405. End Sub ' BreakMultipleIntoShapesTest
1406.  
1407. ' /////////////////////////////////////////////////////////////////////////////
1408. ' GENERATES SEMI-OPTIMIZED VECTOR DRAWING ROUTINES USING Line COMMANDS
1409. ' FOR ONE OR MORE 8X8 TILES.
1410.  
1411. ' TODO: Optimize for each shape by determining how to draw it with the
1412. '       minimum number of line commands.
1413.  
1414. Sub GenerateNextVectorTileCode (MyString As String, sNameList As String)
1415.     Dim RoutineName As String: RoutineName = "GenerateNextVectorTileCode"
1416.     Dim sError As String: sError = ""
1417.     ReDim arrShapes1(-1) As String
1418.     ReDim arrLines(-1) As String
1419.     ReDim arrCols(-1) As String
1420.     ReDim arrCount(-1) As String
1421.     ReDim arrLenCountHZ(-1) As Integer
1422.     ReDim arrLenCountVT(-1) As Integer
1423.     ReDim arrNextShape(-1, -1) As String
1424.     ReDim arrNames(-1) As String
1425.     Dim sLine As String
1426.     Dim iLen As Integer
1427.     Dim iCount As Integer
1428.     Dim in$
1429.     Dim iLoopRows As Integer
1430.     Dim iLoopCols As Integer
1431.     Dim iShapeCount As Integer
1432.     Dim iLoopShape As Integer
1433.     ReDim arrColSize As Integer
1434.     ReDim arrRowSize As Integer
1435.     Dim iCountHZ As Integer
1436.     Dim iCountVT As Integer
1437.     Dim iLoopCount As Integer
1438.     Dim sTransposed As String
1439.     Dim iColumnCount As Integer
1440.     Dim iRowCount As Integer
1441.     Dim iScoreHZ As Integer
1442.     Dim iScoreVT As Integer
1443.     Dim iRow As Integer
1444.     Dim iX1 As Integer
1445.     Dim iX2 As Integer
1446.     Dim iY1 As Integer
1447.     Dim iY2 As Integer
1448.     Dim iLast As Integer
1449.     Dim sTemplate1 As String
1450.     Dim sTemplate2 As String
1451.     Dim sShapeCode As String
1452.     Dim sLineCommands As String
1453.     Dim iTotalCount As Integer: iTotalCount = 0
1454.     Dim sNextShapeComment As String
1455.  
1456.     ' Initialize screen
1457.     If Len(sError) = 0 Then
1458.         Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
1459.     End If
1460.  
1461.     ' Initialize template
1462.     If Len(sError) = 0 Then
1463.         ' Template for code for a shape routine:
1464.         sTemplate1 = "" + _
1465.             "' /////////////////////////////////////////////////////////////////////////////" + chr$(13) + _
1466.             "' Draw this shape with Line commands:" + chr$(13) + _
1467.             "{shape comments}" + _
1468.             "Sub {name}(iX As Integer, iY As Integer, fgColor As _UNSIGNED Long)" + chr$(13) + _
1469.             "    ' {comment}" + chr$(13) + _
1470.             "{line commands}" + _
1471.             "End Sub ' {name}" + chr$(13) + _
1472.             chr$(13) + ""
1473.  
1474.         ' Template for what replaces "{line commands}":
1475.         sTemplate2 = "    Line ({x1}, {y1})-({x2}, {y2}), fgColor" + Chr$(13)
1476.     End If
1477.  
1478.     ' Break multiple up into shapes
1479.     If Len(sError) = 0 Then
1480.         split MyString, Chr$(13), arrLines()
1481.         sLine = arrLines(LBound(arrLines))
1482.         iLen = Len(sLine)
1483.         sLine = Replace$(sLine, " ", "")
1484.         iCount = (iLen - Len(sLine)) + 1
1485.         For iLoopRows = LBound(arrLines) To UBound(arrLines)
1486.             If Len(arrLines(iLoopRows)) > 0 Then
1487.                 split arrLines(iLoopRows), " ", arrCols()
1488.                 iShapeCount = 0
1489.  
1490.                 For iLoopCols = LBound(arrCols) To UBound(arrCols)
1491.                     If Len(arrCols(iLoopCols)) > 0 Then
1492.                         iShapeCount = iShapeCount + 1
1493.  
1494.                         If UBound(arrShapes1) < iShapeCount Then
1495.                             ReDim _Preserve arrShapes1(0 To iShapeCount)
1496.                         End If
1497.  
1498.                         arrShapes1(iShapeCount) = arrShapes1(iShapeCount) + arrCols(iLoopCols) + Chr$(13)
1499.                     End If
1500.                 Next iLoopCols
1501.             End If
1502.         Next iLoopRows
1503.     End If
1504.  
1505.     ' Get names
1506.     If Len(sError) = 0 Then
1507.         split sNameList, ",", arrNames()
1508.         If (UBound(arrNames) + 1 < iShapeCount) Then
1509.             sError = "Not enough names in sNameList." + chr$(13) + _
1510.                 "Detected " + cstr$( ubound(arrNames)+1 ) + "names in " + chr$(13) + _
1511.                 "sNameList " + chr$(34) + sNameList + chr$(34) + chr$(13) + _
1512.                 "and " + cstr$(iShapeCount) + " shapes."
1513.         End If
1514.     End If
1515.  
1516.     ' Process shapes and generate line drawing routines
1517.     If Len(sError) = 0 Then
1518.         For iLoopShape = 1 To iShapeCount
1519.             Cls
1520.             Print "Shape #" + cstr$(iLoopShape)
1521.             Print arrShapes1(iLoopShape)
1522.  
1523.             ' Count rows/columns and create comment showing the shape
1524.             iRowCount = 0
1525.             iColumnCount = 0
1526.             sNextShapeComment = ""
1527.             split arrShapes1(iLoopShape), Chr$(13), arrLines()
1528.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1529.                 If Len(arrLines(iLoopRows)) > 0 Then
1530.                     sNextShapeComment = sNextShapeComment + "' " + _Trim$(arrLines(iLoopRows)) + Chr$(13)
1531.                     iRowCount = iRowCount + 1
1532.                     iLen = Len(_Trim$(arrLines(iLoopRows)))
1533.                     If iLen > iColumnCount Then
1534.                         iColumnCount = iLen
1535.                     End If
1536.                 End If
1537.             Next iLoopRows
1538.             ReDim arrLenCountHZ(1 To iColumnCount) As Integer
1539.             ReDim arrLenCountVT(1 To iRowCount) As Integer
1540.             Print "iRowCount   =" + cstr$(iRowCount)
1541.             Print "iColumnCount=" + cstr$(iColumnCount)
1542.             ReDim arrNextShape(iRowCount, iColumnCount) As String
1543.  
1544.             ' Count consecutive horizontal
1545.             iCountHZ = 0
1546.             Print "lbound(arrLines)=" + cstr$(LBound(arrLines))
1547.             Print "ubound(arrLines)=" + cstr$(UBound(arrLines))
1548.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1549.                 If Len(arrLines(iLoopRows)) > 0 Then
1550.                     split arrLines(iLoopRows), ".", arrCount()
1551.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
1552.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
1553.                         arrLenCountHZ(iLen) = arrLenCountHZ(iLen) + 1
1554.                         If iLen > 0 Then
1555.                             iCountHZ = iCountHZ + 1
1556.                         End If
1557.                     Next iLoopCount
1558.                 End If
1559.             Next iLoopRows
1560.             Print "iCountHZ = " + cstr$(iCountHZ)
1561.  
1562.             ' Transpose to count vertical and create 2D array
1563.             sTransposed = ""
1564.             iCount = 0
1565.             ReDim arrCols(iColumnCount) As String
1566.             iRow = 0
1567.             For iLoopRows = LBound(arrLines) To UBound(arrLines)
1568.                 If Len(arrLines(iLoopRows)) > 0 Then
1569.                     iRow = iRow + 1
1570.                     For iLoopCols = 1 To Len(arrLines(iLoopRows))
1571.                         arrCols(iLoopCols) = arrCols(iLoopCols) + Mid$(arrLines(iLoopRows), iLoopCols, 1)
1572.                         arrNextShape(iRow, iLoopCols) = Mid$(arrLines(iLoopRows), iLoopCols, 1)
1573.                     Next iLoopCols
1574.                 End If
1575.             Next iLoopRows
1576.             For iLoopCols = LBound(arrCols) To UBound(arrCols)
1577.                 sTransposed = sTransposed + arrCols(iLoopCols) + Chr$(13)
1578.             Next iLoopCols
1579.             'print "Transposed:"
1580.             'print sTransposed
1581.  
1582.             ' Count consecutive vertical
1583.             iCountVT = 0
1584.             For iLoopRows = LBound(arrCols) To UBound(arrCols)
1585.                 If Len(arrCols(iLoopRows)) > 0 Then
1586.                     split arrCols(iLoopRows), ".", arrCount()
1587.                     For iLoopCount = LBound(arrCount) To UBound(arrCount)
1588.                         iLen = Len(_Trim$(arrCount(iLoopCount)))
1589.                         arrLenCountVT(iLen) = arrLenCountVT(iLen) + 1
1590.                         If iLen > 0 Then
1591.                             iCountVT = iCountVT + 1
1592.                         End If
1593.                     Next iLoopCount
1594.                 End If
1595.             Next iLoopRows
1596.  
1597.             ' Weigh horizontal vs vertical
1598.             iScoreHZ = 0
1599.             sLine = ""
1600.             For iCount = 1 To iColumnCount
1601.                 If iCount > 1 Then sLine = sLine + ", "
1602.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountHZ(iCount))
1603.                 iScoreHZ = iScoreHZ + (iCount * arrLenCountHZ(iCount))
1604.             Next iCount
1605.             Print "Horizontal count: " + sLine
1606.             Print "Horizontal total: " + cstr$(iCountHZ)
1607.             Print "Horizontal miles: " + cstr$(iScoreHZ)
1608.  
1609.             iScoreVT = 0
1610.             sLine = ""
1611.             For iCount = 1 To iRowCount
1612.                 If iCount > 1 Then sLine = sLine + ", "
1613.                 sLine = sLine + cstr$(iCount) + "=" + cstr$(arrLenCountVT(iCount))
1614.                 iScoreVT = iScoreVT + (iCount * arrLenCountVT(iCount))
1615.             Next iCount
1616.             Print "Vertical   count: " + sLine
1617.             Print "Vertical   total: " + cstr$(iCountVT)
1618.             Print "Vertical   miles: " + cstr$(iScoreVT)
1619.  
1620.             '' Verify break up into array
1621.             'print "REGURGITATED 2D:"
1622.             'for iLoopRows = lbound(arrNextShape, 1) to ubound(arrNextShape, 1)
1623.             '    sLine = ""
1624.             '    for iLoopCols = lbound(arrNextShape, 2) to ubound(arrNextShape, 2)
1625.             '        sLine = sLine + arrNextShape(iLoopRows, iLoopCols)
1626.             '    next iLoopCols
1627.             '    print sLine
1628.             'next iLoopRows
1629.  
1630.             ' DID WE FIND ANYTHING TO DRAW?
1631.             If iCountVT > 0 And iCountHZ > 0 Then
1632.  
1633.                 ' INTIALIZE TEMPLATE FOR NEXT SHAPE
1634.                 'sTemplate1: {name} {comment} {line commands}
1635.                 sShapeCode = sTemplate1
1636.                 sShapeCode = Replace$(sShapeCode, "{name}", arrNames(iLoopShape - 1))
1637.                 sShapeCode = Replace$(sShapeCode, "{shape comments}", sNextShapeComment)
1638.                 sLineCommands = ""
1639.  
1640.                 ' More consecutive horizontal or vertical?
1641.                 If iCountVT < iCountHZ Then
1642.  
1643.                     ' ADD A COMMENT THAT THIS ROUTINE USES VERTICAL LINES
1644.                     'sTemplate1: {name} {comment} {line commands}
1645.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH VERTICAL LINES")
1646.  
1647.                     ' LOOK AT SHAPE COLUMN BY COLUMN
1648.                     For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
1649.                         iX1 = iLoopCols
1650.                         iX2 = iLoopCols
1651.                         iY1 = -1
1652.                         iY2 = -1
1653.  
1654.                         ' LOOK AT SHAPE ROW BY ROW
1655.                         For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
1656.  
1657.                             ' PIXEL HERE...
1658.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
1659.                                 ' ARE WE CURRENTLY IN A LINE?
1660.                                 If iY1 = -1 Then
1661.                                     ' NO, START A NEW LINE
1662.                                     ' Remember this as the starting point
1663.                                     iY1 = iLoopRows
1664.                                 End If
1665.  
1666.                                 ' Remember the most recent point
1667.                                 iLast = iLoopRows
1668.  
1669.                                 ' NO PIXEL HERE...
1670.                             Else
1671.                                 ' ARE WE CURRENTLY IN A LINE?
1672.                                 If iY1 <> -1 Then
1673.                                     ' Use the most recent point as the end point
1674.                                     iY2 = iLast
1675.  
1676.                                     ' GENERATE THE NEXT LINE COMMAND
1677.                                     'sTemplate1: {name} {comment} {line commands}
1678.                                     'sTemplate2: {x1} {y1} {x2} {y2}
1679.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1680.                                     sLine = sTemplate2
1681.  
1682.                                     If iX1 = 1 Then
1683.                                         sLine = Replace$(sLine, "{x1}", "iX")
1684.                                     Else
1685.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1686.                                     End If
1687.  
1688.                                     If iY1 = 1 Then
1689.                                         sLine = Replace$(sLine, "{y1}", "iY")
1690.                                     Else
1691.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1692.                                     End If
1693.  
1694.                                     If iX2 = 1 Then
1695.                                         sLine = Replace$(sLine, "{x2}", "iX")
1696.                                     Else
1697.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1698.                                     End If
1699.  
1700.                                     If iY2 = 1 Then
1701.                                         sLine = Replace$(sLine, "{y2}", "iY")
1702.                                     Else
1703.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1704.                                     End If
1705.  
1706.                                     ' SAVE THE COMMAND TO BE ADDED
1707.                                     sLineCommands = sLineCommands + sLine
1708.  
1709.                                     ' RESET (NO LONGER IN A LINE)
1710.                                     iY1 = -1
1711.                                 End If
1712.                             End If
1713.                         Next iLoopRows
1714.  
1715.                         ' AND CHECK AGAIN AT THE END
1716.                         ' ARE WE CURRENTLY IN A LINE?
1717.                         If iY1 <> -1 Then
1718.                             ' Use the most recent point as the end point
1719.                             iY2 = iLast
1720.  
1721.                             ' GENERATE THE NEXT LINE COMMAND
1722.                             'sTemplate1: {name} {comment} {line commands}
1723.                             'sTemplate2: {x1} {y1} {x2} {y2}
1724.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1725.                             sLine = sTemplate2
1726.  
1727.                             If iX1 = 1 Then
1728.                                 sLine = Replace$(sLine, "{x1}", "iX")
1729.                             Else
1730.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1731.                             End If
1732.  
1733.                             If iY1 = 1 Then
1734.                                 sLine = Replace$(sLine, "{y1}", "iY")
1735.                             Else
1736.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1737.                             End If
1738.  
1739.                             If iX2 = 1 Then
1740.                                 sLine = Replace$(sLine, "{x2}", "iX")
1741.                             Else
1742.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1743.                             End If
1744.  
1745.                             If iY2 = 1 Then
1746.                                 sLine = Replace$(sLine, "{y2}", "iY")
1747.                             Else
1748.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1749.                             End If
1750.  
1751.                             ' SAVE THE COMMAND TO BE ADDED
1752.                             sLineCommands = sLineCommands + sLine
1753.  
1754.                             ' RESET (NO LONGER IN A LINE)
1755.                             iY1 = -1
1756.                         End If
1757.                     Next iLoopCols
1758.  
1759.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
1760.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
1761.  
1762.                     ' OUTPUT IT
1763.                     iTotalCount = iTotalCount + 1
1764.                     DebugPrint sShapeCode
1765.  
1766.                 Else
1767.                     ' ADD A COMMENT THAT THIS ROUTINE USES HORIZONTAL LINES
1768.                     'sTemplate1: {name} {comment} {line commands}
1769.                     sShapeCode = Replace$(sShapeCode, "{comment}", "DRAW WITH HORIZONTAL LINES")
1770.  
1771.                     ' LOOK AT SHAPE ROW BY ROW
1772.                     For iLoopRows = LBound(arrNextShape, 1) To UBound(arrNextShape, 1)
1773.                         iX1 = -1
1774.                         iX2 = -1
1775.                         iY1 = iLoopRows
1776.                         iY2 = iLoopRows
1777.  
1778.                         ' LOOK AT SHAPE COLUMN BY COLUMN
1779.                         For iLoopCols = LBound(arrNextShape, 2) To UBound(arrNextShape, 2)
1780.  
1781.                             ' PIXEL HERE...
1782.                             If arrNextShape(iLoopRows, iLoopCols) = "#" Then
1783.                                 ' ARE WE CURRENTLY IN A LINE?
1784.                                 If iX1 = -1 Then
1785.                                     ' NO, START A NEW LINE
1786.                                     ' Remember this as the starting point
1787.                                     iX1 = iLoopCols
1788.                                 End If
1789.  
1790.                                 ' Remember the most recent point
1791.                                 iLast = iLoopCols
1792.  
1793.                                 ' NO PIXEL HERE...
1794.                             Else
1795.                                 ' ARE WE CURRENTLY IN A LINE?
1796.                                 If iX1 <> -1 Then
1797.                                     ' Use the most recent point as the end point
1798.                                     iX2 = iLast
1799.  
1800.                                     ' GENERATE THE NEXT LINE COMMAND
1801.                                     'sTemplate1: {name} {comment} {line commands}
1802.                                     'sTemplate2: {x1} {y1} {x2} {y2}
1803.                                     'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1804.                                     sLine = sTemplate2
1805.  
1806.                                     If iX1 = 1 Then
1807.                                         sLine = Replace$(sLine, "{x1}", "iX")
1808.                                     Else
1809.                                         sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1810.                                     End If
1811.  
1812.                                     If iY1 = 1 Then
1813.                                         sLine = Replace$(sLine, "{y1}", "iY")
1814.                                     Else
1815.                                         sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1816.                                     End If
1817.  
1818.                                     If iX2 = 1 Then
1819.                                         sLine = Replace$(sLine, "{x2}", "iX")
1820.                                     Else
1821.                                         sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1822.                                     End If
1823.  
1824.                                     If iY2 = 1 Then
1825.                                         sLine = Replace$(sLine, "{y2}", "iY")
1826.                                     Else
1827.                                         sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1828.                                     End If
1829.  
1830.                                     ' SAVE THE COMMAND TO BE ADDED
1831.                                     sLineCommands = sLineCommands + sLine
1832.  
1833.                                     ' RESET (NO LONGER IN A LINE)
1834.                                     iX1 = -1
1835.                                 End If
1836.                             End If
1837.                         Next iLoopCols
1838.  
1839.                         ' AND CHECK AGAIN AT THE END
1840.                         ' ARE WE CURRENTLY IN A LINE?
1841.                         If iX1 <> -1 Then
1842.                             ' Use the most recent point as the end point
1843.                             iX2 = iLast
1844.  
1845.                             ' GENERATE THE NEXT LINE COMMAND
1846.                             'sTemplate1: {name} {comment} {line commands}
1847.                             'sTemplate2: {x1} {y1} {x2} {y2}
1848.                             'sTemplate2 = sTemplate2 + "    Line (iX+4, iY+1)-(iX+4, iY+2), fgColor" + chr$(13)
1849.                             sLine = sTemplate2
1850.  
1851.                             If iX1 = 1 Then
1852.                                 sLine = Replace$(sLine, "{x1}", "iX")
1853.                             Else
1854.                                 sLine = Replace$(sLine, "{x1}", "iX + " + cstr$(iX1 - 1))
1855.                             End If
1856.  
1857.                             If iY1 = 1 Then
1858.                                 sLine = Replace$(sLine, "{y1}", "iY")
1859.                             Else
1860.                                 sLine = Replace$(sLine, "{y1}", "iY + " + cstr$(iY1 - 1))
1861.                             End If
1862.  
1863.                             If iX2 = 1 Then
1864.                                 sLine = Replace$(sLine, "{x2}", "iX")
1865.                             Else
1866.                                 sLine = Replace$(sLine, "{x2}", "iX + " + cstr$(iX2 - 1))
1867.                             End If
1868.  
1869.                             If iY2 = 1 Then
1870.                                 sLine = Replace$(sLine, "{y2}", "iY")
1871.                             Else
1872.                                 sLine = Replace$(sLine, "{y2}", "iY + " + cstr$(iY2 - 1))
1873.                             End If
1874.  
1875.                             ' SAVE THE COMMAND TO BE ADDED
1876.                             sLineCommands = sLineCommands + sLine
1877.  
1878.                             ' RESET (NO LONGER IN A LINE)
1879.                             iX1 = -1
1880.                         End If
1881.                     Next iLoopRows
1882.  
1883.                     ' ADD THE LINE COMMANDS TO THE CURRENT SHAPE'S DRAW ROUTINE
1884.                     sShapeCode = Replace$(sShapeCode, "{line commands}", sLineCommands)
1885.  
1886.                     ' OUTPUT IT
1887.                     iTotalCount = iTotalCount + 1
1888.                     DebugPrint sShapeCode
1889.                 End If
1890.             End If
1891.  
1892.             ' DONE
1893.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1894.             Print sShapeCode
1895.             Print "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
1896.             'Input "PRESS <ENTER> TO CONTINUE";in$
1897.         Next iLoopShape
1898.     End If
1899.  
1900.     ' SHOW RESULTS
1901.     If Len(sError) = 0 Then
1902.         Print "Generated " + cstr$(iTotalCount) + " shape routines."
1903.     Else
1904.         Print RoutineName + " failed:"
1905.         Print sError
1906.     End If
1907.     'Input "PRESS <ENTER> TO CONTINUE";in$
1908.  
1909.     Screen 0
1910. End Sub ' GenerateNextVectorTileCode
1911.  
1912. ' /////////////////////////////////////////////////////////////////////////////
1913. ' Defines various 8x8 tiles and calls GenerateNextVectorTileCode to generate vector
1914. ' Line routines to draw each one.
1915.  
1916. Sub GenerateVectorTileCode ()
1917.     Dim MyString As String
1918.     Dim sNameList As String
1919.     Dim in$
1920.  
1921.     MyString = ""
1922.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1923.     MyString = MyString + "...#.... ........ ........ ........ ...#.... ...#...." + Chr$(13)
1924.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1925.     MyString = MyString + "...#.... #.#.#.#. ...##.#. #.##.... ...##.#. #.##...." + Chr$(13)
1926.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
1927.     MyString = MyString + "...#.... ........ ........ ........ ........ ........" + Chr$(13)
1928.     MyString = MyString + "........ ........ ...#.... ...#.... ........ ........" + Chr$(13)
1929.     MyString = MyString + "...#.... ........ ........ ........ ........ ........"
1930.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1931.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1932.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1933.     sNameList = Replace$(sNameList, "{n}", "1")
1934.     GenerateNextVectorTileCode MyString, sNameList
1935.  
1936.     MyString = ""
1937.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1938.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1939.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1940.     MyString = MyString + "...##... #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
1941.     MyString = MyString + "........ #.#.#.#. ...##.#. #.#.#... ...##.#. #.#.#..." + Chr$(13)
1942.     MyString = MyString + "...##... ........ ........ ........ ........ ........" + Chr$(13)
1943.     MyString = MyString + "........ ........ ...##... ...##... ........ ........" + Chr$(13)
1944.     MyString = MyString + "...##... ........ ........ ........ ........ ........"
1945.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1946.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1947.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1948.     sNameList = Replace$(sNameList, "{n}", "2")
1949.     GenerateNextVectorTileCode MyString, sNameList
1950.  
1951.     MyString = ""
1952.     MyString = MyString + "........ ........ ........ ........ ........ ........" + Chr$(13)
1953.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1954.     MyString = MyString + "...##... ........ ........ ........ ...##... ...##..." + Chr$(13)
1955.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
1956.     MyString = MyString + "........ .##..##. .....##. .##..... .....##. .##....." + Chr$(13)
1957.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
1958.     MyString = MyString + "...##... ........ ...##... ...##... ........ ........" + Chr$(13)
1959.     MyString = MyString + "........ ........ ........ ........ ........ ........"
1960.     sNameList = "DrawHomeLine8x8_VT_{n},DrawHomeLine8x8_HZ_{n}," + _
1961.         "DrawHomeLine8x8_NW_{n},DrawHomeLine8x8_NE_{n}," + _
1962.         "DrawHomeLine8x8_SW_{n},DrawHomeLine8x8_SE_{n}"
1963.     sNameList = Replace$(sNameList, "{n}", "3")
1964.     GenerateNextVectorTileCode MyString, sNameList
1965.  
1966.     MyString = ""
1967.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ...##... ...#...#" + Chr$(13)
1968.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
1969.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
1970.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ######## ########" + Chr$(13)
1971.     MyString = MyString + "##..##.. #.#.#.#. ######## ######## #######. ######## ...#...#" + Chr$(13)
1972.     MyString = MyString + "##..##.. #.#.#.#. ######## ........ #.#.#.#. ...##... ...#...#" + Chr$(13)
1973.     MyString = MyString + "##..##.. #.#.#.#. ........ ######## #######. ...##... ...#...#" + Chr$(13)
1974.     MyString = MyString + "##..##.. #.#.#.#. ........ ........ #.#.#.#. ...##... ########"
1975.     sNameList = "DrawJailLine8x8_VT_2,DrawJailLine8x8_VT_1," + _
1976.         "DrawJailLine8x8_HZ_2,DrawJailLine8x8_HZ_1," + _
1977.         "DrawJailLine8x8_Grid_1,DrawJailLine8x8_Grid_3," + _
1978.         "DrawJailLine8x8_Grid_2"
1979.     GenerateNextVectorTileCode MyString, sNameList
1980.     Print
1981.     Print "See console window for generated code."
1982.     Input "PRESS <ENTER> TO CONTINUE"; in$
1983. End Sub ' GenerateVectorTileCode
1984.  
1985. ' ################################################################################################################################################################
1986. ' END GENERATE LINE DRAWING SHAPE ROUTINES
1987. ' ################################################################################################################################################################
1988.  
1989. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1990. ' BEGIN GENERATED VECTOR TILE ROUTINES
1991. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1992.  
1993. ' /////////////////////////////////////////////////////////////////////////////
1994. ' Draw this shape with Line commands:
1995. ' ........
1996. ' ...#....
1997. ' ........
1998. ' ...#....
1999. ' ........
2000. ' ...#....
2001. ' ........
2002. ' ...#....
2003. Sub DrawHomeLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2004.     ' DRAW WITH HORIZONTAL LINES
2005.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2006.     Line (iX + 3, iY + 3)-(iX + 3, iY + 3), fgColor
2007.     Line (iX + 3, iY + 5)-(iX + 3, iY + 5), fgColor
2008.     Line (iX + 3, iY + 7)-(iX + 3, iY + 7), fgColor
2009. End Sub ' DrawHomeLine8x8_VT_1
2010.  
2011. ' /////////////////////////////////////////////////////////////////////////////
2012. ' Draw this shape with Line commands:
2013. ' ........
2014. ' ........
2015. ' ........
2016. ' #.#.#.#.
2017. ' ........
2018. ' ........
2019. ' ........
2020. ' ........
2021. Sub DrawHomeLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2022.     ' DRAW WITH HORIZONTAL LINES
2023.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2024.     Line (iX + 2, iY + 3)-(iX + 2, iY + 3), fgColor
2025.     Line (iX + 4, iY + 3)-(iX + 4, iY + 3), fgColor
2026.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2027. End Sub ' DrawHomeLine8x8_HZ_1
2028.  
2029. ' /////////////////////////////////////////////////////////////////////////////
2030. ' Draw this shape with Line commands:
2031. ' ........
2032. ' ........
2033. ' ........
2034. ' ...##.#.
2035. ' ...#....
2036. ' ........
2037. ' ...#....
2038. ' ........
2039. Sub DrawHomeLine8x8_NW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2040.     ' DRAW WITH HORIZONTAL LINES
2041.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2042.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2043.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
2044.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
2045. End Sub ' DrawHomeLine8x8_NW_1
2046.  
2047. ' /////////////////////////////////////////////////////////////////////////////
2048. ' Draw this shape with Line commands:
2049. ' ........
2050. ' ........
2051. ' ........
2052. ' #.##....
2053. ' ...#....
2054. ' ........
2055. ' ...#....
2056. ' ........
2057. Sub DrawHomeLine8x8_NE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2058.     ' DRAW WITH HORIZONTAL LINES
2059.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2060.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
2061.     Line (iX + 3, iY + 4)-(iX + 3, iY + 4), fgColor
2062.     Line (iX + 3, iY + 6)-(iX + 3, iY + 6), fgColor
2063. End Sub ' DrawHomeLine8x8_NE_1
2064.  
2065. ' /////////////////////////////////////////////////////////////////////////////
2066. ' Draw this shape with Line commands:
2067. ' ........
2068. ' ...#....
2069. ' ........
2070. ' ...##.#.
2071. ' ........
2072. ' ........
2073. ' ........
2074. ' ........
2075. Sub DrawHomeLine8x8_SW_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2076.     ' DRAW WITH HORIZONTAL LINES
2077.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2078.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2079.     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
2080. End Sub ' DrawHomeLine8x8_SW_1
2081.  
2082. ' /////////////////////////////////////////////////////////////////////////////
2083. ' Draw this shape with Line commands:
2084. ' ........
2085. ' ...#....
2086. ' ........
2087. ' #.##....
2088. ' ........
2089. ' ........
2090. ' ........
2091. ' ........
2092. Sub DrawHomeLine8x8_SE_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2093.     ' DRAW WITH HORIZONTAL LINES
2094.     Line (iX + 3, iY + 1)-(iX + 3, iY + 1), fgColor
2095.     Line (iX, iY + 3)-(iX, iY + 3), fgColor
2096.     Line (iX + 2, iY + 3)-(iX + 3, iY + 3), fgColor
2097. End Sub ' DrawHomeLine8x8_SE_1
2098.  
2099. ' /////////////////////////////////////////////////////////////////////////////
2100. ' Draw this shape with Line commands:
2101. ' ........
2102. ' ...##...
2103. ' ........
2104. ' ...##...
2105. ' ........
2106. ' ...##...
2107. ' ........
2108. ' ...##...
2109. Sub DrawHomeLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2110.     ' DRAW WITH HORIZONTAL LINES
2111.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2112.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2113.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2114.     Line (iX + 3, iY + 7)-(iX + 4, iY + 7), fgColor
2115. End Sub ' DrawHomeLine8x8_VT_2
2116.  
2117. ' /////////////////////////////////////////////////////////////////////////////
2118. ' Draw this shape with Line commands:
2119. ' ........
2120. ' ........
2121. ' ........
2122. ' #.#.#.#.
2123. ' #.#.#.#.
2124. ' ........
2125. ' ........
2126. ' ........
2127. Sub DrawHomeLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2128.     ' DRAW WITH VERTICAL LINES
2129.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2130.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2131.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2132.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
2133. End Sub ' DrawHomeLine8x8_HZ_2
2134.  
2135. ' /////////////////////////////////////////////////////////////////////////////
2136. ' Draw this shape with Line commands:
2137. ' ........
2138. ' ........
2139. ' ........
2140. ' ...##.#.
2141. ' ...##.#.
2142. ' ........
2143. ' ...##...
2144. ' ........
2145. Sub DrawHomeLine8x8_NW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2146.     ' DRAW WITH HORIZONTAL LINES
2147.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2148.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
2149.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2150.  
2151.     ' DRAW WITH VERTICAL LINES
2152.     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
2153. End Sub ' DrawHomeLine8x8_NW_2
2154.  
2155. ' /////////////////////////////////////////////////////////////////////////////
2156. ' Draw this shape with Line commands:
2157. ' ........
2158. ' ........
2159. ' ........
2160. ' #.#.#...
2161. ' #.#.#...
2162. ' ........
2163. ' ...##...
2164. ' ........
2165. Sub DrawHomeLine8x8_NE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2166.     ' DRAW WITH VERTICAL LINES
2167.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2168.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2169.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2170.  
2171.     ' DRAW WITH HORIZONTAL LINES
2172.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2173. End Sub ' DrawHomeLine8x8_NE_2
2174.  
2175. ' /////////////////////////////////////////////////////////////////////////////
2176. ' Draw this shape with Line commands:
2177. ' ........
2178. ' ...##...
2179. ' ........
2180. ' ...##.#.
2181. ' ...##.#.
2182. ' ........
2183. ' ........
2184. ' ........
2185. Sub DrawHomeLine8x8_SW_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2186.     ' DRAW WITH HORIZONTAL LINES
2187.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2188.     Line (iX + 3, iY + 3)-(iX + 4, iY + 3), fgColor
2189.     Line (iX + 3, iY + 4)-(iX + 4, iY + 4), fgColor
2190.  
2191.     ' DRAW WITH VERTICAL LINES
2192.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2193. End Sub ' DrawHomeLine8x8_SW_2
2194.  
2195. ' /////////////////////////////////////////////////////////////////////////////
2196. ' Draw this shape with Line commands:
2197. ' ........
2198. ' ...##...
2199. ' ........
2200. ' #.#.#...
2201. ' #.#.#...
2202. ' ........
2203. ' ........
2204. ' ........
2205. Sub DrawHomeLine8x8_SE_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2206.     ' DRAW WITH HORIZONTAL LINES
2207.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2208.  
2209.     ' DRAW WITH VERTICAL LINES
2210.     Line (iX, iY + 3)-(iX, iY + 4), fgColor
2211.     Line (iX + 2, iY + 3)-(iX + 2, iY + 4), fgColor
2212.     Line (iX + 4, iY + 3)-(iX + 4, iY + 4), fgColor
2213.  
2214. End Sub ' DrawHomeLine8x8_SE_2
2215.  
2216. ' /////////////////////////////////////////////////////////////////////////////
2217. ' Draw this shape with Line commands:
2218. ' ........
2219. ' ...##...
2220. ' ...##...
2221. ' ........
2222. ' ........
2223. ' ...##...
2224. ' ...##...
2225. ' ........
2226. Sub DrawHomeLine8x8_VT_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2227.     ' DRAW WITH HORIZONTAL LINES
2228.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2229.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2230.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2231.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2232. End Sub ' DrawHomeLine8x8_VT_3
2233.  
2234. ' /////////////////////////////////////////////////////////////////////////////
2235. ' Draw this shape with Line commands:
2236. ' ........
2237. ' ........
2238. ' ........
2239. ' .##..##.
2240. ' .##..##.
2241. ' ........
2242. ' ........
2243. ' ........
2244. Sub DrawHomeLine8x8_HZ_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2245.     ' DRAW WITH HORIZONTAL LINES
2246.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2247.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2248.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2249.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2250. End Sub ' DrawHomeLine8x8_HZ_3
2251.  
2252. ' /////////////////////////////////////////////////////////////////////////////
2253. ' Draw this shape with Line commands:
2254. ' ........
2255. ' ........
2256. ' ........
2257. ' .....##.
2258. ' .....##.
2259. ' ...##...
2260. ' ...##...
2261. ' ........
2262. Sub DrawHomeLine8x8_NW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2263.     ' DRAW WITH HORIZONTAL LINES
2264.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2265.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2266.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2267.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2268. End Sub ' DrawHomeLine8x8_NW_3
2269.  
2270. ' /////////////////////////////////////////////////////////////////////////////
2271. ' Draw this shape with Line commands:
2272. ' ........
2273. ' ........
2274. ' ........
2275. ' .##.....
2276. ' .##.....
2277. ' ...##...
2278. ' ...##...
2279. ' ........
2280. Sub DrawHomeLine8x8_NE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2281.     ' DRAW WITH HORIZONTAL LINES
2282.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2283.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2284.     Line (iX + 3, iY + 5)-(iX + 4, iY + 5), fgColor
2285.     Line (iX + 3, iY + 6)-(iX + 4, iY + 6), fgColor
2286. End Sub ' DrawHomeLine8x8_NE_3
2287.  
2288. ' /////////////////////////////////////////////////////////////////////////////
2289. ' Draw this shape with Line commands:
2290. ' ........
2291. ' ...##...
2292. ' ...##...
2293. ' .....##.
2294. ' .....##.
2295. ' ........
2296. ' ........
2297. ' ........
2298. Sub DrawHomeLine8x8_SW_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2299.     ' DRAW WITH HORIZONTAL LINES
2300.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2301.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2302.     Line (iX + 5, iY + 3)-(iX + 6, iY + 3), fgColor
2303.     Line (iX + 5, iY + 4)-(iX + 6, iY + 4), fgColor
2304. End Sub ' DrawHomeLine8x8_SW_3
2305.  
2306. ' /////////////////////////////////////////////////////////////////////////////
2307. ' Draw this shape with Line commands:
2308. ' ........
2309. ' ...##...
2310. ' ...##...
2311. ' .##.....
2312. ' .##.....
2313. ' ........
2314. ' ........
2315. ' ........
2316. Sub DrawHomeLine8x8_SE_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2317.     ' DRAW WITH HORIZONTAL LINES
2318.     Line (iX + 3, iY + 1)-(iX + 4, iY + 1), fgColor
2319.     Line (iX + 3, iY + 2)-(iX + 4, iY + 2), fgColor
2320.     Line (iX + 1, iY + 3)-(iX + 2, iY + 3), fgColor
2321.     Line (iX + 1, iY + 4)-(iX + 2, iY + 4), fgColor
2322. End Sub ' DrawHomeLine8x8_SE_3
2323.  
2324. ' /////////////////////////////////////////////////////////////////////////////
2325. ' Draw this shape with Line commands:
2326. ' ##..##..
2327. ' ##..##..
2328. ' ##..##..
2329. ' ##..##..
2330. ' ##..##..
2331. ' ##..##..
2332. ' ##..##..
2333. ' ##..##..
2334. Sub DrawJailLine8x8_VT_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2335.     ' DRAW WITH VERTICAL LINES
2336.     Line (iX, iY)-(iX, iY + 7), fgColor
2337.     Line (iX + 1, iY)-(iX + 1, iY + 7), fgColor
2338.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2339.     Line (iX + 5, iY)-(iX + 5, iY + 7), fgColor
2340. End Sub ' DrawJailLine8x8_VT_2
2341.  
2342. ' /////////////////////////////////////////////////////////////////////////////
2343. ' Draw this shape with Line commands:
2344. ' #.#.#.#.
2345. ' #.#.#.#.
2346. ' #.#.#.#.
2347. ' #.#.#.#.
2348. ' #.#.#.#.
2349. ' #.#.#.#.
2350. ' #.#.#.#.
2351. ' #.#.#.#.
2352. Sub DrawJailLine8x8_VT_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2353.     ' DRAW WITH VERTICAL LINES
2354.     Line (iX, iY)-(iX, iY + 7), fgColor
2355.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
2356.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2357.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
2358. End Sub ' DrawJailLine8x8_VT_1
2359.  
2360. ' /////////////////////////////////////////////////////////////////////////////
2361. ' Draw this shape with Line commands:
2362. ' ########
2363. ' ########
2364. ' ........
2365. ' ........
2366. ' ########
2367. ' ########
2368. ' ........
2369. ' ........
2370. Sub DrawJailLine8x8_HZ_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2371.     ' DRAW WITH HORIZONTAL LINES
2372.     Line (iX, iY)-(iX + 7, iY), fgColor
2373.     Line (iX, iY + 1)-(iX + 7, iY + 1), fgColor
2374.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2375.     Line (iX, iY + 5)-(iX + 7, iY + 5), fgColor
2376. End Sub ' DrawJailLine8x8_HZ_2
2377.  
2378. ' /////////////////////////////////////////////////////////////////////////////
2379. ' Draw this shape with Line commands:
2380. ' ########
2381. ' ........
2382. ' ########
2383. ' ........
2384. ' ########
2385. ' ........
2386. ' ########
2387. ' ........
2388. Sub DrawJailLine8x8_HZ_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2389.     ' DRAW WITH HORIZONTAL LINES
2390.     Line (iX, iY)-(iX + 7, iY), fgColor
2391.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
2392.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2393.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
2394. End Sub ' DrawJailLine8x8_HZ_1
2395.  
2396. ' /////////////////////////////////////////////////////////////////////////////
2397. ' Draw this shape with Line commands:
2398. ' #######.
2399. ' #.#.#.#.
2400. ' #######.
2401. ' #.#.#.#.
2402. ' #######.
2403. ' #.#.#.#.
2404. ' #######.
2405. ' #.#.#.#.
2406. Sub DrawJailLine8x8_Grid_1 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2407.     ' DRAW WITH VERTICAL LINES
2408.     Line (iX, iY)-(iX, iY + 7), fgColor
2409.     Line (iX + 2, iY)-(iX + 2, iY + 7), fgColor
2410.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2411.     Line (iX + 6, iY)-(iX + 6, iY + 7), fgColor
2412.  
2413.     ' DRAW WITH HORIZONTAL LINES
2414.     Line (iX, iY)-(iX + 7, iY), fgColor
2415.     Line (iX, iY + 2)-(iX + 7, iY + 2), fgColor
2416.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2417.     Line (iX, iY + 6)-(iX + 7, iY + 6), fgColor
2418. End Sub ' DrawJailLine8x8_Grid_1
2419.  
2420. ' /////////////////////////////////////////////////////////////////////////////
2421. ' Draw this shape with Line commands:
2422. ' ...#...#
2423. ' ...#...#
2424. ' ...#...#
2425. ' ########
2426. ' ...#...#
2427. ' ...#...#
2428. ' ...#...#
2429. ' ########
2430. Sub DrawJailLine8x8_Grid_2 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2431.     ' DRAW WITH VERTICAL LINES
2432.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
2433.     Line (iX + 7, iY)-(iX + 7, iY + 7), fgColor
2434.     ' DRAW WITH HORIZONTAL LINES
2435.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
2436.     Line (iX, iY + 7)-(iX + 7, iY + 7), fgColor
2437. End Sub ' DrawJailLine8x8_Grid_2
2438.  
2439. ' /////////////////////////////////////////////////////////////////////////////
2440. ' Draw this shape with Line commands:
2441. ' ...##...
2442. ' ...##...
2443. ' ...##...
2444. ' ########
2445. ' ########
2446. ' ...##...
2447. ' ...##...
2448. ' ...##...
2449. Sub DrawJailLine8x8_Grid_3 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2450.     ' DRAW WITH VERTICAL LINES
2451.     Line (iX + 3, iY)-(iX + 3, iY + 7), fgColor
2452.     Line (iX + 4, iY)-(iX + 4, iY + 7), fgColor
2453.     ' DRAW WITH HORIZONTAL LINES
2454.     Line (iX, iY + 3)-(iX + 7, iY + 3), fgColor
2455.     Line (iX, iY + 4)-(iX + 7, iY + 4), fgColor
2456. End Sub ' DrawJailLine8x8_Grid_3
2457.  
2458. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2459. ' END GENERATED VECTOR TILE ROUTINES
2460. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2461.  
2462. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2463. ' BEGIN MANUALLY CREATED VECTOR TILE ROUTINES
2464. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2465.  
2466. ' /////////////////////////////////////////////////////////////////////////////
2467. ' Fastest!
2468.  
2469. Sub DrawUpArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2470.     Dim iStartX As Integer: iStartX = iX + 3
2471.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
2472.     Line (iStartX, iY)-(iX, iY + 3), fgColor
2473.     Line (iStartX, iY)-(iStartX + 3, iY + 3), fgColor
2474. End Sub ' DrawUpArrowLine_8x8
2475.  
2476. ' /////////////////////////////////////////////////////////////////////////////
2477. ' Fastest!
2478.  
2479. Sub DrawDownArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2480.     Dim iStartX As Integer: iStartX = iX + 3
2481.     Line (iStartX, iY)-(iStartX, iY + 7), fgColor
2482.     Line (iStartX, iY + 7)-(iX, iY + 4), fgColor
2483.     Line (iStartX, iY + 7)-(iStartX + 3, iY + 4), fgColor
2484. End Sub ' DrawDownArrowLine_8x8
2485.  
2486. ' /////////////////////////////////////////////////////////////////////////////
2487. ' Fastest!
2488.  
2489. Sub DrawLeftArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2490.     Dim iStartY As Integer: iStartY = iY + 3
2491.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
2492.     Line (iX, iStartY)-(iX + 3, iY), fgColor
2493.     Line (iX, iStartY)-(iX + 3, iStartY + 3), fgColor
2494. End Sub ' DrawLeftArrowLine_8x8
2495.  
2496. ' /////////////////////////////////////////////////////////////////////////////
2497. ' Fastest!
2498.  
2499. Sub DrawRightArrowLine_8x8 (iX As Integer, iY As Integer, fgColor As _Unsigned Long)
2500.     Dim iStartY As Integer: iStartY = iY + 3
2501.     Line (iX, iStartY)-(iX + 7, iStartY), fgColor
2502.     Line (iX + 7, iStartY)-(iX + 4, iY), fgColor
2503.     Line (iX + 7, iStartY)-(iX + 4, iStartY + 3), fgColor
2504. End Sub ' DrawRightArrowLine_8x8
2505.  
2506. ' /////////////////////////////////////////////////////////////////////////////
2507. ' This uses PSET to draw the arrow pixel-by-pixel
2508. ' PSET = second fastest method after Line.
2509.  
2510. ' PSET (X, Y), Color
2511. ' draw will start where pset leaves off
2512.  
2513. Sub DrawLeftArrowPset_8x8 (iX As Long, iY As Long, fgColor As _Unsigned Long)
2514.     Dim iLoopX As Integer
2515.     Dim iLoopY As Integer
2516.     For iLoopX = iX To iX + 7: PSet (iLoopX, iY), fgColor: Next iLoopX
2517.     PSet (iX + 1, iY - 1), fgColor
2518.     PSet (iX + 2, iY - 2), fgColor
2519.     PSet (iX + 3, iY - 3), fgColor
2520.     PSet (iX + 1, iY + 1), fgColor
2521.     PSet (iX + 2, iY + 2), fgColor
2522.     PSet (iX + 3, iY + 3), fgColor
2523. End Sub ' DrawLeftArrowPset_8x8
2524.  
2525. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2526. ' END MANUALLY CREATED VECTOR TILE ROUTINES
2527. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2528.  
2529. ' ################################################################################################################################################################
2530. ' END MISC GRAPHICS ROUTINES
2531. ' ################################################################################################################################################################
2532.  
2533. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2534. ' BEGIN STRING TO ARRAY FUNCTIONS
2535. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2536.  
2537. ' /////////////////////////////////////////////////////////////////////////////
2538.  
2539. ' Usage:
2540. ' Dim StringArray(1 To 48, 1 To 128) As String
2541. ' StringToArray StringArray(), GetMap$
2542.  
2543. ' version 2 with indexed array(row, columm)
2544.  
2545. Sub StringToArray (MyArray() As String, MyString As String)
2546.     Dim sDelim As String
2547.     ReDim arrLines(0) As String
2548.     Dim iRow As Integer
2549.     Dim iCol As Integer
2550.     Dim sChar As String
2551.     Dim iDim1 As Integer
2552.     Dim iDim2 As Integer
2553.     Dim iIndex1 As Integer
2554.     Dim iIndex2 As Integer
2555.  
2556.     iDim1 = LBound(MyArray, 1)
2557.     iDim2 = LBound(MyArray, 2)
2558.     sDelim = Chr$(13)
2559.     split MyString, sDelim, arrLines()
2560.     For iRow = LBound(arrLines) To UBound(arrLines)
2561.         If iRow <= UBound(MyArray, 1) Then
2562.             For iCol = 1 To Len(arrLines(iRow))
2563.                 If iCol <= UBound(MyArray, 2) Then
2564.                     sChar = Mid$(arrLines(iRow), iCol, 1)
2565.  
2566.                     If Len(sChar) > 1 Then
2567.                         sChar = Left$(sChar, 1)
2568.                     Else
2569.                         If Len(sChar) = 0 Then
2570.                             sChar = "."
2571.                         End If
2572.                     End If
2573.  
2574.                     iIndex1 = iRow + iDim1
2575.                     iIndex2 = (iCol - 1) + iDim2
2576.                     MyArray(iIndex1, iIndex2) = sChar
2577.                     'DebugPrint "MyArray(" + cstr$(iIndex1) + ", " + cstr$(iIndex2) + " = " + chr$(34) + sChar + chr$(34)
2578.                 Else
2579.                     ' Exit if out of bounds
2580.                     Exit For
2581.                 End If
2582.             Next iCol
2583.         Else
2584.             ' Exit if out of bounds
2585.             Exit For
2586.         End If
2587.     Next iRow
2588. End Sub ' StringToArray
2589.  
2590. ' /////////////////////////////////////////////////////////////////////////////
2591.  
2592. Function Array2dToString$ (MyArray() As String)
2593.     Dim MyString As String
2594.     Dim iY As Integer
2595.     Dim iX As Integer
2596.     Dim sLine As String
2597.     MyString = ""
2598.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2599.         sLine = ""
2600.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2601.             sLine = sLine + MyArray(iY, iX)
2602.         Next iX
2603.         MyString = MyString + sLine + Chr$(13)
2604.     Next iY
2605.     Array2dToString$ = MyString
2606. End Function ' Array2dToString$
2607.  
2608. ' /////////////////////////////////////////////////////////////////////////////
2609.  
2610. Function ArrayToString$ (MyArray( 1 To 32 , 1 To 32) As String)
2611.     Dim MyString As String
2612.     Dim iY As Integer
2613.     Dim iX As Integer
2614.     Dim sLine As String
2615.     MyString = ""
2616.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2617.         sLine = ""
2618.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2619.             sLine = sLine + MyArray(iY, iX)
2620.         Next iX
2621.         MyString = MyString + sLine + Chr$(13)
2622.     Next iY
2623.     ArrayToString$ = MyString
2624. End Function ' ArrayToString$
2625.  
2626. ' /////////////////////////////////////////////////////////////////////////////
2627.  
2628. Function ArrayToStringTest$ (MyArray() As String)
2629.     Dim MyString As String
2630.     Dim iY As Integer
2631.     Dim iX As Integer
2632.     Dim sLine As String
2633.     MyString = ""
2634.  
2635.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
2636.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
2637.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
2638.         sLine = ""
2639.         sLine = sLine + Right$("  " + cstr$(iY), 2)
2640.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
2641.             sLine = sLine + MyArray(iY, iX)
2642.         Next iX
2643.         sLine = sLine + Right$("  " + cstr$(iY), 2)
2644.         MyString = MyString + sLine + Chr$(13)
2645.     Next iY
2646.     MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
2647.     MyString = MyString + "           11111111112222222222333" + Chr$(13)
2648.     ArrayToStringTest$ = MyString
2649. End Function ' ArrayToStringTest$
2650.  
2651. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2652. ' END STRING TO ARRAY FUNCTIONS
2653. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2654.  
2655. ' ################################################################################################################################################################
2656. ' BEGIN TILE UTILITIES
2657. ' ################################################################################################################################################################
2658.  
2659. ' /////////////////////////////////////////////////////////////////////////////
2660. ' Precalculates the tile locations ahead of time to save time copying them
2661. ' to the screen.
2662.  
2663. ' Requires the following types be declared:
2664. '
2665. '     Type TileSheetMapType ' UDT FOR PRECALCULATED TILESHEET
2666. '         xStart As Integer
2667. '         xEnd As Integer
2668. '         yStart As Integer
2669. '         yEnd As Integer
2670. '     End Type
2671. '     Type TileMapType ' UDT FOR PRECALCULATED TILE MAP
2672. '         xPos As Integer
2673. '         yPos As Integer
2674. '     End Type
2675. '
2676. ' EXAMPLE USAGE:
2677. '
2678. '     Dim TileCount%
2679. '     Dim TilesheetCols%
2680. '     Dim TilesheetRows%
2681. '     Dim tileHeightPx%
2682. '     Dim tileWidthPx%
2683. '     Dim xOffset%
2684. '     Dim yOffset%
2685. '     Dim numTilesX%
2686. '     Dim numTilesY%
2687. '     REDIM arrTileSheetMap(255) AS TileSheetMapType
2688. '     REDIM arrTileMap(20, 20) AS TileMapType
2689. '     TileCount% = 256 ' TOTAL # OF TILES
2690. '     TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
2691. '     TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
2692. '     tileHeightPx% = 32 ' TILE HEIGHT
2693. '     tileWidthPx% = 32 ' TILE WIDTH
2694. '     xOffset% = 0 ' SCREEN OFFSET X
2695. '     yOffset% = 64 ' SCREEN OFFSET Y
2696. '     numTilesX% = 20 ' HOW MANY TILES ACROSS (ON DESTINATION)
2697. '     numTilesY% = 20 ' HOW MANY TILES UP/DOWN (ON DESTINATION)
2698. '     ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, _
2699. '         TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, _
2700. '         xOffset%, yOffset%, numTilesX%, numTilesY%
2701.  
2702. ' TODO: this can be simplified & optimized:
2703. '       - we don't need x/y offsets
2704. '       - tile height/width can be hardcoded
2705. '       - etc.
2706.  
2707. Sub ComputeTileLocations (arrTileSheetMap() As TileSheetMapType, arrTileMap() As TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
2708.     Dim TileNum%
2709.     Dim sc%
2710.     Dim sr%
2711.     Dim sx1%
2712.     Dim sx2%
2713.     Dim sy1%
2714.     Dim sy2%
2715.  
2716.     Dim dx%
2717.     Dim dy%
2718.     Dim xDest%
2719.     Dim yDest%
2720.  
2721.     ' -----------------------------------------------------------------------------
2722.     ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
2723.  
2724.     For TileNum% = 0 To (TileCount% - 1)
2725.  
2726.         ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2727.         sc% = TileNum% Mod TilesheetCols%
2728.         sr% = TileNum% \ TilesheetRows%
2729.  
2730.         'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
2731.  
2732.         ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2733.         'sx1% = sc% * tw%
2734.         sx1% = sc% * tileWidthPx%
2735.  
2736.         ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2737.         'sy1% = sr% * tw%
2738.         sy1% = sr% * tileHeightPx%
2739.  
2740.         ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2741.         'sx2% = sx1% + (tw% - 1)
2742.         sx2% = sx1% + (tileWidthPx% - 1)
2743.  
2744.         ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2745.         'sy2% = sy1% + (tw% - 1)
2746.         sy2% = sy1% + (tileHeightPx% - 1)
2747.  
2748.         ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
2749.         arrTileSheetMap(TileNum%).xStart = sx1%
2750.         arrTileSheetMap(TileNum%).xEnd = sx2%
2751.         arrTileSheetMap(TileNum%).yStart = sy1%
2752.         arrTileSheetMap(TileNum%).yEnd = sy2%
2753.  
2754.     Next TileNum%
2755.  
2756.     ' -----------------------------------------------------------------------------
2757.     ' CALCULATE SCREEN COORDINATES FOR TILES
2758.  
2759.     For dx% = 0 To (numTilesX% - 1)
2760.         For dy% = 0 To (numTilesY% - 1)
2761.  
2762.             ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2763.             'xDest% = dx% * tw%
2764.             xDest% = (dx% * tileWidthPx%) + xOffset%
2765.  
2766.             ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2767.             'yDest% = (dy% * tw%) + 64
2768.             yDest% = (dy% * tileHeightPx%) + yOffset%
2769.  
2770.             'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
2771.  
2772.             ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
2773.             ' WHERE dx% and dy% ARE 1-BASED
2774.             arrTileMap(dx% + 1, dy% + 1).xPos = xDest%
2775.             arrTileMap(dx% + 1, dy% + 1).yPos = yDest%
2776.  
2777.         Next dy%
2778.     Next dx%
2779.  
2780. End Sub ' ComputeTileLocations
2781.  
2782. ' /////////////////////////////////////////////////////////////////////////////
2783. ' Latest version with NOVARSEG's changes.
2784.  
2785. ' Based on code from:
2786.  
2787. ' Image color swap?
2788. ' https://www.qb64.org/forum/index.php?topic=2312.0
2789.  
2790. ' Like Function swapcolor& except returns new image in a parameter
2791. ' in case being a function causes a memory leak?
2792.  
2793. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
2794.     Dim m As _MEM
2795.     Dim a As _Offset
2796.     Dim c As _Unsigned Long
2797.     a = 0
2798.     imgNew& = _CopyImage(imgOriginal&, 32)
2799.     m = _MemImage(imgNew&)
2800.     Do Until a = m.SIZE - 4
2801.         a = a + 4
2802.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
2803.         If c = oldcolor~& Then
2804.             _MemPut m, m.OFFSET + a, newcolor~&
2805.         End If
2806.     Loop
2807.     _MemFree m
2808. End Sub ' DoColorSwap&
2809.  
2810. ' ################################################################################################################################################################
2811. ' END TILE UTILITIES
2812. ' ################################################################################################################################################################
2813.  
2814. ' ################################################################################################################################################################
2815. ' BEGIN HELPER ROUTINES
2816. ' ################################################################################################################################################################
2817.  
2818. ' /////////////////////////////////////////////////////////////////////////////
2819. ' div: int1% = num1% \ den1%
2820. ' mod: rem1% = num1% MOD den1%
2821.  
2822. Function NextColorIndex% (iX As Integer, iY As Integer)
2823.     Dim iIndex As Integer
2824.     Dim iAdd As Integer
2825.     iOut = (iX Mod 4)
2826.     iAdd = (iY Mod 4)
2827.     NextColorIndex% = iOut + iAdd + 1
2828. End Function ' NextColorIndex%
2829.  
2830. ' /////////////////////////////////////////////////////////////////////////////
2831. ' Pauses for iDS deciseconds (iDS * 100 ms)
2832.  
2833. Sub PauseDecisecond (iDS As Integer)
2834.     Dim iCount As Integer
2835.     iCount = 0
2836.     Do
2837.         iCount = iCount + 1
2838.         _Limit 10 ' run 10x every second
2839.     Loop Until iCount = iDS
2840. End Sub ' PauseDecisecond
2841.  
2842. ' /////////////////////////////////////////////////////////////////////////////
2843. ' Returns TRUE if point (x1%, y1%) is adjacent to point (x2%, y2%)
2844.  
2845. Function PointsAreAdjacent% (x1%, y1%, x2%, y2%)
2846.     Dim bResult%: bResult% = FALSE
2847.  
2848.     ' x or y can be the same, but not both
2849.     If (x1% <> x2%) Or (y1% <> y2%) Then
2850.         If (x1% = x2%) Or ((x1% = (x2% + 1)) Or (x2% = (x1% + 1))) Then
2851.             If (y1% = y2%) Or ((y1% = (y2% + 1)) Or (y2% = (y1% + 1))) Then
2852.                 bResult% = TRUE
2853.             End If
2854.         End If
2855.     End If
2856.     PointsAreAdjacent% = bResult%
2857. End Function ' PointsAreAdjacent%
2858.  
2859. ' ################################################################################################################################################################
2860. ' END HELPER ROUTINES
2861. ' ################################################################################################################################################################
2862.  
2863. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2864. ' BEGIN COLOR ARRAY FUNCTIONS
2865. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2866.  
2867. ' /////////////////////////////////////////////////////////////////////////////
2868.  
2869. Sub AddColor (ColorValue As _Unsigned Long, ColorName As String, arrColor() As ColorType)
2870.     ReDim _Preserve arrColor(0 To UBound(arrColor) + 1) As ColorType
2871.     arrColor(UBound(arrColor)).name = ColorName
2872.     arrColor(UBound(arrColor)).value = ColorValue
2873. End Sub ' AddColor
2874.  
2875. ' /////////////////////////////////////////////////////////////////////////////
2876.  
2877. Sub AddColors (arrColor() As ColorType)
2878.     AddColor cBlack, "cBlack", arrColor()
2879.     AddColor cGray, "cGray", arrColor()
2880.     AddColor cSilver, "cSilver", arrColor()
2881.     AddColor cWhite, "cWhite", arrColor()
2882.     AddColor cRed, "cRed", arrColor()
2883.     AddColor cOrangeRed, "cOrangeRed", arrColor()
2884.     AddColor cYellow, "cYellow", arrColor()
2885.     AddColor cLime, "cLime", arrColor()
2886.     AddColor cCyan, "cCyan", arrColor()
2887.     AddColor cDodgerBlue, "cDodgerBlue", arrColor()
2888.     AddColor cBlue, "cBlue", arrColor()
2889.     AddColor cDeepPurple, "cDeepPurple", arrColor()
2890.     AddColor cDarkGreen, "cDarkGreen", arrColor()
2891.     AddColor cMagenta, "cMagenta", arrColor()
2892.     AddColor cHotPink, "cHotPink", arrColor()
2893.     AddColor cDarkBrown, "cDarkBrown", arrColor()
2894.     AddColor cEmpty, "cEmpty", arrColor()
2895. End Sub ' AddColors
2896.  
2897. ' /////////////////////////////////////////////////////////////////////////////
2898.  
2899. Sub AddGrayscaleColors (arrColor() As ColorType)
2900.     'AddColor cBlack, "cBlack", arrColor()
2901.     AddColor cDimGray, "cDimGray", arrColor()
2902.     AddColor cGray, "cGray", arrColor()
2903.     AddColor cDarkGray, "cDarkGray", arrColor()
2904.     AddColor cSilver, "cSilver", arrColor()
2905.     AddColor cLightGray, "cLightGray", arrColor()
2906.     AddColor cWhite, "cGainsboro", arrColor()
2907.     AddColor cWhite, "cWhiteSmoke", arrColor()
2908.     AddColor cWhite, "cWhite", arrColor()
2909. End Sub ' AddGrayscaleColors
2910.  
2911. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2912. ' END COLOR ARRAY FUNCTIONS
2913. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2914.  
2915. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2916. ' BEGIN COLOR FUNCTIONS
2917. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2918.  
2919. Function cRed~& ()
2920.     cRed = _RGB32(255, 0, 0)
2921. End Function
2922.  
2923. Function cOrangeRed~& ()
2924.     cOrangeRed = _RGB32(255, 69, 0)
2925. End Function ' cOrangeRed~&
2926.  
2927. Function cDarkOrange~& ()
2928.     cDarkOrange = _RGB32(255, 140, 0)
2929. End Function ' cDarkOrange~&
2930.  
2931. Function cOrange~& ()
2932.     cOrange = _RGB32(255, 165, 0)
2933. End Function ' cOrange~&
2934.  
2935. Function cGold~& ()
2936.     cGold = _RGB32(255, 215, 0)
2937. End Function ' cGold~&
2938.  
2939. Function cYellow~& ()
2940.     cYellow = _RGB32(255, 255, 0)
2941. End Function ' cYellow~&
2942.  
2943. 'Function cChartreuse~& ()
2944. '    cChartreuse = _RGB32(127, 255, 0)
2945. 'End Function ' cChartreuse~&
2946.  
2947. ' WE USE THIS CSS3 COLOR FOR INBETWEEN LIME AND YELLOW
2948. ' INSTEAD OF Chartreuse WHICH IS NOT YELLOW ENOUGH
2949. Function cOliveDrab1~& ()
2950.     cOliveDrab1 = _RGB32(192, 255, 62)
2951. End Function ' cOliveDrab1~&
2952.  
2953. Function cLime~& ()
2954.     cLime = _RGB32(0, 255, 0)
2955. End Function ' cLime~&
2956.  
2957. Function cMediumSpringGreen~& ()
2958.     cMediumSpringGreen = _RGB32(0, 250, 154)
2959. End Function ' cMediumSpringGreen~&
2960.  
2961. Function cCyan~& ()
2962.     cCyan = _RGB32(0, 255, 255)
2963. End Function ' cCyan~&
2964.  
2965. Function cDeepSkyBlue~& ()
2966.     cDeepSkyBlue = _RGB32(0, 191, 255)
2967. End Function ' cDeepSkyBlue~&
2968.  
2969. Function cDodgerBlue~& ()
2970.     cDodgerBlue = _RGB32(30, 144, 255)
2971. End Function ' cDodgerBlue~&
2972.  
2973. Function cSeaBlue~& ()
2974.     cSeaBlue = _RGB32(0, 64, 255)
2975. End Function ' cSeaBlue~&
2976.  
2977. Function cBlue~& ()
2978.     cBlue = _RGB32(0, 0, 255)
2979. End Function ' cBlue~&
2980.  
2981. Function cBluePurple~& ()
2982.     cBluePurple = _RGB32(64, 0, 255)
2983. End Function ' cBluePurple~&
2984.  
2985. Function cDeepPurple~& ()
2986.     cDeepPurple = _RGB32(96, 0, 255)
2987. End Function ' cDeepPurple~&
2988.  
2989. Function cPurple~& ()
2990.     cPurple = _RGB32(128, 0, 255)
2991. End Function ' cPurple~&
2992.  
2993. Function cPurpleRed~& ()
2994.     cPurpleRed = _RGB32(128, 0, 192)
2995. End Function ' cPurpleRed~&
2996.  
2997. Function cDarkRed~& ()
2998.     cDarkRed = _RGB32(160, 0, 64)
2999. End Function ' cDarkRed~&
3000.  
3001. Function cBrickRed~& ()
3002.     cBrickRed = _RGB32(192, 0, 32)
3003. End Function ' cBrickRed~&
3004.  
3005. Function cDarkGreen~& ()
3006.     cDarkGreen = _RGB32(0, 100, 0)
3007. End Function ' cDarkGreen~&
3008.  
3009. Function cGreen~& ()
3010.     cGreen = _RGB32(0, 128, 0)
3011. End Function ' cGreen~&
3012.  
3013. Function cOliveDrab~& ()
3014.     cOliveDrab = _RGB32(107, 142, 35)
3015. End Function ' cOliveDrab~&
3016.  
3017. Function cLightPink~& ()
3018.     cLightPink = _RGB32(255, 182, 193)
3019. End Function ' cLightPink~&
3020.  
3021. Function cHotPink~& ()
3022.     cHotPink = _RGB32(255, 105, 180)
3023. End Function ' cHotPink~&
3024.  
3025. Function cDeepPink~& ()
3026.     cDeepPink = _RGB32(255, 20, 147)
3027. End Function ' cDeepPink~&
3028.  
3029. Function cMagenta~& ()
3030.     cMagenta = _RGB32(255, 0, 255)
3031. End Function ' cMagenta~&
3032.  
3033. Function cBlack~& ()
3034.     cBlack = _RGB32(0, 0, 0)
3035. End Function ' cBlack~&
3036.  
3037. Function cDimGray~& ()
3038.     cDimGray = _RGB32(105, 105, 105)
3039. End Function ' cDimGray~&
3040.  
3041. Function cGray~& ()
3042.     cGray = _RGB32(128, 128, 128)
3043. End Function ' cGray~&
3044.  
3045. Function cDarkGray~& ()
3046.     cDarkGray = _RGB32(169, 169, 169)
3047. End Function ' cDarkGray~&
3048.  
3049. Function cSilver~& ()
3050.     cSilver = _RGB32(192, 192, 192)
3051. End Function ' cSilver~&
3052.  
3053. Function cLightGray~& ()
3054.     cLightGray = _RGB32(211, 211, 211)
3055. End Function ' cLightGray~&
3056.  
3057. Function cGainsboro~& ()
3058.     cGainsboro = _RGB32(220, 220, 220)
3059. End Function ' cGainsboro~&
3060.  
3061. Function cWhiteSmoke~& ()
3062.     cWhiteSmoke = _RGB32(245, 245, 245)
3063. End Function ' cWhiteSmoke~&
3064.  
3065. Function cWhite~& ()
3066.     cWhite = _RGB32(255, 255, 255)
3067.     'cWhite = _RGB32(254, 254, 254)
3068. End Function ' cWhite~&
3069.  
3070. Function cDarkBrown~& ()
3071.     cDarkBrown = _RGB32(128, 64, 0)
3072. End Function ' cDarkBrown~&
3073.  
3074. Function cLightBrown~& ()
3075.     cLightBrown = _RGB32(196, 96, 0)
3076. End Function ' cLightBrown~&
3077.  
3078. Function cKhaki~& ()
3079.     cKhaki = _RGB32(240, 230, 140)
3080. End Function ' cKhaki~&
3081.  
3082. Function cEmpty~& ()
3083.     'cEmpty~& = -1
3084.     cEmpty = _RGB32(0, 0, 0, 0)
3085. End Function ' cEmpty~&
3086.  
3087. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3088. ' END COLOR FUNCTIONS
3089. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3090.  
3091. ' ################################################################################################################################################################
3092. ' BEGIN GENERAL PURPOSE ROUTINES
3093. ' ################################################################################################################################################################
3094.  
3095. ' /////////////////////////////////////////////////////////////////////////////
3096. ' Convert a value to string and trim it (because normal Str$ adds spaces)
3097.  
3098. Function cstr$ (myValue)
3099.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
3100.     cstr$ = _Trim$(Str$(myValue))
3101. End Function ' cstr$
3102.  
3103. ' /////////////////////////////////////////////////////////////////////////////
3104.  
3105. Function CurrentDateTime$
3106.     CurrentDateTime$ = Mid$(Date$, 7, 4) + "-" + _
3107.         Mid$(Date$, 1, 5) + " " + _
3108.         Time$
3109. End Function ' CurrentDateTime$
3110.  
3111. ' /////////////////////////////////////////////////////////////////////////////
3112.  
3113. Function IIF (Condition, IfTrue, IfFalse)
3114.     If Condition Then IIF = IfTrue Else IIF = IfFalse
3115. End Function
3116.  
3117. ' /////////////////////////////////////////////////////////////////////////////
3118.  
3119. Function IIFSTR$ (Condition, IfTrue$, IfFalse$)
3120.     If Condition Then IIFSTR$ = IfTrue$ Else IIFSTR$ = IfFalse$
3121. End Function
3122.  
3123. ' /////////////////////////////////////////////////////////////////////////////
3124. ' By sMcNeill from https://www.qb64.org/forum/index.php?topic=896.0
3125.  
3126. Function IsNum% (text$)
3127.     Dim a$
3128.     Dim b$
3129.     a$ = _Trim$(text$)
3130.     b$ = _Trim$(Str$(Val(text$)))
3131.     If a$ = b$ Then
3132.         IsNum% = TRUE
3133.     Else
3134.         IsNum% = FALSE
3135.     End If
3136. End Function ' IsNum%
3137.  
3138. ' /////////////////////////////////////////////////////////////////////////////
3139. ' FROM: String Manipulation
3140. ' found at abandoned, outdated and now likely malicious qb64 dot net website
3141. ' http://www.qb64.[net]/forum/index_topic_5964-0/
3142. '
3143. 'SUMMARY:
3144. '   Purpose:  A library of custom functions that transform strings.
3145. '   Author:   Dustinian Camburides (dustinian@gmail.com)
3146. '   Platform: QB64 (www.qb64.org)
3147. '   Revision: 1.6
3148. '   Updated:  5/28/2012
3149.  
3150. 'SUMMARY:
3151. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
3152. 'INPUT:
3153. 'Text: The input string; the text that's being manipulated.
3154. 'Find: The specified sub-string; the string sought within the [Text] string.
3155. 'Add: The sub-string that's being added to the [Text] string.
3156.  
3157. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
3158.     ' VARIABLES:
3159.     Dim Text2 As String
3160.     Dim Find2 As String
3161.     Dim Add2 As String
3162.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
3163.     Dim strBefore As String ' The characters before the string to be replaced.
3164.     Dim strAfter As String ' The characters after the string to be replaced.
3165.  
3166.     ' INITIALIZE:
3167.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
3168.     Text2 = Text1
3169.     Find2 = Find1
3170.     Add2 = Add1
3171.  
3172.     lngLocation = InStr(1, Text2, Find2)
3173.  
3174.     ' PROCESSING:
3175.     ' While [Find2] appears in [Text2]...
3176.     While lngLocation
3177.         ' Extract all Text2 before the [Find2] substring:
3178.         strBefore = Left$(Text2, lngLocation - 1)
3179.  
3180.         ' Extract all text after the [Find2] substring:
3181.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
3182.  
3183.         ' Return the substring:
3184.         Text2 = strBefore + Add2 + strAfter
3185.  
3186.         ' Locate the next instance of [Find2]:
3187.         lngLocation = InStr(1, Text2, Find2)
3188.  
3189.         ' Next instance of [Find2]...
3190.     Wend
3191.  
3192.     ' OUTPUT:
3193.     Replace$ = Text2
3194. End Function ' Replace$
3195.  
3196. ' /////////////////////////////////////////////////////////////////////////////
3197. ' Split and join strings
3198. ' https://www.qb64.org/forum/index.php?topic=1073.0
3199. '
3200. ' FROM luke, QB64 Developer
3201. ' Date: February 15, 2019, 04:11:07 AM
3202. '
3203. ' Given a string of words separated by spaces (or any other character),
3204. ' splits it into an array of the words. I've no doubt many people have
3205. ' written a version of this over the years and no doubt there's a million
3206. ' ways to do it, but I thought I'd put mine here so we have at least one
3207. ' version. There's also a join function that does the opposite
3208. ' array -> single string.
3209. '
3210. ' Code is hopefully reasonably self explanatory with comments and a little demo.
3211. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
3212.  
3213. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
3214. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
3215. '
3216. 'delimiter$ must be one character long.
3217. 'result$() must have been REDIMmed previously.
3218.  
3219. ' Modified to handle multi-character delimiters
3220.  
3221. Sub split (in$, delimiter$, result$())
3222.     Dim start As Integer
3223.     Dim finish As Integer
3224.     Dim iDelimLen As Integer
3225.     ReDim result$(-1)
3226.  
3227.     iDelimLen = Len(delimiter$)
3228.  
3229.     start = 1
3230.     Do
3231.         'While Mid$(in$, start, 1) = delimiter$
3232.         While Mid$(in$, start, iDelimLen) = delimiter$
3233.             'start = start + 1
3234.             start = start + iDelimLen
3235.             If start > Len(in$) Then
3236.                 Exit Sub
3237.             End If
3238.         Wend
3239.         finish = InStr(start, in$, delimiter$)
3240.         If finish = 0 Then
3241.             finish = Len(in$) + 1
3242.         End If
3243.  
3244.         ReDim _Preserve result$(0 To UBound(result$) + 1)
3245.  
3246.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
3247.         start = finish + 1
3248.     Loop While start <= Len(in$)
3249. End Sub ' split
3250.  
3251. ' /////////////////////////////////////////////////////////////////////////////
3252.  
3253. Function TrueFalse$ (myValue)
3254.     If myValue = TRUE Then
3255.         TrueFalse$ = "TRUE"
3256.     Else
3257.         TrueFalse$ = "FALSE"
3258.     End If
3259. End Function ' TrueFalse$
3260.  
3261. ' ################################################################################################################################################################
3262. ' END GENERAL PURPOSE ROUTINES
3263. ' ################################################################################################################################################################
3264.  
3265. ' ################################################################################################################################################################
3266. ' BEGIN TILE DEFINITIONS
3267. ' ################################################################################################################################################################
3268.  
3269. ' /////////////////////////////////////////////////////////////////////////////
3270. ' Returns an array of 256 8x8 tiles defined in text
3271. ' where each tile is defined by "." as blank and anything else is a pixel
3272. ' and each row is delimited by chr$(13)
3273.  
3274. Sub GetTileText (arrTileText() As String)
3275.     ReDim arrTileText(0 To 255) As String
3276.  
3277.     m$ = ""
3278.     m$ = m$ + "22....22" + Chr$(13)
3279.     m$ = m$ + "2..22..2" + Chr$(13)
3280.     m$ = m$ + "2..2...2" + Chr$(13)
3281.     m$ = m$ + "2...2..2" + Chr$(13)
3282.     m$ = m$ + "2..22..2" + Chr$(13)
3283.     m$ = m$ + "2..22..2" + Chr$(13)
3284.     m$ = m$ + "22....22" + Chr$(13)
3285.     m$ = m$ + "22222222" + Chr$(13)
3286.     arrTileText(0) = m$
3287.  
3288.     m$ = ""
3289.     m$ = m$ + "........" + Chr$(13)
3290.     m$ = m$ + "........" + Chr$(13)
3291.     m$ = m$ + "........" + Chr$(13)
3292.     m$ = m$ + "........" + Chr$(13)
3293.     m$ = m$ + "........" + Chr$(13)
3294.     m$ = m$ + "........" + Chr$(13)
3295.     m$ = m$ + "........" + Chr$(13)
3296.     m$ = m$ + "........" + Chr$(13)
3297.     arrTileText(1) = m$
3298.  
3299.     m$ = ""
3300.     m$ = m$ + "........" + Chr$(13)
3301.     m$ = m$ + "........" + Chr$(13)
3302.     m$ = m$ + "........" + Chr$(13)
3303.     m$ = m$ + "........" + Chr$(13)
3304.     m$ = m$ + "........" + Chr$(13)
3305.     m$ = m$ + "........" + Chr$(13)
3306.     m$ = m$ + "........" + Chr$(13)
3307.     m$ = m$ + "........" + Chr$(13)
3308.     arrTileText(2) = m$
3309.  
3310.     m$ = ""
3311.     m$ = m$ + "........" + Chr$(13)
3312.     m$ = m$ + "........" + Chr$(13)
3313.     m$ = m$ + "........" + Chr$(13)
3314.     m$ = m$ + "........" + Chr$(13)
3315.     m$ = m$ + "........" + Chr$(13)
3316.     m$ = m$ + "........" + Chr$(13)
3317.     m$ = m$ + "........" + Chr$(13)
3318.     m$ = m$ + "........" + Chr$(13)
3319.     arrTileText(3) = m$
3320.  
3321.     m$ = ""
3322.     m$ = m$ + "........" + Chr$(13)
3323.     m$ = m$ + "........" + Chr$(13)
3324.     m$ = m$ + "........" + Chr$(13)
3325.     m$ = m$ + "........" + Chr$(13)
3326.     m$ = m$ + "........" + Chr$(13)
3327.     m$ = m$ + "........" + Chr$(13)
3328.     m$ = m$ + "........" + Chr$(13)
3329.     m$ = m$ + "........" + Chr$(13)
3330.     arrTileText(4) = m$
3331.  
3332.     m$ = ""
3333.     m$ = m$ + "........" + Chr$(13)
3334.     m$ = m$ + "........" + Chr$(13)
3335.     m$ = m$ + "........" + Chr$(13)
3336.     m$ = m$ + "........" + Chr$(13)
3337.     m$ = m$ + "........" + Chr$(13)
3338.     m$ = m$ + "........" + Chr$(13)
3339.     m$ = m$ + "........" + Chr$(13)
3340.     m$ = m$ + "........" + Chr$(13)
3341.     arrTileText(5) = m$
3342.  
3343.     m$ = ""
3344.     m$ = m$ + "........" + Chr$(13)
3345.     m$ = m$ + "........" + Chr$(13)
3346.     m$ = m$ + "........" + Chr$(13)
3347.     m$ = m$ + "........" + Chr$(13)
3348.     m$ = m$ + "........" + Chr$(13)
3349.     m$ = m$ + "........" + Chr$(13)
3350.     m$ = m$ + "........" + Chr$(13)
3351.     m$ = m$ + "........" + Chr$(13)
3352.     arrTileText(6) = m$
3353.  
3354.     m$ = ""
3355.     m$ = m$ + "........" + Chr$(13)
3356.     m$ = m$ + "........" + Chr$(13)
3357.     m$ = m$ + "........" + Chr$(13)
3358.     m$ = m$ + "........" + Chr$(13)
3359.     m$ = m$ + "........" + Chr$(13)
3360.     m$ = m$ + "........" + Chr$(13)
3361.     m$ = m$ + "........" + Chr$(13)
3362.     m$ = m$ + "........" + Chr$(13)
3363.     arrTileText(7) = m$
3364.  
3365.     m$ = ""
3366.     m$ = m$ + "........" + Chr$(13)
3367.     m$ = m$ + "........" + Chr$(13)
3368.     m$ = m$ + "........" + Chr$(13)
3369.     m$ = m$ + "........" + Chr$(13)
3370.     m$ = m$ + "........" + Chr$(13)
3371.     m$ = m$ + "........" + Chr$(13)
3372.     m$ = m$ + "........" + Chr$(13)
3373.     m$ = m$ + "........" + Chr$(13)
3374.     arrTileText(8) = m$
3375.  
3376.     m$ = ""
3377.     m$ = m$ + "........" + Chr$(13)
3378.     m$ = m$ + "........" + Chr$(13)
3379.     m$ = m$ + "........" + Chr$(13)
3380.     m$ = m$ + "........" + Chr$(13)
3381.     m$ = m$ + "........" + Chr$(13)
3382.     m$ = m$ + "........" + Chr$(13)
3383.     m$ = m$ + "........" + Chr$(13)
3384.     m$ = m$ + "........" + Chr$(13)
3385.     arrTileText(9) = m$
3386.  
3387.     m$ = ""
3388.     m$ = m$ + "........" + Chr$(13)
3389.     m$ = m$ + "........" + Chr$(13)
3390.     m$ = m$ + "........" + Chr$(13)
3391.     m$ = m$ + "........" + Chr$(13)
3392.     m$ = m$ + "........" + Chr$(13)
3393.     m$ = m$ + "........" + Chr$(13)
3394.     m$ = m$ + "........" + Chr$(13)
3395.     m$ = m$ + "........" + Chr$(13)
3396.     arrTileText(10) = m$
3397.  
3398.     m$ = ""
3399.     m$ = m$ + "........" + Chr$(13)
3400.     m$ = m$ + "........" + Chr$(13)
3401.     m$ = m$ + "........" + Chr$(13)
3402.     m$ = m$ + "........" + Chr$(13)
3403.     m$ = m$ + "........" + Chr$(13)
3404.     m$ = m$ + "........" + Chr$(13)
3405.     m$ = m$ + "........" + Chr$(13)
3406.     m$ = m$ + "........" + Chr$(13)
3407.     arrTileText(11) = m$
3408.  
3409.     m$ = ""
3410.     m$ = m$ + "........" + Chr$(13)
3411.     m$ = m$ + "........" + Chr$(13)
3412.     m$ = m$ + "........" + Chr$(13)
3413.     m$ = m$ + "........" + Chr$(13)
3414.     m$ = m$ + "........" + Chr$(13)
3415.     m$ = m$ + "........" + Chr$(13)
3416.     m$ = m$ + "........" + Chr$(13)
3417.     m$ = m$ + "........" + Chr$(13)
3418.     arrTileText(12) = m$
3419.  
3420.     m$ = ""
3421.     m$ = m$ + "........" + Chr$(13)
3422.     m$ = m$ + "........" + Chr$(13)
3423.     m$ = m$ + "........" + Chr$(13)
3424.     m$ = m$ + "........" + Chr$(13)
3425.     m$ = m$ + "........" + Chr$(13)
3426.     m$ = m$ + "........" + Chr$(13)
3427.     m$ = m$ + "........" + Chr$(13)
3428.     m$ = m$ + "........" + Chr$(13)
3429.     arrTileText(13) = m$
3430.  
3431.     m$ = ""
3432.     m$ = m$ + "........" + Chr$(13)
3433.     m$ = m$ + "........" + Chr$(13)
3434.     m$ = m$ + "........" + Chr$(13)
3435.     m$ = m$ + "........" + Chr$(13)
3436.     m$ = m$ + "........" + Chr$(13)
3437.     m$ = m$ + "........" + Chr$(13)
3438.     m$ = m$ + "........" + Chr$(13)
3439.     m$ = m$ + "........" + Chr$(13)
3440.     arrTileText(14) = m$
3441.  
3442.     m$ = ""
3443.     m$ = m$ + "........" + Chr$(13)
3444.     m$ = m$ + "........" + Chr$(13)
3445.     m$ = m$ + "........" + Chr$(13)
3446.     m$ = m$ + "........" + Chr$(13)
3447.     m$ = m$ + "........" + Chr$(13)
3448.     m$ = m$ + "........" + Chr$(13)
3449.     m$ = m$ + "........" + Chr$(13)
3450.     m$ = m$ + "........" + Chr$(13)
3451.     arrTileText(15) = m$
3452.  
3453.     m$ = ""
3454.     m$ = m$ + "........" + Chr$(13)
3455.     m$ = m$ + "........" + Chr$(13)
3456.     m$ = m$ + "........" + Chr$(13)
3457.     m$ = m$ + "........" + Chr$(13)
3458.     m$ = m$ + "........" + Chr$(13)
3459.     m$ = m$ + "........" + Chr$(13)
3460.     m$ = m$ + "........" + Chr$(13)
3461.     m$ = m$ + "........" + Chr$(13)
3462.     arrTileText(16) = m$
3463.  
3464.     m$ = ""
3465.     m$ = m$ + "........" + Chr$(13)
3466.     m$ = m$ + "........" + Chr$(13)
3467.     m$ = m$ + "........" + Chr$(13)
3468.     m$ = m$ + "........" + Chr$(13)
3469.     m$ = m$ + "........" + Chr$(13)
3470.     m$ = m$ + "........" + Chr$(13)
3471.     m$ = m$ + "........" + Chr$(13)
3472.     m$ = m$ + "........" + Chr$(13)
3473.     arrTileText(17) = m$
3474.  
3475.     m$ = ""
3476.     m$ = m$ + "........" + Chr$(13)
3477.     m$ = m$ + "........" + Chr$(13)
3478.     m$ = m$ + "........" + Chr$(13)
3479.     m$ = m$ + "........" + Chr$(13)
3480.     m$ = m$ + "........" + Chr$(13)
3481.     m$ = m$ + "........" + Chr$(13)
3482.     m$ = m$ + "........" + Chr$(13)
3483.     m$ = m$ + "........" + Chr$(13)
3484.     arrTileText(18) = m$
3485.  
3486.     m$ = ""
3487.     m$ = m$ + "........" + Chr$(13)
3488.     m$ = m$ + "........" + Chr$(13)
3489.     m$ = m$ + "........" + Chr$(13)
3490.     m$ = m$ + "........" + Chr$(13)
3491.     m$ = m$ + "........" + Chr$(13)
3492.     m$ = m$ + "........" + Chr$(13)
3493.     m$ = m$ + "........" + Chr$(13)
3494.     m$ = m$ + "........" + Chr$(13)
3495.     arrTileText(19) = m$
3496.  
3497.     m$ = ""
3498.     m$ = m$ + "........" + Chr$(13)
3499.     m$ = m$ + "........" + Chr$(13)
3500.     m$ = m$ + "........" + Chr$(13)
3501.     m$ = m$ + "........" + Chr$(13)
3502.     m$ = m$ + "........" + Chr$(13)
3503.     m$ = m$ + "........" + Chr$(13)
3504.     m$ = m$ + "........" + Chr$(13)
3505.     m$ = m$ + "........" + Chr$(13)
3506.     arrTileText(20) = m$
3507.  
3508.     m$ = ""
3509.     m$ = m$ + "........" + Chr$(13)
3510.     m$ = m$ + "........" + Chr$(13)
3511.     m$ = m$ + "........" + Chr$(13)
3512.     m$ = m$ + "........" + Chr$(13)
3513.     m$ = m$ + "........" + Chr$(13)
3514.     m$ = m$ + "........" + Chr$(13)
3515.     m$ = m$ + "........" + Chr$(13)
3516.     m$ = m$ + "........" + Chr$(13)
3517.     arrTileText(21) = m$
3518.  
3519.     m$ = ""
3520.     m$ = m$ + "........" + Chr$(13)
3521.     m$ = m$ + "........" + Chr$(13)
3522.     m$ = m$ + "........" + Chr$(13)
3523.     m$ = m$ + "........" + Chr$(13)
3524.     m$ = m$ + "........" + Chr$(13)
3525.     m$ = m$ + "........" + Chr$(13)
3526.     m$ = m$ + "........" + Chr$(13)
3527.     m$ = m$ + "........" + Chr$(13)
3528.     arrTileText(22) = m$
3529.  
3530.     m$ = ""
3531.     m$ = m$ + "........" + Chr$(13)
3532.     m$ = m$ + "........" + Chr$(13)
3533.     m$ = m$ + "........" + Chr$(13)
3534.     m$ = m$ + "........" + Chr$(13)
3535.     m$ = m$ + "........" + Chr$(13)
3536.     m$ = m$ + "........" + Chr$(13)
3537.     m$ = m$ + "........" + Chr$(13)
3538.     m$ = m$ + "........" + Chr$(13)
3539.     arrTileText(23) = m$
3540.  
3541.     m$ = ""
3542.     m$ = m$ + "........" + Chr$(13)
3543.     m$ = m$ + "........" + Chr$(13)
3544.     m$ = m$ + "........" + Chr$(13)
3545.     m$ = m$ + "........" + Chr$(13)
3546.     m$ = m$ + "........" + Chr$(13)
3547.     m$ = m$ + "........" + Chr$(13)
3548.     m$ = m$ + "........" + Chr$(13)
3549.     m$ = m$ + "........" + Chr$(13)
3550.     arrTileText(24) = m$
3551.  
3552.     m$ = ""
3553.     m$ = m$ + "........" + Chr$(13)
3554.     m$ = m$ + "........" + Chr$(13)
3555.     m$ = m$ + "........" + Chr$(13)
3556.     m$ = m$ + "........" + Chr$(13)
3557.     m$ = m$ + "........" + Chr$(13)
3558.     m$ = m$ + "........" + Chr$(13)
3559.     m$ = m$ + "........" + Chr$(13)
3560.     m$ = m$ + "........" + Chr$(13)
3561.     arrTileText(25) = m$
3562.  
3563.     m$ = ""
3564.     m$ = m$ + "........" + Chr$(13)
3565.     m$ = m$ + "........" + Chr$(13)
3566.     m$ = m$ + "........" + Chr$(13)
3567.     m$ = m$ + "........" + Chr$(13)
3568.     m$ = m$ + "........" + Chr$(13)
3569.     m$ = m$ + "........" + Chr$(13)
3570.     m$ = m$ + "........" + Chr$(13)
3571.     m$ = m$ + "........" + Chr$(13)
3572.     arrTileText(26) = m$
3573.  
3574.     m$ = ""
3575.     m$ = m$ + "........" + Chr$(13)
3576.     m$ = m$ + "........" + Chr$(13)
3577.     m$ = m$ + "........" + Chr$(13)
3578.     m$ = m$ + "........" + Chr$(13)
3579.     m$ = m$ + "........" + Chr$(13)
3580.     m$ = m$ + "........" + Chr$(13)
3581.     m$ = m$ + "........" + Chr$(13)
3582.     m$ = m$ + "........" + Chr$(13)
3583.     arrTileText(27) = m$
3584.  
3585.     m$ = ""
3586.     m$ = m$ + "........" + Chr$(13)
3587.     m$ = m$ + "........" + Chr$(13)
3588.     m$ = m$ + "........" + Chr$(13)
3589.     m$ = m$ + "........" + Chr$(13)
3590.     m$ = m$ + "........" + Chr$(13)
3591.     m$ = m$ + "........" + Chr$(13)
3592.     m$ = m$ + "........" + Chr$(13)
3593.     m$ = m$ + "........" + Chr$(13)
3594.     arrTileText(28) = m$
3595.  
3596.     m$ = ""
3597.     m$ = m$ + "........" + Chr$(13)
3598.     m$ = m$ + "........" + Chr$(13)
3599.     m$ = m$ + "........" + Chr$(13)
3600.     m$ = m$ + "........" + Chr$(13)
3601.     m$ = m$ + "........" + Chr$(13)
3602.     m$ = m$ + "........" + Chr$(13)
3603.     m$ = m$ + "........" + Chr$(13)
3604.     m$ = m$ + "........" + Chr$(13)
3605.     arrTileText(29) = m$
3606.  
3607.     m$ = ""
3608.     m$ = m$ + "........" + Chr$(13)
3609.     m$ = m$ + "........" + Chr$(13)
3610.     m$ = m$ + "........" + Chr$(13)
3611.     m$ = m$ + "........" + Chr$(13)
3612.     m$ = m$ + "........" + Chr$(13)
3613.     m$ = m$ + "........" + Chr$(13)
3614.     m$ = m$ + "........" + Chr$(13)
3615.     m$ = m$ + "........" + Chr$(13)
3616.     arrTileText(30) = m$
3617.  
3618.     m$ = ""
3619.     m$ = m$ + "........" + Chr$(13)
3620.     m$ = m$ + "........" + Chr$(13)
3621.     m$ = m$ + "........" + Chr$(13)
3622.     m$ = m$ + "........" + Chr$(13)
3623.     m$ = m$ + "........" + Chr$(13)
3624.     m$ = m$ + "........" + Chr$(13)
3625.     m$ = m$ + "........" + Chr$(13)
3626.     m$ = m$ + "........" + Chr$(13)
3627.     arrTileText(31) = m$
3628.  
3629.     m$ = ""
3630.     m$ = m$ + "........" + Chr$(13)
3631.     m$ = m$ + "........" + Chr$(13)
3632.     m$ = m$ + "........" + Chr$(13)
3633.     m$ = m$ + "........" + Chr$(13)
3634.     m$ = m$ + "........" + Chr$(13)
3635.     m$ = m$ + "........" + Chr$(13)
3636.     m$ = m$ + "........" + Chr$(13)
3637.     m$ = m$ + "........" + Chr$(13)
3638.     arrTileText(32) = m$
3639.  
3640.     m$ = ""
3641.     m$ = m$ + "...22..." + Chr$(13)
3642.     m$ = m$ + "...22..." + Chr$(13)
3643.     m$ = m$ + "...22..." + Chr$(13)
3644.     m$ = m$ + "...22..." + Chr$(13)
3645.     m$ = m$ + "........" + Chr$(13)
3646.     m$ = m$ + "........" + Chr$(13)
3647.     m$ = m$ + "...22..." + Chr$(13)
3648.     m$ = m$ + "........" + Chr$(13)
3649.     arrTileText(33) = m$
3650.  
3651.     m$ = ""
3652.     m$ = m$ + ".22..22." + Chr$(13)
3653.     m$ = m$ + ".22..22." + Chr$(13)
3654.     m$ = m$ + ".22..22." + Chr$(13)
3655.     m$ = m$ + "........" + Chr$(13)
3656.     m$ = m$ + "........" + Chr$(13)
3657.     m$ = m$ + "........" + Chr$(13)
3658.     m$ = m$ + "........" + Chr$(13)
3659.     m$ = m$ + "........" + Chr$(13)
3660.     arrTileText(34) = m$
3661.  
3662.     m$ = ""
3663.     m$ = m$ + ".22..22." + Chr$(13)
3664.     m$ = m$ + ".22..22." + Chr$(13)
3665.     m$ = m$ + "22222222" + Chr$(13)
3666.     m$ = m$ + ".22..22." + Chr$(13)
3667.     m$ = m$ + "22222222" + Chr$(13)
3668.     m$ = m$ + ".22..22." + Chr$(13)
3669.     m$ = m$ + ".22..22." + Chr$(13)
3670.     m$ = m$ + "........" + Chr$(13)
3671.     arrTileText(35) = m$
3672.  
3673.     m$ = ""
3674.     m$ = m$ + "...22..." + Chr$(13)
3675.     m$ = m$ + "..22222." + Chr$(13)
3676.     m$ = m$ + ".22....." + Chr$(13)
3677.     m$ = m$ + "..2222.." + Chr$(13)
3678.     m$ = m$ + ".....22." + Chr$(13)
3679.     m$ = m$ + ".22222.." + Chr$(13)
3680.     m$ = m$ + "...22..." + Chr$(13)
3681.     m$ = m$ + "........" + Chr$(13)
3682.     arrTileText(36) = m$
3683.  
3684.     m$ = ""
3685.     m$ = m$ + ".22...2." + Chr$(13)
3686.     m$ = m$ + ".22..22." + Chr$(13)
3687.     m$ = m$ + "....22.." + Chr$(13)
3688.     m$ = m$ + "...22..." + Chr$(13)
3689.     m$ = m$ + "..22...." + Chr$(13)
3690.     m$ = m$ + ".22..22." + Chr$(13)
3691.     m$ = m$ + ".2...22." + Chr$(13)
3692.     m$ = m$ + "........" + Chr$(13)
3693.     arrTileText(37) = m$
3694.  
3695.     m$ = ""
3696.     m$ = m$ + "..2222.." + Chr$(13)
3697.     m$ = m$ + ".22..22." + Chr$(13)
3698.     m$ = m$ + "..2222.." + Chr$(13)
3699.     m$ = m$ + "..222..." + Chr$(13)
3700.     m$ = m$ + ".22..222" + Chr$(13)
3701.     m$ = m$ + ".22..22." + Chr$(13)
3702.     m$ = m$ + "..222222" + Chr$(13)
3703.     m$ = m$ + "........" + Chr$(13)
3704.     arrTileText(38) = m$
3705.  
3706.     m$ = ""
3707.     m$ = m$ + ".....22." + Chr$(13)
3708.     m$ = m$ + "....22.." + Chr$(13)
3709.     m$ = m$ + "...22..." + Chr$(13)
3710.     m$ = m$ + "........" + Chr$(13)
3711.     m$ = m$ + "........" + Chr$(13)
3712.     m$ = m$ + "........" + Chr$(13)
3713.     m$ = m$ + "........" + Chr$(13)
3714.     m$ = m$ + "........" + Chr$(13)
3715.     arrTileText(39) = m$
3716.  
3717.     m$ = ""
3718.     m$ = m$ + "....22.." + Chr$(13)
3719.     m$ = m$ + "...22..." + Chr$(13)
3720.     m$ = m$ + "..22...." + Chr$(13)
3721.     m$ = m$ + "..22...." + Chr$(13)
3722.     m$ = m$ + "..22...." + Chr$(13)
3723.     m$ = m$ + "...22..." + Chr$(13)
3724.     m$ = m$ + "....22.." + Chr$(13)
3725.     m$ = m$ + "........" + Chr$(13)
3726.     arrTileText(40) = m$
3727.  
3728.     m$ = ""
3729.     m$ = m$ + "..22...." + Chr$(13)
3730.     m$ = m$ + "...22..." + Chr$(13)
3731.     m$ = m$ + "....22.." + Chr$(13)
3732.     m$ = m$ + "....22.." + Chr$(13)
3733.     m$ = m$ + "....22.." + Chr$(13)
3734.     m$ = m$ + "...22..." + Chr$(13)
3735.     m$ = m$ + "..22...." + Chr$(13)
3736.     m$ = m$ + "........" + Chr$(13)
3737.     arrTileText(41) = m$
3738.  
3739.     m$ = ""
3740.     m$ = m$ + "........" + Chr$(13)
3741.     m$ = m$ + ".22..22." + Chr$(13)
3742.     m$ = m$ + "..2222.." + Chr$(13)
3743.     m$ = m$ + "22222222" + Chr$(13)
3744.     m$ = m$ + "..2222.." + Chr$(13)
3745.     m$ = m$ + ".22..22." + Chr$(13)
3746.     m$ = m$ + "........" + Chr$(13)
3747.     m$ = m$ + "........" + Chr$(13)
3748.     arrTileText(42) = m$
3749.  
3750.     m$ = ""
3751.     m$ = m$ + "........" + Chr$(13)
3752.     m$ = m$ + "...22..." + Chr$(13)
3753.     m$ = m$ + "...22..." + Chr$(13)
3754.     m$ = m$ + ".222222." + Chr$(13)
3755.     m$ = m$ + "...22..." + Chr$(13)
3756.     m$ = m$ + "...22..." + Chr$(13)
3757.     m$ = m$ + "........" + Chr$(13)
3758.     m$ = m$ + "........" + Chr$(13)
3759.     arrTileText(43) = m$
3760.  
3761.     m$ = ""
3762.     m$ = m$ + "........" + Chr$(13)
3763.     m$ = m$ + "........" + Chr$(13)
3764.     m$ = m$ + "........" + Chr$(13)
3765.     m$ = m$ + "........" + Chr$(13)
3766.     m$ = m$ + "........" + Chr$(13)
3767.     m$ = m$ + "...22..." + Chr$(13)
3768.     m$ = m$ + "...22..." + Chr$(13)
3769.     m$ = m$ + "..22...." + Chr$(13)
3770.     arrTileText(44) = m$
3771.  
3772.     m$ = ""
3773.     m$ = m$ + "........" + Chr$(13)
3774.     m$ = m$ + "........" + Chr$(13)
3775.     m$ = m$ + "........" + Chr$(13)
3776.     m$ = m$ + ".222222." + Chr$(13)
3777.     m$ = m$ + "........" + Chr$(13)
3778.     m$ = m$ + "........" + Chr$(13)
3779.     m$ = m$ + "........" + Chr$(13)
3780.     m$ = m$ + "........" + Chr$(13)
3781.     arrTileText(45) = m$
3782.  
3783.     m$ = ""
3784.     m$ = m$ + "........" + Chr$(13)
3785.     m$ = m$ + "........" + Chr$(13)
3786.     m$ = m$ + "........" + Chr$(13)
3787.     m$ = m$ + "........" + Chr$(13)
3788.     m$ = m$ + "........" + Chr$(13)
3789.     m$ = m$ + "...22..." + Chr$(13)
3790.     m$ = m$ + "...22..." + Chr$(13)
3791.     m$ = m$ + "........" + Chr$(13)
3792.     arrTileText(46) = m$
3793.  
3794.     m$ = ""
3795.     m$ = m$ + "........" + Chr$(13)
3796.     m$ = m$ + "......22" + Chr$(13)
3797.     m$ = m$ + ".....22." + Chr$(13)
3798.     m$ = m$ + "....22.." + Chr$(13)
3799.     m$ = m$ + "...22..." + Chr$(13)
3800.     m$ = m$ + "..22...." + Chr$(13)
3801.     m$ = m$ + ".22....." + Chr$(13)
3802.     m$ = m$ + "........" + Chr$(13)
3803.     arrTileText(47) = m$
3804.  
3805.     m$ = ""
3806.     m$ = m$ + "..2222.." + Chr$(13)
3807.     m$ = m$ + ".22..22." + Chr$(13)
3808.     m$ = m$ + ".22.222." + Chr$(13)
3809.     m$ = m$ + ".222.22." + Chr$(13)
3810.     m$ = m$ + ".22..22." + Chr$(13)
3811.     m$ = m$ + ".22..22." + Chr$(13)
3812.     m$ = m$ + "..2222.." + Chr$(13)
3813.     m$ = m$ + "........" + Chr$(13)
3814.     arrTileText(48) = m$
3815.  
3816.     m$ = ""
3817.     m$ = m$ + "...22..." + Chr$(13)
3818.     m$ = m$ + "...22..." + Chr$(13)
3819.     m$ = m$ + "..222..." + Chr$(13)
3820.     m$ = m$ + "...22..." + Chr$(13)
3821.     m$ = m$ + "...22..." + Chr$(13)
3822.     m$ = m$ + "...22..." + Chr$(13)
3823.     m$ = m$ + ".222222." + Chr$(13)
3824.     m$ = m$ + "........" + Chr$(13)
3825.     arrTileText(49) = m$
3826.  
3827.     m$ = ""
3828.     m$ = m$ + "..2222.." + Chr$(13)
3829.     m$ = m$ + ".22..22." + Chr$(13)
3830.     m$ = m$ + ".....22." + Chr$(13)
3831.     m$ = m$ + "....22.." + Chr$(13)
3832.     m$ = m$ + "..22...." + Chr$(13)
3833.     m$ = m$ + ".22....." + Chr$(13)
3834.     m$ = m$ + ".222222." + Chr$(13)
3835.     m$ = m$ + "........" + Chr$(13)
3836.     arrTileText(50) = m$
3837.  
3838.     m$ = ""
3839.     m$ = m$ + "..2222.." + Chr$(13)
3840.     m$ = m$ + ".22..22." + Chr$(13)
3841.     m$ = m$ + ".....22." + Chr$(13)
3842.     m$ = m$ + "...222.." + Chr$(13)
3843.     m$ = m$ + ".....22." + Chr$(13)
3844.     m$ = m$ + ".22..22." + Chr$(13)
3845.     m$ = m$ + "..2222.." + Chr$(13)
3846.     m$ = m$ + "........" + Chr$(13)
3847.     arrTileText(51) = m$
3848.  
3849.     m$ = ""
3850.     m$ = m$ + ".....22." + Chr$(13)
3851.     m$ = m$ + "....222." + Chr$(13)
3852.     m$ = m$ + "...2222." + Chr$(13)
3853.     m$ = m$ + ".22..22." + Chr$(13)
3854.     m$ = m$ + ".2222222" + Chr$(13)
3855.     m$ = m$ + ".....22." + Chr$(13)
3856.     m$ = m$ + ".....22." + Chr$(13)
3857.     m$ = m$ + "........" + Chr$(13)
3858.     arrTileText(52) = m$
3859.  
3860.     m$ = ""
3861.     m$ = m$ + ".222222." + Chr$(13)
3862.     m$ = m$ + ".22....." + Chr$(13)
3863.     m$ = m$ + ".22222.." + Chr$(13)
3864.     m$ = m$ + ".....22." + Chr$(13)
3865.     m$ = m$ + ".....22." + Chr$(13)
3866.     m$ = m$ + ".22..22." + Chr$(13)
3867.     m$ = m$ + "..2222.." + Chr$(13)
3868.     m$ = m$ + "........" + Chr$(13)
3869.     arrTileText(53) = m$
3870.  
3871.     m$ = ""
3872.     m$ = m$ + "..2222.." + Chr$(13)
3873.     m$ = m$ + ".22..22." + Chr$(13)
3874.     m$ = m$ + ".22....." + Chr$(13)
3875.     m$ = m$ + ".22222.." + Chr$(13)
3876.     m$ = m$ + ".22..22." + Chr$(13)
3877.     m$ = m$ + ".22..22." + Chr$(13)
3878.     m$ = m$ + "..2222.." + Chr$(13)
3879.     m$ = m$ + "........" + Chr$(13)
3880.     arrTileText(54) = m$
3881.  
3882.     m$ = ""
3883.     m$ = m$ + ".222222." + Chr$(13)
3884.     m$ = m$ + ".22..22." + Chr$(13)
3885.     m$ = m$ + "....22.." + Chr$(13)
3886.     m$ = m$ + "...22..." + Chr$(13)
3887.     m$ = m$ + "...22..." + Chr$(13)
3888.     m$ = m$ + "...22..." + Chr$(13)
3889.     m$ = m$ + "...22..." + Chr$(13)
3890.     m$ = m$ + "........" + Chr$(13)
3891.     arrTileText(55) = m$
3892.  
3893.     m$ = ""
3894.     m$ = m$ + "..2222.." + Chr$(13)
3895.     m$ = m$ + ".22..22." + Chr$(13)
3896.     m$ = m$ + ".22..22." + Chr$(13)
3897.     m$ = m$ + "..2222.." + Chr$(13)
3898.     m$ = m$ + ".22..22." + Chr$(13)
3899.     m$ = m$ + ".22..22." + Chr$(13)
3900.     m$ = m$ + "..2222.." + Chr$(13)
3901.     m$ = m$ + "........" + Chr$(13)
3902.     arrTileText(56) = m$
3903.  
3904.     m$ = ""
3905.     m$ = m$ + "..2222.." + Chr$(13)
3906.     m$ = m$ + ".22..22." + Chr$(13)
3907.     m$ = m$ + ".22..22." + Chr$(13)
3908.     m$ = m$ + "..22222." + Chr$(13)
3909.     m$ = m$ + ".....22." + Chr$(13)
3910.     m$ = m$ + ".22..22." + Chr$(13)
3911.     m$ = m$ + "..2222.." + Chr$(13)
3912.     m$ = m$ + "........" + Chr$(13)
3913.     arrTileText(57) = m$
3914.  
3915.     m$ = ""
3916.     m$ = m$ + "........" + Chr$(13)
3917.     m$ = m$ + "........" + Chr$(13)
3918.     m$ = m$ + "...22..." + Chr$(13)
3919.     m$ = m$ + "........" + Chr$(13)
3920.     m$ = m$ + "........" + Chr$(13)
3921.     m$ = m$ + "...22..." + Chr$(13)
3922.     m$ = m$ + "........" + Chr$(13)
3923.     m$ = m$ + "........" + Chr$(13)
3924.     arrTileText(58) = m$
3925.  
3926.     m$ = ""
3927.     m$ = m$ + "........" + Chr$(13)
3928.     m$ = m$ + "........" + Chr$(13)
3929.     m$ = m$ + "...22..." + Chr$(13)
3930.     m$ = m$ + "........" + Chr$(13)
3931.     m$ = m$ + "........" + Chr$(13)
3932.     m$ = m$ + "...22..." + Chr$(13)
3933.     m$ = m$ + "...22..." + Chr$(13)
3934.     m$ = m$ + "..22...." + Chr$(13)
3935.     arrTileText(59) = m$
3936.  
3937.     m$ = ""
3938.     m$ = m$ + "....222." + Chr$(13)
3939.     m$ = m$ + "...22..." + Chr$(13)
3940.     m$ = m$ + "..22...." + Chr$(13)
3941.     m$ = m$ + ".22....." + Chr$(13)
3942.     m$ = m$ + "..22...." + Chr$(13)
3943.     m$ = m$ + "...22..." + Chr$(13)
3944.     m$ = m$ + "....222." + Chr$(13)
3945.     m$ = m$ + "........" + Chr$(13)
3946.     arrTileText(60) = m$
3947.  
3948.     m$ = ""
3949.     m$ = m$ + "........" + Chr$(13)
3950.     m$ = m$ + "........" + Chr$(13)
3951.     m$ = m$ + ".222222." + Chr$(13)
3952.     m$ = m$ + "........" + Chr$(13)
3953.     m$ = m$ + ".222222." + Chr$(13)
3954.     m$ = m$ + "........" + Chr$(13)
3955.     m$ = m$ + "........" + Chr$(13)
3956.     m$ = m$ + "........" + Chr$(13)
3957.     arrTileText(61) = m$
3958.  
3959.     m$ = ""
3960.     m$ = m$ + ".222...." + Chr$(13)
3961.     m$ = m$ + "...22..." + Chr$(13)
3962.     m$ = m$ + "....22.." + Chr$(13)
3963.     m$ = m$ + ".....22." + Chr$(13)
3964.     m$ = m$ + "....22.." + Chr$(13)
3965.     m$ = m$ + "...22..." + Chr$(13)
3966.     m$ = m$ + ".222...." + Chr$(13)
3967.     m$ = m$ + "........" + Chr$(13)
3968.     arrTileText(62) = m$
3969.  
3970.     m$ = ""
3971.     m$ = m$ + "..2222.." + Chr$(13)
3972.     m$ = m$ + ".22..22." + Chr$(13)
3973.     m$ = m$ + ".....22." + Chr$(13)
3974.     m$ = m$ + "....22.." + Chr$(13)
3975.     m$ = m$ + "...22..." + Chr$(13)
3976.     m$ = m$ + "........" + Chr$(13)
3977.     m$ = m$ + "...22..." + Chr$(13)
3978.     m$ = m$ + "........" + Chr$(13)
3979.     arrTileText(63) = m$
3980.  
3981.     m$ = ""
3982.     m$ = m$ + "..2222.." + Chr$(13)
3983.     m$ = m$ + ".22..22." + Chr$(13)
3984.     m$ = m$ + ".22.222." + Chr$(13)
3985.     m$ = m$ + ".22.222." + Chr$(13)
3986.     m$ = m$ + ".22....." + Chr$(13)
3987.     m$ = m$ + ".22...2." + Chr$(13)
3988.     m$ = m$ + "..2222.." + Chr$(13)
3989.     m$ = m$ + "........" + Chr$(13)
3990.     arrTileText(64) = m$
3991.  
3992.     m$ = ""
3993.     m$ = m$ + "...22..." + Chr$(13)
3994.     m$ = m$ + "..2222.." + Chr$(13)
3995.     m$ = m$ + ".22..22." + Chr$(13)
3996.     m$ = m$ + ".222222." + Chr$(13)
3997.     m$ = m$ + ".22..22." + Chr$(13)
3998.     m$ = m$ + ".22..22." + Chr$(13)
3999.     m$ = m$ + ".22..22." + Chr$(13)
4000.     m$ = m$ + "........" + Chr$(13)
4001.     arrTileText(65) = m$
4002.  
4003.     m$ = ""
4004.     m$ = m$ + ".22222.." + Chr$(13)
4005.     m$ = m$ + ".22..22." + Chr$(13)
4006.     m$ = m$ + ".22..22." + Chr$(13)
4007.     m$ = m$ + ".22222.." + Chr$(13)
4008.     m$ = m$ + ".22..22." + Chr$(13)
4009.     m$ = m$ + ".22..22." + Chr$(13)
4010.     m$ = m$ + ".22222.." + Chr$(13)
4011.     m$ = m$ + "........" + Chr$(13)
4012.     arrTileText(66) = m$
4013.  
4014.     m$ = ""
4015.     m$ = m$ + "..2222.." + Chr$(13)
4016.     m$ = m$ + ".22..22." + Chr$(13)
4017.     m$ = m$ + ".22....." + Chr$(13)
4018.     m$ = m$ + ".22....." + Chr$(13)
4019.     m$ = m$ + ".22....." + Chr$(13)
4020.     m$ = m$ + ".22..22." + Chr$(13)
4021.     m$ = m$ + "..2222.." + Chr$(13)
4022.     m$ = m$ + "........" + Chr$(13)
4023.     arrTileText(67) = m$
4024.  
4025.     m$ = ""
4026.     m$ = m$ + ".2222..." + Chr$(13)
4027.     m$ = m$ + ".22.22.." + Chr$(13)
4028.     m$ = m$ + ".22..22." + Chr$(13)
4029.     m$ = m$ + ".22..22." + Chr$(13)
4030.     m$ = m$ + ".22..22." + Chr$(13)
4031.     m$ = m$ + ".22.22.." + Chr$(13)
4032.     m$ = m$ + ".2222..." + Chr$(13)
4033.     m$ = m$ + "........" + Chr$(13)
4034.     arrTileText(68) = m$
4035.  
4036.     m$ = ""
4037.     m$ = m$ + ".222222." + Chr$(13)
4038.     m$ = m$ + ".22....." + Chr$(13)
4039.     m$ = m$ + ".22....." + Chr$(13)
4040.     m$ = m$ + ".2222..." + Chr$(13)
4041.     m$ = m$ + ".22....." + Chr$(13)
4042.     m$ = m$ + ".22....." + Chr$(13)
4043.     m$ = m$ + ".222222." + Chr$(13)
4044.     m$ = m$ + "........" + Chr$(13)
4045.     arrTileText(69) = m$
4046.  
4047.     m$ = ""
4048.     m$ = m$ + ".222222." + Chr$(13)
4049.     m$ = m$ + ".22....." + Chr$(13)
4050.     m$ = m$ + ".22....." + Chr$(13)
4051.     m$ = m$ + ".2222..." + Chr$(13)
4052.     m$ = m$ + ".22....." + Chr$(13)
4053.     m$ = m$ + ".22....." + Chr$(13)
4054.     m$ = m$ + ".22....." + Chr$(13)
4055.     m$ = m$ + "........" + Chr$(13)
4056.     arrTileText(70) = m$
4057.  
4058.     m$ = ""
4059.     m$ = m$ + "..2222.." + Chr$(13)
4060.     m$ = m$ + ".22..22." + Chr$(13)
4061.     m$ = m$ + ".22....." + Chr$(13)
4062.     m$ = m$ + ".22.222." + Chr$(13)
4063.     m$ = m$ + ".22..22." + Chr$(13)
4064.     m$ = m$ + ".22..22." + Chr$(13)
4065.     m$ = m$ + "..2222.." + Chr$(13)
4066.     m$ = m$ + "........" + Chr$(13)
4067.     arrTileText(71) = m$
4068.  
4069.     m$ = ""
4070.     m$ = m$ + ".22..22." + Chr$(13)
4071.     m$ = m$ + ".22..22." + Chr$(13)
4072.     m$ = m$ + ".22..22." + Chr$(13)
4073.     m$ = m$ + ".222222." + Chr$(13)
4074.     m$ = m$ + ".22..22." + Chr$(13)
4075.     m$ = m$ + ".22..22." + Chr$(13)
4076.     m$ = m$ + ".22..22." + Chr$(13)
4077.     m$ = m$ + "........" + Chr$(13)
4078.     arrTileText(72) = m$
4079.  
4080.     m$ = ""
4081.     m$ = m$ + "..2222.." + Chr$(13)
4082.     m$ = m$ + "...22..." + Chr$(13)
4083.     m$ = m$ + "...22..." + Chr$(13)
4084.     m$ = m$ + "...22..." + Chr$(13)
4085.     m$ = m$ + "...22..." + Chr$(13)
4086.     m$ = m$ + "...22..." + Chr$(13)
4087.     m$ = m$ + "..2222.." + Chr$(13)
4088.     m$ = m$ + "........" + Chr$(13)
4089.     arrTileText(73) = m$
4090.  
4091.     m$ = ""
4092.     m$ = m$ + "...2222." + Chr$(13)
4093.     m$ = m$ + "....22.." + Chr$(13)
4094.     m$ = m$ + "....22.." + Chr$(13)
4095.     m$ = m$ + "....22.." + Chr$(13)
4096.     m$ = m$ + "....22.." + Chr$(13)
4097.     m$ = m$ + ".22.22.." + Chr$(13)
4098.     m$ = m$ + "..222..." + Chr$(13)
4099.     m$ = m$ + "........" + Chr$(13)
4100.     arrTileText(74) = m$
4101.  
4102.     m$ = ""
4103.     m$ = m$ + ".22..22." + Chr$(13)
4104.     m$ = m$ + ".22.22.." + Chr$(13)
4105.     m$ = m$ + ".2222..." + Chr$(13)
4106.     m$ = m$ + ".222...." + Chr$(13)
4107.     m$ = m$ + ".2222..." + Chr$(13)
4108.     m$ = m$ + ".22.22.." + Chr$(13)
4109.     m$ = m$ + ".22..22." + Chr$(13)
4110.     m$ = m$ + "........" + Chr$(13)
4111.     arrTileText(75) = m$
4112.  
4113.     m$ = ""
4114.     m$ = m$ + ".22....." + Chr$(13)
4115.     m$ = m$ + ".22....." + Chr$(13)
4116.     m$ = m$ + ".22....." + Chr$(13)
4117.     m$ = m$ + ".22....." + Chr$(13)
4118.     m$ = m$ + ".22....." + Chr$(13)
4119.     m$ = m$ + ".22....." + Chr$(13)
4120.     m$ = m$ + ".222222." + Chr$(13)
4121.     m$ = m$ + "........" + Chr$(13)
4122.     arrTileText(76) = m$
4123.  
4124.     m$ = ""
4125.     m$ = m$ + ".22...22" + Chr$(13)
4126.     m$ = m$ + ".222.222" + Chr$(13)
4127.     m$ = m$ + ".2222222" + Chr$(13)
4128.     m$ = m$ + ".22.2.22" + Chr$(13)
4129.     m$ = m$ + ".22...22" + Chr$(13)
4130.     m$ = m$ + ".22...22" + Chr$(13)
4131.     m$ = m$ + ".22...22" + Chr$(13)
4132.     m$ = m$ + "........" + Chr$(13)
4133.     arrTileText(77) = m$
4134.  
4135.     m$ = ""
4136.     m$ = m$ + ".22..22." + Chr$(13)
4137.     m$ = m$ + ".222.22." + Chr$(13)
4138.     m$ = m$ + ".222222." + Chr$(13)
4139.     m$ = m$ + ".222222." + Chr$(13)
4140.     m$ = m$ + ".22.222." + Chr$(13)
4141.     m$ = m$ + ".22..22." + Chr$(13)
4142.     m$ = m$ + ".22..22." + Chr$(13)
4143.     m$ = m$ + "........" + Chr$(13)
4144.     arrTileText(78) = m$
4145.  
4146.     m$ = ""
4147.     m$ = m$ + "..2222.." + Chr$(13)
4148.     m$ = m$ + ".22..22." + Chr$(13)
4149.     m$ = m$ + ".22..22." + Chr$(13)
4150.     m$ = m$ + ".22..22." + Chr$(13)
4151.     m$ = m$ + ".22..22." + Chr$(13)
4152.     m$ = m$ + ".22..22." + Chr$(13)
4153.     m$ = m$ + "..2222.." + Chr$(13)
4154.     m$ = m$ + "........" + Chr$(13)
4155.     arrTileText(79) = m$
4156.  
4157.     m$ = ""
4158.     m$ = m$ + ".22222.." + Chr$(13)
4159.     m$ = m$ + ".22..22." + Chr$(13)
4160.     m$ = m$ + ".22..22." + Chr$(13)
4161.     m$ = m$ + ".22222.." + Chr$(13)
4162.     m$ = m$ + ".22....." + Chr$(13)
4163.     m$ = m$ + ".22....." + Chr$(13)
4164.     m$ = m$ + ".22....." + Chr$(13)
4165.     m$ = m$ + "........" + Chr$(13)
4166.     arrTileText(80) = m$
4167.  
4168.     m$ = ""
4169.     m$ = m$ + "..2222.." + Chr$(13)
4170.     m$ = m$ + ".22..22." + Chr$(13)
4171.     m$ = m$ + ".22..22." + Chr$(13)
4172.     m$ = m$ + ".22..22." + Chr$(13)
4173.     m$ = m$ + ".22..22." + Chr$(13)
4174.     m$ = m$ + "..2222.." + Chr$(13)
4175.     m$ = m$ + "....222." + Chr$(13)
4176.     m$ = m$ + "........" + Chr$(13)
4177.     arrTileText(81) = m$
4178.  
4179.     m$ = ""
4180.     m$ = m$ + ".22222.." + Chr$(13)
4181.     m$ = m$ + ".22..22." + Chr$(13)
4182.     m$ = m$ + ".22..22." + Chr$(13)
4183.     m$ = m$ + ".22222.." + Chr$(13)
4184.     m$ = m$ + ".2222..." + Chr$(13)
4185.     m$ = m$ + ".22.22.." + Chr$(13)
4186.     m$ = m$ + ".22..22." + Chr$(13)
4187.     m$ = m$ + "........" + Chr$(13)
4188.     arrTileText(82) = m$
4189.  
4190.     m$ = ""
4191.     m$ = m$ + "..2222.." + Chr$(13)
4192.     m$ = m$ + ".22..22." + Chr$(13)
4193.     m$ = m$ + ".22....." + Chr$(13)
4194.     m$ = m$ + "..2222.." + Chr$(13)
4195.     m$ = m$ + ".....22." + Chr$(13)
4196.     m$ = m$ + ".22..22." + Chr$(13)
4197.     m$ = m$ + "..2222.." + Chr$(13)
4198.     m$ = m$ + "........" + Chr$(13)
4199.     arrTileText(83) = m$
4200.  
4201.     m$ = ""
4202.     m$ = m$ + ".222222." + Chr$(13)
4203.     m$ = m$ + "...22..." + Chr$(13)
4204.     m$ = m$ + "...22..." + Chr$(13)
4205.     m$ = m$ + "...22..." + Chr$(13)
4206.     m$ = m$ + "...22..." + Chr$(13)
4207.     m$ = m$ + "...22..." + Chr$(13)
4208.     m$ = m$ + "...22..." + Chr$(13)
4209.     m$ = m$ + "........" + Chr$(13)
4210.     arrTileText(84) = m$
4211.  
4212.     m$ = ""
4213.     m$ = m$ + ".22..22." + Chr$(13)
4214.     m$ = m$ + ".22..22." + Chr$(13)
4215.     m$ = m$ + ".22..22." + Chr$(13)
4216.     m$ = m$ + ".22..22." + Chr$(13)
4217.     m$ = m$ + ".22..22." + Chr$(13)
4218.     m$ = m$ + ".22..22." + Chr$(13)
4219.     m$ = m$ + "..2222.." + Chr$(13)
4220.     m$ = m$ + "........" + Chr$(13)
4221.     arrTileText(85) = m$
4222.  
4223.     m$ = ""
4224.     m$ = m$ + ".22..22." + Chr$(13)
4225.     m$ = m$ + ".22..22." + Chr$(13)
4226.     m$ = m$ + ".22..22." + Chr$(13)
4227.     m$ = m$ + ".22..22." + Chr$(13)
4228.     m$ = m$ + ".22..22." + Chr$(13)
4229.     m$ = m$ + "..2222.." + Chr$(13)
4230.     m$ = m$ + "...22..." + Chr$(13)
4231.     m$ = m$ + "........" + Chr$(13)
4232.     arrTileText(86) = m$
4233.  
4234.     m$ = ""
4235.     m$ = m$ + ".22...22" + Chr$(13)
4236.     m$ = m$ + ".22...22" + Chr$(13)
4237.     m$ = m$ + ".22...22" + Chr$(13)
4238.     m$ = m$ + ".22.2.22" + Chr$(13)
4239.     m$ = m$ + ".2222222" + Chr$(13)
4240.     m$ = m$ + ".222.222" + Chr$(13)
4241.     m$ = m$ + ".22...22" + Chr$(13)
4242.     m$ = m$ + "........" + Chr$(13)
4243.     arrTileText(87) = m$
4244.  
4245.     m$ = ""
4246.     m$ = m$ + ".22..22." + Chr$(13)
4247.     m$ = m$ + ".22..22." + Chr$(13)
4248.     m$ = m$ + "..2222.." + Chr$(13)
4249.     m$ = m$ + "...22..." + Chr$(13)
4250.     m$ = m$ + "..2222.." + Chr$(13)
4251.     m$ = m$ + ".22..22." + Chr$(13)
4252.     m$ = m$ + ".22..22." + Chr$(13)
4253.     m$ = m$ + "........" + Chr$(13)
4254.     arrTileText(88) = m$
4255.  
4256.     m$ = ""
4257.     m$ = m$ + ".22..22." + Chr$(13)
4258.     m$ = m$ + ".22..22." + Chr$(13)
4259.     m$ = m$ + ".22..22." + Chr$(13)
4260.     m$ = m$ + "..2222.." + Chr$(13)
4261.     m$ = m$ + "...22..." + Chr$(13)
4262.     m$ = m$ + "...22..." + Chr$(13)
4263.     m$ = m$ + "...22..." + Chr$(13)
4264.     m$ = m$ + "........" + Chr$(13)
4265.     arrTileText(89) = m$
4266.  
4267.     m$ = ""
4268.     m$ = m$ + ".222222." + Chr$(13)
4269.     m$ = m$ + ".....22." + Chr$(13)
4270.     m$ = m$ + "....22.." + Chr$(13)
4271.     m$ = m$ + "...22..." + Chr$(13)
4272.     m$ = m$ + "..22...." + Chr$(13)
4273.     m$ = m$ + ".22....." + Chr$(13)
4274.     m$ = m$ + ".222222." + Chr$(13)
4275.     m$ = m$ + "........" + Chr$(13)
4276.     arrTileText(90) = m$
4277.  
4278.     m$ = ""
4279.     m$ = m$ + "..2222.." + Chr$(13)
4280.     m$ = m$ + "..22...." + Chr$(13)
4281.     m$ = m$ + "..22...." + Chr$(13)
4282.     m$ = m$ + "..22...." + Chr$(13)
4283.     m$ = m$ + "..22...." + Chr$(13)
4284.     m$ = m$ + "..22...." + Chr$(13)
4285.     m$ = m$ + "..2222.." + Chr$(13)
4286.     m$ = m$ + "........" + Chr$(13)
4287.     arrTileText(91) = m$
4288.  
4289.     m$ = ""
4290.     m$ = m$ + "........" + Chr$(13)
4291.     m$ = m$ + ".22....." + Chr$(13)
4292.     m$ = m$ + "..22...." + Chr$(13)
4293.     m$ = m$ + "...22..." + Chr$(13)
4294.     m$ = m$ + "....22.." + Chr$(13)
4295.     m$ = m$ + ".....22." + Chr$(13)
4296.     m$ = m$ + "......22" + Chr$(13)
4297.     m$ = m$ + "........" + Chr$(13)
4298.     arrTileText(92) = m$
4299.  
4300.     m$ = ""
4301.     m$ = m$ + "..2222.." + Chr$(13)
4302.     m$ = m$ + "....22.." + Chr$(13)
4303.     m$ = m$ + "....22.." + Chr$(13)
4304.     m$ = m$ + "....22.." + Chr$(13)
4305.     m$ = m$ + "....22.." + Chr$(13)
4306.     m$ = m$ + "....22.." + Chr$(13)
4307.     m$ = m$ + "..2222.." + Chr$(13)
4308.     m$ = m$ + "........" + Chr$(13)
4309.     arrTileText(93) = m$
4310.  
4311.     m$ = ""
4312.     m$ = m$ + "...22..." + Chr$(13)
4313.     m$ = m$ + "..2222.." + Chr$(13)
4314.     m$ = m$ + ".22..22." + Chr$(13)
4315.     m$ = m$ + "........" + Chr$(13)
4316.     m$ = m$ + "........" + Chr$(13)
4317.     m$ = m$ + "........" + Chr$(13)
4318.     m$ = m$ + "........" + Chr$(13)
4319.     m$ = m$ + "........" + Chr$(13)
4320.     arrTileText(94) = m$
4321.  
4322.     m$ = ""
4323.     m$ = m$ + "........" + Chr$(13)
4324.     m$ = m$ + "........" + Chr$(13)
4325.     m$ = m$ + "........" + Chr$(13)
4326.     m$ = m$ + "........" + Chr$(13)
4327.     m$ = m$ + "........" + Chr$(13)
4328.     m$ = m$ + ".222222." + Chr$(13)
4329.     m$ = m$ + "........" + Chr$(13)
4330.     m$ = m$ + "........" + Chr$(13)
4331.     arrTileText(95) = m$
4332.  
4333.     m$ = ""
4334.     m$ = m$ + "........" + Chr$(13)
4335.     m$ = m$ + "........" + Chr$(13)
4336.     m$ = m$ + "........" + Chr$(13)
4337.     m$ = m$ + "........" + Chr$(13)
4338.     m$ = m$ + "........" + Chr$(13)
4339.     m$ = m$ + "........" + Chr$(13)
4340.     m$ = m$ + "........" + Chr$(13)
4341.     m$ = m$ + "........" + Chr$(13)
4342.     arrTileText(96) = m$
4343.  
4344.     m$ = ""
4345.     m$ = m$ + "........" + Chr$(13)
4346.     m$ = m$ + "..2222.." + Chr$(13)
4347.     m$ = m$ + ".....22." + Chr$(13)
4348.     m$ = m$ + "..22222." + Chr$(13)
4349.     m$ = m$ + ".22..22." + Chr$(13)
4350.     m$ = m$ + "..22222." + Chr$(13)
4351.     m$ = m$ + "........" + Chr$(13)
4352.     m$ = m$ + "........" + Chr$(13)
4353.     arrTileText(97) = m$
4354.  
4355.     m$ = ""
4356.     m$ = m$ + ".22....." + Chr$(13)
4357.     m$ = m$ + ".22....." + Chr$(13)
4358.     m$ = m$ + ".22222.." + Chr$(13)
4359.     m$ = m$ + ".22..22." + Chr$(13)
4360.     m$ = m$ + ".22..22." + Chr$(13)
4361.     m$ = m$ + ".22222.." + Chr$(13)
4362.     m$ = m$ + "........" + Chr$(13)
4363.     m$ = m$ + "........" + Chr$(13)
4364.     arrTileText(98) = m$
4365.  
4366.     m$ = ""
4367.     m$ = m$ + "........" + Chr$(13)
4368.     m$ = m$ + "..2222.." + Chr$(13)
4369.     m$ = m$ + ".22....." + Chr$(13)
4370.     m$ = m$ + ".22....." + Chr$(13)
4371.     m$ = m$ + ".22....." + Chr$(13)
4372.     m$ = m$ + "..2222.." + Chr$(13)
4373.     m$ = m$ + "........" + Chr$(13)
4374.     m$ = m$ + "........" + Chr$(13)
4375.     arrTileText(99) = m$
4376.  
4377.     m$ = ""
4378.     m$ = m$ + ".....22." + Chr$(13)
4379.     m$ = m$ + ".....22." + Chr$(13)
4380.     m$ = m$ + "..22222." + Chr$(13)
4381.     m$ = m$ + ".22..22." + Chr$(13)
4382.     m$ = m$ + ".22..22." + Chr$(13)
4383.     m$ = m$ + "..22222." + Chr$(13)
4384.     m$ = m$ + "........" + Chr$(13)
4385.     m$ = m$ + "........" + Chr$(13)
4386.     arrTileText(100) = m$
4387.  
4388.     m$ = ""
4389.     m$ = m$ + "........" + Chr$(13)
4390.     m$ = m$ + "..2222.." + Chr$(13)
4391.     m$ = m$ + ".22..22." + Chr$(13)
4392.     m$ = m$ + ".222222." + Chr$(13)
4393.     m$ = m$ + ".22....." + Chr$(13)
4394.     m$ = m$ + "..2222.." + Chr$(13)
4395.     m$ = m$ + "........" + Chr$(13)
4396.     m$ = m$ + "........" + Chr$(13)
4397.     arrTileText(101) = m$
4398.  
4399.     m$ = ""
4400.     m$ = m$ + "....222." + Chr$(13)
4401.     m$ = m$ + "...22..." + Chr$(13)
4402.     m$ = m$ + "..22222." + Chr$(13)
4403.     m$ = m$ + "...22..." + Chr$(13)
4404.     m$ = m$ + "...22..." + Chr$(13)
4405.     m$ = m$ + "...22..." + Chr$(13)
4406.     m$ = m$ + "........" + Chr$(13)
4407.     m$ = m$ + "........" + Chr$(13)
4408.     arrTileText(102) = m$
4409.  
4410.     m$ = ""
4411.     m$ = m$ + "........" + Chr$(13)
4412.     m$ = m$ + "..22222." + Chr$(13)
4413.     m$ = m$ + ".22..22." + Chr$(13)
4414.     m$ = m$ + ".22..22." + Chr$(13)
4415.     m$ = m$ + "..22222." + Chr$(13)
4416.     m$ = m$ + ".....22." + Chr$(13)
4417.     m$ = m$ + ".22222.." + Chr$(13)
4418.     m$ = m$ + "........" + Chr$(13)
4419.     arrTileText(103) = m$
4420.  
4421.     m$ = ""
4422.     m$ = m$ + ".22....." + Chr$(13)
4423.     m$ = m$ + ".22....." + Chr$(13)
4424.     m$ = m$ + ".22222.." + Chr$(13)
4425.     m$ = m$ + ".22..22." + Chr$(13)
4426.     m$ = m$ + ".22..22." + Chr$(13)
4427.     m$ = m$ + ".22..22." + Chr$(13)
4428.     m$ = m$ + "........" + Chr$(13)
4429.     m$ = m$ + "........" + Chr$(13)
4430.     arrTileText(104) = m$
4431.  
4432.     m$ = ""
4433.     m$ = m$ + "...22..." + Chr$(13)
4434.     m$ = m$ + "........" + Chr$(13)
4435.     m$ = m$ + "..222..." + Chr$(13)
4436.     m$ = m$ + "...22..." + Chr$(13)
4437.     m$ = m$ + "...22..." + Chr$(13)
4438.     m$ = m$ + "..2222.." + Chr$(13)
4439.     m$ = m$ + "........" + Chr$(13)
4440.     m$ = m$ + "........" + Chr$(13)
4441.     arrTileText(105) = m$
4442.  
4443.     m$ = ""
4444.     m$ = m$ + ".....22." + Chr$(13)
4445.     m$ = m$ + "........" + Chr$(13)
4446.     m$ = m$ + ".....22." + Chr$(13)
4447.     m$ = m$ + ".....22." + Chr$(13)
4448.     m$ = m$ + ".....22." + Chr$(13)
4449.     m$ = m$ + ".....22." + Chr$(13)
4450.     m$ = m$ + "..2222.." + Chr$(13)
4451.     m$ = m$ + "........" + Chr$(13)
4452.     arrTileText(106) = m$
4453.  
4454.     m$ = ""
4455.     m$ = m$ + ".22....." + Chr$(13)
4456.     m$ = m$ + ".22....." + Chr$(13)
4457.     m$ = m$ + ".22.22.." + Chr$(13)
4458.     m$ = m$ + ".2222..." + Chr$(13)
4459.     m$ = m$ + ".22.22.." + Chr$(13)
4460.     m$ = m$ + ".22..22." + Chr$(13)
4461.     m$ = m$ + "........" + Chr$(13)
4462.     m$ = m$ + "........" + Chr$(13)
4463.     arrTileText(107) = m$
4464.  
4465.     m$ = ""
4466.     m$ = m$ + "..222..." + Chr$(13)
4467.     m$ = m$ + "...22..." + Chr$(13)
4468.     m$ = m$ + "...22..." + Chr$(13)
4469.     m$ = m$ + "...22..." + Chr$(13)
4470.     m$ = m$ + "...22..." + Chr$(13)
4471.     m$ = m$ + "..2222.." + Chr$(13)
4472.     m$ = m$ + "........" + Chr$(13)
4473.     m$ = m$ + "........" + Chr$(13)
4474.     arrTileText(108) = m$
4475.  
4476.     m$ = ""
4477.     m$ = m$ + "........" + Chr$(13)
4478.     m$ = m$ + ".22..22." + Chr$(13)
4479.     m$ = m$ + ".2222222" + Chr$(13)
4480.     m$ = m$ + ".2222222" + Chr$(13)
4481.     m$ = m$ + ".22.2.22" + Chr$(13)
4482.     m$ = m$ + ".22...22" + Chr$(13)
4483.     m$ = m$ + "........" + Chr$(13)
4484.     m$ = m$ + "........" + Chr$(13)
4485.     arrTileText(109) = m$
4486.  
4487.     m$ = ""
4488.     m$ = m$ + "........" + Chr$(13)
4489.     m$ = m$ + ".22222.." + Chr$(13)
4490.     m$ = m$ + ".22..22." + Chr$(13)
4491.     m$ = m$ + ".22..22." + Chr$(13)
4492.     m$ = m$ + ".22..22." + Chr$(13)
4493.     m$ = m$ + ".22..22." + Chr$(13)
4494.     m$ = m$ + "........" + Chr$(13)
4495.     m$ = m$ + "........" + Chr$(13)
4496.     arrTileText(110) = m$
4497.  
4498.     m$ = ""
4499.     m$ = m$ + "........" + Chr$(13)
4500.     m$ = m$ + "..2222.." + Chr$(13)
4501.     m$ = m$ + ".22..22." + Chr$(13)
4502.     m$ = m$ + ".22..22." + Chr$(13)
4503.     m$ = m$ + ".22..22." + Chr$(13)
4504.     m$ = m$ + "..2222.." + Chr$(13)
4505.     m$ = m$ + "........" + Chr$(13)
4506.     m$ = m$ + "........" + Chr$(13)
4507.     arrTileText(111) = m$
4508.  
4509.     m$ = ""
4510.     m$ = m$ + "........" + Chr$(13)
4511.     m$ = m$ + ".22222.." + Chr$(13)
4512.     m$ = m$ + ".22..22." + Chr$(13)
4513.     m$ = m$ + ".22..22." + Chr$(13)
4514.     m$ = m$ + ".22222.." + Chr$(13)
4515.     m$ = m$ + ".22....." + Chr$(13)
4516.     m$ = m$ + ".22....." + Chr$(13)
4517.     m$ = m$ + "........" + Chr$(13)
4518.     arrTileText(112) = m$
4519.  
4520.     m$ = ""
4521.     m$ = m$ + "........" + Chr$(13)
4522.     m$ = m$ + "..22222." + Chr$(13)
4523.     m$ = m$ + ".22..22." + Chr$(13)
4524.     m$ = m$ + ".22..22." + Chr$(13)
4525.     m$ = m$ + "..22222." + Chr$(13)
4526.     m$ = m$ + ".....22." + Chr$(13)
4527.     m$ = m$ + ".....22." + Chr$(13)
4528.     m$ = m$ + "........" + Chr$(13)
4529.     arrTileText(113) = m$
4530.  
4531.     m$ = ""
4532.     m$ = m$ + "........" + Chr$(13)
4533.     m$ = m$ + ".22222.." + Chr$(13)
4534.     m$ = m$ + ".22..22." + Chr$(13)
4535.     m$ = m$ + ".22....." + Chr$(13)
4536.     m$ = m$ + ".22....." + Chr$(13)
4537.     m$ = m$ + ".22....." + Chr$(13)
4538.     m$ = m$ + "........" + Chr$(13)
4539.     m$ = m$ + "........" + Chr$(13)
4540.     arrTileText(114) = m$
4541.  
4542.     m$ = ""
4543.     m$ = m$ + "........" + Chr$(13)
4544.     m$ = m$ + "..22222." + Chr$(13)
4545.     m$ = m$ + ".22....." + Chr$(13)
4546.     m$ = m$ + "..2222.." + Chr$(13)
4547.     m$ = m$ + ".....22." + Chr$(13)
4548.     m$ = m$ + ".22222.." + Chr$(13)
4549.     m$ = m$ + "........" + Chr$(13)
4550.     m$ = m$ + "........" + Chr$(13)
4551.     arrTileText(115) = m$
4552.  
4553.     m$ = ""
4554.     m$ = m$ + "...22..." + Chr$(13)
4555.     m$ = m$ + ".222222." + Chr$(13)
4556.     m$ = m$ + "...22..." + Chr$(13)
4557.     m$ = m$ + "...22..." + Chr$(13)
4558.     m$ = m$ + "...22..." + Chr$(13)
4559.     m$ = m$ + "....222." + Chr$(13)
4560.     m$ = m$ + "........" + Chr$(13)
4561.     m$ = m$ + "........" + Chr$(13)
4562.     arrTileText(116) = m$
4563.  
4564.     m$ = ""
4565.     m$ = m$ + "........" + Chr$(13)
4566.     m$ = m$ + ".22..22." + Chr$(13)
4567.     m$ = m$ + ".22..22." + Chr$(13)
4568.     m$ = m$ + ".22..22." + Chr$(13)
4569.     m$ = m$ + ".22..22." + Chr$(13)
4570.     m$ = m$ + "..22222." + Chr$(13)
4571.     m$ = m$ + "........" + Chr$(13)
4572.     m$ = m$ + "........" + Chr$(13)
4573.     arrTileText(117) = m$
4574.  
4575.     m$ = ""
4576.     m$ = m$ + "........" + Chr$(13)
4577.     m$ = m$ + ".22..22." + Chr$(13)
4578.     m$ = m$ + ".22..22." + Chr$(13)
4579.     m$ = m$ + ".22..22." + Chr$(13)
4580.     m$ = m$ + "..2222.." + Chr$(13)
4581.     m$ = m$ + "...22..." + Chr$(13)
4582.     m$ = m$ + "........" + Chr$(13)
4583.     m$ = m$ + "........" + Chr$(13)
4584.     arrTileText(118) = m$
4585.  
4586.     m$ = ""
4587.     m$ = m$ + "........" + Chr$(13)
4588.     m$ = m$ + ".22...22" + Chr$(13)
4589.     m$ = m$ + ".22.2.22" + Chr$(13)
4590.     m$ = m$ + ".2222222" + Chr$(13)
4591.     m$ = m$ + "..22222." + Chr$(13)
4592.     m$ = m$ + "..22.22." + Chr$(13)
4593.     m$ = m$ + "........" + Chr$(13)
4594.     m$ = m$ + "........" + Chr$(13)
4595.     arrTileText(119) = m$
4596.  
4597.     m$ = ""
4598.     m$ = m$ + "........" + Chr$(13)
4599.     m$ = m$ + ".22..22." + Chr$(13)
4600.     m$ = m$ + "..2222.." + Chr$(13)
4601.     m$ = m$ + "...22..." + Chr$(13)
4602.     m$ = m$ + "..2222.." + Chr$(13)
4603.     m$ = m$ + ".22..22." + Chr$(13)
4604.     m$ = m$ + "........" + Chr$(13)
4605.     m$ = m$ + "........" + Chr$(13)
4606.     arrTileText(120) = m$
4607.  
4608.     m$ = ""
4609.     m$ = m$ + "........" + Chr$(13)
4610.     m$ = m$ + ".22..22." + Chr$(13)
4611.     m$ = m$ + ".22..22." + Chr$(13)
4612.     m$ = m$ + ".22..22." + Chr$(13)
4613.     m$ = m$ + "..22222." + Chr$(13)
4614.     m$ = m$ + "....22.." + Chr$(13)
4615.     m$ = m$ + ".2222..." + Chr$(13)
4616.     m$ = m$ + "........" + Chr$(13)
4617.     arrTileText(121) = m$
4618.  
4619.     m$ = ""
4620.     m$ = m$ + "........" + Chr$(13)
4621.     m$ = m$ + ".222222." + Chr$(13)
4622.     m$ = m$ + "....22.." + Chr$(13)
4623.     m$ = m$ + "...22..." + Chr$(13)
4624.     m$ = m$ + "..22...." + Chr$(13)
4625.     m$ = m$ + ".222222." + Chr$(13)
4626.     m$ = m$ + "........" + Chr$(13)
4627.     m$ = m$ + "........" + Chr$(13)
4628.     arrTileText(122) = m$
4629.  
4630.     m$ = ""
4631.     m$ = m$ + "...222.." + Chr$(13)
4632.     m$ = m$ + "..22...." + Chr$(13)
4633.     m$ = m$ + "..2....." + Chr$(13)
4634.     m$ = m$ + ".22....." + Chr$(13)
4635.     m$ = m$ + "..2....." + Chr$(13)
4636.     m$ = m$ + "..22...." + Chr$(13)
4637.     m$ = m$ + "...222.." + Chr$(13)
4638.     m$ = m$ + "........" + Chr$(13)
4639.     arrTileText(123) = m$
4640.  
4641.     m$ = ""
4642.     m$ = m$ + "....2..." + Chr$(13)
4643.     m$ = m$ + "....2..." + Chr$(13)
4644.     m$ = m$ + "....2..." + Chr$(13)
4645.     m$ = m$ + "....2..." + Chr$(13)
4646.     m$ = m$ + "....2..." + Chr$(13)
4647.     m$ = m$ + "....2..." + Chr$(13)
4648.     m$ = m$ + "....2..." + Chr$(13)
4649.     m$ = m$ + "........" + Chr$(13)
4650.     arrTileText(124) = m$
4651.  
4652.     m$ = ""
4653.     m$ = m$ + "..222..." + Chr$(13)
4654.     m$ = m$ + "....22.." + Chr$(13)
4655.     m$ = m$ + ".....2.." + Chr$(13)
4656.     m$ = m$ + ".....22." + Chr$(13)
4657.     m$ = m$ + ".....2.." + Chr$(13)
4658.     m$ = m$ + "....22.." + Chr$(13)
4659.     m$ = m$ + "..222..." + Chr$(13)
4660.     m$ = m$ + "........" + Chr$(13)
4661.     arrTileText(125) = m$
4662.  
4663.     m$ = ""
4664.     m$ = m$ + "........" + Chr$(13)
4665.     m$ = m$ + ".22....2" + Chr$(13)
4666.     m$ = m$ + "2..2..2." + Chr$(13)
4667.     m$ = m$ + "....22.." + Chr$(13)
4668.     m$ = m$ + "........" + Chr$(13)
4669.     m$ = m$ + "........" + Chr$(13)
4670.     m$ = m$ + "........" + Chr$(13)
4671.     m$ = m$ + "........" + Chr$(13)
4672.     arrTileText(126) = m$
4673.  
4674.     m$ = ""
4675.     m$ = m$ + "........" + Chr$(13)
4676.     m$ = m$ + "........" + Chr$(13)
4677.     m$ = m$ + "........" + Chr$(13)
4678.     m$ = m$ + "........" + Chr$(13)
4679.     m$ = m$ + "........" + Chr$(13)
4680.     m$ = m$ + "........" + Chr$(13)
4681.     m$ = m$ + "........" + Chr$(13)
4682.     m$ = m$ + "........" + Chr$(13)
4683.     arrTileText(127) = m$
4684.  
4685.     m$ = ""
4686.     m$ = m$ + "........" + Chr$(13)
4687.     m$ = m$ + "........" + Chr$(13)
4688.     m$ = m$ + "........" + Chr$(13)
4689.     m$ = m$ + "22222222" + Chr$(13)
4690.     m$ = m$ + "22222222" + Chr$(13)
4691.     m$ = m$ + "........" + Chr$(13)
4692.     m$ = m$ + "........" + Chr$(13)
4693.     m$ = m$ + "........" + Chr$(13)
4694.     arrTileText(128) = m$
4695.  
4696.     m$ = ""
4697.     m$ = m$ + "....2..." + Chr$(13)
4698.     m$ = m$ + "...222.." + Chr$(13)
4699.     m$ = m$ + "..22222." + Chr$(13)
4700.     m$ = m$ + ".2222222" + Chr$(13)
4701.     m$ = m$ + ".2222222" + Chr$(13)
4702.     m$ = m$ + "...222.." + Chr$(13)
4703.     m$ = m$ + "..22222." + Chr$(13)
4704.     m$ = m$ + "........" + Chr$(13)
4705.     arrTileText(129) = m$
4706.  
4707.     m$ = ""
4708.     m$ = m$ + "...22..." + Chr$(13)
4709.     m$ = m$ + "...22..." + Chr$(13)
4710.     m$ = m$ + "...22..." + Chr$(13)
4711.     m$ = m$ + "...22..." + Chr$(13)
4712.     m$ = m$ + "...22..." + Chr$(13)
4713.     m$ = m$ + "...22..." + Chr$(13)
4714.     m$ = m$ + "...22..." + Chr$(13)
4715.     m$ = m$ + "...22..." + Chr$(13)
4716.     arrTileText(130) = m$
4717.  
4718.     m$ = ""
4719.     m$ = m$ + "........" + Chr$(13)
4720.     m$ = m$ + "........" + Chr$(13)
4721.     m$ = m$ + "........" + Chr$(13)
4722.     m$ = m$ + "22222222" + Chr$(13)
4723.     m$ = m$ + "22222222" + Chr$(13)
4724.     m$ = m$ + "........" + Chr$(13)
4725.     m$ = m$ + "........" + Chr$(13)
4726.     m$ = m$ + "........" + Chr$(13)
4727.     arrTileText(131) = m$
4728.  
4729.     m$ = ""
4730.     m$ = m$ + "........" + Chr$(13)
4731.     m$ = m$ + "........" + Chr$(13)
4732.     m$ = m$ + "22222222" + Chr$(13)
4733.     m$ = m$ + "22222222" + Chr$(13)
4734.     m$ = m$ + "........" + Chr$(13)
4735.     m$ = m$ + "........" + Chr$(13)
4736.     m$ = m$ + "........" + Chr$(13)
4737.     m$ = m$ + "........" + Chr$(13)
4738.     arrTileText(132) = m$
4739.  
4740.     m$ = ""
4741.     m$ = m$ + "........" + Chr$(13)
4742.     m$ = m$ + "22222222" + Chr$(13)
4743.     m$ = m$ + "22222222" + Chr$(13)
4744.     m$ = m$ + "........" + Chr$(13)
4745.     m$ = m$ + "........" + Chr$(13)
4746.     m$ = m$ + "........" + Chr$(13)
4747.     m$ = m$ + "........" + Chr$(13)
4748.     m$ = m$ + "........" + Chr$(13)
4749.     arrTileText(133) = m$
4750.  
4751.     m$ = ""
4752.     m$ = m$ + "........" + Chr$(13)
4753.     m$ = m$ + "........" + Chr$(13)
4754.     m$ = m$ + "........" + Chr$(13)
4755.     m$ = m$ + "........" + Chr$(13)
4756.     m$ = m$ + "22222222" + Chr$(13)
4757.     m$ = m$ + "22222222" + Chr$(13)
4758.     m$ = m$ + "........" + Chr$(13)
4759.     m$ = m$ + "........" + Chr$(13)
4760.     arrTileText(134) = m$
4761.  
4762.     m$ = ""
4763.     m$ = m$ + "..22...." + Chr$(13)
4764.     m$ = m$ + "..22...." + Chr$(13)
4765.     m$ = m$ + "..22...." + Chr$(13)
4766.     m$ = m$ + "..22...." + Chr$(13)
4767.     m$ = m$ + "..22...." + Chr$(13)
4768.     m$ = m$ + "..22...." + Chr$(13)
4769.     m$ = m$ + "..22...." + Chr$(13)
4770.     m$ = m$ + "..22...." + Chr$(13)
4771.     arrTileText(135) = m$
4772.  
4773.     m$ = ""
4774.     m$ = m$ + "....22.." + Chr$(13)
4775.     m$ = m$ + "....22.." + Chr$(13)
4776.     m$ = m$ + "....22.." + Chr$(13)
4777.     m$ = m$ + "....22.." + Chr$(13)
4778.     m$ = m$ + "....22.." + Chr$(13)
4779.     m$ = m$ + "....22.." + Chr$(13)
4780.     m$ = m$ + "....22.." + Chr$(13)
4781.     m$ = m$ + "....22.." + Chr$(13)
4782.     arrTileText(136) = m$
4783.  
4784.     m$ = ""
4785.     m$ = m$ + "........" + Chr$(13)
4786.     m$ = m$ + "........" + Chr$(13)
4787.     m$ = m$ + "........" + Chr$(13)
4788.     m$ = m$ + "222....." + Chr$(13)
4789.     m$ = m$ + "2222...." + Chr$(13)
4790.     m$ = m$ + "..222..." + Chr$(13)
4791.     m$ = m$ + "...22..." + Chr$(13)
4792.     m$ = m$ + "...22..." + Chr$(13)
4793.     arrTileText(137) = m$
4794.  
4795.     m$ = ""
4796.     m$ = m$ + "...22..." + Chr$(13)
4797.     m$ = m$ + "...22..." + Chr$(13)
4798.     m$ = m$ + "...222.." + Chr$(13)
4799.     m$ = m$ + "....2222" + Chr$(13)
4800.     m$ = m$ + ".....222" + Chr$(13)
4801.     m$ = m$ + "........" + Chr$(13)
4802.     m$ = m$ + "........" + Chr$(13)
4803.     m$ = m$ + "........" + Chr$(13)
4804.     arrTileText(138) = m$
4805.  
4806.     m$ = ""
4807.     m$ = m$ + "...22..." + Chr$(13)
4808.     m$ = m$ + "...22..." + Chr$(13)
4809.     m$ = m$ + "..222..." + Chr$(13)
4810.     m$ = m$ + "2222...." + Chr$(13)
4811.     m$ = m$ + "222....." + Chr$(13)
4812.     m$ = m$ + "........" + Chr$(13)
4813.     m$ = m$ + "........" + Chr$(13)
4814.     m$ = m$ + "........" + Chr$(13)
4815.     arrTileText(139) = m$
4816.  
4817.     m$ = ""
4818.     m$ = m$ + "22......" + Chr$(13)
4819.     m$ = m$ + "22......" + Chr$(13)
4820.     m$ = m$ + "22......" + Chr$(13)
4821.     m$ = m$ + "22......" + Chr$(13)
4822.     m$ = m$ + "22......" + Chr$(13)
4823.     m$ = m$ + "22......" + Chr$(13)
4824.     m$ = m$ + "22222222" + Chr$(13)
4825.     m$ = m$ + "22222222" + Chr$(13)
4826.     arrTileText(140) = m$
4827.  
4828.     m$ = ""
4829.     m$ = m$ + "22......" + Chr$(13)
4830.     m$ = m$ + "222....." + Chr$(13)
4831.     m$ = m$ + ".222...." + Chr$(13)
4832.     m$ = m$ + "..222..." + Chr$(13)
4833.     m$ = m$ + "...222.." + Chr$(13)
4834.     m$ = m$ + "....222." + Chr$(13)
4835.     m$ = m$ + ".....222" + Chr$(13)
4836.     m$ = m$ + "......22" + Chr$(13)
4837.     arrTileText(141) = m$
4838.  
4839.     m$ = ""
4840.     m$ = m$ + "......22" + Chr$(13)
4841.     m$ = m$ + ".....222" + Chr$(13)
4842.     m$ = m$ + "....222." + Chr$(13)
4843.     m$ = m$ + "...222.." + Chr$(13)
4844.     m$ = m$ + "..222..." + Chr$(13)
4845.     m$ = m$ + ".222...." + Chr$(13)
4846.     m$ = m$ + "222....." + Chr$(13)
4847.     m$ = m$ + "22......" + Chr$(13)
4848.     arrTileText(142) = m$
4849.  
4850.     m$ = ""
4851.     m$ = m$ + "22222222" + Chr$(13)
4852.     m$ = m$ + "22222222" + Chr$(13)
4853.     m$ = m$ + "22......" + Chr$(13)
4854.     m$ = m$ + "22......" + Chr$(13)
4855.     m$ = m$ + "22......" + Chr$(13)
4856.     m$ = m$ + "22......" + Chr$(13)
4857.     m$ = m$ + "22......" + Chr$(13)
4858.     m$ = m$ + "22......" + Chr$(13)
4859.     arrTileText(143) = m$
4860.  
4861.     m$ = ""
4862.     m$ = m$ + "22222222" + Chr$(13)
4863.     m$ = m$ + "22222222" + Chr$(13)
4864.     m$ = m$ + "......22" + Chr$(13)
4865.     m$ = m$ + "......22" + Chr$(13)
4866.     m$ = m$ + "......22" + Chr$(13)
4867.     m$ = m$ + "......22" + Chr$(13)
4868.     m$ = m$ + "......22" + Chr$(13)
4869.     m$ = m$ + "......22" + Chr$(13)
4870.     arrTileText(144) = m$
4871.  
4872.     m$ = ""
4873.     m$ = m$ + "........" + Chr$(13)
4874.     m$ = m$ + "..2222.." + Chr$(13)
4875.     m$ = m$ + ".222222." + Chr$(13)
4876.     m$ = m$ + ".222222." + Chr$(13)
4877.     m$ = m$ + ".222222." + Chr$(13)
4878.     m$ = m$ + ".222222." + Chr$(13)
4879.     m$ = m$ + "..2222.." + Chr$(13)
4880.     m$ = m$ + "........" + Chr$(13)
4881.     arrTileText(145) = m$
4882.  
4883.     m$ = ""
4884.     m$ = m$ + "........" + Chr$(13)
4885.     m$ = m$ + "........" + Chr$(13)
4886.     m$ = m$ + "........" + Chr$(13)
4887.     m$ = m$ + "........" + Chr$(13)
4888.     m$ = m$ + "........" + Chr$(13)
4889.     m$ = m$ + "22222222" + Chr$(13)
4890.     m$ = m$ + "22222222" + Chr$(13)
4891.     m$ = m$ + "........" + Chr$(13)
4892.     arrTileText(146) = m$
4893.  
4894.     m$ = ""
4895.     m$ = m$ + "..22.22." + Chr$(13)
4896.     m$ = m$ + ".2222222" + Chr$(13)
4897.     m$ = m$ + ".2222222" + Chr$(13)
4898.     m$ = m$ + ".2222222" + Chr$(13)
4899.     m$ = m$ + "..22222." + Chr$(13)
4900.     m$ = m$ + "...222.." + Chr$(13)
4901.     m$ = m$ + "....2..." + Chr$(13)
4902.     m$ = m$ + "........" + Chr$(13)
4903.     arrTileText(147) = m$
4904.  
4905.     m$ = ""
4906.     m$ = m$ + ".22....." + Chr$(13)
4907.     m$ = m$ + ".22....." + Chr$(13)
4908.     m$ = m$ + ".22....." + Chr$(13)
4909.     m$ = m$ + ".22....." + Chr$(13)
4910.     m$ = m$ + ".22....." + Chr$(13)
4911.     m$ = m$ + ".22....." + Chr$(13)
4912.     m$ = m$ + ".22....." + Chr$(13)
4913.     m$ = m$ + ".22....." + Chr$(13)
4914.     arrTileText(148) = m$
4915.  
4916.     m$ = ""
4917.     m$ = m$ + "........" + Chr$(13)
4918.     m$ = m$ + "........" + Chr$(13)
4919.     m$ = m$ + "........" + Chr$(13)
4920.     m$ = m$ + ".....222" + Chr$(13)
4921.     m$ = m$ + "....2222" + Chr$(13)
4922.     m$ = m$ + "...222.." + Chr$(13)
4923.     m$ = m$ + "...22..." + Chr$(13)
4924.     m$ = m$ + "...22..." + Chr$(13)
4925.     arrTileText(149) = m$
4926.  
4927.     m$ = ""
4928.     m$ = m$ + "22....22" + Chr$(13)
4929.     m$ = m$ + "222..222" + Chr$(13)
4930.     m$ = m$ + ".222222." + Chr$(13)
4931.     m$ = m$ + "..2222.." + Chr$(13)
4932.     m$ = m$ + "..2222.." + Chr$(13)
4933.     m$ = m$ + ".222222." + Chr$(13)
4934.     m$ = m$ + "222..222" + Chr$(13)
4935.     m$ = m$ + "22....22" + Chr$(13)
4936.     arrTileText(150) = m$
4937.  
4938.     m$ = ""
4939.     m$ = m$ + "........" + Chr$(13)
4940.     m$ = m$ + "..2222.." + Chr$(13)
4941.     m$ = m$ + ".222222." + Chr$(13)
4942.     m$ = m$ + ".22..22." + Chr$(13)
4943.     m$ = m$ + ".22..22." + Chr$(13)
4944.     m$ = m$ + ".222222." + Chr$(13)
4945.     m$ = m$ + "..2222.." + Chr$(13)
4946.     m$ = m$ + "........" + Chr$(13)
4947.     arrTileText(151) = m$
4948.  
4949.     m$ = ""
4950.     m$ = m$ + "...22..." + Chr$(13)
4951.     m$ = m$ + "...22..." + Chr$(13)
4952.     m$ = m$ + ".22..22." + Chr$(13)
4953.     m$ = m$ + ".22..22." + Chr$(13)
4954.     m$ = m$ + "...22..." + Chr$(13)
4955.     m$ = m$ + "...22..." + Chr$(13)
4956.     m$ = m$ + "..2222.." + Chr$(13)
4957.     m$ = m$ + "........" + Chr$(13)
4958.     arrTileText(152) = m$
4959.  
4960.     m$ = ""
4961.     m$ = m$ + ".....22." + Chr$(13)
4962.     m$ = m$ + ".....22." + Chr$(13)
4963.     m$ = m$ + ".....22." + Chr$(13)
4964.     m$ = m$ + ".....22." + Chr$(13)
4965.     m$ = m$ + ".....22." + Chr$(13)
4966.     m$ = m$ + ".....22." + Chr$(13)
4967.     m$ = m$ + ".....22." + Chr$(13)
4968.     m$ = m$ + ".....22." + Chr$(13)
4969.     arrTileText(153) = m$
4970.  
4971.     m$ = ""
4972.     m$ = m$ + "....2..." + Chr$(13)
4973.     m$ = m$ + "...222.." + Chr$(13)
4974.     m$ = m$ + "..22222." + Chr$(13)
4975.     m$ = m$ + ".2222222" + Chr$(13)
4976.     m$ = m$ + "..22222." + Chr$(13)
4977.     m$ = m$ + "...222.." + Chr$(13)
4978.     m$ = m$ + "....2..." + Chr$(13)
4979.     m$ = m$ + "........" + Chr$(13)
4980.     arrTileText(154) = m$
4981.  
4982.     m$ = ""
4983.     m$ = m$ + "...22..." + Chr$(13)
4984.     m$ = m$ + "...22..." + Chr$(13)
4985.     m$ = m$ + "...22..." + Chr$(13)
4986.     m$ = m$ + "22222222" + Chr$(13)
4987.     m$ = m$ + "22222222" + Chr$(13)
4988.     m$ = m$ + "...22..." + Chr$(13)
4989.     m$ = m$ + "...22..." + Chr$(13)
4990.     m$ = m$ + "...22..." + Chr$(13)
4991.     arrTileText(155) = m$
4992.  
4993.     m$ = ""
4994.     m$ = m$ + "22......" + Chr$(13)
4995.     m$ = m$ + "22......" + Chr$(13)
4996.     m$ = m$ + "..22...." + Chr$(13)
4997.     m$ = m$ + "..22...." + Chr$(13)
4998.     m$ = m$ + "22......" + Chr$(13)
4999.     m$ = m$ + "22......" + Chr$(13)
5000.     m$ = m$ + "..22...." + Chr$(13)
5001.     m$ = m$ + "..22...." + Chr$(13)
5002.     arrTileText(156) = m$
5003.  
5004.     m$ = ""
5005.     m$ = m$ + "...22..." + Chr$(13)
5006.     m$ = m$ + "...22..." + Chr$(13)
5007.     m$ = m$ + "...22..." + Chr$(13)
5008.     m$ = m$ + "...22..." + Chr$(13)
5009.     m$ = m$ + "...22..." + Chr$(13)
5010.     m$ = m$ + "...22..." + Chr$(13)
5011.     m$ = m$ + "...22..." + Chr$(13)
5012.     m$ = m$ + "...22..." + Chr$(13)
5013.     arrTileText(157) = m$
5014.  
5015.     m$ = ""
5016.     m$ = m$ + "........" + Chr$(13)
5017.     m$ = m$ + "........" + Chr$(13)
5018.     m$ = m$ + "......22" + Chr$(13)
5019.     m$ = m$ + "..22222." + Chr$(13)
5020.     m$ = m$ + ".222.22." + Chr$(13)
5021.     m$ = m$ + "..22.22." + Chr$(13)
5022.     m$ = m$ + "..22.22." + Chr$(13)
5023.     m$ = m$ + "........" + Chr$(13)
5024.     arrTileText(158) = m$
5025.  
5026.     m$ = ""
5027.     m$ = m$ + "22222222" + Chr$(13)
5028.     m$ = m$ + ".2222222" + Chr$(13)
5029.     m$ = m$ + "..222222" + Chr$(13)
5030.     m$ = m$ + "...22222" + Chr$(13)
5031.     m$ = m$ + "....2222" + Chr$(13)
5032.     m$ = m$ + ".....222" + Chr$(13)
5033.     m$ = m$ + "......22" + Chr$(13)
5034.     m$ = m$ + ".......2" + Chr$(13)
5035.     arrTileText(159) = m$
5036.  
5037.     m$ = ""
5038.     m$ = m$ + "........" + Chr$(13)
5039.     m$ = m$ + "........" + Chr$(13)
5040.     m$ = m$ + "........" + Chr$(13)
5041.     m$ = m$ + "........" + Chr$(13)
5042.     m$ = m$ + "........" + Chr$(13)
5043.     m$ = m$ + "........" + Chr$(13)
5044.     m$ = m$ + "........" + Chr$(13)
5045.     m$ = m$ + "........" + Chr$(13)
5046.     arrTileText(160) = m$
5047.  
5048.     m$ = ""
5049.     m$ = m$ + "2222...." + Chr$(13)
5050.     m$ = m$ + "2222...." + Chr$(13)
5051.     m$ = m$ + "2222...." + Chr$(13)
5052.     m$ = m$ + "2222...." + Chr$(13)
5053.     m$ = m$ + "2222...." + Chr$(13)
5054.     m$ = m$ + "2222...." + Chr$(13)
5055.     m$ = m$ + "2222...." + Chr$(13)
5056.     m$ = m$ + "2222...." + Chr$(13)
5057.     arrTileText(161) = m$
5058.  
5059.     m$ = ""
5060.     m$ = m$ + "........" + Chr$(13)
5061.     m$ = m$ + "........" + Chr$(13)
5062.     m$ = m$ + "........" + Chr$(13)
5063.     m$ = m$ + "........" + Chr$(13)
5064.     m$ = m$ + "22222222" + Chr$(13)
5065.     m$ = m$ + "22222222" + Chr$(13)
5066.     m$ = m$ + "22222222" + Chr$(13)
5067.     m$ = m$ + "22222222" + Chr$(13)
5068.     arrTileText(162) = m$
5069.  
5070.     m$ = ""
5071.     m$ = m$ + "22222222" + Chr$(13)
5072.     m$ = m$ + "........" + Chr$(13)
5073.     m$ = m$ + "........" + Chr$(13)
5074.     m$ = m$ + "........" + Chr$(13)
5075.     m$ = m$ + "........" + Chr$(13)
5076.     m$ = m$ + "........" + Chr$(13)
5077.     m$ = m$ + "........" + Chr$(13)
5078.     m$ = m$ + "........" + Chr$(13)
5079.     arrTileText(163) = m$
5080.  
5081.     m$ = ""
5082.     m$ = m$ + "........" + Chr$(13)
5083.     m$ = m$ + "........" + Chr$(13)
5084.     m$ = m$ + "........" + Chr$(13)
5085.     m$ = m$ + "........" + Chr$(13)
5086.     m$ = m$ + "........" + Chr$(13)
5087.     m$ = m$ + "........" + Chr$(13)
5088.     m$ = m$ + "........" + Chr$(13)
5089.     m$ = m$ + "22222222" + Chr$(13)
5090.     arrTileText(164) = m$
5091.  
5092.     m$ = ""
5093.     m$ = m$ + "22......" + Chr$(13)
5094.     m$ = m$ + "22......" + Chr$(13)
5095.     m$ = m$ + "22......" + Chr$(13)
5096.     m$ = m$ + "22......" + Chr$(13)
5097.     m$ = m$ + "22......" + Chr$(13)
5098.     m$ = m$ + "22......" + Chr$(13)
5099.     m$ = m$ + "22......" + Chr$(13)
5100.     m$ = m$ + "22......" + Chr$(13)
5101.     arrTileText(165) = m$
5102.  
5103.     m$ = ""
5104.     m$ = m$ + "22..22.." + Chr$(13)
5105.     m$ = m$ + "22..22.." + Chr$(13)
5106.     m$ = m$ + "..22..22" + Chr$(13)
5107.     m$ = m$ + "..22..22" + Chr$(13)
5108.     m$ = m$ + "22..22.." + Chr$(13)
5109.     m$ = m$ + "22..22.." + Chr$(13)
5110.     m$ = m$ + "..22..22" + Chr$(13)
5111.     m$ = m$ + "..22..22" + Chr$(13)
5112.     arrTileText(166) = m$
5113.  
5114.     m$ = ""
5115.     m$ = m$ + "......22" + Chr$(13)
5116.     m$ = m$ + "......22" + Chr$(13)
5117.     m$ = m$ + "......22" + Chr$(13)
5118.     m$ = m$ + "......22" + Chr$(13)
5119.     m$ = m$ + "......22" + Chr$(13)
5120.     m$ = m$ + "......22" + Chr$(13)
5121.     m$ = m$ + "......22" + Chr$(13)
5122.     m$ = m$ + "......22" + Chr$(13)
5123.     arrTileText(167) = m$
5124.  
5125.     m$ = ""
5126.     m$ = m$ + "........" + Chr$(13)
5127.     m$ = m$ + "........" + Chr$(13)
5128.     m$ = m$ + "........" + Chr$(13)
5129.     m$ = m$ + "........" + Chr$(13)
5130.     m$ = m$ + "22..22.." + Chr$(13)
5131.     m$ = m$ + "22..22.." + Chr$(13)
5132.     m$ = m$ + "..22..22" + Chr$(13)
5133.     m$ = m$ + "..22..22" + Chr$(13)
5134.     arrTileText(168) = m$
5135.  
5136.     m$ = ""
5137.     m$ = m$ + "22222222" + Chr$(13)
5138.     m$ = m$ + "2222222." + Chr$(13)
5139.     m$ = m$ + "222222.." + Chr$(13)
5140.     m$ = m$ + "22222..." + Chr$(13)
5141.     m$ = m$ + "2222...." + Chr$(13)
5142.     m$ = m$ + "222....." + Chr$(13)
5143.     m$ = m$ + "22......" + Chr$(13)
5144.     m$ = m$ + "2......." + Chr$(13)
5145.     arrTileText(169) = m$
5146.  
5147.     m$ = ""
5148.     m$ = m$ + "......22" + Chr$(13)
5149.     m$ = m$ + "......22" + Chr$(13)
5150.     m$ = m$ + "......22" + Chr$(13)
5151.     m$ = m$ + "......22" + Chr$(13)
5152.     m$ = m$ + "......22" + Chr$(13)
5153.     m$ = m$ + "......22" + Chr$(13)
5154.     m$ = m$ + "......22" + Chr$(13)
5155.     m$ = m$ + "......22" + Chr$(13)
5156.     arrTileText(170) = m$
5157.  
5158.     m$ = ""
5159.     m$ = m$ + "...22..." + Chr$(13)
5160.     m$ = m$ + "...22..." + Chr$(13)
5161.     m$ = m$ + "...22..." + Chr$(13)
5162.     m$ = m$ + "...22222" + Chr$(13)
5163.     m$ = m$ + "...22222" + Chr$(13)
5164.     m$ = m$ + "...22..." + Chr$(13)
5165.     m$ = m$ + "...22..." + Chr$(13)
5166.     m$ = m$ + "...22..." + Chr$(13)
5167.     arrTileText(171) = m$
5168.  
5169.     m$ = ""
5170.     m$ = m$ + "........" + Chr$(13)
5171.     m$ = m$ + "........" + Chr$(13)
5172.     m$ = m$ + "........" + Chr$(13)
5173.     m$ = m$ + "........" + Chr$(13)
5174.     m$ = m$ + "....2222" + Chr$(13)
5175.     m$ = m$ + "....2222" + Chr$(13)
5176.     m$ = m$ + "....2222" + Chr$(13)
5177.     m$ = m$ + "....2222" + Chr$(13)
5178.     arrTileText(172) = m$
5179.  
5180.     m$ = ""
5181.     m$ = m$ + "...22..." + Chr$(13)
5182.     m$ = m$ + "...22..." + Chr$(13)
5183.     m$ = m$ + "...22..." + Chr$(13)
5184.     m$ = m$ + "...22222" + Chr$(13)
5185.     m$ = m$ + "...22222" + Chr$(13)
5186.     m$ = m$ + "........" + Chr$(13)
5187.     m$ = m$ + "........" + Chr$(13)
5188.     m$ = m$ + "........" + Chr$(13)
5189.     arrTileText(173) = m$
5190.  
5191.     m$ = ""
5192.     m$ = m$ + "........" + Chr$(13)
5193.     m$ = m$ + "........" + Chr$(13)
5194.     m$ = m$ + "........" + Chr$(13)
5195.     m$ = m$ + "22222..." + Chr$(13)
5196.     m$ = m$ + "22222..." + Chr$(13)
5197.     m$ = m$ + "...22..." + Chr$(13)
5198.     m$ = m$ + "...22..." + Chr$(13)
5199.     m$ = m$ + "...22..." + Chr$(13)
5200.     arrTileText(174) = m$
5201.  
5202.     m$ = ""
5203.     m$ = m$ + "........" + Chr$(13)
5204.     m$ = m$ + "........" + Chr$(13)
5205.     m$ = m$ + "........" + Chr$(13)
5206.     m$ = m$ + "........" + Chr$(13)
5207.     m$ = m$ + "........" + Chr$(13)
5208.     m$ = m$ + "........" + Chr$(13)
5209.     m$ = m$ + "22222222" + Chr$(13)
5210.     m$ = m$ + "22222222" + Chr$(13)
5211.     arrTileText(175) = m$
5212.  
5213.     m$ = ""
5214.     m$ = m$ + "........" + Chr$(13)
5215.     m$ = m$ + "........" + Chr$(13)
5216.     m$ = m$ + "........" + Chr$(13)
5217.     m$ = m$ + "...22222" + Chr$(13)
5218.     m$ = m$ + "...22222" + Chr$(13)
5219.     m$ = m$ + "...22..." + Chr$(13)
5220.     m$ = m$ + "...22..." + Chr$(13)
5221.     m$ = m$ + "...22..." + Chr$(13)
5222.     arrTileText(176) = m$
5223.  
5224.     m$ = ""
5225.     m$ = m$ + "...22..." + Chr$(13)
5226.     m$ = m$ + "...22..." + Chr$(13)
5227.     m$ = m$ + "...22..." + Chr$(13)
5228.     m$ = m$ + "22222222" + Chr$(13)
5229.     m$ = m$ + "22222222" + Chr$(13)
5230.     m$ = m$ + "........" + Chr$(13)
5231.     m$ = m$ + "........" + Chr$(13)
5232.     m$ = m$ + "........" + Chr$(13)
5233.     arrTileText(177) = m$
5234.  
5235.     m$ = ""
5236.     m$ = m$ + "........" + Chr$(13)
5237.     m$ = m$ + "........" + Chr$(13)
5238.     m$ = m$ + "........" + Chr$(13)
5239.     m$ = m$ + "22222222" + Chr$(13)
5240.     m$ = m$ + "22222222" + Chr$(13)
5241.     m$ = m$ + "...22..." + Chr$(13)
5242.     m$ = m$ + "...22..." + Chr$(13)
5243.     m$ = m$ + "...22..." + Chr$(13)
5244.     arrTileText(178) = m$
5245.  
5246.     m$ = ""
5247.     m$ = m$ + "...22..." + Chr$(13)
5248.     m$ = m$ + "...22..." + Chr$(13)
5249.     m$ = m$ + "...22..." + Chr$(13)
5250.     m$ = m$ + "22222..." + Chr$(13)
5251.     m$ = m$ + "22222..." + Chr$(13)
5252.     m$ = m$ + "...22..." + Chr$(13)
5253.     m$ = m$ + "...22..." + Chr$(13)
5254.     m$ = m$ + "...22..." + Chr$(13)
5255.     arrTileText(179) = m$
5256.  
5257.     m$ = ""
5258.     m$ = m$ + "22......" + Chr$(13)
5259.     m$ = m$ + "22......" + Chr$(13)
5260.     m$ = m$ + "22......" + Chr$(13)
5261.     m$ = m$ + "22......" + Chr$(13)
5262.     m$ = m$ + "22......" + Chr$(13)
5263.     m$ = m$ + "22......" + Chr$(13)
5264.     m$ = m$ + "22......" + Chr$(13)
5265.     m$ = m$ + "22......" + Chr$(13)
5266.     arrTileText(180) = m$
5267.  
5268.     m$ = ""
5269.     m$ = m$ + "222....." + Chr$(13)
5270.     m$ = m$ + "222....." + Chr$(13)
5271.     m$ = m$ + "222....." + Chr$(13)
5272.     m$ = m$ + "222....." + Chr$(13)
5273.     m$ = m$ + "222....." + Chr$(13)
5274.     m$ = m$ + "222....." + Chr$(13)
5275.     m$ = m$ + "222....." + Chr$(13)
5276.     m$ = m$ + "222....." + Chr$(13)
5277.     arrTileText(181) = m$
5278.  
5279.     m$ = ""
5280.     m$ = m$ + ".....222" + Chr$(13)
5281.     m$ = m$ + ".....222" + Chr$(13)
5282.     m$ = m$ + ".....222" + Chr$(13)
5283.     m$ = m$ + ".....222" + Chr$(13)
5284.     m$ = m$ + ".....222" + Chr$(13)
5285.     m$ = m$ + ".....222" + Chr$(13)
5286.     m$ = m$ + ".....222" + Chr$(13)
5287.     m$ = m$ + ".....222" + Chr$(13)
5288.     arrTileText(182) = m$
5289.  
5290.     m$ = ""
5291.     m$ = m$ + "22222222" + Chr$(13)
5292.     m$ = m$ + "22222222" + Chr$(13)
5293.     m$ = m$ + "........" + Chr$(13)
5294.     m$ = m$ + "........" + Chr$(13)
5295.     m$ = m$ + "........" + Chr$(13)
5296.     m$ = m$ + "........" + Chr$(13)
5297.     m$ = m$ + "........" + Chr$(13)
5298.     m$ = m$ + "........" + Chr$(13)
5299.     arrTileText(183) = m$
5300.  
5301.     m$ = ""
5302.     m$ = m$ + "22222222" + Chr$(13)
5303.     m$ = m$ + "22222222" + Chr$(13)
5304.     m$ = m$ + "22222222" + Chr$(13)
5305.     m$ = m$ + "........" + Chr$(13)
5306.     m$ = m$ + "........" + Chr$(13)
5307.     m$ = m$ + "........" + Chr$(13)
5308.     m$ = m$ + "........" + Chr$(13)
5309.     m$ = m$ + "........" + Chr$(13)
5310.     arrTileText(184) = m$
5311.  
5312.     m$ = ""
5313.     m$ = m$ + "........" + Chr$(13)
5314.     m$ = m$ + "........" + Chr$(13)
5315.     m$ = m$ + "........" + Chr$(13)
5316.     m$ = m$ + "........" + Chr$(13)
5317.     m$ = m$ + "........" + Chr$(13)
5318.     m$ = m$ + "22222222" + Chr$(13)
5319.     m$ = m$ + "22222222" + Chr$(13)
5320.     m$ = m$ + "22222222" + Chr$(13)
5321.     arrTileText(185) = m$
5322.  
5323.     m$ = ""
5324.     m$ = m$ + "......22" + Chr$(13)
5325.     m$ = m$ + "......22" + Chr$(13)
5326.     m$ = m$ + "......22" + Chr$(13)
5327.     m$ = m$ + "......22" + Chr$(13)
5328.     m$ = m$ + "......22" + Chr$(13)
5329.     m$ = m$ + "......22" + Chr$(13)
5330.     m$ = m$ + "22222222" + Chr$(13)
5331.     m$ = m$ + "22222222" + Chr$(13)
5332.     arrTileText(186) = m$
5333.  
5334.     m$ = ""
5335.     m$ = m$ + "........" + Chr$(13)
5336.     m$ = m$ + "........" + Chr$(13)
5337.     m$ = m$ + "........" + Chr$(13)
5338.     m$ = m$ + "........" + Chr$(13)
5339.     m$ = m$ + "2222...." + Chr$(13)
5340.     m$ = m$ + "2222...." + Chr$(13)
5341.     m$ = m$ + "2222...." + Chr$(13)
5342.     m$ = m$ + "2222...." + Chr$(13)
5343.     arrTileText(187) = m$
5344.  
5345.     m$ = ""
5346.     m$ = m$ + "....2222" + Chr$(13)
5347.     m$ = m$ + "....2222" + Chr$(13)
5348.     m$ = m$ + "....2222" + Chr$(13)
5349.     m$ = m$ + "....2222" + Chr$(13)
5350.     m$ = m$ + "........" + Chr$(13)
5351.     m$ = m$ + "........" + Chr$(13)
5352.     m$ = m$ + "........" + Chr$(13)
5353.     m$ = m$ + "........" + Chr$(13)
5354.     arrTileText(188) = m$
5355.  
5356.     m$ = ""
5357.     m$ = m$ + "...22..." + Chr$(13)
5358.     m$ = m$ + "...22..." + Chr$(13)
5359.     m$ = m$ + "...22..." + Chr$(13)
5360.     m$ = m$ + "22222..." + Chr$(13)
5361.     m$ = m$ + "22222..." + Chr$(13)
5362.     m$ = m$ + "........" + Chr$(13)
5363.     m$ = m$ + "........" + Chr$(13)
5364.     m$ = m$ + "........" + Chr$(13)
5365.     arrTileText(189) = m$
5366.  
5367.     m$ = ""
5368.     m$ = m$ + "2222...." + Chr$(13)
5369.     m$ = m$ + "2222...." + Chr$(13)
5370.     m$ = m$ + "2222...." + Chr$(13)
5371.     m$ = m$ + "2222...." + Chr$(13)
5372.     m$ = m$ + "........" + Chr$(13)
5373.     m$ = m$ + "........" + Chr$(13)
5374.     m$ = m$ + "........" + Chr$(13)
5375.     m$ = m$ + "........" + Chr$(13)
5376.     arrTileText(190) = m$
5377.  
5378.     m$ = ""
5379.     m$ = m$ + "2222...." + Chr$(13)
5380.     m$ = m$ + "2222...." + Chr$(13)
5381.     m$ = m$ + "2222...." + Chr$(13)
5382.     m$ = m$ + "2222...." + Chr$(13)
5383.     m$ = m$ + "....2222" + Chr$(13)
5384.     m$ = m$ + "....2222" + Chr$(13)
5385.     m$ = m$ + "....2222" + Chr$(13)
5386.     m$ = m$ + "....2222" + Chr$(13)
5387.     arrTileText(191) = m$
5388.  
5389.     m$ = ""
5390.     m$ = m$ + "........" + Chr$(13)
5391.     m$ = m$ + ".2222222" + Chr$(13)
5392.     m$ = m$ + ".2.....2" + Chr$(13)
5393.     m$ = m$ + ".2.....2" + Chr$(13)
5394.     m$ = m$ + ".2.....2" + Chr$(13)
5395.     m$ = m$ + ".2.....2" + Chr$(13)
5396.     m$ = m$ + ".2.....2" + Chr$(13)
5397.     m$ = m$ + ".2222222" + Chr$(13)
5398.     arrTileText(192) = m$
5399.  
5400.     m$ = ""
5401.     m$ = m$ + "........" + Chr$(13)
5402.     m$ = m$ + ".2222222" + Chr$(13)
5403.     m$ = m$ + ".2222222" + Chr$(13)
5404.     m$ = m$ + ".2222222" + Chr$(13)
5405.     m$ = m$ + ".2222222" + Chr$(13)
5406.     m$ = m$ + ".2222222" + Chr$(13)
5407.     m$ = m$ + ".2222222" + Chr$(13)
5408.     m$ = m$ + ".2222222" + Chr$(13)
5409.     arrTileText(193) = m$
5410.  
5411.     m$ = ""
5412.     m$ = m$ + "........" + Chr$(13)
5413.     m$ = m$ + "...22..." + Chr$(13)
5414.     m$ = m$ + "..2222.." + Chr$(13)
5415.     m$ = m$ + ".222222." + Chr$(13)
5416.     m$ = m$ + "...22..." + Chr$(13)
5417.     m$ = m$ + "...22..." + Chr$(13)
5418.     m$ = m$ + "...22..." + Chr$(13)
5419.     m$ = m$ + "...22..." + Chr$(13)
5420.     arrTileText(194) = m$
5421.  
5422.     m$ = ""
5423.     m$ = m$ + "........" + Chr$(13)
5424.     m$ = m$ + "...22..." + Chr$(13)
5425.     m$ = m$ + "...22..." + Chr$(13)
5426.     m$ = m$ + "...22..." + Chr$(13)
5427.     m$ = m$ + "...22..." + Chr$(13)
5428.     m$ = m$ + ".222222." + Chr$(13)
5429.     m$ = m$ + "..2222.." + Chr$(13)
5430.     m$ = m$ + "...22..." + Chr$(13)
5431.     arrTileText(195) = m$
5432.  
5433.     m$ = ""
5434.     m$ = m$ + "........" + Chr$(13)
5435.     m$ = m$ + "...2...." + Chr$(13)
5436.     m$ = m$ + "..22...." + Chr$(13)
5437.     m$ = m$ + ".2222222" + Chr$(13)
5438.     m$ = m$ + ".2222222" + Chr$(13)
5439.     m$ = m$ + "..22...." + Chr$(13)
5440.     m$ = m$ + "...2...." + Chr$(13)
5441.     m$ = m$ + "........" + Chr$(13)
5442.     arrTileText(196) = m$
5443.  
5444.     m$ = ""
5445.     m$ = m$ + "........" + Chr$(13)
5446.     m$ = m$ + ".....2.." + Chr$(13)
5447.     m$ = m$ + ".....22." + Chr$(13)
5448.     m$ = m$ + ".2222222" + Chr$(13)
5449.     m$ = m$ + ".2222222" + Chr$(13)
5450.     m$ = m$ + ".....22." + Chr$(13)
5451.     m$ = m$ + ".....2.." + Chr$(13)
5452.     m$ = m$ + "........" + Chr$(13)
5453.     arrTileText(197) = m$
5454.  
5455.     m$ = ""
5456.     m$ = m$ + "........" + Chr$(13)
5457.     m$ = m$ + "........" + Chr$(13)
5458.     m$ = m$ + "........" + Chr$(13)
5459.     m$ = m$ + "........" + Chr$(13)
5460.     m$ = m$ + "........" + Chr$(13)
5461.     m$ = m$ + "........" + Chr$(13)
5462.     m$ = m$ + "........" + Chr$(13)
5463.     m$ = m$ + "........" + Chr$(13)
5464.     arrTileText(198) = m$
5465.  
5466.     m$ = ""
5467.     m$ = m$ + ".222222." + Chr$(13)
5468.     m$ = m$ + "2......2" + Chr$(13)
5469.     m$ = m$ + "2.2..2.2" + Chr$(13)
5470.     m$ = m$ + "2......2" + Chr$(13)
5471.     m$ = m$ + "2.2..2.2" + Chr$(13)
5472.     m$ = m$ + "2.2222.2" + Chr$(13)
5473.     m$ = m$ + "2......2" + Chr$(13)
5474.     m$ = m$ + ".222222." + Chr$(13)
5475.     arrTileText(199) = m$
5476.  
5477.     m$ = ""
5478.     m$ = m$ + ".222222." + Chr$(13)
5479.     m$ = m$ + "2......2" + Chr$(13)
5480.     m$ = m$ + "2.2..2.2" + Chr$(13)
5481.     m$ = m$ + "2......2" + Chr$(13)
5482.     m$ = m$ + "2.2222.2" + Chr$(13)
5483.     m$ = m$ + "2.2..2.2" + Chr$(13)
5484.     m$ = m$ + "2......2" + Chr$(13)
5485.     m$ = m$ + ".222222." + Chr$(13)
5486.     arrTileText(200) = m$
5487.  
5488.     m$ = ""
5489.     m$ = m$ + "........" + Chr$(13)
5490.     m$ = m$ + "........" + Chr$(13)
5491.     m$ = m$ + "........" + Chr$(13)
5492.     m$ = m$ + "........" + Chr$(13)
5493.     m$ = m$ + "........" + Chr$(13)
5494.     m$ = m$ + "........" + Chr$(13)
5495.     m$ = m$ + "........" + Chr$(13)
5496.     m$ = m$ + "........" + Chr$(13)
5497.     arrTileText(201) = m$
5498.  
5499.     m$ = ""
5500.     m$ = m$ + ".222222." + Chr$(13)
5501.     m$ = m$ + ".....22." + Chr$(13)
5502.     m$ = m$ + "....22.." + Chr$(13)
5503.     m$ = m$ + "...22..." + Chr$(13)
5504.     m$ = m$ + "..22...." + Chr$(13)
5505.     m$ = m$ + ".22....." + Chr$(13)
5506.     m$ = m$ + ".222222." + Chr$(13)
5507.     m$ = m$ + "........" + Chr$(13)
5508.     arrTileText(202) = m$
5509.  
5510.     m$ = ""
5511.     m$ = m$ + "...22..." + Chr$(13)
5512.     m$ = m$ + "...22..." + Chr$(13)
5513.     m$ = m$ + "...22..." + Chr$(13)
5514.     m$ = m$ + "22222222" + Chr$(13)
5515.     m$ = m$ + "22222222" + Chr$(13)
5516.     m$ = m$ + "...22..." + Chr$(13)
5517.     m$ = m$ + "...22..." + Chr$(13)
5518.     m$ = m$ + "...22..." + Chr$(13)
5519.     arrTileText(203) = m$
5520.  
5521.     m$ = ""
5522.     m$ = m$ + "22......" + Chr$(13)
5523.     m$ = m$ + "22......" + Chr$(13)
5524.     m$ = m$ + "..22...." + Chr$(13)
5525.     m$ = m$ + "..22...." + Chr$(13)
5526.     m$ = m$ + "22......" + Chr$(13)
5527.     m$ = m$ + "22......" + Chr$(13)
5528.     m$ = m$ + "..22...." + Chr$(13)
5529.     m$ = m$ + "..22...." + Chr$(13)
5530.     arrTileText(204) = m$
5531.  
5532.     m$ = ""
5533.     m$ = m$ + "...22..." + Chr$(13)
5534.     m$ = m$ + "...22..." + Chr$(13)
5535.     m$ = m$ + "...22..." + Chr$(13)
5536.     m$ = m$ + "...22..." + Chr$(13)
5537.     m$ = m$ + "...22..." + Chr$(13)
5538.     m$ = m$ + "...22..." + Chr$(13)
5539.     m$ = m$ + "...22..." + Chr$(13)
5540.     m$ = m$ + "...22..." + Chr$(13)
5541.     arrTileText(205) = m$
5542.  
5543.     m$ = ""
5544.     m$ = m$ + "..22..22" + Chr$(13)
5545.     m$ = m$ + "..22..22" + Chr$(13)
5546.     m$ = m$ + "22..22.." + Chr$(13)
5547.     m$ = m$ + "22..22.." + Chr$(13)
5548.     m$ = m$ + "..22..22" + Chr$(13)
5549.     m$ = m$ + "..22..22" + Chr$(13)
5550.     m$ = m$ + "22..22.." + Chr$(13)
5551.     m$ = m$ + "22..22.." + Chr$(13)
5552.     arrTileText(206) = m$
5553.  
5554.     m$ = ""
5555.     m$ = m$ + "..22..22" + Chr$(13)
5556.     m$ = m$ + "2..22..2" + Chr$(13)
5557.     m$ = m$ + "22..22.." + Chr$(13)
5558.     m$ = m$ + ".22..22." + Chr$(13)
5559.     m$ = m$ + "..22..22" + Chr$(13)
5560.     m$ = m$ + "2..22..2" + Chr$(13)
5561.     m$ = m$ + "22..22.." + Chr$(13)
5562.     m$ = m$ + ".22..22." + Chr$(13)
5563.     arrTileText(207) = m$
5564.  
5565.     m$ = ""
5566.     m$ = m$ + "........" + Chr$(13)
5567.     m$ = m$ + "........" + Chr$(13)
5568.     m$ = m$ + "........" + Chr$(13)
5569.     m$ = m$ + "........" + Chr$(13)
5570.     m$ = m$ + "........" + Chr$(13)
5571.     m$ = m$ + "........" + Chr$(13)
5572.     m$ = m$ + "........" + Chr$(13)
5573.     m$ = m$ + "........" + Chr$(13)
5574.     arrTileText(208) = m$
5575.  
5576.     m$ = ""
5577.     m$ = m$ + "2222...." + Chr$(13)
5578.     m$ = m$ + "2222...." + Chr$(13)
5579.     m$ = m$ + "2222...." + Chr$(13)
5580.     m$ = m$ + "2222...." + Chr$(13)
5581.     m$ = m$ + "2222...." + Chr$(13)
5582.     m$ = m$ + "2222...." + Chr$(13)
5583.     m$ = m$ + "2222...." + Chr$(13)
5584.     m$ = m$ + "2222...." + Chr$(13)
5585.     arrTileText(209) = m$
5586.  
5587.     m$ = ""
5588.     m$ = m$ + "........" + Chr$(13)
5589.     m$ = m$ + "........" + Chr$(13)
5590.     m$ = m$ + "........" + Chr$(13)
5591.     m$ = m$ + "........" + Chr$(13)
5592.     m$ = m$ + "22222222" + Chr$(13)
5593.     m$ = m$ + "22222222" + Chr$(13)
5594.     m$ = m$ + "22222222" + Chr$(13)
5595.     m$ = m$ + "22222222" + Chr$(13)
5596.     arrTileText(210) = m$
5597.  
5598.     m$ = ""
5599.     m$ = m$ + "22222222" + Chr$(13)
5600.     m$ = m$ + "........" + Chr$(13)
5601.     m$ = m$ + "........" + Chr$(13)
5602.     m$ = m$ + "........" + Chr$(13)
5603.     m$ = m$ + "........" + Chr$(13)
5604.     m$ = m$ + "........" + Chr$(13)
5605.     m$ = m$ + "........" + Chr$(13)
5606.     m$ = m$ + "........" + Chr$(13)
5607.     arrTileText(211) = m$
5608.  
5609.     m$ = ""
5610.     m$ = m$ + "........" + Chr$(13)
5611.     m$ = m$ + "........" + Chr$(13)
5612.     m$ = m$ + "........" + Chr$(13)
5613.     m$ = m$ + "........" + Chr$(13)
5614.     m$ = m$ + "........" + Chr$(13)
5615.     m$ = m$ + "........" + Chr$(13)
5616.     m$ = m$ + "........" + Chr$(13)
5617.     m$ = m$ + "22222222" + Chr$(13)
5618.     arrTileText(212) = m$
5619.  
5620.     m$ = ""
5621.     m$ = m$ + "22......" + Chr$(13)
5622.     m$ = m$ + "22......" + Chr$(13)
5623.     m$ = m$ + "22......" + Chr$(13)
5624.     m$ = m$ + "22......" + Chr$(13)
5625.     m$ = m$ + "22......" + Chr$(13)
5626.     m$ = m$ + "22......" + Chr$(13)
5627.     m$ = m$ + "22......" + Chr$(13)
5628.     m$ = m$ + "22......" + Chr$(13)
5629.     arrTileText(213) = m$
5630.  
5631.     m$ = ""
5632.     m$ = m$ + "22..22.." + Chr$(13)
5633.     m$ = m$ + "22..22.." + Chr$(13)
5634.     m$ = m$ + "..22..22" + Chr$(13)
5635.     m$ = m$ + "..22..22" + Chr$(13)
5636.     m$ = m$ + "22..22.." + Chr$(13)
5637.     m$ = m$ + "22..22.." + Chr$(13)
5638.     m$ = m$ + "..22..22" + Chr$(13)
5639.     m$ = m$ + "..22..22" + Chr$(13)
5640.     arrTileText(214) = m$
5641.  
5642.     m$ = ""
5643.     m$ = m$ + "......22" + Chr$(13)
5644.     m$ = m$ + "......22" + Chr$(13)
5645.     m$ = m$ + "......22" + Chr$(13)
5646.     m$ = m$ + "......22" + Chr$(13)
5647.     m$ = m$ + "......22" + Chr$(13)
5648.     m$ = m$ + "......22" + Chr$(13)
5649.     m$ = m$ + "......22" + Chr$(13)
5650.     m$ = m$ + "......22" + Chr$(13)
5651.     arrTileText(215) = m$
5652.  
5653.     m$ = ""
5654.     m$ = m$ + "........" + Chr$(13)
5655.     m$ = m$ + "........" + Chr$(13)
5656.     m$ = m$ + "........" + Chr$(13)
5657.     m$ = m$ + "........" + Chr$(13)
5658.     m$ = m$ + "22..22.." + Chr$(13)
5659.     m$ = m$ + "22..22.." + Chr$(13)
5660.     m$ = m$ + "..22..22" + Chr$(13)
5661.     m$ = m$ + "..22..22" + Chr$(13)
5662.     arrTileText(216) = m$
5663.  
5664.     m$ = ""
5665.     m$ = m$ + "22..22.." + Chr$(13)
5666.     m$ = m$ + "2..22..2" + Chr$(13)
5667.     m$ = m$ + "..22..22" + Chr$(13)
5668.     m$ = m$ + ".22..22." + Chr$(13)
5669.     m$ = m$ + "22..22.." + Chr$(13)
5670.     m$ = m$ + "2..22..2" + Chr$(13)
5671.     m$ = m$ + "..22..22" + Chr$(13)
5672.     m$ = m$ + ".22..22." + Chr$(13)
5673.     arrTileText(217) = m$
5674.  
5675.     m$ = ""
5676.     m$ = m$ + "......22" + Chr$(13)
5677.     m$ = m$ + "......22" + Chr$(13)
5678.     m$ = m$ + "......22" + Chr$(13)
5679.     m$ = m$ + "......22" + Chr$(13)
5680.     m$ = m$ + "......22" + Chr$(13)
5681.     m$ = m$ + "......22" + Chr$(13)
5682.     m$ = m$ + "......22" + Chr$(13)
5683.     m$ = m$ + "......22" + Chr$(13)
5684.     arrTileText(218) = m$
5685.  
5686.     m$ = ""
5687.     m$ = m$ + "...22..." + Chr$(13)
5688.     m$ = m$ + "...22..." + Chr$(13)
5689.     m$ = m$ + "...22..." + Chr$(13)
5690.     m$ = m$ + "...22222" + Chr$(13)
5691.     m$ = m$ + "...22222" + Chr$(13)
5692.     m$ = m$ + "...22..." + Chr$(13)
5693.     m$ = m$ + "...22..." + Chr$(13)
5694.     m$ = m$ + "...22..." + Chr$(13)
5695.     arrTileText(219) = m$
5696.  
5697.     m$ = ""
5698.     m$ = m$ + "........" + Chr$(13)
5699.     m$ = m$ + "........" + Chr$(13)
5700.     m$ = m$ + "........" + Chr$(13)
5701.     m$ = m$ + "........" + Chr$(13)
5702.     m$ = m$ + "....2222" + Chr$(13)
5703.     m$ = m$ + "....2222" + Chr$(13)
5704.     m$ = m$ + "....2222" + Chr$(13)
5705.     m$ = m$ + "....2222" + Chr$(13)
5706.     arrTileText(220) = m$
5707.  
5708.     m$ = ""
5709.     m$ = m$ + "...22..." + Chr$(13)
5710.     m$ = m$ + "...22..." + Chr$(13)
5711.     m$ = m$ + "...22..." + Chr$(13)
5712.     m$ = m$ + "...22222" + Chr$(13)
5713.     m$ = m$ + "...22222" + Chr$(13)
5714.     m$ = m$ + "........" + Chr$(13)
5715.     m$ = m$ + "........" + Chr$(13)
5716.     m$ = m$ + "........" + Chr$(13)
5717.     arrTileText(221) = m$
5718.  
5719.     m$ = ""
5720.     m$ = m$ + "........" + Chr$(13)
5721.     m$ = m$ + "........" + Chr$(13)
5722.     m$ = m$ + "........" + Chr$(13)
5723.     m$ = m$ + "22222..." + Chr$(13)
5724.     m$ = m$ + "22222..." + Chr$(13)
5725.     m$ = m$ + "...22..." + Chr$(13)
5726.     m$ = m$ + "...22..." + Chr$(13)
5727.     m$ = m$ + "...22..." + Chr$(13)
5728.     arrTileText(222) = m$
5729.  
5730.     m$ = ""
5731.     m$ = m$ + "........" + Chr$(13)
5732.     m$ = m$ + "........" + Chr$(13)
5733.     m$ = m$ + "........" + Chr$(13)
5734.     m$ = m$ + "........" + Chr$(13)
5735.     m$ = m$ + "........" + Chr$(13)
5736.     m$ = m$ + "........" + Chr$(13)
5737.     m$ = m$ + "22222222" + Chr$(13)
5738.     m$ = m$ + "22222222" + Chr$(13)
5739.     arrTileText(223) = m$
5740.  
5741.     m$ = ""
5742.     m$ = m$ + "........" + Chr$(13)
5743.     m$ = m$ + "........" + Chr$(13)
5744.     m$ = m$ + "........" + Chr$(13)
5745.     m$ = m$ + "...22222" + Chr$(13)
5746.     m$ = m$ + "...22222" + Chr$(13)
5747.     m$ = m$ + "...22..." + Chr$(13)
5748.     m$ = m$ + "...22..." + Chr$(13)
5749.     m$ = m$ + "...22..." + Chr$(13)
5750.     arrTileText(224) = m$
5751.  
5752.     m$ = ""
5753.     m$ = m$ + "...22..." + Chr$(13)
5754.     m$ = m$ + "...22..." + Chr$(13)
5755.     m$ = m$ + "...22..." + Chr$(13)
5756.     m$ = m$ + "22222222" + Chr$(13)
5757.     m$ = m$ + "22222222" + Chr$(13)
5758.     m$ = m$ + "........" + Chr$(13)
5759.     m$ = m$ + "........" + Chr$(13)
5760.     m$ = m$ + "........" + Chr$(13)
5761.     arrTileText(225) = m$
5762.  
5763.     m$ = ""
5764.     m$ = m$ + "........" + Chr$(13)
5765.     m$ = m$ + "........" + Chr$(13)
5766.     m$ = m$ + "........" + Chr$(13)
5767.     m$ = m$ + "22222222" + Chr$(13)
5768.     m$ = m$ + "22222222" + Chr$(13)
5769.     m$ = m$ + "...22..." + Chr$(13)
5770.     m$ = m$ + "...22..." + Chr$(13)
5771.     m$ = m$ + "...22..." + Chr$(13)
5772.     arrTileText(226) = m$
5773.  
5774.     m$ = ""
5775.     m$ = m$ + "...22..." + Chr$(13)
5776.     m$ = m$ + "...22..." + Chr$(13)
5777.     m$ = m$ + "...22..." + Chr$(13)
5778.     m$ = m$ + "22222..." + Chr$(13)
5779.     m$ = m$ + "22222..." + Chr$(13)
5780.     m$ = m$ + "...22..." + Chr$(13)
5781.     m$ = m$ + "...22..." + Chr$(13)
5782.     m$ = m$ + "...22..." + Chr$(13)
5783.     arrTileText(227) = m$
5784.  
5785.     m$ = ""
5786.     m$ = m$ + "22......" + Chr$(13)
5787.     m$ = m$ + "22......" + Chr$(13)
5788.     m$ = m$ + "22......" + Chr$(13)
5789.     m$ = m$ + "22......" + Chr$(13)
5790.     m$ = m$ + "22......" + Chr$(13)
5791.     m$ = m$ + "22......" + Chr$(13)
5792.     m$ = m$ + "22......" + Chr$(13)
5793.     m$ = m$ + "22......" + Chr$(13)
5794.     arrTileText(228) = m$
5795.  
5796.     m$ = ""
5797.     m$ = m$ + "222....." + Chr$(13)
5798.     m$ = m$ + "222....." + Chr$(13)
5799.     m$ = m$ + "222....." + Chr$(13)
5800.     m$ = m$ + "222....." + Chr$(13)
5801.     m$ = m$ + "222....." + Chr$(13)
5802.     m$ = m$ + "222....." + Chr$(13)
5803.     m$ = m$ + "222....." + Chr$(13)
5804.     m$ = m$ + "222....." + Chr$(13)
5805.     arrTileText(229) = m$
5806.  
5807.     m$ = ""
5808.     m$ = m$ + ".....222" + Chr$(13)
5809.     m$ = m$ + ".....222" + Chr$(13)
5810.     m$ = m$ + ".....222" + Chr$(13)
5811.     m$ = m$ + ".....222" + Chr$(13)
5812.     m$ = m$ + ".....222" + Chr$(13)
5813.     m$ = m$ + ".....222" + Chr$(13)
5814.     m$ = m$ + ".....222" + Chr$(13)
5815.     m$ = m$ + ".....222" + Chr$(13)
5816.     arrTileText(230) = m$
5817.  
5818.     m$ = ""
5819.     m$ = m$ + "22222222" + Chr$(13)
5820.     m$ = m$ + "22222222" + Chr$(13)
5821.     m$ = m$ + "........" + Chr$(13)
5822.     m$ = m$ + "........" + Chr$(13)
5823.     m$ = m$ + "........" + Chr$(13)
5824.     m$ = m$ + "........" + Chr$(13)
5825.     m$ = m$ + "........" + Chr$(13)
5826.     m$ = m$ + "........" + Chr$(13)
5827.     arrTileText(231) = m$
5828.  
5829.     m$ = ""
5830.     m$ = m$ + "22222222" + Chr$(13)
5831.     m$ = m$ + "22222222" + Chr$(13)
5832.     m$ = m$ + "22222222" + Chr$(13)
5833.     m$ = m$ + "........" + Chr$(13)
5834.     m$ = m$ + "........" + Chr$(13)
5835.     m$ = m$ + "........" + Chr$(13)
5836.     m$ = m$ + "........" + Chr$(13)
5837.     m$ = m$ + "........" + Chr$(13)
5838.     arrTileText(232) = m$
5839.  
5840.     m$ = ""
5841.     m$ = m$ + "........" + Chr$(13)
5842.     m$ = m$ + "........" + Chr$(13)
5843.     m$ = m$ + "........" + Chr$(13)
5844.     m$ = m$ + "........" + Chr$(13)
5845.     m$ = m$ + "........" + Chr$(13)
5846.     m$ = m$ + "22222222" + Chr$(13)
5847.     m$ = m$ + "22222222" + Chr$(13)
5848.     m$ = m$ + "22222222" + Chr$(13)
5849.     arrTileText(233) = m$
5850.  
5851.     m$ = ""
5852.     m$ = m$ + ".......2" + Chr$(13)
5853.     m$ = m$ + "......22" + Chr$(13)
5854.     m$ = m$ + ".....22." + Chr$(13)
5855.     m$ = m$ + ".22.22.." + Chr$(13)
5856.     m$ = m$ + ".2222..." + Chr$(13)
5857.     m$ = m$ + ".222...." + Chr$(13)
5858.     m$ = m$ + ".22....." + Chr$(13)
5859.     m$ = m$ + "........" + Chr$(13)
5860.     arrTileText(234) = m$
5861.  
5862.     m$ = ""
5863.     m$ = m$ + "........" + Chr$(13)
5864.     m$ = m$ + "........" + Chr$(13)
5865.     m$ = m$ + "........" + Chr$(13)
5866.     m$ = m$ + "........" + Chr$(13)
5867.     m$ = m$ + "2222...." + Chr$(13)
5868.     m$ = m$ + "2222...." + Chr$(13)
5869.     m$ = m$ + "2222...." + Chr$(13)
5870.     m$ = m$ + "2222...." + Chr$(13)
5871.     arrTileText(235) = m$
5872.  
5873.     m$ = ""
5874.     m$ = m$ + "....2222" + Chr$(13)
5875.     m$ = m$ + "....2222" + Chr$(13)
5876.     m$ = m$ + "....2222" + Chr$(13)
5877.     m$ = m$ + "....2222" + Chr$(13)
5878.     m$ = m$ + "........" + Chr$(13)
5879.     m$ = m$ + "........" + Chr$(13)
5880.     m$ = m$ + "........" + Chr$(13)
5881.     m$ = m$ + "........" + Chr$(13)
5882.     arrTileText(236) = m$
5883.  
5884.     m$ = ""
5885.     m$ = m$ + "...22..." + Chr$(13)
5886.     m$ = m$ + "...22..." + Chr$(13)
5887.     m$ = m$ + "...22..." + Chr$(13)
5888.     m$ = m$ + "22222..." + Chr$(13)
5889.     m$ = m$ + "22222..." + Chr$(13)
5890.     m$ = m$ + "........" + Chr$(13)
5891.     m$ = m$ + "........" + Chr$(13)
5892.     m$ = m$ + "........" + Chr$(13)
5893.     arrTileText(237) = m$
5894.  
5895.     m$ = ""
5896.     m$ = m$ + "2222...." + Chr$(13)
5897.     m$ = m$ + "2222...." + Chr$(13)
5898.     m$ = m$ + "2222...." + Chr$(13)
5899.     m$ = m$ + "2222...." + Chr$(13)
5900.     m$ = m$ + "........" + Chr$(13)
5901.     m$ = m$ + "........" + Chr$(13)
5902.     m$ = m$ + "........" + Chr$(13)
5903.     m$ = m$ + "........" + Chr$(13)
5904.     arrTileText(238) = m$
5905.  
5906.     m$ = ""
5907.     m$ = m$ + "2222...." + Chr$(13)
5908.     m$ = m$ + "2222...." + Chr$(13)
5909.     m$ = m$ + "2222...." + Chr$(13)
5910.     m$ = m$ + "2222...." + Chr$(13)
5911.     m$ = m$ + "....2222" + Chr$(13)
5912.     m$ = m$ + "....2222" + Chr$(13)
5913.     m$ = m$ + "....2222" + Chr$(13)
5914.     m$ = m$ + "....2222" + Chr$(13)
5915.     arrTileText(239) = m$
5916.  
5917.     m$ = ""
5918.     m$ = m$ + "........" + Chr$(13)
5919.     m$ = m$ + "........" + Chr$(13)
5920.     m$ = m$ + "........" + Chr$(13)
5921.     m$ = m$ + "........" + Chr$(13)
5922.     m$ = m$ + "........" + Chr$(13)
5923.     m$ = m$ + "........" + Chr$(13)
5924.     m$ = m$ + "........" + Chr$(13)
5925.     m$ = m$ + "........" + Chr$(13)
5926.     arrTileText(240) = m$
5927.  
5928.     m$ = ""
5929.     m$ = m$ + "22222.22" + Chr$(13)
5930.     m$ = m$ + "22222.22" + Chr$(13)
5931.     m$ = m$ + "22222.22" + Chr$(13)
5932.     m$ = m$ + "........" + Chr$(13)
5933.     m$ = m$ + "22.22222" + Chr$(13)
5934.     m$ = m$ + "22.22222" + Chr$(13)
5935.     m$ = m$ + "22.22222" + Chr$(13)
5936.     m$ = m$ + "........" + Chr$(13)
5937.     arrTileText(241) = m$
5938.  
5939.     m$ = ""
5940.     m$ = m$ + "........" + Chr$(13)
5941.     m$ = m$ + "........" + Chr$(13)
5942.     m$ = m$ + "........" + Chr$(13)
5943.     m$ = m$ + ".222222." + Chr$(13)
5944.     m$ = m$ + "........" + Chr$(13)
5945.     m$ = m$ + "........" + Chr$(13)
5946.     m$ = m$ + "........" + Chr$(13)
5947.     m$ = m$ + "........" + Chr$(13)
5948.     arrTileText(242) = m$
5949.  
5950.     m$ = ""
5951.     m$ = m$ + "........" + Chr$(13)
5952.     m$ = m$ + "...2...." + Chr$(13)
5953.     m$ = m$ + "...2...." + Chr$(13)
5954.     m$ = m$ + "...2...." + Chr$(13)
5955.     m$ = m$ + "...2...." + Chr$(13)
5956.     m$ = m$ + "...2...." + Chr$(13)
5957.     m$ = m$ + "...2...." + Chr$(13)
5958.     m$ = m$ + "........" + Chr$(13)
5959.     arrTileText(243) = m$
5960.  
5961.     m$ = ""
5962.     m$ = m$ + "........" + Chr$(13)
5963.     m$ = m$ + "........" + Chr$(13)
5964.     m$ = m$ + "........" + Chr$(13)
5965.     m$ = m$ + "...2222." + Chr$(13)
5966.     m$ = m$ + "...2...." + Chr$(13)
5967.     m$ = m$ + "...2...." + Chr$(13)
5968.     m$ = m$ + "...2...." + Chr$(13)
5969.     m$ = m$ + "........" + Chr$(13)
5970.     arrTileText(244) = m$
5971.  
5972.     m$ = ""
5973.     m$ = m$ + "........" + Chr$(13)
5974.     m$ = m$ + "........" + Chr$(13)
5975.     m$ = m$ + "........" + Chr$(13)
5976.     m$ = m$ + ".222...." + Chr$(13)
5977.     m$ = m$ + "...2...." + Chr$(13)
5978.     m$ = m$ + "...2...." + Chr$(13)
5979.     m$ = m$ + "...2...." + Chr$(13)
5980.     m$ = m$ + "........" + Chr$(13)
5981.     arrTileText(245) = m$
5982.  
5983.     m$ = ""
5984.     m$ = m$ + "........" + Chr$(13)
5985.     m$ = m$ + "...2...." + Chr$(13)
5986.     m$ = m$ + "...2...." + Chr$(13)
5987.     m$ = m$ + "...2222." + Chr$(13)
5988.     m$ = m$ + "........" + Chr$(13)
5989.     m$ = m$ + "........" + Chr$(13)
5990.     m$ = m$ + "........" + Chr$(13)
5991.     m$ = m$ + "........" + Chr$(13)
5992.     arrTileText(246) = m$
5993.  
5994.     m$ = ""
5995.     m$ = m$ + "........" + Chr$(13)
5996.     m$ = m$ + "...2...." + Chr$(13)
5997.     m$ = m$ + "...2...." + Chr$(13)
5998.     m$ = m$ + ".222...." + Chr$(13)
5999.     m$ = m$ + "........" + Chr$(13)
6000.     m$ = m$ + "........" + Chr$(13)
6001.     m$ = m$ + "........" + Chr$(13)
6002.     m$ = m$ + "........" + Chr$(13)
6003.     arrTileText(247) = m$
6004.  
6005.     m$ = ""
6006.     m$ = m$ + "........" + Chr$(13)
6007.     m$ = m$ + "........" + Chr$(13)
6008.     m$ = m$ + "........" + Chr$(13)
6009.     m$ = m$ + "........" + Chr$(13)
6010.     m$ = m$ + "........" + Chr$(13)
6011.     m$ = m$ + "........" + Chr$(13)
6012.     m$ = m$ + "........" + Chr$(13)
6013.     m$ = m$ + "........" + Chr$(13)
6014.     arrTileText(248) = m$
6015.  
6016.     m$ = ""
6017.     m$ = m$ + "........" + Chr$(13)
6018.     m$ = m$ + "........" + Chr$(13)
6019.     m$ = m$ + "........" + Chr$(13)
6020.     m$ = m$ + "........" + Chr$(13)
6021.     m$ = m$ + "........" + Chr$(13)
6022.     m$ = m$ + "........" + Chr$(13)
6023.     m$ = m$ + "........" + Chr$(13)
6024.     m$ = m$ + "........" + Chr$(13)
6025.     arrTileText(249) = m$
6026.  
6027.     m$ = ""
6028.     m$ = m$ + "........" + Chr$(13)
6029.     m$ = m$ + "........" + Chr$(13)
6030.     m$ = m$ + "........" + Chr$(13)
6031.     m$ = m$ + "........" + Chr$(13)
6032.     m$ = m$ + "........" + Chr$(13)
6033.     m$ = m$ + "........" + Chr$(13)
6034.     m$ = m$ + "........" + Chr$(13)
6035.     m$ = m$ + "........" + Chr$(13)
6036.     arrTileText(250) = m$
6037.  
6038.     m$ = ""
6039.     m$ = m$ + "........" + Chr$(13)
6040.     m$ = m$ + "........" + Chr$(13)
6041.     m$ = m$ + "........" + Chr$(13)
6042.     m$ = m$ + "........" + Chr$(13)
6043.     m$ = m$ + "........" + Chr$(13)
6044.     m$ = m$ + "........" + Chr$(13)
6045.     m$ = m$ + "........" + Chr$(13)
6046.     m$ = m$ + "........" + Chr$(13)
6047.     arrTileText(251) = m$
6048.  
6049.     m$ = ""
6050.     m$ = m$ + "2.2.2.2." + Chr$(13)
6051.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6052.     m$ = m$ + "2.2.2.2." + Chr$(13)
6053.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6054.     m$ = m$ + "2.2.2.2." + Chr$(13)
6055.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6056.     m$ = m$ + "2.2.2.2." + Chr$(13)
6057.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6058.     arrTileText(252) = m$
6059.  
6060.     m$ = ""
6061.     m$ = m$ + "22222222" + Chr$(13)
6062.     m$ = m$ + "2......2" + Chr$(13)
6063.     m$ = m$ + "2......2" + Chr$(13)
6064.     m$ = m$ + "2......2" + Chr$(13)
6065.     m$ = m$ + "2......2" + Chr$(13)
6066.     m$ = m$ + "2......2" + Chr$(13)
6067.     m$ = m$ + "2......2" + Chr$(13)
6068.     m$ = m$ + "22222222" + Chr$(13)
6069.     arrTileText(253) = m$
6070.  
6071.     m$ = ""
6072.     m$ = m$ + "22222222" + Chr$(13)
6073.     m$ = m$ + "22222222" + Chr$(13)
6074.     m$ = m$ + "22222222" + Chr$(13)
6075.     m$ = m$ + "22222222" + Chr$(13)
6076.     m$ = m$ + "22222222" + Chr$(13)
6077.     m$ = m$ + "22222222" + Chr$(13)
6078.     m$ = m$ + "22222222" + Chr$(13)
6079.     m$ = m$ + "22222222" + Chr$(13)
6080.     arrTileText(254) = m$
6081.  
6082.     m$ = ""
6083.     m$ = ""
6084.     m$ = m$ + "22....22" + Chr$(13)
6085.     m$ = m$ + "2..22..2" + Chr$(13)
6086.     m$ = m$ + "2..22..2" + Chr$(13)
6087.     m$ = m$ + "22.....2" + Chr$(13)
6088.     m$ = m$ + "22222..2" + Chr$(13)
6089.     m$ = m$ + "2..22..2" + Chr$(13)
6090.     m$ = m$ + "22....22" + Chr$(13)
6091.     m$ = m$ + "22222222" + Chr$(13)
6092.     arrTileText(255) = m$
6093.  
6094. End Sub ' GetTileText
6095.  
6096. ' ################################################################################################################################################################
6097. ' END TILE DEFINITIONS
6098. ' ################################################################################################################################################################
6099.  
6100. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6101. ' BEGIN DEBUGGING ROUTINES #DEBUGGING
6102. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6103.  
6104. Sub DebugPrint (MyString As String)
6105.     If m_bDebug = TRUE Then
6106.         '_Echo MyString
6107.  
6108.         ReDim arrLines(-1) As String
6109.         Dim iLoop As Integer
6110.         split MyString, Chr$(13), arrLines()
6111.         For iLoop = LBound(arrLines) To UBound(arrLines)
6112.             _Echo arrLines(iLoop)
6113.         Next iLoop
6114.     End If
6115. End Sub ' DebugPrint
6116.  
6117. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6118. ' END DEBUGGING ROUTINES @DEBUGGING
6119. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6120.  

[madscijr]

@SMcNeill  @Pete
UPDATE:
Well, I got the tileset to rectangles working, and tried a couple of different ways to render the tiles.

Using Line to draw the rectangles, it is 2x faster than the original color tile drawing routine (_PutImage with ColorSwap). The pure hardware image one is still 10-20 times faster, but you have to pre draw the tileset in different colors (which isn't a deal breaker per se, just a complication).

Then I thought of using hardware _PutImage to render the tiles piece by piece, copying tiny rectangular pieces (1x1 upto 8x8) of a palette screen (which would just contain areas of color). This would combine the speed of hardware images with controlling the colors on the fly. I already have the code that analyzes a raster tileset and decomposes it into a minimum set of component rectangles. So that method works and is 2x faster than using Line, and 3-4x faster than the original _PutImage/ColorSwap. It is still only a fraction as fast as simple copy with hardware images, but it's over 3x faster than just drawing solid boxes with line, which is what my game was using to get more speed.

Next is to integrate Steve's custom screen into the speed tests and see how that does, apples-to-apples.

Results:

Code: [Select]

DrawTile8                  4,202 refreshes in 3 seconds.
DrawColorTile              1,825 refreshes in 3 seconds.
DrawTileHw8               26,108 refreshes in 3 seconds.
DrawVectorTileLine         3,775 refreshes in 3 seconds.
DrawVectorTilePutImage     2,979 refreshes in 3 seconds.
DrawVectorTilePutImageHW   6,440 refreshes in 3 seconds.
Solid boxes with line      1,979 refreshes in 3 seconds.

And the latest code with all the methods/examples/tests:

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2. ' Speed tests and demos of various methods draw a 2-color 8x8 tile
3.  
4. ' From thread:
5. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
6. ' https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904
7. ' ################################################################################################################################################################
8.  
9. ' ===============================================================================
10. ' GLOBAL CONSTANTS
11. ' ===============================================================================
12. ' BOOLEAN VALUES
13. Const FALSE = 0
14. Const TRUE = Not FALSE
15.  
16. ' ===============================================================================
17. ' USER DEFINED TYPES
18. ' ===============================================================================
19. ' UDT TO HOLD COORDINATES FOR DRAWING A RECTANGLE
20. Type RectangleType
21.     x1 As Integer ' start x
22.     y1 As Integer ' start y
23.     x2 As Integer ' end x
24.     y2 As Integer ' end y
25.     PixelCount As Integer
26.     IsActive As Integer
27. End Type ' RectangleType
28.  
29. Type DrawCompareType
30.     IndexList As String
31.     ShapeCount As Integer
32.     PixelCount As Integer
33.     IsActive As Integer
34. End Type ' DrawCompareType
35.  
36. ' UDT FOR PRECALCULATED TILESHEET
37. Type TileSheetMapType
38.     xStart As Integer
39.     xEnd As Integer
40.     yStart As Integer
41.     yEnd As Integer
42. End Type
43.  
44. ' UDT FOR PRECALCULATED TILE MAP
45. Type TileMapType
46.     xPos As Integer
47.     yPos As Integer
48. End Type
49.  
50. ' ===============================================================================
51. ' GLOBAL VARIABLES
52. ' ===============================================================================
53. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES CONSOLE WINDOW AND DebugPrint
54. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
55. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
56. Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
57.  
58. ' Used for Steve's very different custom screen:
59. Dim Shared As Long TileHw, FontHw
60. Dim Shared ScreenArray(99, 74) As _Unsigned Long ' Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
61.  
62. ' ===============================================================================
63. ' LOCAL VARIABLES
64. ' ===============================================================================
65. Dim in$
66.  
67. ' ****************************************************************************************************************************************************************
68. ' ACTIVATE DEBUGGING WINDOW
69. If m_bDebug = TRUE Then
70.     $Console
71.     _Delay 4
72.     _Console On
73.     _Echo "Started " + m_ProgramName$
74.     _Echo "Debugging on..."
75. End If
76. ' ****************************************************************************************************************************************************************
77.  
78. ' ===============================================================================
79. ' START THE MAIN ROUTINE
80. ' ===============================================================================
81. main
82.  
83. ' ===============================================================================
84. ' FINISH
85. ' ===============================================================================
86. Screen 0
87. Print m_ProgramName$ + " finished."
88. Input "Press <ENTER> to continue", in$
89. ' ****************************************************************************************************************************************************************
90. ' DEACTIVATE DEBUGGING WINDOW
91. If m_bDebug = TRUE Then
92.     _Console Off
93. End If
94. ' ****************************************************************************************************************************************************************
95. System ' return control to the operating system
96. End
97.  
98. ' ################################################################################################################################################################
99. ' BEGIN MAIN MENU
100. ' ################################################################################################################################################################
101.  
102. ' /////////////////////////////////////////////////////////////////////////////
103.  
104. Sub main
105.     Dim RoutineName As String: RoutineName = "main"
106.     Dim in$
107.     Dim bFinished As Integer: bFinished = FALSE
108.     Dim result$: result$ = ""
109.     Do
110.         Screen 0: _ScreenMove 0, 0
111.         Cls
112.         Print m_ProgramName$
113.         Print
114.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
115.         Print
116.  
117.         Print "1) DrawingSpeedTest6"
118.         Print
119.         Print "2) HardwareImageDemo2"
120.         Print
121.         Print "3) GetAllPossibleShapesTest"
122.         Print "4) FindOptimizedVectorTest - find minimum shapes to draw a tile"
123.         Print "5) GetVectorTilesTest"
124.         Print "6) MakePaletteImageTest"
125.         Print "7) DrawVectorTilePutImageTest"
126.         Print
127.         Print "A) TestCustomHardwareScreen1"
128.         Print "B) ^ instructions"
129.         Print
130.         Print "C) TestSoftwareScreen1"
131.         Print "D) ^ instructions"
132.         Print
133.         Print "Q) Exit program"
134.         Do
135.             in$ = InKey$
136.             If UCase$(in$) = "Q" Then
137.                 bFinished = TRUE: Exit Do
138.             ElseIf UCase$(in$) = "1" Then
139.                 DrawingSpeedTest6: Exit Do
140.             ElseIf UCase$(in$) = "2" Then
141.                 HardwareImageDemo2: Exit Do
142.             ElseIf UCase$(in$) = "3" Then
143.                 GetAllPossibleShapesTest: Exit Do
144.             ElseIf UCase$(in$) = "4" Then
145.                 FindOptimizedVectorTest: Exit Do
146.             ElseIf UCase$(in$) = "5" Then
147.                 GetVectorTilesTest: Exit Do
148.             ElseIf UCase$(in$) = "6" Then
149.                 MakePaletteImageTest: Exit Do
150.             ElseIf UCase$(in$) = "7" Then
151.                 DrawVectorTilePutImageTest: Exit Do
152.             ElseIf UCase$(in$) = "A" Then
153.                 TestCustomHardwareScreen1: Exit Do
154.             ElseIf UCase$(in$) = "B" Then
155.                 ShowInstructions (GetInstructions1$): Exit Do
156.             ElseIf UCase$(in$) = "C" Then
157.                 TestSoftwareScreen1: Exit Do
158.             ElseIf UCase$(in$) = "D" Then
159.                 ShowInstructions (GetInstructions2$): Exit Do
160.             End If
161.         Loop
162.     Loop Until bFinished = TRUE
163. End Sub ' main
164.  
165. ' ################################################################################################################################################################
166. ' END MAIN MENU
167. ' ################################################################################################################################################################
168.  
169. ' ################################################################################################################################################################
170. ' BEGIN DRAWING SPEED TEST
171. ' ################################################################################################################################################################
172.  
173. ' /////////////////////////////////////////////////////////////////////////////
174.  
175. Sub DrawingSpeedTest6
176.     Dim sError As String: sError = ""
177.     Dim imgScreen As Long ' the main display
178.     Dim imgHardwareScreen As Long ' copy of the software screen, transformed into a hardware image
179.     Dim imgTiles As Long ' original tileset, black on transparent
180.     Dim imgHardwareTiles As Long ' copy of the tileset, tranformed into a hardware image
181.     Dim imgTilesRed As Long ' colored tileset copy
182.     Dim imgTilesGreen As Long ' colored tileset copy
183.     Dim imgTilesBlue As Long ' colored tileset copy
184.     Dim imgTilesYellow As Long ' colored tileset copy
185.     Dim imgColorTiles As Long ' holds 4 copies of tileset in different colors (red, green, blue, yellow)
186.     Dim imgPalette As Long ' contains palette of colors
187.     Dim imgPaletteHW As Long ' hardware image of palette of colors
188.     Dim iTileNum As Integer
189.     Dim iFgColorIndex As Integer: iFgColorIndex = 0
190.     Dim iBgColorIndex As Integer: iBgColorIndex = 0
191.     Dim iFirstColor As Integer: iFirstColor = 0
192.     Dim iLastColor As Integer: iLastColor = 3
193.     'Dim iCols As Integer
194.     'Dim iRows As Integer
195.     Dim iY As Integer
196.     Dim iX As Integer
197.     Dim fgColor As _Unsigned Long
198.     Dim bgColor As _Unsigned Long
199.     Dim iMinY As Integer
200.     Dim iMaxY As Integer
201.     Dim iMinX As Integer
202.     Dim iMaxX As Integer
203.     Dim iCount1 As Long
204.     Dim iCount2 As Long
205.     Dim iCount3 As Long
206.     Dim iCount4 As Long
207.     Dim iCount5 As Long
208.     Dim iCount6 As Long
209.     Dim iCount7 As Long
210.     Dim t# ' for timer
211.     Dim arrColor(0 To 5) As _Unsigned Long
212.  
213.     ' ================================================================================================================================================================
214.     ' INIT SCREEN
215.     ' ================================================================================================================================================================
216.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
217.     Screen imgScreen
218.     Cls , cGray
219.  
220.     'iCols = _Width(imgScreen) \ 8
221.     'iRows = _Height(imgScreen) \ 8
222.  
223.     iMinX = 1: iMaxX = 16
224.     iMinY = 3: iMaxY = 18
225.  
226.     ' ================================================================================================================================================================
227.     ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
228.     ' ================================================================================================================================================================
229.     If Len(sError) = 0 Then
230.         '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
231.         'sFile$ = Left$(Command$(0), _InStrRev(Command$(0), "\")) + "Font_8x8_128x128_v3.png" ' 128x128 pixels, 16 rows x 16 columns of 8x8 tiles
232.         'imgTiles = _LoadImage(sFile$, 32)
233.  
234.         ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
235.         sError = GetTiles$(imgTiles, cBlack, cEmpty)
236.     End If
237.  
238.     ' ================================================================================================================================================================
239.     ' CREATE COLORED TILESET COPIES
240.     ' ================================================================================================================================================================
241.     If Len(sError) = 0 Then
242.         MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
243.         MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
244.         MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
245.         MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
246.  
247.         ' Make one big tileset with all colors
248.         imgColorTiles = _NewImage(512, 128, 32)
249.         _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
250.         _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
251.         _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
252.         _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
253.  
254.         imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
255.     End If
256.  
257.     ' ================================================================================================================================================================
258.     ' VECTOR TILES SETUP
259.     ' ================================================================================================================================================================
260.     If Len(sError) = 0 Then
261.         ' set up vector tiles
262.         GetVectorTiles
263.  
264.         ' set up colors for vector HW tiles
265.         arrColor(0) = cRed
266.         arrColor(1) = cLime
267.         arrColor(2) = cBlue
268.         arrColor(3) = cYellow
269.         arrColor(4) = cBlack
270.         arrColor(5) = cEmpty
271.         MakePaletteImage imgPalette, arrColor()
272.         _Dest imgScreen&
273.  
274.         imgPaletteHW = _CopyImage(imgPalette, 33) ' Copy palette for hardware image
275.     End If
276.  
277.     ' ================================================================================================================================================================
278.     ' METHOD #1
279.     ' _PUTIMAGE with SOFTWARE IMAGES
280.     ' ================================================================================================================================================================
281.     If Len(sError) = 0 Then
282.         Cls , cGray
283.         Color cWhite, cBlack: Locate 1, 1: Print "Test #1: DrawTile8 routine using 4 tilesets (1 per color) and regular _putimage using using SOFTWARE images..."
284.  
285.         iCount1 = 0
286.         t# = Timer + 3
287.         Do
288.             iCount1 = iCount1 + 1
289.             iFirstColor = iFirstColor Xor 1
290.             iFgColorIndex = iFirstColor
291.             iY = iMinY
292.             iX = iMinX
293.             For iTileNum = 0 To 255
294.                 Select Case iFgColorIndex
295.                     Case 0:
296.                         DrawTile8 imgTilesRed, iTileNum, imgScreen, iX, iY
297.                     Case 1:
298.                         DrawTile8 imgTilesGreen, iTileNum, imgScreen, iX, iY
299.                     Case 2:
300.                         DrawTile8 imgTilesBlue, iTileNum, imgScreen, iX, iY
301.                     Case Else:
302.                         DrawTile8 imgTilesYellow, iTileNum, imgScreen, iX, iY
303.                 End Select
304.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
305.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
306.             Next iTileNum
307.             _Display
308.         Loop Until Timer > t#
309.         _AutoDisplay
310.     End If
311.  
312.     ' ================================================================================================================================================================
313.     ' METHOD #2
314.     ' COLOR SWAP with SOFTWARE IMAGES
315.     ' ================================================================================================================================================================
316.     If Len(sError) = 0 Then
317.         Cls , cGray
318.         Color cWhite, cBlack: Locate 1, 1: Print "Test #2: DrawColorTile routine using 1 tileset with DoColorSwap using SOFTWARE images...";
319.  
320.         iCount2 = 0
321.         t# = Timer + 3
322.         Do
323.             iCount2 = iCount2 + 1
324.             iFirstColor = iFirstColor Xor 1
325.             iFgColorIndex = iFirstColor
326.             iY = iMinY
327.             iX = iMinX
328.             For iTileNum = 0 To 255
329.                 Select Case iFgColorIndex
330.                     Case 0:
331.                         fgColor = cRed: bgColor = cBlack
332.                     Case 1:
333.                         fgColor = cLime: bgColor = cBlack
334.                     Case 2:
335.                         fgColor = cBlue: bgColor = cBlack
336.                     Case Else:
337.                         fgColor = cYellow: bgColor = cBlack
338.                 End Select
339.                 DrawColorTile imgScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
340.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
341.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
342.             Next iTileNum
343.             _Display
344.         Loop Until Timer > t#
345.         _AutoDisplay
346.     End If
347.  
348.     ' ================================================================================================================================================================
349.     ' METHOD #3
350.     ' _PUTIMAGE with HARDWARE IMAGES
351.     ' ================================================================================================================================================================
352.     If Len(sError) = 0 Then
353.         Cls , cGray
354.         Color cWhite, cBlack: Locate 1, 1: Print "Test #3: DrawTileHw8 routine using 1 big multi-tileset and HARDWARE images...";
355.  
356.         imgHardwareScreen = _CopyImage(0, 33)
357.         _DisplayOrder _Hardware
358.  
359.         iCount3 = 0
360.         t# = Timer + 3
361.         Do
362.             iCount3 = iCount3 + 1
363.             iFirstColor = iFirstColor Xor 1
364.             iFgColorIndex = iFirstColor
365.             iY = iMinY
366.             iX = iMinX
367.             _PutImage , imgHardwareScreen
368.             For iTileNum = 0 To 255
369.                 DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iX, iY, iFgColorIndex
370.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
371.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
372.             Next iTileNum
373.             _Display
374.         Loop Until Timer > t#
375.         _AutoDisplay
376.         _DisplayOrder _Software , _Hardware
377.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
378.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
379.     End If
380.  
381.     ' ================================================================================================================================================================
382.     ' METHOD #4
383.     ' VECTOR-BASED TILES USING LINE
384.     ' ================================================================================================================================================================
385.     If Len(sError) = 0 Then
386.         Cls , cGray
387.         Color cWhite, cBlack: Locate 1, 1: Print "Test #4: DrawVectorTileLine routine using 1 vector-based tileset drawn with Line shapes...";
388.  
389.         iCount4 = 0
390.         t# = Timer + 3
391.         Do
392.             iCount4 = iCount4 + 1
393.             iFirstColor = iFirstColor Xor 1
394.             iFgColorIndex = iFirstColor
395.             iY = iMinY
396.             iX = iMinX
397.             For iTileNum = 0 To 255
398.                 Select Case iFgColorIndex
399.                     Case 0:
400.                         fgColor = cRed: bgColor = cBlack
401.                     Case 1:
402.                         fgColor = cLime: bgColor = cBlack
403.                     Case 2:
404.                         fgColor = cBlue: bgColor = cBlack
405.                     Case Else:
406.                         fgColor = cYellow: bgColor = cBlack
407.                 End Select
408.                 'DrawShape iTileNum, iX, iY, fgColor, bgColor
409.                 DrawVectorTileLine iTileNum, iX * 8, iY * 8, fgColor, bgColor
410.  
411.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
412.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
413.             Next iTileNum
414.             _Display
415.         Loop Until Timer > t#
416.         _AutoDisplay
417.         _DisplayOrder _Software , _Hardware
418.     End If
419.  
420.     ' ================================================================================================================================================================
421.     ' METHOD #5
422.     ' VECTOR-BASED TILES USING _PutImage
423.     ' ================================================================================================================================================================
424.     If Len(sError) = 0 Then
425.         Cls , cGray
426.         Color cWhite, cBlack: Locate 1, 1: Print "Test #5: DrawVectorTilePutImage routine using 1 vector-based tileset drawn with _PutImage...";
427.  
428.         iBgColorIndex = 4
429.  
430.         iCount5 = 0
431.         t# = Timer + 3
432.         Do
433.             iCount5 = iCount5 + 1
434.             iFirstColor = iFirstColor Xor 1
435.             iFgColorIndex = iFirstColor
436.             iY = iMinY
437.             iX = iMinX
438.             For iTileNum = 0 To 255
439.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
440.                 DrawVectorTilePutImage _
441.                     imgScreen, imgPalette, arrColor(), _
442.                     iTileNum, iX, iY, _
443.                     iFgColorIndex, iBgColorIndex
444.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
445.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
446.             Next iTileNum
447.             _Display
448.         Loop Until Timer > t#
449.         _AutoDisplay
450.     End If
451.  
452.     ' ================================================================================================================================================================
453.     ' METHOD #6
454.     ' VECTOR-BASED TILES USING _PutImage with HARDWARE IMAGES
455.     ' ================================================================================================================================================================
456.     If Len(sError) = 0 Then
457.         Cls , cGray
458.         Color cWhite, cBlack: Locate 1, 1: Print "Test #6: DrawVectorTilePutImageHW routine using 1 vector-based tileset drawn with hardware images...";
459.  
460.         iBgColorIndex = 4
461.         imgHardwareScreen = _CopyImage(0, 33)
462.         _DisplayOrder _Hardware
463.  
464.         iCount6 = 0
465.         t# = Timer + 3
466.         Do
467.             iCount6 = iCount6 + 1
468.             iFirstColor = iFirstColor Xor 1
469.             iFgColorIndex = iFirstColor
470.             iY = iMinY
471.             iX = iMinX
472.             _PutImage , imgHardwareScreen
473.             For iTileNum = 0 To 255
474.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
475.                 DrawVectorTilePutImageHW _
476.                     imgPaletteHW, arrColor(), _
477.                     iTileNum, iX, iY, _
478.                     iFgColorIndex, iBgColorIndex
479.  
480.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
481.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
482.             Next iTileNum
483.             _Display
484.         Loop Until Timer > t#
485.         _AutoDisplay
486.         _DisplayOrder _Software , _Hardware
487.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
488.         If imgPaletteHW < -1 Or imgPaletteHW > 0 Then _FreeImage imgPaletteHW ' FREE MEMORY
489.     End If
490.  
491.     ' ================================================================================================================================================================
492.     ' METHOD #7
493.     ' SOLID BOXES WITH LINE
494.     ' ================================================================================================================================================================
495.     If Len(sError) = 0 Then
496.         Cls , cGray
497.         Color cWhite, cBlack: Locate 1, 1: Print "Test #7: Solid boxes with Line...";
498.  
499.         iCount7 = 0
500.         t# = Timer + 3
501.         Do
502.             _Display
503.             iCount7 = iCount7 + 1
504.             iFirstColor = iFirstColor Xor 1
505.             iFgColorIndex = iFirstColor
506.             iY = iMinY
507.             iX = iMinX
508.             For iTileNum = 0 To 255
509.                 Select Case iFgColorIndex
510.                     Case 0:
511.                         fgColor = cRed: bgColor = cBlack
512.                     Case 1:
513.                         fgColor = cLime: bgColor = cBlack
514.                     Case 2:
515.                         fgColor = cBlue: bgColor = cBlack
516.                     Case Else:
517.                         fgColor = cYellow: bgColor = cBlack
518.                 End Select
519.  
520.                 'DrawShape iTileNum, iX, iY, fgColor, bgColor
521.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
522.                 Line (iX * 8, iY * 8)-((iX * 8) + 7, (iY * 8) + 7), fgColor, BF ' Draw a solid box
523.  
524.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
525.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
526.             Next iTileNum
527.             _Display
528.         Loop Until Timer > t#
529.         _AutoDisplay
530.     End If
531.  
532.     ' ================================================================================================================================================================
533.     ' SHOW RESULTS
534.     ' ================================================================================================================================================================
535.     Cls , cGray
536.     Color cWhite, cBlack: Locate 1, 1
537.     Print ""
538.     Print "RESULTS:"
539.     Print Using "DrawTile8                ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
540.     Print Using "DrawColorTile            ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
541.     Print Using "DrawTileHw8              ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
542.     Print Using "DrawVectorTileLine       ###,###,###,###,###,### refreshes in 3 seconds."; iCount4
543.     Print Using "DrawVectorTilePutImage   ###,###,###,###,###,### refreshes in 3 seconds."; iCount5
544.     Print Using "DrawVectorTilePutImageHW ###,###,###,###,###,### refreshes in 3 seconds."; iCount6
545.     Print Using "Solid boxes with Line    ###,###,###,###,###,### refreshes in 3 seconds."; iCount7
546.     Print "PRESS ANY KEY TO CONTINUE"
547.     Sleep
548.  
549.     ' ================================================================================================================================================================
550.     ' CLEANUP AND EXIT
551.     ' ================================================================================================================================================================
552.     Screen 0 ' RETURN TO TEXT SCREEN
553.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
554.     'If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
555.     If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
556.     'If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
557.     If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
558.     If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
559.     If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
560.     If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
561.     If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
562.     If imgPalette < -1 Or imgPalette > 0 Then _FreeImage imgPalette ' FREE MEMORY
563.     'If imgPaletteHW < -1 Or imgPaletteHW > 0 Then _FreeImage imgPaletteHW ' FREE MEMORY
564. End Sub ' DrawingSpeedTest6
565.  
566. ' ################################################################################################################################################################
567. ' END DRAWING SPEED TEST
568. ' ################################################################################################################################################################
569.  
570. ' ################################################################################################################################################################
571. ' BEGIN VECTOR-BASED TILE ROUTINES
572. ' ################################################################################################################################################################
573.  
574. ' /////////////////////////////////////////////////////////////////////////////
575.  
576. Sub DrawVectorTilePutImageTest
577.     Dim imgPalette As Long ' contains palette of colors
578.     Dim imgScreen As Long ' the main display
579.     Dim MyString As String
580.     Dim iLoop As Integer
581.     Dim iTileNum As Integer
582.     Dim arrColor(0 To 8) As _Unsigned Long
583.     Dim arrColorNames(0 To 8) As String
584.     Dim iMinFgColorIndex As Integer: iMinFgColorIndex = 0
585.     Dim iMaxFgColorIndex As Integer: iMaxFgColorIndex = 7
586.     Dim iMinBgColorIndex As Integer: iMinBgColorIndex = 0
587.     Dim iMaxBgColorIndex As Integer: iMaxBgColorIndex = 8
588.     Dim iFgColorIndex As Integer: iFgColorIndex = iMinFgColorIndex
589.     Dim iBgColorIndex As Integer: iBgColorIndex = iMinBgColorIndex
590.     Dim iX As Integer
591.     Dim iY As Integer
592.     Dim iMinX As Integer
593.     Dim iMaxX As Integer
594.     Dim iMinY As Integer
595.     Dim iMaxY As Integer
596.  
597.     ' Initialize colors
598.     arrColor(0) = cBlack
599.     arrColor(1) = cRed
600.     arrColor(2) = cYellow
601.     arrColor(3) = cLime
602.     arrColor(4) = cCyan
603.     arrColor(5) = cBlue
604.     arrColor(6) = cPurple
605.     arrColor(7) = cMagenta
606.     arrColor(8) = cEmpty
607.  
608.     ' Initialize color names (for test output)
609.     arrColorNames(0) = "cBlack"
610.     arrColorNames(1) = "cRed"
611.     arrColorNames(2) = "cYellow"
612.     arrColorNames(3) = "cLime"
613.     arrColorNames(4) = "cCyan"
614.     arrColorNames(5) = "cBlue"
615.     arrColorNames(6) = "cPurple"
616.     arrColorNames(7) = "cMagenta"
617.     arrColorNames(8) = "cEmpty"
618.  
619.     ' Set up screen
620.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
621.     Screen imgScreen
622.     Cls , cGray
623.  
624.     ' Generate color palette
625.     MakePaletteImage imgPalette, arrColor()
626.  
627.     '' Draw palette on screen:
628.     ''_PutImage (xDest%, yDest%), imgSource&, imgDest&, (sx1%, sy1%)-(sx2%, sy2%)
629.     '_PutImage (400, 300), imgPalette, imgScreen, (0,0)-(_WIDTH(imgPalette), _HEIGHT(imgPalette))
630.  
631.     ' Set up tiles
632.     GetVectorTiles
633.  
634.     ' Set up screen boundaries, initial colors, etc.
635.     iMinX = 0: iMaxX = _Width(0) \ 8
636.     iMinY = 0: iMaxY = _Height(0) \ 8
637.     DebugPrint "iMaxX = _Width(0) = " + cstr$(iMaxX)
638.     DebugPrint "iMaxY = _Height(0) = " + cstr$(iMaxY)
639.  
640.     iFgColorIndex = iMinFgColorIndex - 1
641.  
642.     ' Freeze dislay
643.     _Display
644.  
645.     ' Test text
646.     'MyString = "#"
647.     'MyString = "BOO!"
648.     MyString = "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
649.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
650.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
651.         "THIS IS A TEST!"
652.  
653.     iY = 5
654.     iX = 5
655.     For iLoop = 1 To Len(MyString)
656.         iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iMaxFgColorIndex Then iFgColorIndex = iMinFgColorIndex
657.         iBgColorIndex = iBgColorIndex + 1: If iBgColorIndex > iMaxBgColorIndex Then iBgColorIndex = iMinBgColorIndex
658.         iTileNum = Asc(Mid$(MyString, iLoop, 1))
659.         If iTileNum = 13 Then
660.             ' Linebreak = go to a new line
661.             iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
662.         Else
663.             DrawVectorTilePutImage _
664.                 imgScreen, imgPalette, arrColor(), _
665.                 iTileNum, iX, iY, _
666.                 iFgColorIndex, iBgColorIndex
667.             iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
668.             'iX = iX + 1: iY = iY + 1
669.             If iX > iMaxX Then iX = iMinX
670.             If iY > iMaxY Then iY = iMinY
671.         End If
672.     Next iLoop
673.  
674.     ' Resume display
675.     _Display
676.     _AutoDisplay
677.  
678.     ' Promput user
679.     Color cWhite, cBlack: Locate 22, 1
680.     Print "Press any key to continue";
681.     Sleep
682.  
683.     Screen 0 ' RETURN TO TEXT SCREEN
684.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
685. End Sub ' DrawVectorTilePutImageTest
686.  
687. ' /////////////////////////////////////////////////////////////////////////////
688. ' Draw the shape with _PutImage commands using hardware images:
689.  
690. ' Requires that this global shared variable be declared:
691. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
692. ' containing
693. '     m_arrLineTiles({iTileNum}, {iShapeNum})
694. ' where for each tile, dimension 2 index 0:
695. '     m_arrLineTiles({iTileNum}, 0).PixelCount
696. ' holds the last used {iShapeNum} index.
697.  
698. ' Receives:
699. ' imgScreen& = image handle of the screen to draw to
700. ' imgPalette& = image handle of the palette containing 8x8 squares each with the desired color
701. ' arrColor() = array containing _UNSIGNED Long RGB color values
702. ' iTileNum% = 0-255, number of the tile in m_arrLineTiles to draw
703. ' iX, iY = x/y position to draw 8x8 tile to (multiplied by 8 to get screen position)
704. ' fgColor, bgColor = index for foreground/background color in arrColor (which contains the actual RGB values)
705.  
706. Sub DrawVectorTilePutImage( _
707.     imgScreen&, imgPalette&, arrColor() as _UNSIGNED Long, _
708.     iTileNum As Integer, iX As Integer, iY As Integer, _
709.     fgColorIndex As Integer, bgColorIndex As Integer)
710.  
711.     Dim iLoop As Integer
712.  
713.     Dim sc% ' source column on tile sheet
714.     Dim sr% ' source row on tile sheet
715.     Dim sx1% ' source start x
716.     Dim sx2% ' source end x
717.     Dim sy1% ' source start y
718.     Dim sy2% ' source end y
719.     Dim xDest% ' destination x
720.     Dim yDest% ' destination y
721.  
722.     ' Copy from palette
723.     _Source imgPalette&
724.  
725.     ' Draw to screen
726.     _Dest imgScreen&
727.  
728.     ' GET THE ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
729.     sr% = 0 ' TileNum% \ rows%
730.  
731.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
732.     sy1% = sr% * 8
733.  
734.     ' draw background if not transparent
735.     If bgColorIndex >= LBound(arrColor) Then
736.         If bgColorIndex <= UBound(arrColor) Then
737.             If arrColor(bgColorIndex) <> cEmpty Then
738.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
739.                 sc% = bgColorIndex ' TileNum% Mod rows%
740.  
741.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
742.                 sx1% = sc% * 8
743.  
744.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
745.                 sx2% = sx1% + 7
746.  
747.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
748.                 sy2% = sy1% + 7
749.  
750.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
751.                 xDest% = iX * 8 ' dx% * 8
752.  
753.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
754.                 yDest% = iY * 8 ' (dy% * 8) '+ yOffset%
755.  
756.                 ' Copy portion of source to the top-left corner of the destination page
757.                 _PutImage (xDest%, yDest%), _
758.                     imgPalette&, imgScreen&, _
759.                     (sx1%, sy1%)-(sx2%, sy2%)
760.             End If
761.         End If
762.     End If
763.  
764.     If fgColorIndex >= LBound(arrColor) Then
765.         If fgColorIndex <= UBound(arrColor) Then
766.             For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
767.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
768.                 sc% = fgColorIndex ' TileNum% Mod rows%
769.  
770.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
771.                 sx1% = sc% * 8
772.  
773.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
774.                 'sx2% = sx1% + 7
775.                 sx2% = sx1% + (m_arrLineTiles(iTileNum, iLoop).x2 - m_arrLineTiles(iTileNum, iLoop).x1)
776.  
777.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
778.                 'sy2% = sy1% + 7
779.                 sy2% = sy1% + (m_arrLineTiles(iTileNum, iLoop).y2 - m_arrLineTiles(iTileNum, iLoop).y1)
780.  
781.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
782.                 xDest% = (iX * 8) + m_arrLineTiles(iTileNum, iLoop).x1 ' dx% * 8
783.  
784.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
785.                 yDest% = (iY * 8) + m_arrLineTiles(iTileNum, iLoop).y1 ' (dy% * 8) '+ yOffset%
786.  
787.                 ' Copy portion of source to the top-left corner of the destination page
788.                 _PutImage (xDest%, yDest%), _
789.                     imgPalette&, imgScreen&, _
790.                     (sx1%, sy1%)-(sx2%, sy2%)
791.  
792.             Next iLoop
793.         End If
794.     End If
795. End Sub ' DrawVectorTilePutImage
796.  
797. ' /////////////////////////////////////////////////////////////////////////////
798. ' (Same as DrawVectorTilePutImage but uses hardware images.)
799.  
800. ' Draw the shape with _PutImage commands using hardware images:
801.  
802. ' Requires that this global shared variable be declared:
803. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
804. ' containing
805. '     m_arrLineTiles({iTileNum}, {iShapeNum})
806. ' where for each tile, dimension 2 index 0:
807. '     m_arrLineTiles({iTileNum}, 0).PixelCount
808. ' holds the last used {iShapeNum} index.
809.  
810. ' Receives:
811. ' imgScreen& = image handle of hardware image for the screen to draw to
812. ' imgPalette& = image handle of hardware image for palette containing 8x8 squares each with the desired color
813. ' arrColor() = array containing _UNSIGNED Long RGB color values
814. ' iTileNum% = 0-255, number of the tile in m_arrLineTiles to draw
815. ' iX, iY = x/y position to draw 8x8 tile to (multiplied by 8 to get screen position)
816. ' fgColor, bgColor = index for foreground/background color in arrColor (which contains the actual RGB values)
817.  
818. Sub DrawVectorTilePutImageHW( _
819.     imgPalette&, arrColor() as _UNSIGNED Long, _
820.     iTileNum As Integer, iX As Integer, iY As Integer, _
821.     fgColorIndex As Integer, bgColorIndex As Integer)
822.  
823.     Dim iLoop As Integer
824.     Dim sc% ' source column on tile sheet
825.     Dim sr% ' source row on tile sheet
826.     Dim sx1% ' source start x
827.     Dim sx2% ' source end x
828.     Dim sy1% ' source start y
829.     Dim sy2% ' source end y
830.     Dim xDest% ' destination x
831.     Dim yDest% ' destination y
832.  
833.     ' GET THE ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
834.     sr% = 0 ' TileNum% \ rows%
835.  
836.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
837.     sy1% = sr% * 8
838.  
839.     ' draw background if not transparent
840.     If bgColorIndex >= LBound(arrColor) Then
841.         If bgColorIndex <= UBound(arrColor) Then
842.             If arrColor(bgColorIndex) <> cEmpty Then
843.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
844.                 sc% = bgColorIndex ' TileNum% Mod rows%
845.  
846.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
847.                 sx1% = sc% * 8
848.  
849.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
850.                 sx2% = sx1% + 7
851.  
852.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
853.                 sy2% = sy1% + 7
854.  
855.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
856.                 xDest% = iX * 8
857.  
858.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
859.                 yDest% = iY * 8
860.  
861.                 ' Copy portion of source to the top-left corner of the destination page
862.                 _PutImage (xDest%, yDest%), _
863.                     imgPalette&, , _
864.                     (sx1%, sy1%)-(sx2%, sy2%)
865.             End If
866.         End If
867.     End If
868.  
869.     If fgColorIndex >= LBound(arrColor) Then
870.         If fgColorIndex <= UBound(arrColor) Then
871.             For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
872.                 ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
873.                 sc% = fgColorIndex ' TileNum% Mod rows%
874.  
875.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
876.                 sx1% = sc% * 8
877.  
878.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
879.                 sx2% = sx1% + (m_arrLineTiles(iTileNum, iLoop).x2 - m_arrLineTiles(iTileNum, iLoop).x1)
880.  
881.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
882.                 sy2% = sy1% + (m_arrLineTiles(iTileNum, iLoop).y2 - m_arrLineTiles(iTileNum, iLoop).y1)
883.  
884.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
885.                 xDest% = (iX * 8) + m_arrLineTiles(iTileNum, iLoop).x1
886.  
887.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
888.                 yDest% = (iY * 8) + m_arrLineTiles(iTileNum, iLoop).y1
889.  
890.                 ' Copy portion of source to the top-left corner of the destination page
891.                 _PutImage (xDest%, yDest%), _
892.                     imgPalette&, , _
893.                     (sx1%, sy1%)-(sx2%, sy2%)
894.             Next iLoop
895.         End If
896.     End If
897. End Sub ' DrawVectorTilePutImageHW
898.  
899. ' /////////////////////////////////////////////////////////////////////////////
900. ' Receives an array of _Unsigned Long RGB color values
901. ' and returns a new image imgNew
902. ' containing 8x8 squares with each color
903.  
904. ' Usage:
905. ' MakePaletteImage imgNew, arrColorRGB()
906.  
907. Sub MakePaletteImage (imgNew As Long, arrColorRGB() As _Unsigned Long)
908.     Dim tw% ' width/height of tile
909.     Dim iCount As Integer
910.     Dim iY As Integer
911.     Dim iX As Integer
912.     Dim iLoop1 As Integer
913.  
914.     tw% = 8 ' SIZE OF TILE
915.  
916.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
917.  
918.     iY = tw%
919.     iX = ((UBound(arrColorRGB) - LBound(arrColorRGB)) + 1) * tw%
920.     If iX > 0 Then
921.         imgNew = _NewImage(iX, iY, 32)
922.         _Dest imgNew&
923.  
924.         iY = 0
925.         iCount = -1
926.         For iLoop1 = LBound(arrColorRGB) To UBound(arrColorRGB)
927.             iCount = iCount + 1
928.             iX = iCount * tw%
929.             Line (iX, iY)-(iX + 7, iY + 7), arrColorRGB(iCount), BF
930.         Next iLoop1
931.     End If
932. End Sub ' MakePaletteImage
933.  
934. ' /////////////////////////////////////////////////////////////////////////////
935.  
936. Sub MakePaletteImageTest
937.     Dim arrColor(0 To 7) As _Unsigned Long
938.     Dim imgPalette As Long ' contains palette of colors
939.     Dim imgScreen As Long ' the main display
940.  
941.     arrColor(0) = cBlack
942.     arrColor(1) = cRed
943.     arrColor(2) = cYellow
944.     arrColor(3) = cLime
945.     arrColor(4) = cCyan
946.     arrColor(5) = cBlue
947.     arrColor(6) = cPurple
948.     arrColor(7) = cMagenta
949.     'arrColor(8) = cEmpty
950.  
951.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
952.     Screen imgScreen
953.     Cls , cGray
954.  
955.     MakePaletteImage imgPalette, arrColor()
956.  
957.     ' Draw palette on screen:
958.     '_PutImage (xDest%, yDest%), imgSource&, imgDest&, (sx1%, sy1%)-(sx2%, sy2%)
959.     _PutImage (400, 300), imgPalette, imgScreen, (0, 0)-(_Width(imgPalette), _Height(imgPalette))
960.  
961.     ' Promput user
962.     _Dest imgScreen
963.     Color cWhite, cBlack
964.     'PrintString1 15, 1, "Press any key to continue"
965.     Locate 15, 1: Print "Press any key to continue";
966.     Sleep
967.  
968.     Screen 0 ' RETURN TO TEXT SCREEN
969.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
970.  
971. End Sub ' MakePaletteImage
972.  
973. ' /////////////////////////////////////////////////////////////////////////////
974. ' Draw the shape with Line commands:
975.  
976. ' Requires that this global shared variable be declared:
977. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
978. ' containing
979. '     m_arrLineTiles({iTileNum}, {iShapeNum})
980. ' where for each tile, dimension 2 index 0:
981. '     m_arrLineTiles({iTileNum}, 0).PixelCount
982. ' holds the last used {iShapeNum} index.
983.  
984. Sub DrawVectorTileLine (iTileNum As Integer, iX As Integer, iY As Integer, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
985.     If bgColor <> cEmpty Then
986.         Line (iX, iY)-(iX + 7, iY + 7), bgColor, BF
987.     End If
988.     Dim iLoop As Integer
989.     For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
990.         Line (iX+m_arrLineTiles(iTileNum, iLoop).x1, _
991.             iY+m_arrLineTiles(iTileNum, iLoop).y1 _
992.             )-(iX+m_arrLineTiles(iTileNum, iLoop).x2, _
993.             iY+m_arrLineTiles(iTileNum, iLoop).y2), _
994.             fgColor, BF
995.     Next iLoop
996. End Sub ' DrawVectorTileLine
997.  
998. ' /////////////////////////////////////////////////////////////////////////////
999. ' Get line drawing coordinates for 8x8 tileset.
1000.  
1001. ' Requires that this global shared variable be declared:
1002. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
1003. ' containing
1004. '     m_arrLineTiles({iTileNum}, {iShapeNum})
1005. ' where for each tile, dimension 2 index 0:
1006. '     m_arrLineTiles({iTileNum}, 0).PixelCount
1007. ' holds the last used {iShapeNum} index.
1008.  
1009. ' VECTOR TILE DRAWING EXPERIMENT
1010.  
1011. ' Translates an 8x8 raster tileset into a set of (hopefully)
1012. ' optimized rectangle coordinates that can be quickly drawn to
1013. ' the screen with Line.
1014.  
1015. ' GOAL: Optimize for each shape by determining how to draw it with the
1016. ' minimum number of line commands.
1017. '
1018. ' For example this:
1019. '     ' DRAW WITH HORIZONTAL LINES
1020. '     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
1021. '     Line (iX + 6, iY + 4)-(iX + 6, iY + 4), fgColor
1022. ' could be replaced with:
1023. '     ' DRAW WITH VERTICAL LINES
1024. '     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
1025.  
1026. ' For each tile, we store a list of line coordinates (x1,y1,x2,y2)
1027. ' in a 2D array, and draw using a simple drawing routine that
1028. ' receives the list of coordinates, fgColor and bgColor,
1029. ' and draws all shapes (solid rectangles) with Line.
1030. ' If bgColor is not transparent and if we want a background color
1031. ' then we first draw an 8x8 bgColor rectangle first and then
1032. ' draw the shape on top of that.
1033.  
1034. ' Rather than compute this on the fly, we could precompute it and
1035. ' for each given tile, store the list of those rectangle coordinates
1036. ' (x1,y1,x2,y2) for drawing it indexed by the tile's definition in
1037. ' hexidecimal where 16-bits (0-F) defines the bit pattern for each
1038. ' row in the tile, therefore a tile's definition can be stored by
1039. ' 8 characters (or less if we use base 64). Perhaps build a utility
1040. ' that will compute the optimal drawing pattern for every possible
1041. ' combination of an 8x8 grid, and index them all by the tile's 8-byte
1042. ' hexidecimal definition. It might take a while to run, but once it
1043. ' does, we will have a database of every possible tile's optimized
1044. ' drawing instructions that can be quickly looked up.
1045. ' Then we only pull out those definitions for the tiles that our
1046. ' given program uses, so the data would be relatively small
1047. ' (even smaller if we encode it with base-64).
1048.  
1049. ' TODO: maybe optimize with linked list?
1050.  
1051. Sub GetVectorTiles
1052.     Dim RoutineName As String: RoutineName = "GetVectorTiles"
1053.     ReDim arrTileText(0 To 255) As String
1054.     ReDim arrShapes1(-1) As RectangleType
1055.     Dim iTileNum As Integer
1056.     Dim iLoop1 As Integer
1057.     Dim sLine As String
1058.     Dim iLen As Integer
1059.  
1060.     '' DEBUG
1061.     'Dim sStartTime As String : sStartTime = "TBD"
1062.     'Dim sEndTime As String : sEndTime = "TBD"
1063.     'sStartTime = CurrentDateTime$
1064.     'DebugPrint CurrentDateTime$ + " started " + RoutineName
1065.  
1066.     ' Get raster tiles as a string array
1067.     GetTileText arrTileText()
1068.  
1069.     ' Get minimum set of Line coordinates for each tile
1070.     For iTileNum = 0 To 255
1071.         FindOptimizedVector arrTileText(iTileNum), arrShapes1()
1072.  
1073.         ' If we have coordinates, add it to the database
1074.         If UBound(arrShapes1) > -1 Then
1075.  
1076.             'DebugPrint "#   x1   y1   x2   y2   Pixels    IsActive"
1077.             'for iLoop1 = lbound(arrShapes1) to ubound(arrShapes1)
1078.             '    sLine = ""
1079.             '    sLine = sLine + left$(cstr$(iLoop1) + String$(4, " "), 4)
1080.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).x1) + String$(2, " "), 2) + "   "
1081.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).y1) + String$(2, " "), 2) + "   "
1082.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).x2) + String$(2, " "), 2) + "   "
1083.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).y2) + String$(2, " "), 2) + "   "
1084.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).PixelCount) + String$(7, " "), 7) + "   "
1085.             '    sLine = sLine + TrueFalse$(arrShapes1(iLoop1).IsActive)
1086.             '    DebugPrint sLine
1087.             'next iLoop1
1088.  
1089.             ' SAVE SHAPES TO TILE
1090.             iLen = 0
1091.             For iLoop1 = LBound(arrShapes1) To UBound(arrShapes1)
1092.                 If arrShapes1(iLoop1).IsActive = TRUE Then
1093.                     iLen = iLen + 1
1094.  
1095.                     ' NOTE: we do -1 because FindOptimizedVector does it 1-based,
1096.                     '       don't ask me why, i was confused and don't want to
1097.                     '       spend time right now to fix it,
1098.                     '       but it saves math later to do 0-based
1099.                     m_arrLineTiles(iTileNum, iLen).x1 = arrShapes1(iLoop1).x1 - 1
1100.                     m_arrLineTiles(iTileNum, iLen).y1 = arrShapes1(iLoop1).y1 - 1
1101.                     m_arrLineTiles(iTileNum, iLen).x2 = arrShapes1(iLoop1).x2 - 1
1102.                     m_arrLineTiles(iTileNum, iLen).y2 = arrShapes1(iLoop1).y2 - 1
1103.  
1104.                     m_arrLineTiles(iTileNum, iLen).PixelCount = arrShapes1(iLoop1).PixelCount
1105.                     m_arrLineTiles(iTileNum, iLen).IsActive = arrShapes1(iLoop1).IsActive
1106.                 End If
1107.             Next iLoop1
1108.  
1109.             ' MARK TILE (ubound 2, index 0) AS HAVING SHAPES + SAVE COUNT
1110.             m_arrLineTiles(iTileNum, 0).IsActive = TRUE
1111.             m_arrLineTiles(iTileNum, 0).PixelCount = iLen ' (iTileNum, 0).PixelCount stores the # of shapes
1112.  
1113.             ' DISABLE ANY REMAINING ENTRIES
1114.             For iLoop1 = (iLen + 1) To UBound(m_arrLineTiles, 2)
1115.                 m_arrLineTiles(iTileNum, iLoop1).IsActive = FALSE
1116.             Next iLoop1
1117.  
1118.         Else
1119.             ' This tile must have been blank
1120.             'DebugPrint "*** NO SHAPES TO DRAW THIS TILE ***"
1121.  
1122.             ' MARK THIS TILE AS HAVING NO SHAPES
1123.             m_arrLineTiles(iTileNum, 0).IsActive = FALSE
1124.             m_arrLineTiles(iTileNum, 0).PixelCount = 0 ' (iTileNum, 0).PixelCount stores the # of shapes
1125.         End If
1126.     Next iTileNum
1127.  
1128.     '' DEBUG
1129.     'sEndTime = CurrentDateTime$
1130.     'DebugPrint RoutineName + " finished:"
1131.     'DebugPrint "    started  at: " + sStartTime
1132.     'DebugPrint "    finished at: " + sEndTime
1133. End Sub ' GetVectorTiles
1134.  
1135. ' /////////////////////////////////////////////////////////////////////////////
1136. ' 254 solid
1137. ' 253 empty
1138. ' 252 shaded
1139. ' 241 bricks
1140. ' 191 checker
1141. ' 194 - 197 arrows u/d/l/r
1142. ' 169 top left corner
1143. ' 154 diamond
1144. ' 155 +
1145. ' 151 empty circle
1146. ' 145 solid circle
1147. ' 147 heart
1148.  
1149. Sub GetVectorTilesTest
1150.     Dim imgScreen As Long ' the main display
1151.     Dim MyString As String
1152.     Dim iLoop As Integer
1153.     Dim iTileNum As Integer
1154.     Dim arrColor(0 To 8) As _Unsigned Long
1155.     Dim iMinFgColorIndex As Integer: iMinFgColorIndex = 0
1156.     Dim iMaxFgColorIndex As Integer: iMaxFgColorIndex = 7
1157.     Dim iMinBgColorIndex As Integer: iMinBgColorIndex = 0
1158.     Dim iMaxBgColorIndex As Integer: iMaxBgColorIndex = 8
1159.     Dim iFgColorIndex As Integer: iFgColorIndex = iMinFgColorIndex
1160.     Dim iBgColorIndex As Integer: iBgColorIndex = iMinBgColorIndex
1161.     Dim iX As Integer
1162.     Dim iY As Integer
1163.     Dim iMinX As Integer
1164.     Dim iMaxX As Integer
1165.     Dim iMinY As Integer
1166.     Dim iMaxY As Integer
1167.  
1168.     ' Initialize colors
1169.     arrColor(0) = cBlack
1170.     arrColor(1) = cRed
1171.     arrColor(2) = cYellow
1172.     arrColor(3) = cLime
1173.     arrColor(4) = cCyan
1174.     arrColor(5) = cBlue
1175.     arrColor(6) = cPurple
1176.     arrColor(7) = cMagenta
1177.     arrColor(8) = cEmpty
1178.  
1179.     ' Set up screen
1180.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
1181.     Screen imgScreen
1182.     Cls , cGray
1183.  
1184.     ' Set up tiles
1185.     GetVectorTiles
1186.  
1187.     ' Test text
1188.     MyString = "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1189.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1190.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1191.         "THIS IS A TEST!"
1192.  
1193.     ' Set up screen boundaries, initial colors, etc.
1194.     iMinX = 0: iMaxX = _Width(0) \ 8
1195.     iMinY = 0: iMaxY = _Height(0) \ 8
1196.     iFgColorIndex = iMinFgColorIndex - 1
1197.     iY = 5
1198.     iX = 5
1199.     For iLoop = 1 To Len(MyString)
1200.         iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iMaxFgColorIndex Then iFgColorIndex = iMinFgColorIndex
1201.         iBgColorIndex = iBgColorIndex + 1: If iBgColorIndex > iMaxBgColorIndex Then iBgColorIndex = iMinBgColorIndex
1202.  
1203.         iTileNum = Asc(Mid$(MyString, iLoop, 1))
1204.         If iTileNum = 13 Then
1205.             ' Linebreak = go to a new line
1206.             iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
1207.         Else
1208.             'DrawVectorTileLine iTileNum, iX*8, iY*8, arrColor(iFgColorIndex), cEmpty
1209.             DrawVectorTileLine iTileNum, iX * 8, iY * 8, arrColor(iFgColorIndex), arrColor(iBgColorIndex)
1210.             iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
1211.         End If
1212.  
1213.     Next iLoop
1214.  
1215.     ' Promput user
1216.     Color cWhite, cBlack: Locate 22, 1
1217.     Print "Press any key to continue";
1218.     Sleep
1219.  
1220.     Screen 0 ' RETURN TO TEXT SCREEN
1221.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
1222. End Sub ' GetVectorTilesTest
1223.  
1224. ' /////////////////////////////////////////////////////////////////////////////
1225. ' Calculates and returns the coordinates for every possible rectangle shape
1226. ' from 1-8 pixels high, and 1-8 pixels wide.
1227.  
1228. Sub GetAllPossibleShapes (arrShapes1() As RectangleType)
1229.     ReDim arrShapes1(-1) As RectangleType
1230.     Dim iLoopRows As Integer
1231.     Dim iLoopCols As Integer
1232.     Dim iIndex As Integer
1233.     Dim iLoopY As Integer
1234.     Dim iLoopX As Integer
1235.  
1236.     For iLoopRows = 1 To 8
1237.         For iLoopCols = 1 To 8
1238.             ' Add next shape to array
1239.             iIndex = UBound(arrShapes1) + 1
1240.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
1241.  
1242.             ' Save coordinates
1243.             arrShapes1(iIndex).x1 = 1
1244.             arrShapes1(iIndex).y1 = 1
1245.             arrShapes1(iIndex).x2 = iLoopCols
1246.             arrShapes1(iIndex).y2 = iLoopRows
1247.             arrShapes1(UBound(arrShapes1)).PixelCount = 0
1248.  
1249.             ' Count Pixels
1250.             For iLoopY = 1 To 8
1251.                 For iLoopX = 1 To 8
1252.                     if _
1253.                         iLoopY >= arrShapes1(iIndex).y1 _
1254.                         and _
1255.                         iLoopY <= arrShapes1(iIndex).y2 _
1256.                         and _
1257.                         iLoopX >= arrShapes1(iIndex).x1 _
1258.                         and _
1259.                         iLoopX <= arrShapes1(iIndex).x2 _
1260.                         then
1261.  
1262.                         'sLine = sLine + "#"
1263.                         arrShapes1(UBound(arrShapes1)).PixelCount = arrShapes1(UBound(arrShapes1)).PixelCount + 1
1264.                     Else
1265.                         'sLine = sLine + "."
1266.                     End If
1267.                 Next iLoopX
1268.                 'DebugPrint sLine
1269.             Next iLoopY
1270.  
1271.         Next iLoopCols
1272.     Next iLoopRows
1273. End Sub ' GetAllPossibleShapes
1274.  
1275. ' /////////////////////////////////////////////////////////////////////////////
1276. ' Tests GetAllPossibleShapes to retrieve the coordinates for every possible
1277. ' rectangle shape from 1-8 pixels high, and 1-8 pixels wide,
1278. ' and uses Line to draw them on the screen.
1279.  
1280. Sub GetAllPossibleShapesTest
1281.     ReDim arrShapes1(-1) As RectangleType
1282.     Dim arrColor(0 To 7) As _Unsigned Long
1283.     Dim iLoopShape As Integer
1284.     Dim iOffsetY As Integer
1285.     Dim iOffsetX As Integer
1286.     Dim iColorIndex As Integer
1287.     Dim iMinColorIndex As Integer: iMinColorIndex = 1
1288.     Dim iMaxColorIndex As Integer: iMaxColorIndex = 7
1289.     Dim in$
1290.     Dim iX As Integer
1291.     Dim iY As Integer
1292.     Dim iSizeW As Integer
1293.     Dim iSizeH As Integer
1294.     Dim fgColor As _Unsigned Long
1295.     Dim iMinX As Integer
1296.     Dim iMinY As Integer
1297.     Dim iMaxX As Integer
1298.     Dim iMaxY As Integer
1299.  
1300.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
1301.     iMinX = 0
1302.     iMinY = 17
1303.     iMaxX = (_Width(0) / 8) ' iMaxX = _Width(0) - 16
1304.     iMaxY = _Height(0) - 16
1305.     iOffsetY = iMinY
1306.     iOffsetX = iMinX
1307.  
1308.     arrColor(0) = cBlack
1309.     arrColor(1) = cRed
1310.     arrColor(2) = cYellow
1311.     arrColor(3) = cLime
1312.     arrColor(4) = cCyan
1313.     arrColor(5) = cBlue
1314.     arrColor(6) = cPurple
1315.     arrColor(7) = cMagenta
1316.  
1317.     GetAllPossibleShapes arrShapes1()
1318.  
1319.     iColorIndex = iMinColorIndex
1320.     For iLoopShape = 0 To UBound(arrShapes1)
1321.         DebugPrint _
1322.             "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
1323.             "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
1324.             cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
1325.  
1326.         iX = arrShapes1(iLoopShape).x1 + iOffsetX
1327.         iY = arrShapes1(iLoopShape).y1 + iOffsetY
1328.         iSizeW = (arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1) + 1
1329.         iSizeH = (arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1) + 1
1330.         fgColor = arrColor(iColorIndex)
1331.         DrawRectSolid iX, iY, iSizeW, iSizeH, fgColor
1332.  
1333.         iOffsetX = iOffsetX + 16: If iOffsetX > iMaxX Then iOffsetX = iMinX: iOffsetY = iOffsetY + 16: If iOffsetY > iMaxY Then iOffsetY = iMinY
1334.         iColorIndex = iColorIndex + 1: If iColorIndex > iMaxColorIndex Then iColorIndex = iMinColorIndex
1335.     Next iLoopShape
1336.  
1337.     Locate 1, 1
1338.     Color cWhite, cBlack
1339.     Input "PRESS <ENTER> TO CONTINUE"; in$
1340.     Screen 0
1341. End Sub ' GetAllPossibleShapes
1342.  
1343. ' /////////////////////////////////////////////////////////////////////////////
1344.  
1345. Sub DumpNextShape (oShape As RectangleType, sVarName As String)
1346.     Dim iLoopY As Integer
1347.     Dim iLoopX As Integer
1348.     Dim sLine As String
1349.  
1350.     If Len(sVarName) > 0 Then
1351.         DebugPrint sVarName + ":"
1352.     Else
1353.         DebugPrint "RectangleType:"
1354.     End If
1355.  
1356.     DebugPrint _
1357.         "(" + cstr$(oShape.x1) + ", " + cstr$(oShape.y1) + ")-" + _
1358.         "(" + cstr$(oShape.x2) + ", " + cstr$(oShape.y2) + ") " + _
1359.         cstr$(oShape.PixelCount) + " pixels, " + _
1360.         "IsActive=" + TrueFalse$(oShape.IsActive)
1361.  
1362.     For iLoopY = 1 To 8
1363.         sLine = ""
1364.         For iLoopX = 1 To 8
1365.             if _
1366.                 iLoopY >= oShape.y1 _
1367.                 and _
1368.                 iLoopY <= oShape.y2 _
1369.                 and _
1370.                 iLoopX >= oShape.x1 _
1371.                 and _
1372.                 iLoopX <= oShape.x2 _
1373.                 then
1374.  
1375.                 sLine = sLine + "#"
1376.             Else
1377.                 sLine = sLine + "."
1378.             End If
1379.         Next iLoopX
1380.         DebugPrint sLine
1381.     Next iLoopY
1382.     DebugPrint ""
1383. End Sub ' DumpNextShape
1384.  
1385. ' /////////////////////////////////////////////////////////////////////////////
1386. ' Dump all shapes in array.
1387.  
1388. ' {i} in sVarName is replaced by array index
1389.  
1390. Sub DumpShapeList (arrShapes() As RectangleType, sVarName As String)
1391.     Dim iLoop1 As Integer
1392.     Dim sNextVarName As String
1393.  
1394.     For iLoop1 = 0 To UBound(arrShapes3)
1395.         sNextVarName = Replace$(sVarName, "{i}", cstr$(iLoop1))
1396.         DumpNextShape arrShapes(iLoop1), sVarName
1397.     Next iLoop1
1398. End Sub ' DumpShapeList
1399.  
1400. ' /////////////////////////////////////////////////////////////////////////////
1401. ' Receives an array of shapes
1402. '
1403. Sub GetActiveShapes (arrShapes2() As RectangleType, arrShapes3() As RectangleType)
1404.     Dim iLoopShape As Integer
1405.     Dim iIndex As Integer
1406.     ReDim arrShapes3(-1) As RectangleType
1407.     For iLoopShape = 0 To UBound(arrShapes2)
1408.         If arrShapes2(iLoopShape).IsActive = TRUE Then
1409.             iIndex = UBound(arrShapes3) + 1
1410.             ReDim _Preserve arrShapes3(0 To iIndex) As RectangleType
1411.             arrShapes3(iIndex).y1 = arrShapes2(iLoopShape).y1
1412.             arrShapes3(iIndex).x1 = arrShapes2(iLoopShape).x1
1413.             arrShapes3(iIndex).y2 = arrShapes2(iLoopShape).y2
1414.             arrShapes3(iIndex).x2 = arrShapes2(iLoopShape).x2
1415.             arrShapes3(iIndex).PixelCount = arrShapes2(iLoopShape).PixelCount
1416.             arrShapes3(iIndex).IsActive = arrShapes2(iLoopShape).IsActive
1417.         End If
1418.     Next iLoopShape
1419. End Sub ' GetActiveShapes
1420.  
1421. ' /////////////////////////////////////////////////////////////////////////////
1422.  
1423. Function DelimIntegerListsAreEqual% (sList1 As String, sList2 As String, sDelim As String)
1424.     Dim bResult As Integer: bResult = FALSE
1425.     Dim arrList1(-1) As Integer
1426.     Dim arrList2(-1) As Integer
1427.     Dim iLoop1 As Integer
1428.     Dim iLoop2 As Integer
1429.     Dim bFound As Integer
1430.  
1431.     ' Convert delimited lists into integer arrays
1432.     GetIntegerArrayFromDelimList sList1, sDelim, 0, arrList1()
1433.     GetIntegerArrayFromDelimList sList2, sDelim, 0, arrList2()
1434.  
1435.     ' Are lists same size?
1436.     If UBound(arrList1) = UBound(arrList2) Then
1437.         bResult = TRUE
1438.     End If
1439.  
1440.     ' Check list #2 against list #1
1441.     If bResult = TRUE Then
1442.         ' Are all items in list #1 in list #2?
1443.         For iLoop1 = LBound(arrList1) To UBound(arrList1)
1444.             bFound = FALSE
1445.             For iLoop2 = LBound(arrList2) To UBound(arrList2)
1446.                 If arrList2(iLoop2) = arrList1(iLoop1) Then
1447.                     bFound = TRUE
1448.                     Exit For
1449.                 End If
1450.             Next iLoop2
1451.             If bFound = FALSE Then
1452.                 ' not found, lists not equal
1453.                 bResult = FALSE
1454.                 Exit For
1455.             End If
1456.         Next iLoop1
1457.     End If
1458.  
1459.     ' Check list #1 against list #2
1460.     If bResult = TRUE Then
1461.         For iLoop1 = LBound(arrList2) To UBound(arrList2)
1462.             bFound = FALSE
1463.             For iLoop2 = LBound(arrList1) To UBound(arrList1)
1464.                 If arrList1(iLoop2) = arrList2(iLoop1) Then
1465.                     bFound = TRUE
1466.                     Exit For
1467.                 End If
1468.             Next iLoop2
1469.             If bFound = FALSE Then
1470.                 ' not found, lists not equal
1471.                 bResult = FALSE
1472.                 Exit For
1473.             End If
1474.         Next iLoop1
1475.     End If
1476.  
1477.     ' Return results
1478.     DelimIntegerListsAreEqual% = bResult
1479. End Function ' DelimIntegerListsAreEqual%
1480.  
1481. ' /////////////////////////////////////////////////////////////////////////////
1482.  
1483. ' DumpTileFromShapes arrShapes1(), bIncludeInactive, bShowRowsAndColumns
1484.  
1485. Sub DumpTileFromShapes (arrShapes1() As RectangleType, bIncludeInactive As Integer, bShowRowsAndColumns As Integer)
1486.     ReDim arrTile1(1 To 8, 1 To 8) As String
1487.     Dim iDestY As Integer
1488.     Dim iDestX As Integer
1489.     Dim iLoop1 As Integer
1490.     Dim sLine As String
1491.  
1492.     ' Initialize next tile
1493.     For iDestY = 1 To 8: For iDestX = 1 To 8: arrTile1(iDestY, iDestX) = ".": Next iDestX: Next iDestY
1494.  
1495.     ' Draw all (active) shapes onto tile
1496.     For iLoop1 = LBound(arrShapes1) To UBound(arrShapes1)
1497.         If arrShapes1(iLoop1).IsActive = TRUE Or bIncludeInactive = TRUE Then
1498.             For iDestY = 1 To 8
1499.                 For iDestX = 1 To 8
1500.                     If iDestY >= arrShapes1(iLoop1).y1 Then
1501.                         If iDestY <= arrShapes1(iLoop1).y2 Then
1502.                             If iDestX >= arrShapes1(iLoop1).x1 Then
1503.                                 If iDestX <= arrShapes1(iLoop1).x2 Then
1504.                                     arrTile1(iDestY, iDestX) = "#"
1505.                                 End If
1506.                             End If
1507.                         End If
1508.                     End If
1509.                 Next iDestX
1510.             Next iDestY
1511.         End If
1512.     Next iLoop1
1513.  
1514.     ' Output the shape
1515.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
1516.     For iDestY = 1 To 8
1517.         sLine = ""
1518.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
1519.         For iDestX = 1 To 8
1520.             sLine = sLine + arrTile1(iDestY, iDestX)
1521.         Next iDestX
1522.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
1523.         DebugPrint sLine
1524.     Next iDestY
1525.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
1526.  
1527. End Sub ' DumpTileFromShapes
1528.  
1529. ' /////////////////////////////////////////////////////////////////////////////
1530.  
1531. ' DumpTile arrTile1(), bShowRowsAndColumns
1532.  
1533. Sub DumpTile (arrTile1( 1 To 8 , 1 To 8) As String, bShowRowsAndColumns As Integer)
1534.     Dim iDestY As Integer
1535.     Dim iDestX As Integer
1536.     Dim sLine As String
1537.  
1538.     ' Output the tile
1539.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
1540.     For iDestY = 1 To 8
1541.         sLine = ""
1542.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
1543.         For iDestX = 1 To 8
1544.             sLine = sLine + arrTile1(iDestY, iDestX)
1545.         Next iDestX
1546.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
1547.         DebugPrint sLine
1548.     Next iDestY
1549.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
1550. End Sub ' DumpTile
1551.  
1552. ' /////////////////////////////////////////////////////////////////////////////
1553. ' Receives an 8x8 raster tile definition and returns a list of coordinates
1554. ' for the minimum number of rectangles to draw that tile.
1555.  
1556. ' This version uses a brute force method, ie draw every size rectangle
1557. ' from 1x1 up to 8x8 (which can themselves be precalculated) in every
1558. ' available location in the 8x8 grid (where no part of any rectangle falls
1559. ' off the grid), then tries every combination of those rectangles to find
1560. ' the combination where the the minimum number of rectangles cover all
1561. ' points (or if 2 combinations have the same # of rectangles, the one that
1562. ' covers the lesser total points).
1563.  
1564. ' (You can try searching for "rectangular decomposition of binary images"
1565. ' and similar to find a better algorithm.)
1566.  
1567. ' Receives:
1568. ' TileString (String) = contains 8x8 raster tile definition as a string, where
1569. '                       empty space represended by ".",
1570. '                       pixel represented by any non-whitespace character,
1571. '                       each row separated by chr$(13).
1572. ' Returns (byref):
1573. ' arrOptimizedShapes (array of RectangleType) = array of rectangle coordinates
1574. '                       defining the shapes that will draw the tile.
1575. '
1576. ' Return value = empty string if successful, error message if not.
1577.  
1578. Sub FindOptimizedVector (TileString As String, arrShapes1() As RectangleType)
1579.     Dim RoutineName As String: RoutineName = "FindOptimizedVector"
1580.     Dim bContinue As Integer: bContinue = TRUE
1581.     ReDim arrTile1(1 To 8, 1 To 8) As String
1582.     ReDim arrTile2(1 To 8, 1 To 8) As String
1583.     ReDim arrShapes2(-1) As RectangleType
1584.     ReDim arrCompare(-1) As DrawCompareType
1585.     Dim oShapeSet As DrawCompareType
1586.     Dim iLoopY As Integer
1587.     Dim iLoopX As Integer
1588.     Dim iDestY As Integer
1589.     Dim iDestX As Integer
1590.     Dim iSizeY As Integer
1591.     Dim iSizeX As Integer
1592.     Dim iEndY As Integer
1593.     Dim iEndX As Integer
1594.     Dim iTestY As Integer
1595.     Dim iTestX As Integer
1596.     Dim bShapeFits As Integer
1597.     Dim iLoop1 As Integer
1598.     Dim iLoop2 As Integer
1599.     Dim iIndex As Integer
1600.     Dim sItemList As String
1601.     Dim iShapeCount As Integer
1602.     Dim iPixelCount As Integer
1603.     Dim bFinished As Integer
1604.     Dim sCompare As String
1605.     ReDim arrTestIndex(-1) As Integer
1606.     Dim iShapeIndex As Integer
1607.     Dim iRound As Integer
1608.     Dim sLine As String
1609.  
1610.     '' ****************************************************************************************************************************************************************
1611.     '' DEBUG:
1612.     'Dim sStartTime As String : sStartTime = CurrentDateTime$
1613.     'Dim sEndTime As String : sEndTime = ""
1614.     'DebugPrint sStartTime + " started " + RoutineName
1615.     '' ****************************************************************************************************************************************************************
1616.  
1617.     ' =============================================================================
1618.     ' INITIALIZE
1619.     If bContinue = TRUE Then
1620.         ' -----------------------------------------------------------------------------
1621.         ' Init results
1622.         ReDim arrShapes1(-1) As RectangleType
1623.  
1624.         ' -----------------------------------------------------------------------------
1625.         ' Turn tile into 2D array
1626.         StringTo2dArray arrTile1(), TileString
1627.  
1628.         ' -----------------------------------------------------------------------------
1629.         ' Count pixels
1630.         iPixelCount = 0
1631.         For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
1632.             For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
1633.                 If arrTile1(iLoopY, iLoopX) <> "." Then
1634.                     iPixelCount = iPixelCount + 1
1635.                 End If
1636.             Next iLoopX
1637.         Next iLoopY
1638.  
1639.         ' If shape is blank no need to continue looking
1640.         ' we can just return an empty array
1641.         If iPixelCount = 0 Then
1642.             bContinue = FALSE
1643.         End If
1644.     End If
1645.  
1646.     ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1647.     ' BEGIN LOOK FOR MINIMUM COMBINATION OF SHAPES TO DRAW TILE
1648.     If bContinue = TRUE Then
1649.         ' =============================================================================
1650.         ' Get a set of every size shape (rectangle) from 1x1 up to 8x8
1651.         GetAllPossibleShapes arrShapes1()
1652.         'DebugPrint "ALL POSSIBLE SHAPES:"
1653.         'DumpShapeList arrShapes1(), "arrShapes1{i}"
1654.  
1655.         ' =============================================================================
1656.         ' Try each shape in every location on the tile, to see which fit
1657.         For iLoop1 = 0 To UBound(arrShapes1)
1658.             ' Try plotting next shape in every position
1659.             For iDestY = 1 To 8
1660.                 For iDestX = 1 To 8
1661.                     ' Track whether shape is fully on the tile at this position
1662.                     bShapeFits = FALSE
1663.  
1664.                     ' Does shape fit at this Y position?
1665.                     iSizeY = arrShapes1(iLoop1).y2 - arrShapes1(iLoop1).y1
1666.                     iEndY = iDestY + iSizeY
1667.                     If iEndY < 9 Then
1668.                         ' Does shape fit at this X position?
1669.                         iSizeX = arrShapes1(iLoop1).x2 - arrShapes1(iLoop1).x1
1670.                         iEndX = iDestX + iSizeX
1671.                         If iEndX < 9 Then
1672.                             ' The shape is fully on the tile here
1673.                             bShapeFits = TRUE
1674.  
1675.                             ' Now see if any of shape's pixels fall outside of tile's pixels?
1676.                             For iTestY = iDestY To iEndY
1677.                                 For iTestX = iDestX To iEndX
1678.                                     If arrTile1(iTestY, iTestX) = "." Then
1679.                                         ' No pixel here, shape fails
1680.                                         bShapeFits = FALSE
1681.                                         Exit For
1682.                                     End If
1683.                                 Next iTestX
1684.                                 If bShapeFits = FALSE Then Exit For
1685.                             Next iTestY
1686.                         End If
1687.                     End If
1688.  
1689.                     ' If shape fits, add it to the list of shapes/positions that work for the tile
1690.                     If bShapeFits = TRUE Then
1691.                         iIndex = UBound(arrShapes2) + 1
1692.                         ReDim _Preserve arrShapes2(0 To iIndex) As RectangleType
1693.                         arrShapes2(iIndex).y1 = iDestY
1694.                         arrShapes2(iIndex).x1 = iDestX
1695.                         arrShapes2(iIndex).y2 = iEndY
1696.                         arrShapes2(iIndex).x2 = iEndX
1697.                         arrShapes2(iIndex).PixelCount = arrShapes1(iLoop1).PixelCount
1698.                         arrShapes2(iIndex).IsActive = TRUE
1699.                     End If
1700.                 Next iDestX
1701.             Next iDestY
1702.         Next iLoop1
1703.  
1704.         ' Eliminate non-active shapes
1705.         GetActiveShapes arrShapes2(), arrShapes1()
1706.  
1707.         'DebugPrint "ALL SHAPES/LOCATIONS THAT MATCHED + FIT:"
1708.         'DumpShapeList arrShapes2(), "arrShapes2{i}"
1709.  
1710.         ' =============================================================================
1711.         ' Remove redundant shapes (any where another shape covers more points)
1712.  
1713.         For iLoop1 = 0 To UBound(arrShapes1)
1714.             ' make sure shape #1 was not eliminated
1715.             If arrShapes1(iLoop1).IsActive = TRUE Then
1716.                 ' compare shape #1 against all other shapes
1717.                 For iLoop2 = 0 To UBound(arrShapes1)
1718.                     ' don't compare against itself
1719.                     If iLoop2 <> iLoop1 Then
1720.                         ' make sure shape #2 was not eliminated
1721.                         If arrShapes1(iLoop2).IsActive = TRUE Then
1722.                             ' can shape #2 do what shape #1 can do? (covers all points shape #1 does)
1723.                             if _
1724.                                 arrShapes1(iLoop1).y1 >= arrShapes1(iLoop2).y1 _
1725.                                 and _
1726.                                 arrShapes1(iLoop1).y2 <= arrShapes1(iLoop2).y2 _
1727.                                 and _
1728.                                 arrShapes1(iLoop1).x1 >= arrShapes1(iLoop2).x1 _
1729.                                 and _
1730.                                 arrShapes1(iLoop1).x2 <= arrShapes1(iLoop2).x2 _
1731.                                 then
1732.  
1733.                                 ' does shape #2 do it better? (cover more points than shape #1)
1734.                                 If arrShapes1(iLoop2).PixelCount >= arrShapes1(iLoop1).PixelCount Then
1735.                                     ' Remove shape #1
1736.                                     arrShapes1(iLoop1).IsActive = FALSE
1737.                                 End If
1738.                             End If
1739.                         End If
1740.                     End If
1741.                 Next iLoop2
1742.             End If
1743.         Next iLoop1
1744.  
1745.         ' Eliminate non-active shapes
1746.         GetActiveShapes arrShapes1(), arrShapes2()
1747.  
1748.         'DebugPrint "SHAPES THAT MATCHED + FIT, NON-REDUNDANT LEVEL 1:"
1749.         'DumpShapeList arrShapes2(), "arrShapes2{i}"
1750.  
1751.     End If
1752.  
1753.     ' =============================================================================
1754.     ' Can we do without any?
1755.     ' Compare all combinations subtractively:
1756.  
1757.     ' 1. Count enabled shapes + total pixels for full list of shapes "set A".
1758.     ' 2. Save "set A" to the "contender list",
1759.     '    with the shape count and total pixel count.
1760.     ' 3. For each shape "x":
1761.     '    a) see if full tile can still be drawn without "x"
1762.     '       (where the set of shapes minus "x" is "set y").
1763.     '    b) If full tile can be drawn, save "set y" to the "contender list"
1764.     '       with the shape count and total pixel count.
1765.     ' 4. When done, identify the winner "set z" that can draw the full tile
1766.     '    using the minimum shape coverage.
1767.     '    a) The set with the smallest tile count wins.
1768.     '    b) In the event of a tie, the set with the least total pixel count wins.
1769.     '    c) In the event of another tie, just use the first finalist.
1770.     ' 5. Disable all shapes NOT in the winning "set z".
1771.     ' 6. Save list of enabled shapes to "last winner".
1772.     ' 7. Repeat steps 1-5 until, comparing the list of enabled shapes to
1773.     '    the list "last winner". When the list stops changing (lists are equal),
1774.     '    we have gone as far as we can go.
1775.     ' 8. Return shapes in "last winner" as final result.
1776.  
1777.     If bContinue = TRUE Then
1778.  
1779.         ' -----------------------------------------------------------------------------
1780.         ' Start with all
1781.         ' 1. Count enabled shapes + total pixels for full list of shapes "set A".
1782.         ' 2. Save "set A" to the "contender list",
1783.         '    with the shape count and total pixel count.
1784.         sItemList = ""
1785.         iShapeCount = 0
1786.         iPixelCount = 0
1787.         For iLoop1 = LBound(arrShapes2) To UBound(arrShapes2)
1788.             sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iLoop1)
1789.             iShapeCount = iShapeCount + 1
1790.             iPixelCount = iPixelCount + arrShapes2(iLoop1).PixelCount
1791.         Next iLoop1
1792.  
1793.         oShapeSet.IndexList = sItemList
1794.         oShapeSet.ShapeCount = iShapeCount
1795.         oShapeSet.PixelCount = iPixelCount
1796.         oShapeSet.IsActive = TRUE
1797.  
1798.         ' -----------------------------------------------------------------------------
1799.         ' Now see which combinations can draw the tile
1800.  
1801.         iRound = 0
1802.         bFinished = FALSE
1803.         Do
1804.             ' At the top of the loop, oShapeSet contains the latest set of shapes
1805.             iRound = iRound + 1
1806.  
1807.             ' Get the list of shapes (indexes pointing to each shape in arrShapes2)
1808.             ' All this packing and unpacking probably wastes cycles
1809.             ' It might not be necessary if we had arrays inside of types!
1810.             GetIntegerArrayFromDelimList oShapeSet.IndexList, ",", 0, arrTestIndex()
1811.  
1812.             ' Clear the list of contenders
1813.             ReDim arrCompare(-1) As DrawCompareType
1814.  
1815.             '' ****************************************************************************************************************************************************************
1816.             'DebugPrint "################################################################################################################################################################"
1817.             'DebugPrint "Round " + cstr$(iRound) + " shapes to dedupe:"
1818.             'for iLoop2 = lbound(arrTestIndex) to ubound(arrTestIndex)
1819.             '    iIndex = arrTestIndex(iLoop2)
1820.             '    DumpNextShape arrShapes2(iIndex), "Shape " + cstr$(iIndex) + " round " + cstr$(iRound) + ""
1821.             '    DebugPrint ""
1822.             'Next iLoop2
1823.             'DebugPrint "################################################################################################################################################################"
1824.             '' ****************************************************************************************************************************************************************
1825.  
1826.             ' 3. For each shape "x":
1827.             '    a) see if full tile can still be drawn without "x"
1828.             '       (where the set of shapes minus "x" is "set y").
1829.             '    b) If full tile can be drawn, save "set y" to the "contender list"
1830.             '       with the shape count and total pixel count.
1831.             For iLoop1 = LBound(arrTestIndex) To UBound(arrTestIndex)
1832.  
1833.                 ''DEBUG:
1834.                 'DebugPrint "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
1835.                 'DebugPrint "Can we eliminate " + cstr$(iLoop1) ' this shape?"
1836.                 'DumpNextShape arrShapes2(iLoop1), "arrShapes2(" + cstr$(iLoop1) + ")"
1837.                 'DebugPrint "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
1838.                 'DebugPrint ""
1839.  
1840.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1841.                 ' Clear test tile
1842.                 ReDim arrTile2(1 To 8, 1 To 8) As String
1843.                 For iDestY = 1 To 8
1844.                     For iDestX = 1 To 8
1845.                         arrTile2(iDestY, iDestX) = "."
1846.                     Next iDestX
1847.                 Next iDestY
1848.  
1849.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1850.                 ' Try drawing next combination of shapes in the test tile
1851.                 sItemList = ""
1852.                 iShapeCount = 0
1853.                 iPixelCount = 0
1854.                 For iLoop2 = LBound(arrTestIndex) To UBound(arrTestIndex)
1855.  
1856.                     ' Make sure it's not shape "x"
1857.                     If iLoop2 <> iLoop1 Then
1858.                         iIndex = arrTestIndex(iLoop2)
1859.  
1860.                         sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iIndex)
1861.                         iShapeCount = iShapeCount + 1
1862.                         iPixelCount = iPixelCount + arrShapes2(iIndex).PixelCount
1863.  
1864.                         For iDestY = 1 To 8
1865.                             For iDestX = 1 To 8
1866.                                 If iDestY >= arrShapes2(iIndex).y1 Then
1867.                                     If iDestY <= arrShapes2(iIndex).y2 Then
1868.                                         If iDestX >= arrShapes2(iIndex).x1 Then
1869.                                             If iDestX <= arrShapes2(iIndex).x2 Then
1870.                                                 arrTile2(iDestY, iDestX) = "#"
1871.                                             End If
1872.                                         End If
1873.                                     End If
1874.                                 End If
1875.                             Next iDestX
1876.                         Next iDestY
1877.                     End If
1878.                 Next iLoop2
1879.  
1880.                 ''DebugPrint "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
1881.                 ''DebugPrint "Attempted drawing tile without " + cstr$(iLoop1) ' item #" + cstr$(iLoop1)
1882.                 ''DumpTile arrTile2(), TRUE
1883.                 'DebugPrint "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
1884.                 'DebugPrint ""
1885.                 'DebugPrint "RESULT$:"
1886.                 iShapeIndex = arrTestIndex(iLoop1)
1887.  
1888.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1889.                 ' Does the test tile match the real tile?
1890.                 sCompare = TilesAreEqual$(arrTile1(), arrTile2())
1891.                 If Len(sCompare) = 0 Then
1892.                     ' Add to the list of contenders
1893.                     iIndex = UBound(arrCompare) + 1
1894.                     ReDim _Preserve arrCompare(0 To iIndex) As DrawCompareType
1895.                     arrCompare(iIndex).IndexList = sItemList
1896.                     arrCompare(iIndex).ShapeCount = iShapeCount
1897.                     arrCompare(iIndex).PixelCount = iPixelCount
1898.                     arrCompare(iIndex).IsActive = TRUE
1899.  
1900.                     'DebugPrint "*******************************************************************************"
1901.                     'DebugPrint "YES: Tile can be drawn without shape " + cstr$(iShapeIndex) + " round " + cstr$(iRound)
1902.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").IndexList  = " + sItemList
1903.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").ShapeCount = " + cstr$(iShapeCount)
1904.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").PixelCount = " + cstr$(PixelCount)
1905.                     'DebugPrint "*******************************************************************************"
1906.  
1907.                     'else
1908.                     'DebugPrint "*******************************************************************************"
1909.                     'DebugPrint "NOPE: Tile cannot be drawn without shape " + cstr$(iShapeIndex) + " round " + cstr$(iRound)
1910.                     'DebugPrint sCompare
1911.                     'DebugPrint "Attempted with:"
1912.                     'DebugPrint ".IndexList  = " + sItemList
1913.                     'DebugPrint ".ShapeCount = " + cstr$(iShapeCount)
1914.                     'DebugPrint ".PixelCount = " + cstr$(PixelCount)
1915.                     'DebugPrint "*******************************************************************************"
1916.                 End If
1917.  
1918.             Next iLoop1
1919.  
1920.             ' =============================================================================
1921.             ' Identify the best combination that uses the least # of shapes + pixels
1922.  
1923.             ' DEDUPE IF THERE ARE >1 GROUPS
1924.             If UBound(arrCompare) > LBound(arrCompare) Then
1925.  
1926.                 '' ****************************************************************************************************************************************************************
1927.                 ''DEBUG:
1928.                 'DebugPrint "RESULTS BEFORE DEDUPE:"
1929.                 'sLine = ","
1930.                 'for iLoop2 = lbound(arrCompare) to ubound(arrCompare)
1931.                 '    if arrCompare(iLoop2).IsActive = TRUE then
1932.                 '        sLine = sLine + cstr$(iLoop2) + ","
1933.                 '        DebugPrint "-------------------------------------------------------------------------------"
1934.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IndexList  = " + arrCompare(iLoop2).IndexList
1935.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").ShapeCount = " + cstr$(arrCompare(iLoop2).ShapeCount)
1936.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").PixelCount = " + cstr$(arrCompare(iLoop2).PixelCount)
1937.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IsActive   = " + TrueFalse$(arrCompare(iLoop2).IsActive)
1938.                 '    end if
1939.                 'next iLoop2
1940.                 'DebugPrint ""
1941.                 '' ****************************************************************************************************************************************************************
1942.  
1943.                 For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
1944.                     For iLoop2 = LBound(arrCompare) To UBound(arrCompare)
1945.                         If iLoop1 <> iLoop2 Then
1946.                             If arrCompare(iLoop1).IsActive = TRUE Then
1947.                                 If arrCompare(iLoop2).IsActive = TRUE Then
1948.                                     If arrCompare(iLoop2).ShapeCount < arrCompare(iLoop1).ShapeCount Then
1949.                                         arrCompare(iLoop1).IsActive = FALSE
1950.                                     ElseIf arrCompare(iLoop2).ShapeCount > arrCompare(iLoop1).ShapeCount Then
1951.                                         arrCompare(iLoop2).IsActive = FALSE
1952.                                     Else
1953.                                         If arrCompare(iLoop2).PixelCount < arrCompare(iLoop1).PixelCount Then
1954.                                             arrCompare(iLoop1).IsActive = FALSE
1955.                                         ElseIf arrCompare(iLoop2).PixelCount > arrCompare(iLoop1).PixelCount Then
1956.                                             arrCompare(iLoop2).IsActive = FALSE
1957.                                         Else
1958.                                             arrCompare(iLoop2).IsActive = FALSE
1959.                                         End If
1960.                                     End If
1961.                                 End If
1962.                             End If
1963.                         End If
1964.                     Next iLoop2
1965.                 Next iLoop1
1966.  
1967.                 '' ****************************************************************************************************************************************************************
1968.                 ''DEBUG:
1969.                 'DebugPrint "RESULTS AFTER DEDUPE:"
1970.                 'for iLoop2 = lbound(arrCompare) to ubound(arrCompare)
1971.                 '    if InStr(1, sLine, "," + cstr$(iLoop2) + ",") > 0 then
1972.                 '        DebugPrint "-------------------------------------------------------------------------------"
1973.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IndexList  = " + arrCompare(iLoop2).IndexList
1974.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").ShapeCount = " + cstr$(arrCompare(iLoop2).ShapeCount)
1975.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").PixelCount = " + cstr$(arrCompare(iLoop2).PixelCount)
1976.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IsActive   = " + TrueFalse$(arrCompare(iLoop2).IsActive)
1977.                 '    end if
1978.                 'next iLoop2
1979.                 'DebugPrint ""
1980.                 '' ****************************************************************************************************************************************************************
1981.  
1982.             End If
1983.  
1984.             ' =============================================================================
1985.             ' Identify the winner!
1986.             ' Look at the list of indexes that make up the winning shape combination,
1987.             ' and pick the first one.
1988.  
1989.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
1990.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
1991.             'DebugPrint "LOOK FOR THE WINNER, END ROUND " + cstr$(iRound)
1992.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
1993.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
1994.             iIndex = -1
1995.  
1996.             'DebugPrint "arrCompare(" + cstr$(lbound(arrCompare)) + " To " + cstr$(ubound(arrCompare)) + ")"
1997.             'DebugPrint ""
1998.  
1999.             'DebugPrint "Group   Status"
2000.             'DebugPrint "-----   ----------"
2001.             For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
2002.                 If arrCompare(iLoop1).IsActive = TRUE Then
2003.                     If iIndex = -1 Then
2004.                         iIndex = iLoop1
2005.                         Exit For
2006.                         '            DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "IsActive WINNER"
2007.                         '        else
2008.                         '            DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "IsActive"
2009.                     End If
2010.                     '    else
2011.                     '        DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "(disabled)"
2012.                 End If
2013.             Next iLoop1
2014.             'DebugPrint ""
2015.  
2016.             ' =============================================================================
2017.             ' Has it changed from the last round?
2018.             'DebugPrint "////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"
2019.             'DebugPrint "Has it changed from the last round?"
2020.             'DebugPrint "iIndex=" + cstr$(iIndex)
2021.             'DebugPrint "////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"
2022.             'DebugPrint ""
2023.  
2024.             If iIndex > -1 Then
2025.                 'DebugPrint "Comparing arrCompare(" + cstr$(iIndex) + ").IndexList: " + arrCompare(iIndex).IndexList
2026.                 'DebugPrint "       to oShapeSet.IndexList: " + oShapeSet.IndexList
2027.                 'DebugPrint ""
2028.  
2029.                 If DelimIntegerListsAreEqual%(arrCompare(iIndex).IndexList, oShapeSet.IndexList, ",") = TRUE Then
2030.                     'DebugPrint "DelimIntegerListsAreEqual% returns TRUE"
2031.                     'DebugPrint "FOUND WINNER (Group #" + cstr$(iIndex) + ") exiting..."
2032.                     ' no change, we have reduced as much as possible, exit
2033.                     bFinished = TRUE
2034.                 Else
2035.                     'DebugPrint "DelimIntegerListsAreEqual% returns FALSE"
2036.                     'DebugPrint "None yet, try next data"
2037.                     'DebugPrint "Replacing old best set: "
2038.                     'DebugPrint "    IndexList=" + oShapeSet.IndexList
2039.                     'DebugPrint "    ShapeCount=" + cstr$(oShapeSet.ShapeCount)
2040.                     'DebugPrint "    PixelCount=" + cstr$(oShapeSet.PixelCount)
2041.                     'DebugPrint "    IsActive  =" + TrueFalse$(oShapeSet.IsActive)
2042.                     'DebugPrint "with arrCompare(" + cstr$(iIndex) + ")"
2043.                     'DebugPrint "    IndexList=" + arrCompare(iIndex).IndexList
2044.                     'DebugPrint "    ShapeCount=" + cstr$(arrCompare(iIndex).ShapeCount)
2045.                     'DebugPrint "    PixelCount=" + cstr$(arrCompare(iIndex).PixelCount)
2046.                     'DebugPrint "    IsActive  =" + TrueFalse$(arrCompare(iIndex).IsActive)
2047.                     'DebugPrint "and continuing to compare..."
2048.  
2049.                     ' Continue reducing with the latest set
2050.                     oShapeSet.IndexList = arrCompare(iIndex).IndexList
2051.                     oShapeSet.ShapeCount = arrCompare(iIndex).ShapeCount
2052.                     oShapeSet.PixelCount = arrCompare(iIndex).PixelCount
2053.                     oShapeSet.IsActive = TRUE
2054.                 End If
2055.             Else
2056.                 'DebugPrint "(NONE FOUND THAT WORKED, USE THE EXISTING oShapeSet)"
2057.                 'DebugPrint "Replacing old best set: "
2058.                 'DebugPrint "    oShapeSet.IndexList=" + oShapeSet.IndexList
2059.                 'DebugPrint "    oShapeSet.ShapeCount=" + cstr$(oShapeSet.ShapeCount)
2060.                 'DebugPrint "    oShapeSet.PixelCount=" + cstr$(oShapeSet.PixelCount)
2061.                 'DebugPrint "    oShapeSet.IsActive  =" + TrueFalse$(oShapeSet.IsActive)
2062.                 ' none found that works, exit
2063.                 bFinished = TRUE
2064.             End If
2065.  
2066.         Loop Until bFinished = TRUE
2067.  
2068.         ' =============================================================================
2069.         ' Build results
2070.  
2071.         ' Get the list of shapes (indexes pointing to each shape in arrShapes1)
2072.         GetIntegerArrayFromDelimList oShapeSet.IndexList, ",", 0, arrTestIndex()
2073.  
2074.         ' Initialize the final output
2075.         ReDim arrShapes1(-1) As RectangleType
2076.  
2077.         ' Add the shapes to the final list
2078.         For iLoop2 = LBound(arrTestIndex) To UBound(arrTestIndex)
2079.             iShapeIndex = arrTestIndex(iLoop2)
2080.  
2081.             iIndex = UBound(arrShapes1) + 1
2082.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
2083.  
2084.             'DebugPrint "Copying arrShapes2(" + cstr$(iShapeIndex) + ") to arrShapes1(" + cstr$(iIndex) + "):"
2085.  
2086.             If arrShapes2(iShapeIndex).IsActive = TRUE Then
2087.                 arrShapes1(iIndex).x1 = arrShapes2(iShapeIndex).x1
2088.                 arrShapes1(iIndex).y1 = arrShapes2(iShapeIndex).y1
2089.                 arrShapes1(iIndex).x2 = arrShapes2(iShapeIndex).x2
2090.                 arrShapes1(iIndex).y2 = arrShapes2(iShapeIndex).y2
2091.                 arrShapes1(iIndex).PixelCount = arrShapes2(iShapeIndex).PixelCount
2092.                 arrShapes1(iIndex).IsActive = arrShapes2(iShapeIndex).IsActive
2093.  
2094.                 ''DEBUG:
2095.                 'DumpNextShape arrShapes1(iIndex), "arrShapes1(" + cstr$(iIndex) + ")"
2096.  
2097.             End If
2098.         Next iLoop2
2099.  
2100.     End If
2101.     ' END LOOK FOR MINIMUM COMBINATION OF SHAPES TO DRAW TILE
2102.     ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2103.  
2104.     '' ****************************************************************************************************************************************************************
2105.     '' DEBUG:
2106.     'DumpTileFromShapes arrShapes1(), FALSE, TRUE
2107.     '
2108.     'sEndTime = CurrentDateTime$
2109.     'DebugPrint RoutineName + " finished:"
2110.     'DebugPrint "    started  at: " + sStartTime
2111.     'DebugPrint "    finished at: " + sEndTime
2112.     '' ****************************************************************************************************************************************************************
2113.  
2114. End Sub ' FindOptimizedVector
2115.  
2116. ' /////////////////////////////////////////////////////////////////////////////
2117. ' Test routine for the FindOptimizedVector routine.
2118.  
2119. Sub FindOptimizedVectorTest
2120.     Dim RoutineName As String: RoutineName = "FindOptimizedVectorTest"
2121.     Dim sError As String: sError = ""
2122.     Dim in$
2123.     ReDim arrTileText(0 To 255) As String
2124.     Dim sTestList As String
2125.     ReDim arrTestIndex(-1) As Integer
2126.     Dim iLoop1 As Integer
2127.     Dim iLoop2 As Integer
2128.     Dim iIndex As Integer
2129.     ReDim arrOptimizedShapes(-1) As RectangleType
2130.     Dim sLine As String
2131.  
2132.     ' Start output
2133.     DebugPrint "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
2134.     DebugPrint "Testing tiles: " + sTestList
2135.     DebugPrint ""
2136.  
2137.     ' Get raster tiles as a string array
2138.     GetTileText arrTileText()
2139.  
2140.     ' List of tiles to test
2141.     'sTestList = "254,253,247,32,238,241,225,233,213,214,212,203,194,193,192,169,154,151,145,147,129,115,114,84,65,46,44,35,252"
2142.     'sTestList = "46,35"
2143.     'sTestList = "84,253,192,151,147,114,65"
2144.     'sTestList = "43,44,45,46"
2145.     'sTestList = "60,62" ' 84 + 192 work, the rest don't
2146.     'sTestList = "254,252"
2147.     sTestList = "84,60,62,75,141,142,150,207,217,252,192" ' 84 + 192 work, the rest don't
2148.     'sTestList = "60,62,75,141,142,150,207,217,252" ' 84 + 192 work, the rest don't
2149.     'sTestList="75"
2150.     'DebugPrint "GETTING LIST OF TILES..."
2151.     GetIntegerArrayFromDelimList sTestList, ",", 0, arrTestIndex()
2152.  
2153.     ' Test tiles
2154.     For iIndex = 0 To 255
2155.         'for iLoop1 = lbound(arrTestIndex) to ubound(arrTestIndex)
2156.         '    iIndex = arrTestIndex(iLoop1)
2157.         DebugPrint "----------------------------------------------------------------------------------------------------------------------------------------------------------------"
2158.         DebugPrint "Tile #" + cstr$(iIndex) + ":"
2159.         DebugPrint arrTileText(iIndex)
2160.         DebugPrint ""
2161.  
2162.         ' Process next tile and generate line drawing routines
2163.         FindOptimizedVector arrTileText(iIndex), arrOptimizedShapes()
2164.  
2165.         If Len(sError) = 0 Then
2166.             If UBound(arrOptimizedShapes) > -1 Then
2167.                 DebugPrint "#   x1   y1   x2   y2   Pixels    IsActive"
2168.                 For iLoop2 = LBound(arrOptimizedShapes) To UBound(arrOptimizedShapes)
2169.                     sLine = ""
2170.                     sLine = sLine + Left$(cstr$(iLoop2) + String$(4, " "), 4)
2171.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).x1) + String$(2, " "), 2) + "   "
2172.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).y1) + String$(2, " "), 2) + "   "
2173.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).x2) + String$(2, " "), 2) + "   "
2174.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).y2) + String$(2, " "), 2) + "   "
2175.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).PixelCount) + String$(7, " "), 7) + "   "
2176.                     sLine = sLine + TrueFalse$(arrOptimizedShapes(iLoop2).IsActive)
2177.                     DebugPrint sLine
2178.                 Next iLoop2
2179.             Else
2180.                 DebugPrint "*** NO SHAPES TO DRAW THIS TILE ***"
2181.             End If
2182.         Else
2183.             DebugPrint "ERROR FOR TILE #" + cstr$(iIndex) + ": " + sError
2184.         End If
2185.         DebugPrint ""
2186.         'next iLoop1
2187.     Next iIndex
2188.  
2189.     ' DONE
2190.     DebugPrint RoutineName + " finished."
2191.     'Input "PRESS <ENTER> TO CONTINUE";in$
2192. End Sub ' FindOptimizedVectorTest
2193.  
2194. ' /////////////////////////////////////////////////////////////////////////////
2195. ' Receives two 2D string arrays and compares the dimensions
2196. ' and makes sure that the any blank pixel value "." matches
2197. ' (any other non-whitespace characters are considered a pixel
2198. ' as long as they are not "." they are considered a match).
2199. ' Returns empty string if they match, else returns a difference report.
2200.  
2201. Function TilesAreEqual$ (arrTile1() As String, arrTile2() As String)
2202.     Dim sResult As String: sResult = ""
2203.     Dim iLoopY As Integer
2204.     Dim iLoopX As Integer
2205.     Dim sTemp As String
2206.     Dim bMatch As Integer
2207.     Dim iY As Integer
2208.  
2209.     If LBound(arrTile1, 1) = LBound(arrTile2, 1) Then
2210.         If UBound(arrTile1, 1) = UBound(arrTile2, 1) Then
2211.             If LBound(arrTile1, 2) = LBound(arrTile2, 2) Then
2212.                 If UBound(arrTile1, 2) = UBound(arrTile2, 2) Then
2213.                     bMatch = TRUE
2214.                     sTemp = " 12345678 " + Chr$(13)
2215.                     iY = 0
2216.                     For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
2217.                         iY = iY + 1
2218.                         sTemp = sTemp + cstr$(iY)
2219.                         For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
2220.                             If arrTile1(iLoopY, iLoopX) = "." And arrTile2(iLoopY, iLoopX) <> "." Then
2221.                                 bMatch = FALSE
2222.                                 sTemp = sTemp + "?"
2223.                             ElseIf arrTile1(iLoopY, iLoopX) <> "." And arrTile2(iLoopY, iLoopX) = "." Then
2224.                                 bMatch = FALSE
2225.                                 sTemp = sTemp + "?"
2226.                             Else
2227.                                 sTemp = sTemp + arrTile1(iLoopY, iLoopX)
2228.                             End If
2229.                         Next iLoopX
2230.                         sTemp = sTemp + cstr$(iY) + Chr$(13)
2231.                     Next iLoopY
2232.                     sTemp = sTemp + " 12345678 " + Chr$(13)
2233.                     If bMatch = FALSE Then
2234.                         sResult = sTemp
2235.                     End If
2236.                 Else
2237.                     sResult = "ubound(arrTile1, 2)=" + cstr$(ubound(arrTile1, 2)) + _
2238.                         " <> " + _
2239.                         "ubound(arrTile2, 2)=" + cstr$(ubound(arrTile2, 2))
2240.                 End If
2241.             Else
2242.                 sResult = "lbound(arrTile1, 2)=" + cstr$(lbound(arrTile1, 2)) + _
2243.                     " <> " + _
2244.                     "lbound(arrTile2, 2)=" + cstr$(lbound(arrTile2, 2))
2245.  
2246.             End If
2247.         Else
2248.             sResult = "ubound(arrTile1, 1)=" + cstr$(ubound(arrTile1, 1)) + _
2249.                 " <> " + _
2250.                 "ubound(arrTile2, 1)=" + cstr$(ubound(arrTile2, 1))
2251.         End If
2252.     Else
2253.         sResult = "lbound(arrTile1, 1)=" + cstr$(lbound(arrTile1, 1)) + _
2254.             " <> " + _
2255.             "lbound(arrTile2, 1)=" + cstr$(lbound(arrTile2, 1))
2256.     End If
2257.     TilesAreEqual$ = sResult
2258. End Function ' TilesAreEqual$
2259.  
2260. ' ################################################################################################################################################################
2261. ' END VECTOR-BASED TILE ROUTINES
2262. ' ################################################################################################################################################################
2263.  
2264. ' ################################################################################################################################################################
2265. ' BEGIN BOX DRAWING ROUTINES
2266. ' ################################################################################################################################################################
2267.  
2268. ' /////////////////////////////////////////////////////////////////////////////
2269. ' DRAW A 2-D BOX (OUTLINE)
2270. ' https://www.qb64.org/wiki/LINE
2271.  
2272. Sub DrawBoxOutline (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
2273.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, B ' Draw box outline
2274. End Sub ' DrawBoxOutline
2275.  
2276. ' /////////////////////////////////////////////////////////////////////////////
2277. ' DRAW A 2-D BOX (SOLID)
2278. ' https://www.qb64.org/wiki/LINE
2279.  
2280. ' Renamed DrawBox/DrawBoxLine to DrawSolidBox
2281.  
2282. Sub DrawBoxSolid (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
2283.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, BF ' Draw a solid box
2284. End Sub ' DrawBoxSolid
2285.  
2286. ' /////////////////////////////////////////////////////////////////////////////
2287. ' DRAW A 2-D RECTANGLE (OUTLINE)
2288.  
2289. Sub DrawRectOutline (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
2290.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, B ' Draw rectangle outline
2291. End Sub ' DrawRectOutline
2292.  
2293. ' /////////////////////////////////////////////////////////////////////////////
2294. ' DRAW A 2-D RECTANGLE (SOLID)
2295.  
2296. Sub DrawRectSolid (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
2297.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, BF ' Draw a solid rectangle
2298. End Sub ' DrawRectSolid
2299.  
2300. ' /////////////////////////////////////////////////////////////////////////////
2301. ' DRAW A 2-D BOX (OUTLINE)
2302. ' https://www.qb64.org/wiki/LINE
2303.  
2304. ' The style parameter 0-255 doesn't seem to have a solid line?
2305. ' For that, use DrawOutlineBox.
2306.  
2307. ' LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]
2308. ' B creates a box outline with each side parallel to the program screen sides. BF creates a filled box.
2309. ' The style% signed INTEGER value sets a dotted pattern to draw the line or rectangle outline.
2310.  
2311. Sub DrawStyledOutlineBox (iX%, iY%, iSize%, iColor~&, iStyle%)
2312.     Line (iX%, iY%)-(iX% + (iSize% - 1), iY% + (iSize% - 1)), iColor~&, B , iStyle%
2313. End Sub ' DrawStyledOutlineBox
2314.  
2315. ' /////////////////////////////////////////////////////////////////////////////
2316. ' DRAW A 2-D BOX (OUTLINE) WITH A SOLID LINE
2317.  
2318. Sub DrawOutlineBox (iX%, iY%, iSize2%, iColor~&, iWeight2%)
2319.     Dim iFromX%
2320.     Dim iFromY%
2321.     Dim iToX%
2322.     Dim iToY%
2323.     iSize% = iSize2% - 1
2324.     iWeight% = iWeight2% - 1
2325.     If iWeight% = 0 Then
2326.         ' TOP LINE
2327.         iFromX% = iX%
2328.         iFromY% = iY%
2329.         iToX% = iX% + iSize%
2330.         iToY% = iY%
2331.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2332.  
2333.         ' BOTTOM LINE
2334.         iFromX% = iX%
2335.         iFromY% = iY% + iSize%
2336.         iToX% = iX% + iSize%
2337.         iToY% = iY% + iSize%
2338.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2339.  
2340.         ' LEFT LINE
2341.         iFromX% = iX%
2342.         iFromY% = iY%
2343.         iToX% = iX%
2344.         iToY% = iY% + iSize%
2345.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2346.  
2347.         ' RIGHT LINE
2348.         iFromX% = iX% + iSize%
2349.         iFromY% = iY%
2350.         iToX% = iX% + iSize%
2351.         iToY% = iY% + iSize%
2352.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2353.     ElseIf iWeight% > 0 Then
2354.         ' TOP LINE
2355.         For iFromY% = iY% To (iY% + iWeight%)
2356.             iFromX% = iX%
2357.             'iFromY% = iY%
2358.             iToX% = iX% + iSize%
2359.             iToY% = iFromY%
2360.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2361.         Next iFromY%
2362.  
2363.         ' BOTTOM LINE
2364.         For iFromY% = ((iY% + iSize%) - iWeight%) To (iY% + iSize%)
2365.             iFromX% = iX%
2366.             'iFromY% = iY% + iSize%
2367.             iToX% = iX% + iSize%
2368.             iToY% = iFromY%
2369.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2370.         Next iFromY%
2371.  
2372.         ' LEFT LINE
2373.         For iFromX% = iX% To (iX% + iWeight%)
2374.             'iFromX% = iX%
2375.             iFromY% = iY%
2376.             iToX% = iFromX%
2377.             iToY% = iY% + iSize%
2378.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2379.         Next iFromX%
2380.  
2381.         ' RIGHT LINE
2382.         For iFromX% = ((iX% + iSize%) - iWeight%) To (iX% + iSize%)
2383.             'iFromX% = iX% + iSize%
2384.             iFromY% = iY%
2385.             iToX% = iFromX%
2386.             iToY% = iY% + iSize%
2387.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
2388.         Next iFromX%
2389.     End If
2390. End Sub ' DrawOutlineBox
2391.  
2392. ' ################################################################################################################################################################
2393. ' END BOX DRAWING ROUTINES
2394. ' ################################################################################################################################################################
2395.  
2396. ' ################################################################################################################################################################
2397. ' BEGIN DRAW TILES, COLOR SWAP with HARDWARE IMAGES
2398. ' ################################################################################################################################################################
2399.  
2400. ' /////////////////////////////////////////////////////////////////////////////
2401. ' Same as DrawColorTile but using hardware images.
2402.  
2403. ' Receives:
2404. ' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
2405. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
2406. ' TileColor~& = color to use for tile
2407. ' imgScreen& = handle to screen to draw tile on
2408. ' dx% = column # to draw tile at (where each column is 16 pixels wide)
2409. ' dy% = row # to draw tile at (where each row is 16 pixels high)
2410. ' xOffset% = offset tile this many columns over
2411. ' yOffset% = offset tile this many rows down
2412.  
2413. Sub DrawColorTileHW ( _
2414.     imgHardwareScreen As Long, _
2415.     imgTiles As Long, _
2416.     iTileNum As Integer, _
2417.     fgColor As _UNSIGNED Long, _
2418.     bgColor As _UNSIGNED Long, _
2419.     dx As Integer, _
2420.     dy As Integer)
2421.  
2422.     Dim cols%
2423.     Dim rows%
2424.     Dim sc%
2425.     Dim sr%
2426.     Dim sx1%
2427.     Dim sy1%
2428.     Dim sx2%
2429.     Dim sy2%
2430.     Dim xDest%
2431.     Dim yDest%
2432.     Dim imgColorSprite As Long
2433.     Dim imgUniversalSprite As Long
2434.     Dim imgColorSpriteHW As Long
2435.     Dim imgUniversalSpriteHW As Long
2436.  
2437.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
2438.     cols% = 16
2439.     rows% = 16
2440.  
2441.     ' GET THE COLUMN/ROW OF TILE # iTileNum ON THE SOURCE TILE SHEET
2442.     sc% = iTileNum Mod rows%
2443.     sr% = iTileNum \ rows%
2444.  
2445.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2446.     sx1% = sc% * 8
2447.  
2448.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2449.     sy1% = sr% * 8
2450.  
2451.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2452.     sx2% = sx1% + 7
2453.  
2454.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2455.     sy2% = sy1% + 7
2456.  
2457.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2458.     xDest% = dx * 8
2459.  
2460.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2461.     yDest% = dy * 8
2462.  
2463.     ' IS THERE A BACKGROUND COLOR?
2464.     If bgColor <> cEmpty Then
2465.         imgColorSprite = _NewImage(8, 8, 32)
2466.         imgColorSpriteHW = _CopyImage(imgColorSprite, 33) ' Copy for hardware image
2467.         '_Dest imgColorSprite
2468.         _Dest imgColorSpriteHW
2469.         Cls , bgColor
2470.  
2471.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
2472.         '_Source imgColorSprite
2473.         _Source imgColorSpriteHW
2474.         _Dest imgHardwareScreen
2475.  
2476.         'SOFTWARE IMAGE:
2477.         '_PutImage (xDest%, yDest%), imgColorSprite, imgHardwareScreen, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
2478.  
2479.         'HARDWARE IMAGE:
2480.         _PutImage (xDest%, yDest%), imgColorSpriteHW, , (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
2481.     End If
2482.  
2483.     ' CREATE A TEMPORARY TILE TO COLOR
2484.     imgUniversalSprite = _NewImage(8, 8, 32)
2485.  
2486.     ' COPY THE TILE TO THE TEMPORARY ONE
2487.     _Source imgHardwareTiles
2488.     _Dest imgUniversalSprite
2489.     'SOFTWARE IMAGE:
2490.     '_PutImage (0, 0), imgTiles, imgUniversalSprite, (sx1%, sy1%)-(sx2%, sy2%)
2491.  
2492.     'HARDWARE IMAGE:
2493.     _PutImage (0, 0), imgHardwareTiles, , (sx1%, sy1%)-(sx2%, sy2%)
2494.  
2495.     ' COLOR IN THE TEMPORARY TILE
2496.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
2497.  
2498.     'SOFTWARE IMAGE:
2499.     'IF imgColorSprite < -1 OR imgColorSprite > 0 THEN _FreeImage imgColorSprite
2500.     'DoColorSwap imgUniversalSprite, cBlack, fgColor, imgColorSprite
2501.  
2502.     'HARDWARE IMAGE:
2503.     DoColorSwapHW imgUniversalSpriteHW, cBlack, fgColor, imgColorSpriteHW
2504.  
2505.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
2506.     _Source imgColorSpriteHW
2507.     _Dest imgHardwareScreen
2508.  
2509.     'SOFTWARE IMAGE:
2510.     '_PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
2511.  
2512.     'HARDWARE IMAGE:
2513.     _PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
2514.  
2515.     ' ADDED PER FellipeHeitor
2516.     If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles
2517.     If imgColorSprite < -1 Or imgColorSprite > 0 Then _FreeImage imgColorSprite
2518.     If imgColorSpriteHW < -1 Or imgColorSpriteHW > 0 Then _FreeImage imgColorSpriteHW
2519.     If imgUniversalSprite < -1 Or imgUniversalSprite > 0 Then _FreeImage imgUniversalSprite
2520.     If imgUniversalSpriteHW < -1 Or imgUniversalSpriteHW > 0 Then _FreeImage imgUniversalSpriteHW
2521.  
2522. End Sub ' DrawColorTileHW
2523.  
2524. ' /////////////////////////////////////////////////////////////////////////////
2525. ' Same as DoColorSwap but using hardware images.
2526.  
2527. ' Latest version with NOVARSEG's changes.
2528. ' Based on code from:
2529. ' Image color swap?
2530. ' https://www.qb64.org/forum/index.php?topic=2312.0
2531.  
2532. ' Like Function swapcolor& except returns new image in a parameter
2533. ' in case being a function causes a memory leak?
2534.  
2535. Sub DoColorSwapHW ( _
2536.     imgOriginalHW As Long, _
2537.     oldColor As _UNSIGNED Long, _
2538.     newColor As _UNSIGNED Long, _
2539.     imgNewHW As Long)
2540.  
2541.     Dim m As _MEM
2542.     Dim a As _Offset
2543.     Dim c As _Unsigned Long
2544.     Dim imgNew As Long
2545.  
2546.     a = 0
2547.     imgNew = _CopyImage(imgOriginalHW, 32)
2548.     m = _MemImage(imgNewHW)
2549.     Do Until a = m.SIZE - 4
2550.         a = a + 4
2551.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
2552.         If c = oldColor Then
2553.             _MemPut m, m.OFFSET + a, newColor
2554.         End If
2555.     Loop
2556.     _MemFree m
2557. End Sub ' DoColorSwapHW
2558.  
2559. ' ################################################################################################################################################################
2560. ' END DRAW TILES, COLOR SWAP with HARDWARE IMAGES
2561. ' ################################################################################################################################################################
2562.  
2563. ' ################################################################################################################################################################
2564. ' BEGIN DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
2565. ' ################################################################################################################################################################
2566.  
2567. ' /////////////////////////////////////////////////////////////////////////////
2568. ' Simple version which calculates coordinates on tile sheet and destination
2569. ' screen every time. For a faster version uses precalculated coordinates,
2570. ' see DrawColorTileFast. This version does not support offsetX, offsetY.
2571.  
2572. ' Receives:
2573. ' imgScreen& = handle to screen to draw tile on
2574. ' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
2575. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
2576. ' TileColor~& = foreground color to use for tile
2577. ' BackColor~& = background color to use for tile
2578. ' dx% = column # to draw tile at (where each column is 8 pixels wide)
2579. ' dy% = row # to draw tile at (where each row is 8 pixels high)
2580.  
2581. ' Usage:
2582. ' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
2583.  
2584. Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
2585.     Dim cols%
2586.     Dim rows%
2587.     Dim sc%
2588.     Dim sr%
2589.     Dim sx1%
2590.     Dim sy1%
2591.     Dim sx2%
2592.     Dim sy2%
2593.     Dim xDest%
2594.     Dim yDest%
2595.     Dim ColorSprite&
2596.     Dim UniversalSprite&
2597.  
2598.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
2599.     cols% = 16
2600.     rows% = 16
2601.  
2602.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2603.     sc% = TileNum% Mod rows%
2604.     sr% = TileNum% \ rows%
2605.  
2606.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2607.     sx1% = sc% * 8
2608.  
2609.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2610.     sy1% = sr% * 8
2611.  
2612.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2613.     sx2% = sx1% + 7
2614.  
2615.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2616.     sy2% = sy1% + 7
2617.  
2618.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2619.     xDest% = dx% * 8
2620.  
2621.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2622.     yDest% = dy% * 8
2623.  
2624.     ' IS THERE A BACKGROUND COLOR?
2625.     If BackColor~& <> cEmpty Then
2626.         ColorSprite& = _NewImage(8, 8, 32)
2627.         _Dest ColorSprite&
2628.         Cls , BackColor~&
2629.  
2630.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
2631.         _Source ColorSprite&
2632.         _Dest imgScreen&
2633.         _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
2634.     End If
2635.  
2636.     ' CREATE A TEMPORARY TILE TO COLOR
2637.     UniversalSprite& = _NewImage(8, 8, 32)
2638.  
2639.     ' COPY THE TILE TO THE TEMPORARY ONE
2640.     _Source imgTiles&
2641.     _Dest UniversalSprite&
2642.     _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
2643.  
2644.     ' COLOR IN THE TEMPORARY TILE
2645.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
2646.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
2647.     DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
2648.  
2649.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
2650.     _Source ColorSprite&
2651.     _Dest imgScreen&
2652.     _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
2653.  
2654.     ' ADDED PER FellipeHeitor
2655.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
2656.     If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
2657. End Sub ' DrawColorTile
2658.  
2659. ' /////////////////////////////////////////////////////////////////////////////
2660. ' Latest version with NOVARSEG's changes.
2661.  
2662. ' Based on code from:
2663.  
2664. ' Image color swap?
2665. ' https://www.qb64.org/forum/index.php?topic=2312.0
2666.  
2667. ' Like Function swapcolor& except returns new image in a parameter
2668. ' in case being a function causes a memory leak?
2669.  
2670. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
2671.     Dim m As _MEM
2672.     Dim a As _Offset
2673.     Dim c As _Unsigned Long
2674.     a = 0
2675.     imgNew& = _CopyImage(imgOriginal&, 32)
2676.     m = _MemImage(imgNew&)
2677.     Do Until a = m.SIZE - 4
2678.         a = a + 4
2679.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
2680.         If c = oldcolor~& Then
2681.             _MemPut m, m.OFFSET + a, newcolor~&
2682.         End If
2683.     Loop
2684.     _MemFree m
2685. End Sub ' DoColorSwap&
2686.  
2687. ' ################################################################################################################################################################
2688. ' END DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
2689. ' ################################################################################################################################################################
2690.  
2691. ' ################################################################################################################################################################
2692. ' BEGIN DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
2693. ' ################################################################################################################################################################
2694.  
2695. ' /////////////////////////////////////////////////////////////////////////////
2696. ' Draws an 8x8 tile at the specified column/row dx%, dy%
2697.  
2698. ' Original version which calculates coordinates on tile sheet and destination
2699. ' screen every time. For a faster version uses precalculated coordinates,
2700. ' see DrawTileFast.
2701.  
2702. ' tw% = tile width/height (in pixels)
2703.  
2704. ' DIV and MOD:
2705. ' c% = a% \ b% ' DIV (INTEGER DIVISION)
2706. ' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
2707.  
2708. '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
2709. '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
2710. '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
2711. '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
2712.  
2713. Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
2714.     Dim tw% ' width/height of tile
2715.     Dim tw_minus1% ' width/height of tile -1
2716.     Dim cols% ' # tiles across on tile sheet
2717.     Dim rows% ' # tile rows on tile sheet
2718.     Dim sc% ' source column on tile sheet
2719.     Dim sr% ' source row on tile sheet
2720.     Dim sx1% ' source start x
2721.     Dim sx2% ' source end x
2722.     Dim sy1% ' source start y
2723.     Dim sy2% ' source end y
2724.     Dim xDest% ' destination x
2725.     Dim yDest% ' destination y
2726.  
2727.     ' SIZE OF TILE
2728.     tw% = 8
2729.     tw_minus1% = 7
2730.  
2731.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
2732.     cols% = 16
2733.     rows% = 16
2734.  
2735.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2736.     sc% = TileNum% Mod rows%
2737.     sr% = TileNum% \ rows%
2738.  
2739.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
2740.  
2741.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2742.     sx1% = sc% * tw%
2743.  
2744.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2745.     sy1% = sr% * tw%
2746.  
2747.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2748.     sx2% = sx1% + tw_minus1%
2749.  
2750.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2751.     sy2% = sy1% + tw_minus1%
2752.  
2753.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2754.     xDest% = dx% * tw%
2755.  
2756.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2757.     yDest% = (dy% * tw%) '+ yOffset%
2758.  
2759.     'Print "Tile#" + cstr$(TileNum%) + _
2760.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
2761.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
2762.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
2763.  
2764.     _Dest imgScreen&
2765.  
2766.     ' portion of source to the top-left corner of the destination page
2767.     _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
2768.  
2769. End Sub ' DrawTile8
2770.  
2771. ' ################################################################################################################################################################
2772. ' END DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
2773. ' ################################################################################################################################################################
2774.  
2775. ' ################################################################################################################################################################
2776. ' BEGIN DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
2777. ' ################################################################################################################################################################
2778.  
2779. ' /////////////////////////////////////////////////////////////////////////////
2780. ' Draws an 8x8 tile at the specified column/row dx%, dy%
2781. ' using hardware images
2782.  
2783. ' Usage:
2784. ' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
2785. ' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
2786. ' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
2787.  
2788. Sub DrawTileHw8 (imgHardwareTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
2789.     Dim tw% ' width/height of tile
2790.     Dim tw_minus1% ' width/height of tile -1
2791.     Dim cols% ' # tiles across on tile sheet
2792.     Dim rows% ' # tile rows on tile sheet
2793.     Dim sc% ' source column on tile sheet
2794.     Dim sr% ' source row on tile sheet
2795.     Dim sx1% ' source start x
2796.     Dim sx2% ' source end x
2797.     Dim sy1% ' source start y
2798.     Dim sy2% ' source end y
2799.     Dim xDest% ' destination x
2800.     Dim yDest% ' destination y
2801.     Dim xOffset%
2802.  
2803.     ' CALCULATE OFFSET
2804.     xOffset% = 128 * iSubTileset%
2805.  
2806.     ' SIZE OF TILE
2807.     tw% = 8
2808.     tw_minus1% = 7
2809.  
2810.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
2811.     cols% = 16
2812.     rows% = 16
2813.  
2814.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2815.     sc% = TileNum% Mod rows%
2816.     sr% = TileNum% \ rows%
2817.  
2818.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
2819.  
2820.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2821.     sx1% = (sc% * tw%) + xOffset%
2822.  
2823.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2824.     sy1% = sr% * tw%
2825.  
2826.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2827.     sx2% = sx1% + tw_minus1%
2828.  
2829.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2830.     sy2% = sy1% + tw_minus1%
2831.  
2832.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2833.     xDest% = dx% * tw%
2834.  
2835.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2836.     yDest% = (dy% * tw%) '+ yOffset%
2837.  
2838.     'Print "Tile#" + cstr$(TileNum%) + _
2839.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
2840.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
2841.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
2842.  
2843.     _Dest imgScreen&
2844.  
2845.     ' portion of source to the top-left corner of the destination page
2846.     '_PutImage (xDest%, yDest%), imgHardwareTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
2847.     '_PutImage (200, 100)-Step(100, 100), imgHardwareTiles&, , (0, 0)-(40, 40)
2848.     _PutImage (xDest%, yDest%), imgHardwareTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
2849.  
2850. End Sub ' DrawTileHw8
2851.  
2852. ' /////////////////////////////////////////////////////////////////////////////
2853. ' Receives an image imgTiles of 8x8 tiles
2854. ' colored black on transparent background
2855. ' and returns a new image imgNew
2856. ' copied from the tiles in imgTiles,
2857. ' except colored to foreground color fgColor,
2858. ' and background color bgColor
2859.  
2860. ' Usage:
2861. ' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
2862.  
2863. Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
2864.     Dim iTileNum As Integer
2865.     Dim iY As Integer
2866.     Dim iX As Integer
2867.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
2868.     imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
2869.     iTileNum = 0
2870.     For iY = 0 To (_Height(imgTiles) \ 8) - 1
2871.         For iX = 0 To (_Width(imgTiles) \ 8) - 1
2872.             DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
2873.             iTileNum = iTileNum + 1
2874.             If iTileNum > 255 Then Exit For
2875.         Next iX
2876.         If iTileNum > 255 Then Exit For
2877.     Next iY
2878. End Sub ' MakeColoredTileset
2879.  
2880. ' ################################################################################################################################################################
2881. ' END DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
2882. ' ################################################################################################################################################################
2883.  
2884. ' ################################################################################################################################################################
2885. ' BEGIN TILE PRECALCULATION UTILITIES
2886. ' ################################################################################################################################################################
2887.  
2888. ' /////////////////////////////////////////////////////////////////////////////
2889. ' Precalculates the tile locations ahead of time to save time copying them
2890. ' to the screen.
2891.  
2892. ' Requires the following types be declared:
2893. '
2894. '     Type TileSheetMapType ' UDT FOR PRECALCULATED TILESHEET
2895. '         xStart As Integer
2896. '         xEnd As Integer
2897. '         yStart As Integer
2898. '         yEnd As Integer
2899. '     End Type
2900. '     Type TileMapType ' UDT FOR PRECALCULATED TILE MAP
2901. '         xPos As Integer
2902. '         yPos As Integer
2903. '     End Type
2904. '
2905. ' EXAMPLE USAGE:
2906. '
2907. '     Dim TileCount%
2908. '     Dim TilesheetCols%
2909. '     Dim TilesheetRows%
2910. '     Dim tileHeightPx%
2911. '     Dim tileWidthPx%
2912. '     Dim xOffset%
2913. '     Dim yOffset%
2914. '     Dim numTilesX%
2915. '     Dim numTilesY%
2916. '     REDIM arrTileSheetMap(255) AS TileSheetMapType
2917. '     REDIM arrTileMap(20, 20) AS TileMapType
2918. '     TileCount% = 256 ' TOTAL # OF TILES
2919. '     TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
2920. '     TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
2921. '     tileHeightPx% = 32 ' TILE HEIGHT
2922. '     tileWidthPx% = 32 ' TILE WIDTH
2923. '     xOffset% = 0 ' SCREEN OFFSET X
2924. '     yOffset% = 64 ' SCREEN OFFSET Y
2925. '     numTilesX% = 20 ' HOW MANY TILES ACROSS (ON DESTINATION)
2926. '     numTilesY% = 20 ' HOW MANY TILES UP/DOWN (ON DESTINATION)
2927. '     ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, _
2928. '         TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, _
2929. '         xOffset%, yOffset%, numTilesX%, numTilesY%
2930.  
2931. ' TODO: this can be simplified & optimized:
2932. '       - we don't need x/y offsets
2933. '       - tile height/width can be hardcoded
2934. '       - etc.
2935.  
2936. Sub ComputeTileLocations (arrTileSheetMap() As TileSheetMapType, arrTileMap() As TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
2937.     Dim TileNum%
2938.     Dim sc%
2939.     Dim sr%
2940.     Dim sx1%
2941.     Dim sx2%
2942.     Dim sy1%
2943.     Dim sy2%
2944.  
2945.     Dim dx%
2946.     Dim dy%
2947.     Dim xDest%
2948.     Dim yDest%
2949.  
2950.     ' -----------------------------------------------------------------------------
2951.     ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
2952.  
2953.     For TileNum% = 0 To (TileCount% - 1)
2954.  
2955.         ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
2956.         sc% = TileNum% Mod TilesheetCols%
2957.         sr% = TileNum% \ TilesheetRows%
2958.  
2959.         'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
2960.  
2961.         ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
2962.         'sx1% = sc% * tw%
2963.         sx1% = sc% * tileWidthPx%
2964.  
2965.         ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
2966.         'sy1% = sr% * tw%
2967.         sy1% = sr% * tileHeightPx%
2968.  
2969.         ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
2970.         'sx2% = sx1% + (tw% - 1)
2971.         sx2% = sx1% + (tileWidthPx% - 1)
2972.  
2973.         ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
2974.         'sy2% = sy1% + (tw% - 1)
2975.         sy2% = sy1% + (tileHeightPx% - 1)
2976.  
2977.         ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
2978.         arrTileSheetMap(TileNum%).xStart = sx1%
2979.         arrTileSheetMap(TileNum%).xEnd = sx2%
2980.         arrTileSheetMap(TileNum%).yStart = sy1%
2981.         arrTileSheetMap(TileNum%).yEnd = sy2%
2982.  
2983.     Next TileNum%
2984.  
2985.     ' -----------------------------------------------------------------------------
2986.     ' CALCULATE SCREEN COORDINATES FOR TILES
2987.  
2988.     For dx% = 0 To (numTilesX% - 1)
2989.         For dy% = 0 To (numTilesY% - 1)
2990.  
2991.             ' GET THE DESTINATION X COORDINATE ON THE SCREEN
2992.             'xDest% = dx% * tw%
2993.             xDest% = (dx% * tileWidthPx%) + xOffset%
2994.  
2995.             ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
2996.             'yDest% = (dy% * tw%) + 64
2997.             yDest% = (dy% * tileHeightPx%) + yOffset%
2998.  
2999.             'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
3000.  
3001.             ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
3002.             ' WHERE dx% and dy% ARE 1-BASED
3003.             arrTileMap(dx% + 1, dy% + 1).xPos = xDest%
3004.             arrTileMap(dx% + 1, dy% + 1).yPos = yDest%
3005.  
3006.         Next dy%
3007.     Next dx%
3008.  
3009. End Sub ' ComputeTileLocations
3010.  
3011. ' ################################################################################################################################################################
3012. ' END TILE PRECALCULATION UTILITIES
3013. ' ################################################################################################################################################################
3014.  
3015. ' ################################################################################################################################################################
3016. ' BEGIN TILE TO IMAGE ROUTINES
3017. ' ################################################################################################################################################################
3018.  
3019. ' /////////////////////////////////////////////////////////////////////////////
3020. ' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
3021. ' where tiles are a single color.
3022.  
3023. ' Parameters:
3024. ' imgTiles& = contains the resulting tileset image
3025. ' fgColor = tile color
3026. ' bgColor = tile background color
3027.  
3028. Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
3029.     Dim RoutineName As String: RoutineName = "GetTiles$"
3030.     Dim sResult As String: sResult = ""
3031.     ReDim arrTileText(0 To 255) As String
3032.  
3033.     Dim iTileNum As Integer
3034.  
3035.     ReDim arrLines(-1) As String
3036.     Dim iFromX As Integer
3037.     Dim iFromY As Integer
3038.     Dim sLine As String
3039.     Dim sChar As String
3040.  
3041.     Dim iTileX As Integer
3042.     Dim iTileY As Integer
3043.     Dim iToX As Integer
3044.     Dim iToY As Integer
3045.     Dim pixelColor As _Unsigned Long
3046.     Dim bFinished As Integer
3047.  
3048.     ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
3049.     ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
3050.     If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
3051.     imgTiles& = _NewImage(128, 128, 32)
3052.     '    Cls , cEmpty ' set the background color as transparent
3053.  
3054.     'Screen imgTiles&
3055.     'Cls , bgColor ' set the background color as transparent
3056.     _Dest imgTiles&
3057.     'DrawRect 0, 0, 128, 128, cEmpty
3058.     'DrawBox 0, 0, 128, cWhite
3059.     Cls , cEmpty ' set the background color as transparent
3060.  
3061.     GetTileText arrTileText()
3062.     iTileX = 0
3063.     iTileY = 0
3064.     bFinished = FALSE
3065.     For iTileNum = 0 To 255
3066.         split arrTileText(iTileNum), Chr$(13), arrLines()
3067.         iToY = iTileY * 8
3068.         If (iToY > _Height(imgTiles&)) Then
3069.             sResult = "iToY value " + cstr$(iToY) + " " + _
3070.                 "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
3071.                 "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
3072.             bFinished = TRUE
3073.             Exit For
3074.         End If
3075.  
3076.         For iFromY = LBound(arrLines) To UBound(arrLines)
3077.             sLine = arrLines(iFromY)
3078.             If Len(sLine) > 0 Then
3079.                 iToX = iTileX * 8
3080.                 For iFromX = 1 To Len(sLine)
3081.                     sChar = Mid$(sLine, iFromX, 1)
3082.                     If sChar = "." Then
3083.                         pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
3084.                     Else
3085.                         pixelColor = fgColor ' cBlack
3086.                     End If
3087.                     PSet (iToX, iToY), pixelColor
3088.                     iToX = iToX + 1
3089.                     If (iToX > _Width(imgTiles&)) Then
3090.                         sResult = "iToX value " + cstr$(iToX) + " " + _
3091.                             "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
3092.                             "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
3093.                         bFinished = TRUE
3094.                         Exit For
3095.                     End If
3096.                 Next iFromX
3097.                 iToY = iToY + 1
3098.                 If bFinished = TRUE Then Exit For
3099.             End If
3100.         Next iFromY
3101.         If bFinished = TRUE Then Exit For
3102.  
3103.         iTileX = iTileX + 1
3104.         If iTileX > 15 Then
3105.             iTileX = 0
3106.             iTileY = iTileY + 1
3107.             'if iTileY > 15 then
3108.             '    sResult = "Exceeded max 16 rows of tiles." + _
3109.             '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
3110.             '    bFinished = TRUE
3111.             '    exit for
3112.             'end if
3113.         End If
3114.     Next iTileNum
3115.  
3116.     GetTiles$ = sResult
3117. End Function ' GetTiles$
3118.  
3119. ' ################################################################################################################################################################
3120. ' END TILE TO IMAGE ROUTINES
3121. ' ################################################################################################################################################################
3122.  
3123. ' ################################################################################################################################################################
3124. ' BEGIN TILE DEFINITIONS
3125. ' ################################################################################################################################################################
3126.  
3127. ' /////////////////////////////////////////////////////////////////////////////
3128. ' Returns an array of 256 8x8 tiles defined in text
3129. ' where each tile is defined by "." as blank and anything else is a pixel
3130. ' and each row is delimited by chr$(13)
3131.  
3132. Sub GetTileText (arrTileText() As String)
3133.     ReDim arrTileText(0 To 255) As String
3134.  
3135.     m$ = ""
3136.     m$ = m$ + "22....22" + Chr$(13)
3137.     m$ = m$ + "2..22..2" + Chr$(13)
3138.     m$ = m$ + "2..2...2" + Chr$(13)
3139.     m$ = m$ + "2...2..2" + Chr$(13)
3140.     m$ = m$ + "2..22..2" + Chr$(13)
3141.     m$ = m$ + "2..22..2" + Chr$(13)
3142.     m$ = m$ + "22....22" + Chr$(13)
3143.     m$ = m$ + "22222222" + Chr$(13)
3144.     arrTileText(0) = m$
3145.  
3146.     m$ = ""
3147.     m$ = m$ + "........" + Chr$(13)
3148.     m$ = m$ + "........" + Chr$(13)
3149.     m$ = m$ + "........" + Chr$(13)
3150.     m$ = m$ + "........" + Chr$(13)
3151.     m$ = m$ + "........" + Chr$(13)
3152.     m$ = m$ + "........" + Chr$(13)
3153.     m$ = m$ + "........" + Chr$(13)
3154.     m$ = m$ + "........" + Chr$(13)
3155.     arrTileText(1) = m$
3156.  
3157.     m$ = ""
3158.     m$ = m$ + "........" + Chr$(13)
3159.     m$ = m$ + "........" + Chr$(13)
3160.     m$ = m$ + "........" + Chr$(13)
3161.     m$ = m$ + "........" + Chr$(13)
3162.     m$ = m$ + "........" + Chr$(13)
3163.     m$ = m$ + "........" + Chr$(13)
3164.     m$ = m$ + "........" + Chr$(13)
3165.     m$ = m$ + "........" + Chr$(13)
3166.     arrTileText(2) = m$
3167.  
3168.     m$ = ""
3169.     m$ = m$ + "........" + Chr$(13)
3170.     m$ = m$ + "........" + Chr$(13)
3171.     m$ = m$ + "........" + Chr$(13)
3172.     m$ = m$ + "........" + Chr$(13)
3173.     m$ = m$ + "........" + Chr$(13)
3174.     m$ = m$ + "........" + Chr$(13)
3175.     m$ = m$ + "........" + Chr$(13)
3176.     m$ = m$ + "........" + Chr$(13)
3177.     arrTileText(3) = m$
3178.  
3179.     m$ = ""
3180.     m$ = m$ + "........" + Chr$(13)
3181.     m$ = m$ + "........" + Chr$(13)
3182.     m$ = m$ + "........" + Chr$(13)
3183.     m$ = m$ + "........" + Chr$(13)
3184.     m$ = m$ + "........" + Chr$(13)
3185.     m$ = m$ + "........" + Chr$(13)
3186.     m$ = m$ + "........" + Chr$(13)
3187.     m$ = m$ + "........" + Chr$(13)
3188.     arrTileText(4) = m$
3189.  
3190.     m$ = ""
3191.     m$ = m$ + "........" + Chr$(13)
3192.     m$ = m$ + "........" + Chr$(13)
3193.     m$ = m$ + "........" + Chr$(13)
3194.     m$ = m$ + "........" + Chr$(13)
3195.     m$ = m$ + "........" + Chr$(13)
3196.     m$ = m$ + "........" + Chr$(13)
3197.     m$ = m$ + "........" + Chr$(13)
3198.     m$ = m$ + "........" + Chr$(13)
3199.     arrTileText(5) = m$
3200.  
3201.     m$ = ""
3202.     m$ = m$ + "........" + Chr$(13)
3203.     m$ = m$ + "........" + Chr$(13)
3204.     m$ = m$ + "........" + Chr$(13)
3205.     m$ = m$ + "........" + Chr$(13)
3206.     m$ = m$ + "........" + Chr$(13)
3207.     m$ = m$ + "........" + Chr$(13)
3208.     m$ = m$ + "........" + Chr$(13)
3209.     m$ = m$ + "........" + Chr$(13)
3210.     arrTileText(6) = m$
3211.  
3212.     m$ = ""
3213.     m$ = m$ + "........" + Chr$(13)
3214.     m$ = m$ + "........" + Chr$(13)
3215.     m$ = m$ + "........" + Chr$(13)
3216.     m$ = m$ + "........" + Chr$(13)
3217.     m$ = m$ + "........" + Chr$(13)
3218.     m$ = m$ + "........" + Chr$(13)
3219.     m$ = m$ + "........" + Chr$(13)
3220.     m$ = m$ + "........" + Chr$(13)
3221.     arrTileText(7) = m$
3222.  
3223.     m$ = ""
3224.     m$ = m$ + "........" + Chr$(13)
3225.     m$ = m$ + "........" + Chr$(13)
3226.     m$ = m$ + "........" + Chr$(13)
3227.     m$ = m$ + "........" + Chr$(13)
3228.     m$ = m$ + "........" + Chr$(13)
3229.     m$ = m$ + "........" + Chr$(13)
3230.     m$ = m$ + "........" + Chr$(13)
3231.     m$ = m$ + "........" + Chr$(13)
3232.     arrTileText(8) = m$
3233.  
3234.     m$ = ""
3235.     m$ = m$ + "........" + Chr$(13)
3236.     m$ = m$ + "........" + Chr$(13)
3237.     m$ = m$ + "........" + Chr$(13)
3238.     m$ = m$ + "........" + Chr$(13)
3239.     m$ = m$ + "........" + Chr$(13)
3240.     m$ = m$ + "........" + Chr$(13)
3241.     m$ = m$ + "........" + Chr$(13)
3242.     m$ = m$ + "........" + Chr$(13)
3243.     arrTileText(9) = m$
3244.  
3245.     m$ = ""
3246.     m$ = m$ + "........" + Chr$(13)
3247.     m$ = m$ + "........" + Chr$(13)
3248.     m$ = m$ + "........" + Chr$(13)
3249.     m$ = m$ + "........" + Chr$(13)
3250.     m$ = m$ + "........" + Chr$(13)
3251.     m$ = m$ + "........" + Chr$(13)
3252.     m$ = m$ + "........" + Chr$(13)
3253.     m$ = m$ + "........" + Chr$(13)
3254.     arrTileText(10) = m$
3255.  
3256.     m$ = ""
3257.     m$ = m$ + "........" + Chr$(13)
3258.     m$ = m$ + "........" + Chr$(13)
3259.     m$ = m$ + "........" + Chr$(13)
3260.     m$ = m$ + "........" + Chr$(13)
3261.     m$ = m$ + "........" + Chr$(13)
3262.     m$ = m$ + "........" + Chr$(13)
3263.     m$ = m$ + "........" + Chr$(13)
3264.     m$ = m$ + "........" + Chr$(13)
3265.     arrTileText(11) = m$
3266.  
3267.     m$ = ""
3268.     m$ = m$ + "........" + Chr$(13)
3269.     m$ = m$ + "........" + Chr$(13)
3270.     m$ = m$ + "........" + Chr$(13)
3271.     m$ = m$ + "........" + Chr$(13)
3272.     m$ = m$ + "........" + Chr$(13)
3273.     m$ = m$ + "........" + Chr$(13)
3274.     m$ = m$ + "........" + Chr$(13)
3275.     m$ = m$ + "........" + Chr$(13)
3276.     arrTileText(12) = m$
3277.  
3278.     m$ = ""
3279.     m$ = m$ + "........" + Chr$(13)
3280.     m$ = m$ + "........" + Chr$(13)
3281.     m$ = m$ + "........" + Chr$(13)
3282.     m$ = m$ + "........" + Chr$(13)
3283.     m$ = m$ + "........" + Chr$(13)
3284.     m$ = m$ + "........" + Chr$(13)
3285.     m$ = m$ + "........" + Chr$(13)
3286.     m$ = m$ + "........" + Chr$(13)
3287.     arrTileText(13) = m$
3288.  
3289.     m$ = ""
3290.     m$ = m$ + "........" + Chr$(13)
3291.     m$ = m$ + "........" + Chr$(13)
3292.     m$ = m$ + "........" + Chr$(13)
3293.     m$ = m$ + "........" + Chr$(13)
3294.     m$ = m$ + "........" + Chr$(13)
3295.     m$ = m$ + "........" + Chr$(13)
3296.     m$ = m$ + "........" + Chr$(13)
3297.     m$ = m$ + "........" + Chr$(13)
3298.     arrTileText(14) = m$
3299.  
3300.     m$ = ""
3301.     m$ = m$ + "........" + Chr$(13)
3302.     m$ = m$ + "........" + Chr$(13)
3303.     m$ = m$ + "........" + Chr$(13)
3304.     m$ = m$ + "........" + Chr$(13)
3305.     m$ = m$ + "........" + Chr$(13)
3306.     m$ = m$ + "........" + Chr$(13)
3307.     m$ = m$ + "........" + Chr$(13)
3308.     m$ = m$ + "........" + Chr$(13)
3309.     arrTileText(15) = m$
3310.  
3311.     m$ = ""
3312.     m$ = m$ + "........" + Chr$(13)
3313.     m$ = m$ + "........" + Chr$(13)
3314.     m$ = m$ + "........" + Chr$(13)
3315.     m$ = m$ + "........" + Chr$(13)
3316.     m$ = m$ + "........" + Chr$(13)
3317.     m$ = m$ + "........" + Chr$(13)
3318.     m$ = m$ + "........" + Chr$(13)
3319.     m$ = m$ + "........" + Chr$(13)
3320.     arrTileText(16) = m$
3321.  
3322.     m$ = ""
3323.     m$ = m$ + "........" + Chr$(13)
3324.     m$ = m$ + "........" + Chr$(13)
3325.     m$ = m$ + "........" + Chr$(13)
3326.     m$ = m$ + "........" + Chr$(13)
3327.     m$ = m$ + "........" + Chr$(13)
3328.     m$ = m$ + "........" + Chr$(13)
3329.     m$ = m$ + "........" + Chr$(13)
3330.     m$ = m$ + "........" + Chr$(13)
3331.     arrTileText(17) = m$
3332.  
3333.     m$ = ""
3334.     m$ = m$ + "........" + Chr$(13)
3335.     m$ = m$ + "........" + Chr$(13)
3336.     m$ = m$ + "........" + Chr$(13)
3337.     m$ = m$ + "........" + Chr$(13)
3338.     m$ = m$ + "........" + Chr$(13)
3339.     m$ = m$ + "........" + Chr$(13)
3340.     m$ = m$ + "........" + Chr$(13)
3341.     m$ = m$ + "........" + Chr$(13)
3342.     arrTileText(18) = m$
3343.  
3344.     m$ = ""
3345.     m$ = m$ + "........" + Chr$(13)
3346.     m$ = m$ + "........" + Chr$(13)
3347.     m$ = m$ + "........" + Chr$(13)
3348.     m$ = m$ + "........" + Chr$(13)
3349.     m$ = m$ + "........" + Chr$(13)
3350.     m$ = m$ + "........" + Chr$(13)
3351.     m$ = m$ + "........" + Chr$(13)
3352.     m$ = m$ + "........" + Chr$(13)
3353.     arrTileText(19) = m$
3354.  
3355.     m$ = ""
3356.     m$ = m$ + "........" + Chr$(13)
3357.     m$ = m$ + "........" + Chr$(13)
3358.     m$ = m$ + "........" + Chr$(13)
3359.     m$ = m$ + "........" + Chr$(13)
3360.     m$ = m$ + "........" + Chr$(13)
3361.     m$ = m$ + "........" + Chr$(13)
3362.     m$ = m$ + "........" + Chr$(13)
3363.     m$ = m$ + "........" + Chr$(13)
3364.     arrTileText(20) = m$
3365.  
3366.     m$ = ""
3367.     m$ = m$ + "........" + Chr$(13)
3368.     m$ = m$ + "........" + Chr$(13)
3369.     m$ = m$ + "........" + Chr$(13)
3370.     m$ = m$ + "........" + Chr$(13)
3371.     m$ = m$ + "........" + Chr$(13)
3372.     m$ = m$ + "........" + Chr$(13)
3373.     m$ = m$ + "........" + Chr$(13)
3374.     m$ = m$ + "........" + Chr$(13)
3375.     arrTileText(21) = m$
3376.  
3377.     m$ = ""
3378.     m$ = m$ + "........" + Chr$(13)
3379.     m$ = m$ + "........" + Chr$(13)
3380.     m$ = m$ + "........" + Chr$(13)
3381.     m$ = m$ + "........" + Chr$(13)
3382.     m$ = m$ + "........" + Chr$(13)
3383.     m$ = m$ + "........" + Chr$(13)
3384.     m$ = m$ + "........" + Chr$(13)
3385.     m$ = m$ + "........" + Chr$(13)
3386.     arrTileText(22) = m$
3387.  
3388.     m$ = ""
3389.     m$ = m$ + "........" + Chr$(13)
3390.     m$ = m$ + "........" + Chr$(13)
3391.     m$ = m$ + "........" + Chr$(13)
3392.     m$ = m$ + "........" + Chr$(13)
3393.     m$ = m$ + "........" + Chr$(13)
3394.     m$ = m$ + "........" + Chr$(13)
3395.     m$ = m$ + "........" + Chr$(13)
3396.     m$ = m$ + "........" + Chr$(13)
3397.     arrTileText(23) = m$
3398.  
3399.     m$ = ""
3400.     m$ = m$ + "........" + Chr$(13)
3401.     m$ = m$ + "........" + Chr$(13)
3402.     m$ = m$ + "........" + Chr$(13)
3403.     m$ = m$ + "........" + Chr$(13)
3404.     m$ = m$ + "........" + Chr$(13)
3405.     m$ = m$ + "........" + Chr$(13)
3406.     m$ = m$ + "........" + Chr$(13)
3407.     m$ = m$ + "........" + Chr$(13)
3408.     arrTileText(24) = m$
3409.  
3410.     m$ = ""
3411.     m$ = m$ + "........" + Chr$(13)
3412.     m$ = m$ + "........" + Chr$(13)
3413.     m$ = m$ + "........" + Chr$(13)
3414.     m$ = m$ + "........" + Chr$(13)
3415.     m$ = m$ + "........" + Chr$(13)
3416.     m$ = m$ + "........" + Chr$(13)
3417.     m$ = m$ + "........" + Chr$(13)
3418.     m$ = m$ + "........" + Chr$(13)
3419.     arrTileText(25) = m$
3420.  
3421.     m$ = ""
3422.     m$ = m$ + "........" + Chr$(13)
3423.     m$ = m$ + "........" + Chr$(13)
3424.     m$ = m$ + "........" + Chr$(13)
3425.     m$ = m$ + "........" + Chr$(13)
3426.     m$ = m$ + "........" + Chr$(13)
3427.     m$ = m$ + "........" + Chr$(13)
3428.     m$ = m$ + "........" + Chr$(13)
3429.     m$ = m$ + "........" + Chr$(13)
3430.     arrTileText(26) = m$
3431.  
3432.     m$ = ""
3433.     m$ = m$ + "........" + Chr$(13)
3434.     m$ = m$ + "........" + Chr$(13)
3435.     m$ = m$ + "........" + Chr$(13)
3436.     m$ = m$ + "........" + Chr$(13)
3437.     m$ = m$ + "........" + Chr$(13)
3438.     m$ = m$ + "........" + Chr$(13)
3439.     m$ = m$ + "........" + Chr$(13)
3440.     m$ = m$ + "........" + Chr$(13)
3441.     arrTileText(27) = m$
3442.  
3443.     m$ = ""
3444.     m$ = m$ + "........" + Chr$(13)
3445.     m$ = m$ + "........" + Chr$(13)
3446.     m$ = m$ + "........" + Chr$(13)
3447.     m$ = m$ + "........" + Chr$(13)
3448.     m$ = m$ + "........" + Chr$(13)
3449.     m$ = m$ + "........" + Chr$(13)
3450.     m$ = m$ + "........" + Chr$(13)
3451.     m$ = m$ + "........" + Chr$(13)
3452.     arrTileText(28) = m$
3453.  
3454.     m$ = ""
3455.     m$ = m$ + "........" + Chr$(13)
3456.     m$ = m$ + "........" + Chr$(13)
3457.     m$ = m$ + "........" + Chr$(13)
3458.     m$ = m$ + "........" + Chr$(13)
3459.     m$ = m$ + "........" + Chr$(13)
3460.     m$ = m$ + "........" + Chr$(13)
3461.     m$ = m$ + "........" + Chr$(13)
3462.     m$ = m$ + "........" + Chr$(13)
3463.     arrTileText(29) = m$
3464.  
3465.     m$ = ""
3466.     m$ = m$ + "........" + Chr$(13)
3467.     m$ = m$ + "........" + Chr$(13)
3468.     m$ = m$ + "........" + Chr$(13)
3469.     m$ = m$ + "........" + Chr$(13)
3470.     m$ = m$ + "........" + Chr$(13)
3471.     m$ = m$ + "........" + Chr$(13)
3472.     m$ = m$ + "........" + Chr$(13)
3473.     m$ = m$ + "........" + Chr$(13)
3474.     arrTileText(30) = m$
3475.  
3476.     m$ = ""
3477.     m$ = m$ + "........" + Chr$(13)
3478.     m$ = m$ + "........" + Chr$(13)
3479.     m$ = m$ + "........" + Chr$(13)
3480.     m$ = m$ + "........" + Chr$(13)
3481.     m$ = m$ + "........" + Chr$(13)
3482.     m$ = m$ + "........" + Chr$(13)
3483.     m$ = m$ + "........" + Chr$(13)
3484.     m$ = m$ + "........" + Chr$(13)
3485.     arrTileText(31) = m$
3486.  
3487.     m$ = ""
3488.     m$ = m$ + "........" + Chr$(13)
3489.     m$ = m$ + "........" + Chr$(13)
3490.     m$ = m$ + "........" + Chr$(13)
3491.     m$ = m$ + "........" + Chr$(13)
3492.     m$ = m$ + "........" + Chr$(13)
3493.     m$ = m$ + "........" + Chr$(13)
3494.     m$ = m$ + "........" + Chr$(13)
3495.     m$ = m$ + "........" + Chr$(13)
3496.     arrTileText(32) = m$
3497.  
3498.     m$ = ""
3499.     m$ = m$ + "...22..." + Chr$(13)
3500.     m$ = m$ + "...22..." + Chr$(13)
3501.     m$ = m$ + "...22..." + Chr$(13)
3502.     m$ = m$ + "...22..." + Chr$(13)
3503.     m$ = m$ + "........" + Chr$(13)
3504.     m$ = m$ + "........" + Chr$(13)
3505.     m$ = m$ + "...22..." + Chr$(13)
3506.     m$ = m$ + "........" + Chr$(13)
3507.     arrTileText(33) = m$
3508.  
3509.     m$ = ""
3510.     m$ = m$ + ".22..22." + Chr$(13)
3511.     m$ = m$ + ".22..22." + Chr$(13)
3512.     m$ = m$ + ".22..22." + Chr$(13)
3513.     m$ = m$ + "........" + Chr$(13)
3514.     m$ = m$ + "........" + Chr$(13)
3515.     m$ = m$ + "........" + Chr$(13)
3516.     m$ = m$ + "........" + Chr$(13)
3517.     m$ = m$ + "........" + Chr$(13)
3518.     arrTileText(34) = m$
3519.  
3520.     m$ = ""
3521.     m$ = m$ + ".22..22." + Chr$(13)
3522.     m$ = m$ + ".22..22." + Chr$(13)
3523.     m$ = m$ + "22222222" + Chr$(13)
3524.     m$ = m$ + ".22..22." + Chr$(13)
3525.     m$ = m$ + "22222222" + Chr$(13)
3526.     m$ = m$ + ".22..22." + Chr$(13)
3527.     m$ = m$ + ".22..22." + Chr$(13)
3528.     m$ = m$ + "........" + Chr$(13)
3529.     arrTileText(35) = m$
3530.  
3531.     m$ = ""
3532.     m$ = m$ + "...22..." + Chr$(13)
3533.     m$ = m$ + "..22222." + Chr$(13)
3534.     m$ = m$ + ".22....." + Chr$(13)
3535.     m$ = m$ + "..2222.." + Chr$(13)
3536.     m$ = m$ + ".....22." + Chr$(13)
3537.     m$ = m$ + ".22222.." + Chr$(13)
3538.     m$ = m$ + "...22..." + Chr$(13)
3539.     m$ = m$ + "........" + Chr$(13)
3540.     arrTileText(36) = m$
3541.  
3542.     m$ = ""
3543.     m$ = m$ + ".22...2." + Chr$(13)
3544.     m$ = m$ + ".22..22." + Chr$(13)
3545.     m$ = m$ + "....22.." + Chr$(13)
3546.     m$ = m$ + "...22..." + Chr$(13)
3547.     m$ = m$ + "..22...." + Chr$(13)
3548.     m$ = m$ + ".22..22." + Chr$(13)
3549.     m$ = m$ + ".2...22." + Chr$(13)
3550.     m$ = m$ + "........" + Chr$(13)
3551.     arrTileText(37) = m$
3552.  
3553.     m$ = ""
3554.     m$ = m$ + "..2222.." + Chr$(13)
3555.     m$ = m$ + ".22..22." + Chr$(13)
3556.     m$ = m$ + "..2222.." + Chr$(13)
3557.     m$ = m$ + "..222..." + Chr$(13)
3558.     m$ = m$ + ".22..222" + Chr$(13)
3559.     m$ = m$ + ".22..22." + Chr$(13)
3560.     m$ = m$ + "..222222" + Chr$(13)
3561.     m$ = m$ + "........" + Chr$(13)
3562.     arrTileText(38) = m$
3563.  
3564.     m$ = ""
3565.     m$ = m$ + ".....22." + Chr$(13)
3566.     m$ = m$ + "....22.." + Chr$(13)
3567.     m$ = m$ + "...22..." + Chr$(13)
3568.     m$ = m$ + "........" + Chr$(13)
3569.     m$ = m$ + "........" + Chr$(13)
3570.     m$ = m$ + "........" + Chr$(13)
3571.     m$ = m$ + "........" + Chr$(13)
3572.     m$ = m$ + "........" + Chr$(13)
3573.     arrTileText(39) = m$
3574.  
3575.     m$ = ""
3576.     m$ = m$ + "....22.." + Chr$(13)
3577.     m$ = m$ + "...22..." + Chr$(13)
3578.     m$ = m$ + "..22...." + Chr$(13)
3579.     m$ = m$ + "..22...." + Chr$(13)
3580.     m$ = m$ + "..22...." + Chr$(13)
3581.     m$ = m$ + "...22..." + Chr$(13)
3582.     m$ = m$ + "....22.." + Chr$(13)
3583.     m$ = m$ + "........" + Chr$(13)
3584.     arrTileText(40) = m$
3585.  
3586.     m$ = ""
3587.     m$ = m$ + "..22...." + Chr$(13)
3588.     m$ = m$ + "...22..." + Chr$(13)
3589.     m$ = m$ + "....22.." + Chr$(13)
3590.     m$ = m$ + "....22.." + Chr$(13)
3591.     m$ = m$ + "....22.." + Chr$(13)
3592.     m$ = m$ + "...22..." + Chr$(13)
3593.     m$ = m$ + "..22...." + Chr$(13)
3594.     m$ = m$ + "........" + Chr$(13)
3595.     arrTileText(41) = m$
3596.  
3597.     m$ = ""
3598.     m$ = m$ + "........" + Chr$(13)
3599.     m$ = m$ + ".22..22." + Chr$(13)
3600.     m$ = m$ + "..2222.." + Chr$(13)
3601.     m$ = m$ + "22222222" + Chr$(13)
3602.     m$ = m$ + "..2222.." + Chr$(13)
3603.     m$ = m$ + ".22..22." + Chr$(13)
3604.     m$ = m$ + "........" + Chr$(13)
3605.     m$ = m$ + "........" + Chr$(13)
3606.     arrTileText(42) = m$
3607.  
3608.     m$ = ""
3609.     m$ = m$ + "........" + Chr$(13)
3610.     m$ = m$ + "...22..." + Chr$(13)
3611.     m$ = m$ + "...22..." + Chr$(13)
3612.     m$ = m$ + ".222222." + Chr$(13)
3613.     m$ = m$ + "...22..." + Chr$(13)
3614.     m$ = m$ + "...22..." + Chr$(13)
3615.     m$ = m$ + "........" + Chr$(13)
3616.     m$ = m$ + "........" + Chr$(13)
3617.     arrTileText(43) = m$
3618.  
3619.     m$ = ""
3620.     m$ = m$ + "........" + Chr$(13)
3621.     m$ = m$ + "........" + Chr$(13)
3622.     m$ = m$ + "........" + Chr$(13)
3623.     m$ = m$ + "........" + Chr$(13)
3624.     m$ = m$ + "........" + Chr$(13)
3625.     m$ = m$ + "...22..." + Chr$(13)
3626.     m$ = m$ + "...22..." + Chr$(13)
3627.     m$ = m$ + "..22...." + Chr$(13)
3628.     arrTileText(44) = m$
3629.  
3630.     m$ = ""
3631.     m$ = m$ + "........" + Chr$(13)
3632.     m$ = m$ + "........" + Chr$(13)
3633.     m$ = m$ + "........" + Chr$(13)
3634.     m$ = m$ + ".222222." + Chr$(13)
3635.     m$ = m$ + "........" + Chr$(13)
3636.     m$ = m$ + "........" + Chr$(13)
3637.     m$ = m$ + "........" + Chr$(13)
3638.     m$ = m$ + "........" + Chr$(13)
3639.     arrTileText(45) = m$
3640.  
3641.     m$ = ""
3642.     m$ = m$ + "........" + Chr$(13)
3643.     m$ = m$ + "........" + Chr$(13)
3644.     m$ = m$ + "........" + Chr$(13)
3645.     m$ = m$ + "........" + Chr$(13)
3646.     m$ = m$ + "........" + Chr$(13)
3647.     m$ = m$ + "...22..." + Chr$(13)
3648.     m$ = m$ + "...22..." + Chr$(13)
3649.     m$ = m$ + "........" + Chr$(13)
3650.     arrTileText(46) = m$
3651.  
3652.     m$ = ""
3653.     m$ = m$ + "........" + Chr$(13)
3654.     m$ = m$ + "......22" + Chr$(13)
3655.     m$ = m$ + ".....22." + Chr$(13)
3656.     m$ = m$ + "....22.." + Chr$(13)
3657.     m$ = m$ + "...22..." + Chr$(13)
3658.     m$ = m$ + "..22...." + Chr$(13)
3659.     m$ = m$ + ".22....." + Chr$(13)
3660.     m$ = m$ + "........" + Chr$(13)
3661.     arrTileText(47) = m$
3662.  
3663.     m$ = ""
3664.     m$ = m$ + "..2222.." + Chr$(13)
3665.     m$ = m$ + ".22..22." + Chr$(13)
3666.     m$ = m$ + ".22.222." + Chr$(13)
3667.     m$ = m$ + ".222.22." + Chr$(13)
3668.     m$ = m$ + ".22..22." + Chr$(13)
3669.     m$ = m$ + ".22..22." + Chr$(13)
3670.     m$ = m$ + "..2222.." + Chr$(13)
3671.     m$ = m$ + "........" + Chr$(13)
3672.     arrTileText(48) = m$
3673.  
3674.     m$ = ""
3675.     m$ = m$ + "...22..." + Chr$(13)
3676.     m$ = m$ + "...22..." + Chr$(13)
3677.     m$ = m$ + "..222..." + Chr$(13)
3678.     m$ = m$ + "...22..." + Chr$(13)
3679.     m$ = m$ + "...22..." + Chr$(13)
3680.     m$ = m$ + "...22..." + Chr$(13)
3681.     m$ = m$ + ".222222." + Chr$(13)
3682.     m$ = m$ + "........" + Chr$(13)
3683.     arrTileText(49) = m$
3684.  
3685.     m$ = ""
3686.     m$ = m$ + "..2222.." + Chr$(13)
3687.     m$ = m$ + ".22..22." + Chr$(13)
3688.     m$ = m$ + ".....22." + Chr$(13)
3689.     m$ = m$ + "....22.." + Chr$(13)
3690.     m$ = m$ + "..22...." + Chr$(13)
3691.     m$ = m$ + ".22....." + Chr$(13)
3692.     m$ = m$ + ".222222." + Chr$(13)
3693.     m$ = m$ + "........" + Chr$(13)
3694.     arrTileText(50) = m$
3695.  
3696.     m$ = ""
3697.     m$ = m$ + "..2222.." + Chr$(13)
3698.     m$ = m$ + ".22..22." + Chr$(13)
3699.     m$ = m$ + ".....22." + Chr$(13)
3700.     m$ = m$ + "...222.." + Chr$(13)
3701.     m$ = m$ + ".....22." + Chr$(13)
3702.     m$ = m$ + ".22..22." + Chr$(13)
3703.     m$ = m$ + "..2222.." + Chr$(13)
3704.     m$ = m$ + "........" + Chr$(13)
3705.     arrTileText(51) = m$
3706.  
3707.     m$ = ""
3708.     m$ = m$ + ".....22." + Chr$(13)
3709.     m$ = m$ + "....222." + Chr$(13)
3710.     m$ = m$ + "...2222." + Chr$(13)
3711.     m$ = m$ + ".22..22." + Chr$(13)
3712.     m$ = m$ + ".2222222" + Chr$(13)
3713.     m$ = m$ + ".....22." + Chr$(13)
3714.     m$ = m$ + ".....22." + Chr$(13)
3715.     m$ = m$ + "........" + Chr$(13)
3716.     arrTileText(52) = m$
3717.  
3718.     m$ = ""
3719.     m$ = m$ + ".222222." + Chr$(13)
3720.     m$ = m$ + ".22....." + Chr$(13)
3721.     m$ = m$ + ".22222.." + Chr$(13)
3722.     m$ = m$ + ".....22." + Chr$(13)
3723.     m$ = m$ + ".....22." + Chr$(13)
3724.     m$ = m$ + ".22..22." + Chr$(13)
3725.     m$ = m$ + "..2222.." + Chr$(13)
3726.     m$ = m$ + "........" + Chr$(13)
3727.     arrTileText(53) = m$
3728.  
3729.     m$ = ""
3730.     m$ = m$ + "..2222.." + Chr$(13)
3731.     m$ = m$ + ".22..22." + Chr$(13)
3732.     m$ = m$ + ".22....." + Chr$(13)
3733.     m$ = m$ + ".22222.." + Chr$(13)
3734.     m$ = m$ + ".22..22." + Chr$(13)
3735.     m$ = m$ + ".22..22." + Chr$(13)
3736.     m$ = m$ + "..2222.." + Chr$(13)
3737.     m$ = m$ + "........" + Chr$(13)
3738.     arrTileText(54) = m$
3739.  
3740.     m$ = ""
3741.     m$ = m$ + ".222222." + Chr$(13)
3742.     m$ = m$ + ".22..22." + Chr$(13)
3743.     m$ = m$ + "....22.." + Chr$(13)
3744.     m$ = m$ + "...22..." + Chr$(13)
3745.     m$ = m$ + "...22..." + Chr$(13)
3746.     m$ = m$ + "...22..." + Chr$(13)
3747.     m$ = m$ + "...22..." + Chr$(13)
3748.     m$ = m$ + "........" + Chr$(13)
3749.     arrTileText(55) = m$
3750.  
3751.     m$ = ""
3752.     m$ = m$ + "..2222.." + Chr$(13)
3753.     m$ = m$ + ".22..22." + Chr$(13)
3754.     m$ = m$ + ".22..22." + Chr$(13)
3755.     m$ = m$ + "..2222.." + Chr$(13)
3756.     m$ = m$ + ".22..22." + Chr$(13)
3757.     m$ = m$ + ".22..22." + Chr$(13)
3758.     m$ = m$ + "..2222.." + Chr$(13)
3759.     m$ = m$ + "........" + Chr$(13)
3760.     arrTileText(56) = m$
3761.  
3762.     m$ = ""
3763.     m$ = m$ + "..2222.." + Chr$(13)
3764.     m$ = m$ + ".22..22." + Chr$(13)
3765.     m$ = m$ + ".22..22." + Chr$(13)
3766.     m$ = m$ + "..22222." + Chr$(13)
3767.     m$ = m$ + ".....22." + Chr$(13)
3768.     m$ = m$ + ".22..22." + Chr$(13)
3769.     m$ = m$ + "..2222.." + Chr$(13)
3770.     m$ = m$ + "........" + Chr$(13)
3771.     arrTileText(57) = m$
3772.  
3773.     m$ = ""
3774.     m$ = m$ + "........" + Chr$(13)
3775.     m$ = m$ + "........" + Chr$(13)
3776.     m$ = m$ + "...22..." + Chr$(13)
3777.     m$ = m$ + "........" + Chr$(13)
3778.     m$ = m$ + "........" + Chr$(13)
3779.     m$ = m$ + "...22..." + Chr$(13)
3780.     m$ = m$ + "........" + Chr$(13)
3781.     m$ = m$ + "........" + Chr$(13)
3782.     arrTileText(58) = m$
3783.  
3784.     m$ = ""
3785.     m$ = m$ + "........" + Chr$(13)
3786.     m$ = m$ + "........" + Chr$(13)
3787.     m$ = m$ + "...22..." + Chr$(13)
3788.     m$ = m$ + "........" + Chr$(13)
3789.     m$ = m$ + "........" + Chr$(13)
3790.     m$ = m$ + "...22..." + Chr$(13)
3791.     m$ = m$ + "...22..." + Chr$(13)
3792.     m$ = m$ + "..22...." + Chr$(13)
3793.     arrTileText(59) = m$
3794.  
3795.     m$ = ""
3796.     m$ = m$ + "....222." + Chr$(13)
3797.     m$ = m$ + "...22..." + Chr$(13)
3798.     m$ = m$ + "..22...." + Chr$(13)
3799.     m$ = m$ + ".22....." + Chr$(13)
3800.     m$ = m$ + "..22...." + Chr$(13)
3801.     m$ = m$ + "...22..." + Chr$(13)
3802.     m$ = m$ + "....222." + Chr$(13)
3803.     m$ = m$ + "........" + Chr$(13)
3804.     arrTileText(60) = m$
3805.  
3806.     m$ = ""
3807.     m$ = m$ + "........" + Chr$(13)
3808.     m$ = m$ + "........" + Chr$(13)
3809.     m$ = m$ + ".222222." + Chr$(13)
3810.     m$ = m$ + "........" + Chr$(13)
3811.     m$ = m$ + ".222222." + Chr$(13)
3812.     m$ = m$ + "........" + Chr$(13)
3813.     m$ = m$ + "........" + Chr$(13)
3814.     m$ = m$ + "........" + Chr$(13)
3815.     arrTileText(61) = m$
3816.  
3817.     m$ = ""
3818.     m$ = m$ + ".222...." + Chr$(13)
3819.     m$ = m$ + "...22..." + Chr$(13)
3820.     m$ = m$ + "....22.." + Chr$(13)
3821.     m$ = m$ + ".....22." + Chr$(13)
3822.     m$ = m$ + "....22.." + Chr$(13)
3823.     m$ = m$ + "...22..." + Chr$(13)
3824.     m$ = m$ + ".222...." + Chr$(13)
3825.     m$ = m$ + "........" + Chr$(13)
3826.     arrTileText(62) = m$
3827.  
3828.     m$ = ""
3829.     m$ = m$ + "..2222.." + Chr$(13)
3830.     m$ = m$ + ".22..22." + Chr$(13)
3831.     m$ = m$ + ".....22." + Chr$(13)
3832.     m$ = m$ + "....22.." + Chr$(13)
3833.     m$ = m$ + "...22..." + Chr$(13)
3834.     m$ = m$ + "........" + Chr$(13)
3835.     m$ = m$ + "...22..." + Chr$(13)
3836.     m$ = m$ + "........" + Chr$(13)
3837.     arrTileText(63) = m$
3838.  
3839.     m$ = ""
3840.     m$ = m$ + "..2222.." + Chr$(13)
3841.     m$ = m$ + ".22..22." + Chr$(13)
3842.     m$ = m$ + ".22.222." + Chr$(13)
3843.     m$ = m$ + ".22.222." + Chr$(13)
3844.     m$ = m$ + ".22....." + Chr$(13)
3845.     m$ = m$ + ".22...2." + Chr$(13)
3846.     m$ = m$ + "..2222.." + Chr$(13)
3847.     m$ = m$ + "........" + Chr$(13)
3848.     arrTileText(64) = m$
3849.  
3850.     m$ = ""
3851.     m$ = m$ + "...22..." + Chr$(13)
3852.     m$ = m$ + "..2222.." + Chr$(13)
3853.     m$ = m$ + ".22..22." + Chr$(13)
3854.     m$ = m$ + ".222222." + Chr$(13)
3855.     m$ = m$ + ".22..22." + Chr$(13)
3856.     m$ = m$ + ".22..22." + Chr$(13)
3857.     m$ = m$ + ".22..22." + Chr$(13)
3858.     m$ = m$ + "........" + Chr$(13)
3859.     arrTileText(65) = m$
3860.  
3861.     m$ = ""
3862.     m$ = m$ + ".22222.." + Chr$(13)
3863.     m$ = m$ + ".22..22." + Chr$(13)
3864.     m$ = m$ + ".22..22." + Chr$(13)
3865.     m$ = m$ + ".22222.." + Chr$(13)
3866.     m$ = m$ + ".22..22." + Chr$(13)
3867.     m$ = m$ + ".22..22." + Chr$(13)
3868.     m$ = m$ + ".22222.." + Chr$(13)
3869.     m$ = m$ + "........" + Chr$(13)
3870.     arrTileText(66) = m$
3871.  
3872.     m$ = ""
3873.     m$ = m$ + "..2222.." + Chr$(13)
3874.     m$ = m$ + ".22..22." + Chr$(13)
3875.     m$ = m$ + ".22....." + Chr$(13)
3876.     m$ = m$ + ".22....." + Chr$(13)
3877.     m$ = m$ + ".22....." + Chr$(13)
3878.     m$ = m$ + ".22..22." + Chr$(13)
3879.     m$ = m$ + "..2222.." + Chr$(13)
3880.     m$ = m$ + "........" + Chr$(13)
3881.     arrTileText(67) = m$
3882.  
3883.     m$ = ""
3884.     m$ = m$ + ".2222..." + Chr$(13)
3885.     m$ = m$ + ".22.22.." + Chr$(13)
3886.     m$ = m$ + ".22..22." + Chr$(13)
3887.     m$ = m$ + ".22..22." + Chr$(13)
3888.     m$ = m$ + ".22..22." + Chr$(13)
3889.     m$ = m$ + ".22.22.." + Chr$(13)
3890.     m$ = m$ + ".2222..." + Chr$(13)
3891.     m$ = m$ + "........" + Chr$(13)
3892.     arrTileText(68) = m$
3893.  
3894.     m$ = ""
3895.     m$ = m$ + ".222222." + Chr$(13)
3896.     m$ = m$ + ".22....." + Chr$(13)
3897.     m$ = m$ + ".22....." + Chr$(13)
3898.     m$ = m$ + ".2222..." + Chr$(13)
3899.     m$ = m$ + ".22....." + Chr$(13)
3900.     m$ = m$ + ".22....." + Chr$(13)
3901.     m$ = m$ + ".222222." + Chr$(13)
3902.     m$ = m$ + "........" + Chr$(13)
3903.     arrTileText(69) = m$
3904.  
3905.     m$ = ""
3906.     m$ = m$ + ".222222." + Chr$(13)
3907.     m$ = m$ + ".22....." + Chr$(13)
3908.     m$ = m$ + ".22....." + Chr$(13)
3909.     m$ = m$ + ".2222..." + Chr$(13)
3910.     m$ = m$ + ".22....." + Chr$(13)
3911.     m$ = m$ + ".22....." + Chr$(13)
3912.     m$ = m$ + ".22....." + Chr$(13)
3913.     m$ = m$ + "........" + Chr$(13)
3914.     arrTileText(70) = m$
3915.  
3916.     m$ = ""
3917.     m$ = m$ + "..2222.." + Chr$(13)
3918.     m$ = m$ + ".22..22." + Chr$(13)
3919.     m$ = m$ + ".22....." + Chr$(13)
3920.     m$ = m$ + ".22.222." + Chr$(13)
3921.     m$ = m$ + ".22..22." + Chr$(13)
3922.     m$ = m$ + ".22..22." + Chr$(13)
3923.     m$ = m$ + "..2222.." + Chr$(13)
3924.     m$ = m$ + "........" + Chr$(13)
3925.     arrTileText(71) = m$
3926.  
3927.     m$ = ""
3928.     m$ = m$ + ".22..22." + Chr$(13)
3929.     m$ = m$ + ".22..22." + Chr$(13)
3930.     m$ = m$ + ".22..22." + Chr$(13)
3931.     m$ = m$ + ".222222." + Chr$(13)
3932.     m$ = m$ + ".22..22." + Chr$(13)
3933.     m$ = m$ + ".22..22." + Chr$(13)
3934.     m$ = m$ + ".22..22." + Chr$(13)
3935.     m$ = m$ + "........" + Chr$(13)
3936.     arrTileText(72) = m$
3937.  
3938.     m$ = ""
3939.     m$ = m$ + "..2222.." + Chr$(13)
3940.     m$ = m$ + "...22..." + Chr$(13)
3941.     m$ = m$ + "...22..." + Chr$(13)
3942.     m$ = m$ + "...22..." + Chr$(13)
3943.     m$ = m$ + "...22..." + Chr$(13)
3944.     m$ = m$ + "...22..." + Chr$(13)
3945.     m$ = m$ + "..2222.." + Chr$(13)
3946.     m$ = m$ + "........" + Chr$(13)
3947.     arrTileText(73) = m$
3948.  
3949.     m$ = ""
3950.     m$ = m$ + "...2222." + Chr$(13)
3951.     m$ = m$ + "....22.." + Chr$(13)
3952.     m$ = m$ + "....22.." + Chr$(13)
3953.     m$ = m$ + "....22.." + Chr$(13)
3954.     m$ = m$ + "....22.." + Chr$(13)
3955.     m$ = m$ + ".22.22.." + Chr$(13)
3956.     m$ = m$ + "..222..." + Chr$(13)
3957.     m$ = m$ + "........" + Chr$(13)
3958.     arrTileText(74) = m$
3959.  
3960.     m$ = ""
3961.     m$ = m$ + ".22..22." + Chr$(13)
3962.     m$ = m$ + ".22.22.." + Chr$(13)
3963.     m$ = m$ + ".2222..." + Chr$(13)
3964.     m$ = m$ + ".222...." + Chr$(13)
3965.     m$ = m$ + ".2222..." + Chr$(13)
3966.     m$ = m$ + ".22.22.." + Chr$(13)
3967.     m$ = m$ + ".22..22." + Chr$(13)
3968.     m$ = m$ + "........" + Chr$(13)
3969.     arrTileText(75) = m$
3970.  
3971.     m$ = ""
3972.     m$ = m$ + ".22....." + Chr$(13)
3973.     m$ = m$ + ".22....." + Chr$(13)
3974.     m$ = m$ + ".22....." + Chr$(13)
3975.     m$ = m$ + ".22....." + Chr$(13)
3976.     m$ = m$ + ".22....." + Chr$(13)
3977.     m$ = m$ + ".22....." + Chr$(13)
3978.     m$ = m$ + ".222222." + Chr$(13)
3979.     m$ = m$ + "........" + Chr$(13)
3980.     arrTileText(76) = m$
3981.  
3982.     m$ = ""
3983.     m$ = m$ + ".22...22" + Chr$(13)
3984.     m$ = m$ + ".222.222" + Chr$(13)
3985.     m$ = m$ + ".2222222" + Chr$(13)
3986.     m$ = m$ + ".22.2.22" + Chr$(13)
3987.     m$ = m$ + ".22...22" + Chr$(13)
3988.     m$ = m$ + ".22...22" + Chr$(13)
3989.     m$ = m$ + ".22...22" + Chr$(13)
3990.     m$ = m$ + "........" + Chr$(13)
3991.     arrTileText(77) = m$
3992.  
3993.     m$ = ""
3994.     m$ = m$ + ".22..22." + Chr$(13)
3995.     m$ = m$ + ".222.22." + Chr$(13)
3996.     m$ = m$ + ".222222." + Chr$(13)
3997.     m$ = m$ + ".222222." + Chr$(13)
3998.     m$ = m$ + ".22.222." + Chr$(13)
3999.     m$ = m$ + ".22..22." + Chr$(13)
4000.     m$ = m$ + ".22..22." + Chr$(13)
4001.     m$ = m$ + "........" + Chr$(13)
4002.     arrTileText(78) = m$
4003.  
4004.     m$ = ""
4005.     m$ = m$ + "..2222.." + Chr$(13)
4006.     m$ = m$ + ".22..22." + Chr$(13)
4007.     m$ = m$ + ".22..22." + Chr$(13)
4008.     m$ = m$ + ".22..22." + Chr$(13)
4009.     m$ = m$ + ".22..22." + Chr$(13)
4010.     m$ = m$ + ".22..22." + Chr$(13)
4011.     m$ = m$ + "..2222.." + Chr$(13)
4012.     m$ = m$ + "........" + Chr$(13)
4013.     arrTileText(79) = m$
4014.  
4015.     m$ = ""
4016.     m$ = m$ + ".22222.." + Chr$(13)
4017.     m$ = m$ + ".22..22." + Chr$(13)
4018.     m$ = m$ + ".22..22." + Chr$(13)
4019.     m$ = m$ + ".22222.." + Chr$(13)
4020.     m$ = m$ + ".22....." + Chr$(13)
4021.     m$ = m$ + ".22....." + Chr$(13)
4022.     m$ = m$ + ".22....." + Chr$(13)
4023.     m$ = m$ + "........" + Chr$(13)
4024.     arrTileText(80) = m$
4025.  
4026.     m$ = ""
4027.     m$ = m$ + "..2222.." + Chr$(13)
4028.     m$ = m$ + ".22..22." + Chr$(13)
4029.     m$ = m$ + ".22..22." + Chr$(13)
4030.     m$ = m$ + ".22..22." + Chr$(13)
4031.     m$ = m$ + ".22..22." + Chr$(13)
4032.     m$ = m$ + "..2222.." + Chr$(13)
4033.     m$ = m$ + "....222." + Chr$(13)
4034.     m$ = m$ + "........" + Chr$(13)
4035.     arrTileText(81) = m$
4036.  
4037.     m$ = ""
4038.     m$ = m$ + ".22222.." + Chr$(13)
4039.     m$ = m$ + ".22..22." + Chr$(13)
4040.     m$ = m$ + ".22..22." + Chr$(13)
4041.     m$ = m$ + ".22222.." + Chr$(13)
4042.     m$ = m$ + ".2222..." + Chr$(13)
4043.     m$ = m$ + ".22.22.." + Chr$(13)
4044.     m$ = m$ + ".22..22." + Chr$(13)
4045.     m$ = m$ + "........" + Chr$(13)
4046.     arrTileText(82) = m$
4047.  
4048.     m$ = ""
4049.     m$ = m$ + "..2222.." + Chr$(13)
4050.     m$ = m$ + ".22..22." + Chr$(13)
4051.     m$ = m$ + ".22....." + Chr$(13)
4052.     m$ = m$ + "..2222.." + Chr$(13)
4053.     m$ = m$ + ".....22." + Chr$(13)
4054.     m$ = m$ + ".22..22." + Chr$(13)
4055.     m$ = m$ + "..2222.." + Chr$(13)
4056.     m$ = m$ + "........" + Chr$(13)
4057.     arrTileText(83) = m$
4058.  
4059.     m$ = ""
4060.     m$ = m$ + ".222222." + Chr$(13)
4061.     m$ = m$ + "...22..." + Chr$(13)
4062.     m$ = m$ + "...22..." + Chr$(13)
4063.     m$ = m$ + "...22..." + Chr$(13)
4064.     m$ = m$ + "...22..." + Chr$(13)
4065.     m$ = m$ + "...22..." + Chr$(13)
4066.     m$ = m$ + "...22..." + Chr$(13)
4067.     m$ = m$ + "........" + Chr$(13)
4068.     arrTileText(84) = m$
4069.  
4070.     m$ = ""
4071.     m$ = m$ + ".22..22." + Chr$(13)
4072.     m$ = m$ + ".22..22." + Chr$(13)
4073.     m$ = m$ + ".22..22." + Chr$(13)
4074.     m$ = m$ + ".22..22." + Chr$(13)
4075.     m$ = m$ + ".22..22." + Chr$(13)
4076.     m$ = m$ + ".22..22." + Chr$(13)
4077.     m$ = m$ + "..2222.." + Chr$(13)
4078.     m$ = m$ + "........" + Chr$(13)
4079.     arrTileText(85) = m$
4080.  
4081.     m$ = ""
4082.     m$ = m$ + ".22..22." + Chr$(13)
4083.     m$ = m$ + ".22..22." + Chr$(13)
4084.     m$ = m$ + ".22..22." + Chr$(13)
4085.     m$ = m$ + ".22..22." + Chr$(13)
4086.     m$ = m$ + ".22..22." + Chr$(13)
4087.     m$ = m$ + "..2222.." + Chr$(13)
4088.     m$ = m$ + "...22..." + Chr$(13)
4089.     m$ = m$ + "........" + Chr$(13)
4090.     arrTileText(86) = m$
4091.  
4092.     m$ = ""
4093.     m$ = m$ + ".22...22" + Chr$(13)
4094.     m$ = m$ + ".22...22" + Chr$(13)
4095.     m$ = m$ + ".22...22" + Chr$(13)
4096.     m$ = m$ + ".22.2.22" + Chr$(13)
4097.     m$ = m$ + ".2222222" + Chr$(13)
4098.     m$ = m$ + ".222.222" + Chr$(13)
4099.     m$ = m$ + ".22...22" + Chr$(13)
4100.     m$ = m$ + "........" + Chr$(13)
4101.     arrTileText(87) = m$
4102.  
4103.     m$ = ""
4104.     m$ = m$ + ".22..22." + Chr$(13)
4105.     m$ = m$ + ".22..22." + Chr$(13)
4106.     m$ = m$ + "..2222.." + Chr$(13)
4107.     m$ = m$ + "...22..." + Chr$(13)
4108.     m$ = m$ + "..2222.." + Chr$(13)
4109.     m$ = m$ + ".22..22." + Chr$(13)
4110.     m$ = m$ + ".22..22." + Chr$(13)
4111.     m$ = m$ + "........" + Chr$(13)
4112.     arrTileText(88) = m$
4113.  
4114.     m$ = ""
4115.     m$ = m$ + ".22..22." + Chr$(13)
4116.     m$ = m$ + ".22..22." + Chr$(13)
4117.     m$ = m$ + ".22..22." + Chr$(13)
4118.     m$ = m$ + "..2222.." + Chr$(13)
4119.     m$ = m$ + "...22..." + Chr$(13)
4120.     m$ = m$ + "...22..." + Chr$(13)
4121.     m$ = m$ + "...22..." + Chr$(13)
4122.     m$ = m$ + "........" + Chr$(13)
4123.     arrTileText(89) = m$
4124.  
4125.     m$ = ""
4126.     m$ = m$ + ".222222." + Chr$(13)
4127.     m$ = m$ + ".....22." + Chr$(13)
4128.     m$ = m$ + "....22.." + Chr$(13)
4129.     m$ = m$ + "...22..." + Chr$(13)
4130.     m$ = m$ + "..22...." + Chr$(13)
4131.     m$ = m$ + ".22....." + Chr$(13)
4132.     m$ = m$ + ".222222." + Chr$(13)
4133.     m$ = m$ + "........" + Chr$(13)
4134.     arrTileText(90) = m$
4135.  
4136.     m$ = ""
4137.     m$ = m$ + "..2222.." + Chr$(13)
4138.     m$ = m$ + "..22...." + Chr$(13)
4139.     m$ = m$ + "..22...." + Chr$(13)
4140.     m$ = m$ + "..22...." + Chr$(13)
4141.     m$ = m$ + "..22...." + Chr$(13)
4142.     m$ = m$ + "..22...." + Chr$(13)
4143.     m$ = m$ + "..2222.." + Chr$(13)
4144.     m$ = m$ + "........" + Chr$(13)
4145.     arrTileText(91) = m$
4146.  
4147.     m$ = ""
4148.     m$ = m$ + "........" + Chr$(13)
4149.     m$ = m$ + ".22....." + Chr$(13)
4150.     m$ = m$ + "..22...." + Chr$(13)
4151.     m$ = m$ + "...22..." + Chr$(13)
4152.     m$ = m$ + "....22.." + Chr$(13)
4153.     m$ = m$ + ".....22." + Chr$(13)
4154.     m$ = m$ + "......22" + Chr$(13)
4155.     m$ = m$ + "........" + Chr$(13)
4156.     arrTileText(92) = m$
4157.  
4158.     m$ = ""
4159.     m$ = m$ + "..2222.." + Chr$(13)
4160.     m$ = m$ + "....22.." + Chr$(13)
4161.     m$ = m$ + "....22.." + Chr$(13)
4162.     m$ = m$ + "....22.." + Chr$(13)
4163.     m$ = m$ + "....22.." + Chr$(13)
4164.     m$ = m$ + "....22.." + Chr$(13)
4165.     m$ = m$ + "..2222.." + Chr$(13)
4166.     m$ = m$ + "........" + Chr$(13)
4167.     arrTileText(93) = m$
4168.  
4169.     m$ = ""
4170.     m$ = m$ + "...22..." + Chr$(13)
4171.     m$ = m$ + "..2222.." + Chr$(13)
4172.     m$ = m$ + ".22..22." + Chr$(13)
4173.     m$ = m$ + "........" + Chr$(13)
4174.     m$ = m$ + "........" + Chr$(13)
4175.     m$ = m$ + "........" + Chr$(13)
4176.     m$ = m$ + "........" + Chr$(13)
4177.     m$ = m$ + "........" + Chr$(13)
4178.     arrTileText(94) = m$
4179.  
4180.     m$ = ""
4181.     m$ = m$ + "........" + Chr$(13)
4182.     m$ = m$ + "........" + Chr$(13)
4183.     m$ = m$ + "........" + Chr$(13)
4184.     m$ = m$ + "........" + Chr$(13)
4185.     m$ = m$ + "........" + Chr$(13)
4186.     m$ = m$ + ".222222." + Chr$(13)
4187.     m$ = m$ + "........" + Chr$(13)
4188.     m$ = m$ + "........" + Chr$(13)
4189.     arrTileText(95) = m$
4190.  
4191.     m$ = ""
4192.     m$ = m$ + "........" + Chr$(13)
4193.     m$ = m$ + "........" + Chr$(13)
4194.     m$ = m$ + "........" + Chr$(13)
4195.     m$ = m$ + "........" + Chr$(13)
4196.     m$ = m$ + "........" + Chr$(13)
4197.     m$ = m$ + "........" + Chr$(13)
4198.     m$ = m$ + "........" + Chr$(13)
4199.     m$ = m$ + "........" + Chr$(13)
4200.     arrTileText(96) = m$
4201.  
4202.     m$ = ""
4203.     m$ = m$ + "........" + Chr$(13)
4204.     m$ = m$ + "..2222.." + Chr$(13)
4205.     m$ = m$ + ".....22." + Chr$(13)
4206.     m$ = m$ + "..22222." + Chr$(13)
4207.     m$ = m$ + ".22..22." + Chr$(13)
4208.     m$ = m$ + "..22222." + Chr$(13)
4209.     m$ = m$ + "........" + Chr$(13)
4210.     m$ = m$ + "........" + Chr$(13)
4211.     arrTileText(97) = m$
4212.  
4213.     m$ = ""
4214.     m$ = m$ + ".22....." + Chr$(13)
4215.     m$ = m$ + ".22....." + Chr$(13)
4216.     m$ = m$ + ".22222.." + Chr$(13)
4217.     m$ = m$ + ".22..22." + Chr$(13)
4218.     m$ = m$ + ".22..22." + Chr$(13)
4219.     m$ = m$ + ".22222.." + Chr$(13)
4220.     m$ = m$ + "........" + Chr$(13)
4221.     m$ = m$ + "........" + Chr$(13)
4222.     arrTileText(98) = m$
4223.  
4224.     m$ = ""
4225.     m$ = m$ + "........" + Chr$(13)
4226.     m$ = m$ + "..2222.." + Chr$(13)
4227.     m$ = m$ + ".22....." + Chr$(13)
4228.     m$ = m$ + ".22....." + Chr$(13)
4229.     m$ = m$ + ".22....." + Chr$(13)
4230.     m$ = m$ + "..2222.." + Chr$(13)
4231.     m$ = m$ + "........" + Chr$(13)
4232.     m$ = m$ + "........" + Chr$(13)
4233.     arrTileText(99) = m$
4234.  
4235.     m$ = ""
4236.     m$ = m$ + ".....22." + Chr$(13)
4237.     m$ = m$ + ".....22." + Chr$(13)
4238.     m$ = m$ + "..22222." + Chr$(13)
4239.     m$ = m$ + ".22..22." + Chr$(13)
4240.     m$ = m$ + ".22..22." + Chr$(13)
4241.     m$ = m$ + "..22222." + Chr$(13)
4242.     m$ = m$ + "........" + Chr$(13)
4243.     m$ = m$ + "........" + Chr$(13)
4244.     arrTileText(100) = m$
4245.  
4246.     m$ = ""
4247.     m$ = m$ + "........" + Chr$(13)
4248.     m$ = m$ + "..2222.." + Chr$(13)
4249.     m$ = m$ + ".22..22." + Chr$(13)
4250.     m$ = m$ + ".222222." + Chr$(13)
4251.     m$ = m$ + ".22....." + Chr$(13)
4252.     m$ = m$ + "..2222.." + Chr$(13)
4253.     m$ = m$ + "........" + Chr$(13)
4254.     m$ = m$ + "........" + Chr$(13)
4255.     arrTileText(101) = m$
4256.  
4257.     m$ = ""
4258.     m$ = m$ + "....222." + Chr$(13)
4259.     m$ = m$ + "...22..." + Chr$(13)
4260.     m$ = m$ + "..22222." + Chr$(13)
4261.     m$ = m$ + "...22..." + Chr$(13)
4262.     m$ = m$ + "...22..." + Chr$(13)
4263.     m$ = m$ + "...22..." + Chr$(13)
4264.     m$ = m$ + "........" + Chr$(13)
4265.     m$ = m$ + "........" + Chr$(13)
4266.     arrTileText(102) = m$
4267.  
4268.     m$ = ""
4269.     m$ = m$ + "........" + Chr$(13)
4270.     m$ = m$ + "..22222." + Chr$(13)
4271.     m$ = m$ + ".22..22." + Chr$(13)
4272.     m$ = m$ + ".22..22." + Chr$(13)
4273.     m$ = m$ + "..22222." + Chr$(13)
4274.     m$ = m$ + ".....22." + Chr$(13)
4275.     m$ = m$ + ".22222.." + Chr$(13)
4276.     m$ = m$ + "........" + Chr$(13)
4277.     arrTileText(103) = m$
4278.  
4279.     m$ = ""
4280.     m$ = m$ + ".22....." + Chr$(13)
4281.     m$ = m$ + ".22....." + Chr$(13)
4282.     m$ = m$ + ".22222.." + Chr$(13)
4283.     m$ = m$ + ".22..22." + Chr$(13)
4284.     m$ = m$ + ".22..22." + Chr$(13)
4285.     m$ = m$ + ".22..22." + Chr$(13)
4286.     m$ = m$ + "........" + Chr$(13)
4287.     m$ = m$ + "........" + Chr$(13)
4288.     arrTileText(104) = m$
4289.  
4290.     m$ = ""
4291.     m$ = m$ + "...22..." + Chr$(13)
4292.     m$ = m$ + "........" + Chr$(13)
4293.     m$ = m$ + "..222..." + Chr$(13)
4294.     m$ = m$ + "...22..." + Chr$(13)
4295.     m$ = m$ + "...22..." + Chr$(13)
4296.     m$ = m$ + "..2222.." + Chr$(13)
4297.     m$ = m$ + "........" + Chr$(13)
4298.     m$ = m$ + "........" + Chr$(13)
4299.     arrTileText(105) = m$
4300.  
4301.     m$ = ""
4302.     m$ = m$ + ".....22." + Chr$(13)
4303.     m$ = m$ + "........" + Chr$(13)
4304.     m$ = m$ + ".....22." + Chr$(13)
4305.     m$ = m$ + ".....22." + Chr$(13)
4306.     m$ = m$ + ".....22." + Chr$(13)
4307.     m$ = m$ + ".....22." + Chr$(13)
4308.     m$ = m$ + "..2222.." + Chr$(13)
4309.     m$ = m$ + "........" + Chr$(13)
4310.     arrTileText(106) = m$
4311.  
4312.     m$ = ""
4313.     m$ = m$ + ".22....." + Chr$(13)
4314.     m$ = m$ + ".22....." + Chr$(13)
4315.     m$ = m$ + ".22.22.." + Chr$(13)
4316.     m$ = m$ + ".2222..." + Chr$(13)
4317.     m$ = m$ + ".22.22.." + Chr$(13)
4318.     m$ = m$ + ".22..22." + Chr$(13)
4319.     m$ = m$ + "........" + Chr$(13)
4320.     m$ = m$ + "........" + Chr$(13)
4321.     arrTileText(107) = m$
4322.  
4323.     m$ = ""
4324.     m$ = m$ + "..222..." + Chr$(13)
4325.     m$ = m$ + "...22..." + Chr$(13)
4326.     m$ = m$ + "...22..." + Chr$(13)
4327.     m$ = m$ + "...22..." + Chr$(13)
4328.     m$ = m$ + "...22..." + Chr$(13)
4329.     m$ = m$ + "..2222.." + Chr$(13)
4330.     m$ = m$ + "........" + Chr$(13)
4331.     m$ = m$ + "........" + Chr$(13)
4332.     arrTileText(108) = m$
4333.  
4334.     m$ = ""
4335.     m$ = m$ + "........" + Chr$(13)
4336.     m$ = m$ + ".22..22." + Chr$(13)
4337.     m$ = m$ + ".2222222" + Chr$(13)
4338.     m$ = m$ + ".2222222" + Chr$(13)
4339.     m$ = m$ + ".22.2.22" + Chr$(13)
4340.     m$ = m$ + ".22...22" + Chr$(13)
4341.     m$ = m$ + "........" + Chr$(13)
4342.     m$ = m$ + "........" + Chr$(13)
4343.     arrTileText(109) = m$
4344.  
4345.     m$ = ""
4346.     m$ = m$ + "........" + Chr$(13)
4347.     m$ = m$ + ".22222.." + Chr$(13)
4348.     m$ = m$ + ".22..22." + Chr$(13)
4349.     m$ = m$ + ".22..22." + Chr$(13)
4350.     m$ = m$ + ".22..22." + Chr$(13)
4351.     m$ = m$ + ".22..22." + Chr$(13)
4352.     m$ = m$ + "........" + Chr$(13)
4353.     m$ = m$ + "........" + Chr$(13)
4354.     arrTileText(110) = m$
4355.  
4356.     m$ = ""
4357.     m$ = m$ + "........" + Chr$(13)
4358.     m$ = m$ + "..2222.." + Chr$(13)
4359.     m$ = m$ + ".22..22." + Chr$(13)
4360.     m$ = m$ + ".22..22." + Chr$(13)
4361.     m$ = m$ + ".22..22." + Chr$(13)
4362.     m$ = m$ + "..2222.." + Chr$(13)
4363.     m$ = m$ + "........" + Chr$(13)
4364.     m$ = m$ + "........" + Chr$(13)
4365.     arrTileText(111) = m$
4366.  
4367.     m$ = ""
4368.     m$ = m$ + "........" + Chr$(13)
4369.     m$ = m$ + ".22222.." + Chr$(13)
4370.     m$ = m$ + ".22..22." + Chr$(13)
4371.     m$ = m$ + ".22..22." + Chr$(13)
4372.     m$ = m$ + ".22222.." + Chr$(13)
4373.     m$ = m$ + ".22....." + Chr$(13)
4374.     m$ = m$ + ".22....." + Chr$(13)
4375.     m$ = m$ + "........" + Chr$(13)
4376.     arrTileText(112) = m$
4377.  
4378.     m$ = ""
4379.     m$ = m$ + "........" + Chr$(13)
4380.     m$ = m$ + "..22222." + Chr$(13)
4381.     m$ = m$ + ".22..22." + Chr$(13)
4382.     m$ = m$ + ".22..22." + Chr$(13)
4383.     m$ = m$ + "..22222." + Chr$(13)
4384.     m$ = m$ + ".....22." + Chr$(13)
4385.     m$ = m$ + ".....22." + Chr$(13)
4386.     m$ = m$ + "........" + Chr$(13)
4387.     arrTileText(113) = m$
4388.  
4389.     m$ = ""
4390.     m$ = m$ + "........" + Chr$(13)
4391.     m$ = m$ + ".22222.." + Chr$(13)
4392.     m$ = m$ + ".22..22." + Chr$(13)
4393.     m$ = m$ + ".22....." + Chr$(13)
4394.     m$ = m$ + ".22....." + Chr$(13)
4395.     m$ = m$ + ".22....." + Chr$(13)
4396.     m$ = m$ + "........" + Chr$(13)
4397.     m$ = m$ + "........" + Chr$(13)
4398.     arrTileText(114) = m$
4399.  
4400.     m$ = ""
4401.     m$ = m$ + "........" + Chr$(13)
4402.     m$ = m$ + "..22222." + Chr$(13)
4403.     m$ = m$ + ".22....." + Chr$(13)
4404.     m$ = m$ + "..2222.." + Chr$(13)
4405.     m$ = m$ + ".....22." + Chr$(13)
4406.     m$ = m$ + ".22222.." + Chr$(13)
4407.     m$ = m$ + "........" + Chr$(13)
4408.     m$ = m$ + "........" + Chr$(13)
4409.     arrTileText(115) = m$
4410.  
4411.     m$ = ""
4412.     m$ = m$ + "...22..." + Chr$(13)
4413.     m$ = m$ + ".222222." + Chr$(13)
4414.     m$ = m$ + "...22..." + Chr$(13)
4415.     m$ = m$ + "...22..." + Chr$(13)
4416.     m$ = m$ + "...22..." + Chr$(13)
4417.     m$ = m$ + "....222." + Chr$(13)
4418.     m$ = m$ + "........" + Chr$(13)
4419.     m$ = m$ + "........" + Chr$(13)
4420.     arrTileText(116) = m$
4421.  
4422.     m$ = ""
4423.     m$ = m$ + "........" + Chr$(13)
4424.     m$ = m$ + ".22..22." + Chr$(13)
4425.     m$ = m$ + ".22..22." + Chr$(13)
4426.     m$ = m$ + ".22..22." + Chr$(13)
4427.     m$ = m$ + ".22..22." + Chr$(13)
4428.     m$ = m$ + "..22222." + Chr$(13)
4429.     m$ = m$ + "........" + Chr$(13)
4430.     m$ = m$ + "........" + Chr$(13)
4431.     arrTileText(117) = m$
4432.  
4433.     m$ = ""
4434.     m$ = m$ + "........" + Chr$(13)
4435.     m$ = m$ + ".22..22." + Chr$(13)
4436.     m$ = m$ + ".22..22." + Chr$(13)
4437.     m$ = m$ + ".22..22." + Chr$(13)
4438.     m$ = m$ + "..2222.." + Chr$(13)
4439.     m$ = m$ + "...22..." + Chr$(13)
4440.     m$ = m$ + "........" + Chr$(13)
4441.     m$ = m$ + "........" + Chr$(13)
4442.     arrTileText(118) = m$
4443.  
4444.     m$ = ""
4445.     m$ = m$ + "........" + Chr$(13)
4446.     m$ = m$ + ".22...22" + Chr$(13)
4447.     m$ = m$ + ".22.2.22" + Chr$(13)
4448.     m$ = m$ + ".2222222" + Chr$(13)
4449.     m$ = m$ + "..22222." + Chr$(13)
4450.     m$ = m$ + "..22.22." + Chr$(13)
4451.     m$ = m$ + "........" + Chr$(13)
4452.     m$ = m$ + "........" + Chr$(13)
4453.     arrTileText(119) = m$
4454.  
4455.     m$ = ""
4456.     m$ = m$ + "........" + Chr$(13)
4457.     m$ = m$ + ".22..22." + Chr$(13)
4458.     m$ = m$ + "..2222.." + Chr$(13)
4459.     m$ = m$ + "...22..." + Chr$(13)
4460.     m$ = m$ + "..2222.." + Chr$(13)
4461.     m$ = m$ + ".22..22." + Chr$(13)
4462.     m$ = m$ + "........" + Chr$(13)
4463.     m$ = m$ + "........" + Chr$(13)
4464.     arrTileText(120) = m$
4465.  
4466.     m$ = ""
4467.     m$ = m$ + "........" + Chr$(13)
4468.     m$ = m$ + ".22..22." + Chr$(13)
4469.     m$ = m$ + ".22..22." + Chr$(13)
4470.     m$ = m$ + ".22..22." + Chr$(13)
4471.     m$ = m$ + "..22222." + Chr$(13)
4472.     m$ = m$ + "....22.." + Chr$(13)
4473.     m$ = m$ + ".2222..." + Chr$(13)
4474.     m$ = m$ + "........" + Chr$(13)
4475.     arrTileText(121) = m$
4476.  
4477.     m$ = ""
4478.     m$ = m$ + "........" + Chr$(13)
4479.     m$ = m$ + ".222222." + Chr$(13)
4480.     m$ = m$ + "....22.." + Chr$(13)
4481.     m$ = m$ + "...22..." + Chr$(13)
4482.     m$ = m$ + "..22...." + Chr$(13)
4483.     m$ = m$ + ".222222." + Chr$(13)
4484.     m$ = m$ + "........" + Chr$(13)
4485.     m$ = m$ + "........" + Chr$(13)
4486.     arrTileText(122) = m$
4487.  
4488.     m$ = ""
4489.     m$ = m$ + "...222.." + Chr$(13)
4490.     m$ = m$ + "..22...." + Chr$(13)
4491.     m$ = m$ + "..2....." + Chr$(13)
4492.     m$ = m$ + ".22....." + Chr$(13)
4493.     m$ = m$ + "..2....." + Chr$(13)
4494.     m$ = m$ + "..22...." + Chr$(13)
4495.     m$ = m$ + "...222.." + Chr$(13)
4496.     m$ = m$ + "........" + Chr$(13)
4497.     arrTileText(123) = m$
4498.  
4499.     m$ = ""
4500.     m$ = m$ + "....2..." + Chr$(13)
4501.     m$ = m$ + "....2..." + Chr$(13)
4502.     m$ = m$ + "....2..." + Chr$(13)
4503.     m$ = m$ + "....2..." + Chr$(13)
4504.     m$ = m$ + "....2..." + Chr$(13)
4505.     m$ = m$ + "....2..." + Chr$(13)
4506.     m$ = m$ + "....2..." + Chr$(13)
4507.     m$ = m$ + "........" + Chr$(13)
4508.     arrTileText(124) = m$
4509.  
4510.     m$ = ""
4511.     m$ = m$ + "..222..." + Chr$(13)
4512.     m$ = m$ + "....22.." + Chr$(13)
4513.     m$ = m$ + ".....2.." + Chr$(13)
4514.     m$ = m$ + ".....22." + Chr$(13)
4515.     m$ = m$ + ".....2.." + Chr$(13)
4516.     m$ = m$ + "....22.." + Chr$(13)
4517.     m$ = m$ + "..222..." + Chr$(13)
4518.     m$ = m$ + "........" + Chr$(13)
4519.     arrTileText(125) = m$
4520.  
4521.     m$ = ""
4522.     m$ = m$ + "........" + Chr$(13)
4523.     m$ = m$ + ".22....2" + Chr$(13)
4524.     m$ = m$ + "2..2..2." + Chr$(13)
4525.     m$ = m$ + "....22.." + Chr$(13)
4526.     m$ = m$ + "........" + Chr$(13)
4527.     m$ = m$ + "........" + Chr$(13)
4528.     m$ = m$ + "........" + Chr$(13)
4529.     m$ = m$ + "........" + Chr$(13)
4530.     arrTileText(126) = m$
4531.  
4532.     m$ = ""
4533.     m$ = m$ + "........" + Chr$(13)
4534.     m$ = m$ + "........" + Chr$(13)
4535.     m$ = m$ + "........" + Chr$(13)
4536.     m$ = m$ + "........" + Chr$(13)
4537.     m$ = m$ + "........" + Chr$(13)
4538.     m$ = m$ + "........" + Chr$(13)
4539.     m$ = m$ + "........" + Chr$(13)
4540.     m$ = m$ + "........" + Chr$(13)
4541.     arrTileText(127) = m$
4542.  
4543.     m$ = ""
4544.     m$ = m$ + "........" + Chr$(13)
4545.     m$ = m$ + "........" + Chr$(13)
4546.     m$ = m$ + "........" + Chr$(13)
4547.     m$ = m$ + "22222222" + Chr$(13)
4548.     m$ = m$ + "22222222" + Chr$(13)
4549.     m$ = m$ + "........" + Chr$(13)
4550.     m$ = m$ + "........" + Chr$(13)
4551.     m$ = m$ + "........" + Chr$(13)
4552.     arrTileText(128) = m$
4553.  
4554.     m$ = ""
4555.     m$ = m$ + "....2..." + Chr$(13)
4556.     m$ = m$ + "...222.." + Chr$(13)
4557.     m$ = m$ + "..22222." + Chr$(13)
4558.     m$ = m$ + ".2222222" + Chr$(13)
4559.     m$ = m$ + ".2222222" + Chr$(13)
4560.     m$ = m$ + "...222.." + Chr$(13)
4561.     m$ = m$ + "..22222." + Chr$(13)
4562.     m$ = m$ + "........" + Chr$(13)
4563.     arrTileText(129) = m$
4564.  
4565.     m$ = ""
4566.     m$ = m$ + "...22..." + Chr$(13)
4567.     m$ = m$ + "...22..." + Chr$(13)
4568.     m$ = m$ + "...22..." + Chr$(13)
4569.     m$ = m$ + "...22..." + Chr$(13)
4570.     m$ = m$ + "...22..." + Chr$(13)
4571.     m$ = m$ + "...22..." + Chr$(13)
4572.     m$ = m$ + "...22..." + Chr$(13)
4573.     m$ = m$ + "...22..." + Chr$(13)
4574.     arrTileText(130) = m$
4575.  
4576.     m$ = ""
4577.     m$ = m$ + "........" + Chr$(13)
4578.     m$ = m$ + "........" + Chr$(13)
4579.     m$ = m$ + "........" + Chr$(13)
4580.     m$ = m$ + "22222222" + Chr$(13)
4581.     m$ = m$ + "22222222" + Chr$(13)
4582.     m$ = m$ + "........" + Chr$(13)
4583.     m$ = m$ + "........" + Chr$(13)
4584.     m$ = m$ + "........" + Chr$(13)
4585.     arrTileText(131) = m$
4586.  
4587.     m$ = ""
4588.     m$ = m$ + "........" + Chr$(13)
4589.     m$ = m$ + "........" + Chr$(13)
4590.     m$ = m$ + "22222222" + Chr$(13)
4591.     m$ = m$ + "22222222" + Chr$(13)
4592.     m$ = m$ + "........" + Chr$(13)
4593.     m$ = m$ + "........" + Chr$(13)
4594.     m$ = m$ + "........" + Chr$(13)
4595.     m$ = m$ + "........" + Chr$(13)
4596.     arrTileText(132) = m$
4597.  
4598.     m$ = ""
4599.     m$ = m$ + "........" + Chr$(13)
4600.     m$ = m$ + "22222222" + Chr$(13)
4601.     m$ = m$ + "22222222" + Chr$(13)
4602.     m$ = m$ + "........" + Chr$(13)
4603.     m$ = m$ + "........" + Chr$(13)
4604.     m$ = m$ + "........" + Chr$(13)
4605.     m$ = m$ + "........" + Chr$(13)
4606.     m$ = m$ + "........" + Chr$(13)
4607.     arrTileText(133) = m$
4608.  
4609.     m$ = ""
4610.     m$ = m$ + "........" + Chr$(13)
4611.     m$ = m$ + "........" + Chr$(13)
4612.     m$ = m$ + "........" + Chr$(13)
4613.     m$ = m$ + "........" + Chr$(13)
4614.     m$ = m$ + "22222222" + Chr$(13)
4615.     m$ = m$ + "22222222" + Chr$(13)
4616.     m$ = m$ + "........" + Chr$(13)
4617.     m$ = m$ + "........" + Chr$(13)
4618.     arrTileText(134) = m$
4619.  
4620.     m$ = ""
4621.     m$ = m$ + "..22...." + Chr$(13)
4622.     m$ = m$ + "..22...." + Chr$(13)
4623.     m$ = m$ + "..22...." + Chr$(13)
4624.     m$ = m$ + "..22...." + Chr$(13)
4625.     m$ = m$ + "..22...." + Chr$(13)
4626.     m$ = m$ + "..22...." + Chr$(13)
4627.     m$ = m$ + "..22...." + Chr$(13)
4628.     m$ = m$ + "..22...." + Chr$(13)
4629.     arrTileText(135) = m$
4630.  
4631.     m$ = ""
4632.     m$ = m$ + "....22.." + Chr$(13)
4633.     m$ = m$ + "....22.." + Chr$(13)
4634.     m$ = m$ + "....22.." + Chr$(13)
4635.     m$ = m$ + "....22.." + Chr$(13)
4636.     m$ = m$ + "....22.." + Chr$(13)
4637.     m$ = m$ + "....22.." + Chr$(13)
4638.     m$ = m$ + "....22.." + Chr$(13)
4639.     m$ = m$ + "....22.." + Chr$(13)
4640.     arrTileText(136) = m$
4641.  
4642.     m$ = ""
4643.     m$ = m$ + "........" + Chr$(13)
4644.     m$ = m$ + "........" + Chr$(13)
4645.     m$ = m$ + "........" + Chr$(13)
4646.     m$ = m$ + "222....." + Chr$(13)
4647.     m$ = m$ + "2222...." + Chr$(13)
4648.     m$ = m$ + "..222..." + Chr$(13)
4649.     m$ = m$ + "...22..." + Chr$(13)
4650.     m$ = m$ + "...22..." + Chr$(13)
4651.     arrTileText(137) = m$
4652.  
4653.     m$ = ""
4654.     m$ = m$ + "...22..." + Chr$(13)
4655.     m$ = m$ + "...22..." + Chr$(13)
4656.     m$ = m$ + "...222.." + Chr$(13)
4657.     m$ = m$ + "....2222" + Chr$(13)
4658.     m$ = m$ + ".....222" + Chr$(13)
4659.     m$ = m$ + "........" + Chr$(13)
4660.     m$ = m$ + "........" + Chr$(13)
4661.     m$ = m$ + "........" + Chr$(13)
4662.     arrTileText(138) = m$
4663.  
4664.     m$ = ""
4665.     m$ = m$ + "...22..." + Chr$(13)
4666.     m$ = m$ + "...22..." + Chr$(13)
4667.     m$ = m$ + "..222..." + Chr$(13)
4668.     m$ = m$ + "2222...." + Chr$(13)
4669.     m$ = m$ + "222....." + Chr$(13)
4670.     m$ = m$ + "........" + Chr$(13)
4671.     m$ = m$ + "........" + Chr$(13)
4672.     m$ = m$ + "........" + Chr$(13)
4673.     arrTileText(139) = m$
4674.  
4675.     m$ = ""
4676.     m$ = m$ + "22......" + Chr$(13)
4677.     m$ = m$ + "22......" + Chr$(13)
4678.     m$ = m$ + "22......" + Chr$(13)
4679.     m$ = m$ + "22......" + Chr$(13)
4680.     m$ = m$ + "22......" + Chr$(13)
4681.     m$ = m$ + "22......" + Chr$(13)
4682.     m$ = m$ + "22222222" + Chr$(13)
4683.     m$ = m$ + "22222222" + Chr$(13)
4684.     arrTileText(140) = m$
4685.  
4686.     m$ = ""
4687.     m$ = m$ + "22......" + Chr$(13)
4688.     m$ = m$ + "222....." + Chr$(13)
4689.     m$ = m$ + ".222...." + Chr$(13)
4690.     m$ = m$ + "..222..." + Chr$(13)
4691.     m$ = m$ + "...222.." + Chr$(13)
4692.     m$ = m$ + "....222." + Chr$(13)
4693.     m$ = m$ + ".....222" + Chr$(13)
4694.     m$ = m$ + "......22" + Chr$(13)
4695.     arrTileText(141) = m$
4696.  
4697.     m$ = ""
4698.     m$ = m$ + "......22" + Chr$(13)
4699.     m$ = m$ + ".....222" + Chr$(13)
4700.     m$ = m$ + "....222." + Chr$(13)
4701.     m$ = m$ + "...222.." + Chr$(13)
4702.     m$ = m$ + "..222..." + Chr$(13)
4703.     m$ = m$ + ".222...." + Chr$(13)
4704.     m$ = m$ + "222....." + Chr$(13)
4705.     m$ = m$ + "22......" + Chr$(13)
4706.     arrTileText(142) = m$
4707.  
4708.     m$ = ""
4709.     m$ = m$ + "22222222" + Chr$(13)
4710.     m$ = m$ + "22222222" + Chr$(13)
4711.     m$ = m$ + "22......" + Chr$(13)
4712.     m$ = m$ + "22......" + Chr$(13)
4713.     m$ = m$ + "22......" + Chr$(13)
4714.     m$ = m$ + "22......" + Chr$(13)
4715.     m$ = m$ + "22......" + Chr$(13)
4716.     m$ = m$ + "22......" + Chr$(13)
4717.     arrTileText(143) = m$
4718.  
4719.     m$ = ""
4720.     m$ = m$ + "22222222" + Chr$(13)
4721.     m$ = m$ + "22222222" + Chr$(13)
4722.     m$ = m$ + "......22" + Chr$(13)
4723.     m$ = m$ + "......22" + Chr$(13)
4724.     m$ = m$ + "......22" + Chr$(13)
4725.     m$ = m$ + "......22" + Chr$(13)
4726.     m$ = m$ + "......22" + Chr$(13)
4727.     m$ = m$ + "......22" + Chr$(13)
4728.     arrTileText(144) = m$
4729.  
4730.     m$ = ""
4731.     m$ = m$ + "........" + Chr$(13)
4732.     m$ = m$ + "..2222.." + Chr$(13)
4733.     m$ = m$ + ".222222." + Chr$(13)
4734.     m$ = m$ + ".222222." + Chr$(13)
4735.     m$ = m$ + ".222222." + Chr$(13)
4736.     m$ = m$ + ".222222." + Chr$(13)
4737.     m$ = m$ + "..2222.." + Chr$(13)
4738.     m$ = m$ + "........" + Chr$(13)
4739.     arrTileText(145) = m$
4740.  
4741.     m$ = ""
4742.     m$ = m$ + "........" + Chr$(13)
4743.     m$ = m$ + "........" + Chr$(13)
4744.     m$ = m$ + "........" + Chr$(13)
4745.     m$ = m$ + "........" + Chr$(13)
4746.     m$ = m$ + "........" + Chr$(13)
4747.     m$ = m$ + "22222222" + Chr$(13)
4748.     m$ = m$ + "22222222" + Chr$(13)
4749.     m$ = m$ + "........" + Chr$(13)
4750.     arrTileText(146) = m$
4751.  
4752.     m$ = ""
4753.     m$ = m$ + "..22.22." + Chr$(13)
4754.     m$ = m$ + ".2222222" + Chr$(13)
4755.     m$ = m$ + ".2222222" + Chr$(13)
4756.     m$ = m$ + ".2222222" + Chr$(13)
4757.     m$ = m$ + "..22222." + Chr$(13)
4758.     m$ = m$ + "...222.." + Chr$(13)
4759.     m$ = m$ + "....2..." + Chr$(13)
4760.     m$ = m$ + "........" + Chr$(13)
4761.     arrTileText(147) = m$
4762.  
4763.     m$ = ""
4764.     m$ = m$ + ".22....." + Chr$(13)
4765.     m$ = m$ + ".22....." + Chr$(13)
4766.     m$ = m$ + ".22....." + Chr$(13)
4767.     m$ = m$ + ".22....." + Chr$(13)
4768.     m$ = m$ + ".22....." + Chr$(13)
4769.     m$ = m$ + ".22....." + Chr$(13)
4770.     m$ = m$ + ".22....." + Chr$(13)
4771.     m$ = m$ + ".22....." + Chr$(13)
4772.     arrTileText(148) = m$
4773.  
4774.     m$ = ""
4775.     m$ = m$ + "........" + Chr$(13)
4776.     m$ = m$ + "........" + Chr$(13)
4777.     m$ = m$ + "........" + Chr$(13)
4778.     m$ = m$ + ".....222" + Chr$(13)
4779.     m$ = m$ + "....2222" + Chr$(13)
4780.     m$ = m$ + "...222.." + Chr$(13)
4781.     m$ = m$ + "...22..." + Chr$(13)
4782.     m$ = m$ + "...22..." + Chr$(13)
4783.     arrTileText(149) = m$
4784.  
4785.     m$ = ""
4786.     m$ = m$ + "22....22" + Chr$(13)
4787.     m$ = m$ + "222..222" + Chr$(13)
4788.     m$ = m$ + ".222222." + Chr$(13)
4789.     m$ = m$ + "..2222.." + Chr$(13)
4790.     m$ = m$ + "..2222.." + Chr$(13)
4791.     m$ = m$ + ".222222." + Chr$(13)
4792.     m$ = m$ + "222..222" + Chr$(13)
4793.     m$ = m$ + "22....22" + Chr$(13)
4794.     arrTileText(150) = m$
4795.  
4796.     m$ = ""
4797.     m$ = m$ + "........" + Chr$(13)
4798.     m$ = m$ + "..2222.." + Chr$(13)
4799.     m$ = m$ + ".222222." + Chr$(13)
4800.     m$ = m$ + ".22..22." + Chr$(13)
4801.     m$ = m$ + ".22..22." + Chr$(13)
4802.     m$ = m$ + ".222222." + Chr$(13)
4803.     m$ = m$ + "..2222.." + Chr$(13)
4804.     m$ = m$ + "........" + Chr$(13)
4805.     arrTileText(151) = m$
4806.  
4807.     m$ = ""
4808.     m$ = m$ + "...22..." + Chr$(13)
4809.     m$ = m$ + "...22..." + Chr$(13)
4810.     m$ = m$ + ".22..22." + Chr$(13)
4811.     m$ = m$ + ".22..22." + Chr$(13)
4812.     m$ = m$ + "...22..." + Chr$(13)
4813.     m$ = m$ + "...22..." + Chr$(13)
4814.     m$ = m$ + "..2222.." + Chr$(13)
4815.     m$ = m$ + "........" + Chr$(13)
4816.     arrTileText(152) = m$
4817.  
4818.     m$ = ""
4819.     m$ = m$ + ".....22." + Chr$(13)
4820.     m$ = m$ + ".....22." + Chr$(13)
4821.     m$ = m$ + ".....22." + Chr$(13)
4822.     m$ = m$ + ".....22." + Chr$(13)
4823.     m$ = m$ + ".....22." + Chr$(13)
4824.     m$ = m$ + ".....22." + Chr$(13)
4825.     m$ = m$ + ".....22." + Chr$(13)
4826.     m$ = m$ + ".....22." + Chr$(13)
4827.     arrTileText(153) = m$
4828.  
4829.     m$ = ""
4830.     m$ = m$ + "....2..." + Chr$(13)
4831.     m$ = m$ + "...222.." + Chr$(13)
4832.     m$ = m$ + "..22222." + Chr$(13)
4833.     m$ = m$ + ".2222222" + Chr$(13)
4834.     m$ = m$ + "..22222." + Chr$(13)
4835.     m$ = m$ + "...222.." + Chr$(13)
4836.     m$ = m$ + "....2..." + Chr$(13)
4837.     m$ = m$ + "........" + Chr$(13)
4838.     arrTileText(154) = m$
4839.  
4840.     m$ = ""
4841.     m$ = m$ + "...22..." + Chr$(13)
4842.     m$ = m$ + "...22..." + Chr$(13)
4843.     m$ = m$ + "...22..." + Chr$(13)
4844.     m$ = m$ + "22222222" + Chr$(13)
4845.     m$ = m$ + "22222222" + Chr$(13)
4846.     m$ = m$ + "...22..." + Chr$(13)
4847.     m$ = m$ + "...22..." + Chr$(13)
4848.     m$ = m$ + "...22..." + Chr$(13)
4849.     arrTileText(155) = m$
4850.  
4851.     m$ = ""
4852.     m$ = m$ + "22......" + Chr$(13)
4853.     m$ = m$ + "22......" + Chr$(13)
4854.     m$ = m$ + "..22...." + Chr$(13)
4855.     m$ = m$ + "..22...." + Chr$(13)
4856.     m$ = m$ + "22......" + Chr$(13)
4857.     m$ = m$ + "22......" + Chr$(13)
4858.     m$ = m$ + "..22...." + Chr$(13)
4859.     m$ = m$ + "..22...." + Chr$(13)
4860.     arrTileText(156) = m$
4861.  
4862.     m$ = ""
4863.     m$ = m$ + "...22..." + Chr$(13)
4864.     m$ = m$ + "...22..." + Chr$(13)
4865.     m$ = m$ + "...22..." + Chr$(13)
4866.     m$ = m$ + "...22..." + Chr$(13)
4867.     m$ = m$ + "...22..." + Chr$(13)
4868.     m$ = m$ + "...22..." + Chr$(13)
4869.     m$ = m$ + "...22..." + Chr$(13)
4870.     m$ = m$ + "...22..." + Chr$(13)
4871.     arrTileText(157) = m$
4872.  
4873.     m$ = ""
4874.     m$ = m$ + "........" + Chr$(13)
4875.     m$ = m$ + "........" + Chr$(13)
4876.     m$ = m$ + "......22" + Chr$(13)
4877.     m$ = m$ + "..22222." + Chr$(13)
4878.     m$ = m$ + ".222.22." + Chr$(13)
4879.     m$ = m$ + "..22.22." + Chr$(13)
4880.     m$ = m$ + "..22.22." + Chr$(13)
4881.     m$ = m$ + "........" + Chr$(13)
4882.     arrTileText(158) = m$
4883.  
4884.     m$ = ""
4885.     m$ = m$ + "22222222" + Chr$(13)
4886.     m$ = m$ + ".2222222" + Chr$(13)
4887.     m$ = m$ + "..222222" + Chr$(13)
4888.     m$ = m$ + "...22222" + Chr$(13)
4889.     m$ = m$ + "....2222" + Chr$(13)
4890.     m$ = m$ + ".....222" + Chr$(13)
4891.     m$ = m$ + "......22" + Chr$(13)
4892.     m$ = m$ + ".......2" + Chr$(13)
4893.     arrTileText(159) = m$
4894.  
4895.     m$ = ""
4896.     m$ = m$ + "........" + Chr$(13)
4897.     m$ = m$ + "........" + Chr$(13)
4898.     m$ = m$ + "........" + Chr$(13)
4899.     m$ = m$ + "........" + Chr$(13)
4900.     m$ = m$ + "........" + Chr$(13)
4901.     m$ = m$ + "........" + Chr$(13)
4902.     m$ = m$ + "........" + Chr$(13)
4903.     m$ = m$ + "........" + Chr$(13)
4904.     arrTileText(160) = m$
4905.  
4906.     m$ = ""
4907.     m$ = m$ + "2222...." + Chr$(13)
4908.     m$ = m$ + "2222...." + Chr$(13)
4909.     m$ = m$ + "2222...." + Chr$(13)
4910.     m$ = m$ + "2222...." + Chr$(13)
4911.     m$ = m$ + "2222...." + Chr$(13)
4912.     m$ = m$ + "2222...." + Chr$(13)
4913.     m$ = m$ + "2222...." + Chr$(13)
4914.     m$ = m$ + "2222...." + Chr$(13)
4915.     arrTileText(161) = m$
4916.  
4917.     m$ = ""
4918.     m$ = m$ + "........" + Chr$(13)
4919.     m$ = m$ + "........" + Chr$(13)
4920.     m$ = m$ + "........" + Chr$(13)
4921.     m$ = m$ + "........" + Chr$(13)
4922.     m$ = m$ + "22222222" + Chr$(13)
4923.     m$ = m$ + "22222222" + Chr$(13)
4924.     m$ = m$ + "22222222" + Chr$(13)
4925.     m$ = m$ + "22222222" + Chr$(13)
4926.     arrTileText(162) = m$
4927.  
4928.     m$ = ""
4929.     m$ = m$ + "22222222" + Chr$(13)
4930.     m$ = m$ + "........" + Chr$(13)
4931.     m$ = m$ + "........" + Chr$(13)
4932.     m$ = m$ + "........" + Chr$(13)
4933.     m$ = m$ + "........" + Chr$(13)
4934.     m$ = m$ + "........" + Chr$(13)
4935.     m$ = m$ + "........" + Chr$(13)
4936.     m$ = m$ + "........" + Chr$(13)
4937.     arrTileText(163) = m$
4938.  
4939.     m$ = ""
4940.     m$ = m$ + "........" + Chr$(13)
4941.     m$ = m$ + "........" + Chr$(13)
4942.     m$ = m$ + "........" + Chr$(13)
4943.     m$ = m$ + "........" + Chr$(13)
4944.     m$ = m$ + "........" + Chr$(13)
4945.     m$ = m$ + "........" + Chr$(13)
4946.     m$ = m$ + "........" + Chr$(13)
4947.     m$ = m$ + "22222222" + Chr$(13)
4948.     arrTileText(164) = m$
4949.  
4950.     m$ = ""
4951.     m$ = m$ + "22......" + Chr$(13)
4952.     m$ = m$ + "22......" + Chr$(13)
4953.     m$ = m$ + "22......" + Chr$(13)
4954.     m$ = m$ + "22......" + Chr$(13)
4955.     m$ = m$ + "22......" + Chr$(13)
4956.     m$ = m$ + "22......" + Chr$(13)
4957.     m$ = m$ + "22......" + Chr$(13)
4958.     m$ = m$ + "22......" + Chr$(13)
4959.     arrTileText(165) = m$
4960.  
4961.     m$ = ""
4962.     m$ = m$ + "22..22.." + Chr$(13)
4963.     m$ = m$ + "22..22.." + Chr$(13)
4964.     m$ = m$ + "..22..22" + Chr$(13)
4965.     m$ = m$ + "..22..22" + Chr$(13)
4966.     m$ = m$ + "22..22.." + Chr$(13)
4967.     m$ = m$ + "22..22.." + Chr$(13)
4968.     m$ = m$ + "..22..22" + Chr$(13)
4969.     m$ = m$ + "..22..22" + Chr$(13)
4970.     arrTileText(166) = m$
4971.  
4972.     m$ = ""
4973.     m$ = m$ + "......22" + Chr$(13)
4974.     m$ = m$ + "......22" + Chr$(13)
4975.     m$ = m$ + "......22" + Chr$(13)
4976.     m$ = m$ + "......22" + Chr$(13)
4977.     m$ = m$ + "......22" + Chr$(13)
4978.     m$ = m$ + "......22" + Chr$(13)
4979.     m$ = m$ + "......22" + Chr$(13)
4980.     m$ = m$ + "......22" + Chr$(13)
4981.     arrTileText(167) = m$
4982.  
4983.     m$ = ""
4984.     m$ = m$ + "........" + Chr$(13)
4985.     m$ = m$ + "........" + Chr$(13)
4986.     m$ = m$ + "........" + Chr$(13)
4987.     m$ = m$ + "........" + Chr$(13)
4988.     m$ = m$ + "22..22.." + Chr$(13)
4989.     m$ = m$ + "22..22.." + Chr$(13)
4990.     m$ = m$ + "..22..22" + Chr$(13)
4991.     m$ = m$ + "..22..22" + Chr$(13)
4992.     arrTileText(168) = m$
4993.  
4994.     m$ = ""
4995.     m$ = m$ + "22222222" + Chr$(13)
4996.     m$ = m$ + "2222222." + Chr$(13)
4997.     m$ = m$ + "222222.." + Chr$(13)
4998.     m$ = m$ + "22222..." + Chr$(13)
4999.     m$ = m$ + "2222...." + Chr$(13)
5000.     m$ = m$ + "222....." + Chr$(13)
5001.     m$ = m$ + "22......" + Chr$(13)
5002.     m$ = m$ + "2......." + Chr$(13)
5003.     arrTileText(169) = m$
5004.  
5005.     m$ = ""
5006.     m$ = m$ + "......22" + Chr$(13)
5007.     m$ = m$ + "......22" + Chr$(13)
5008.     m$ = m$ + "......22" + Chr$(13)
5009.     m$ = m$ + "......22" + Chr$(13)
5010.     m$ = m$ + "......22" + Chr$(13)
5011.     m$ = m$ + "......22" + Chr$(13)
5012.     m$ = m$ + "......22" + Chr$(13)
5013.     m$ = m$ + "......22" + Chr$(13)
5014.     arrTileText(170) = m$
5015.  
5016.     m$ = ""
5017.     m$ = m$ + "...22..." + Chr$(13)
5018.     m$ = m$ + "...22..." + Chr$(13)
5019.     m$ = m$ + "...22..." + Chr$(13)
5020.     m$ = m$ + "...22222" + Chr$(13)
5021.     m$ = m$ + "...22222" + Chr$(13)
5022.     m$ = m$ + "...22..." + Chr$(13)
5023.     m$ = m$ + "...22..." + Chr$(13)
5024.     m$ = m$ + "...22..." + Chr$(13)
5025.     arrTileText(171) = m$
5026.  
5027.     m$ = ""
5028.     m$ = m$ + "........" + Chr$(13)
5029.     m$ = m$ + "........" + Chr$(13)
5030.     m$ = m$ + "........" + Chr$(13)
5031.     m$ = m$ + "........" + Chr$(13)
5032.     m$ = m$ + "....2222" + Chr$(13)
5033.     m$ = m$ + "....2222" + Chr$(13)
5034.     m$ = m$ + "....2222" + Chr$(13)
5035.     m$ = m$ + "....2222" + Chr$(13)
5036.     arrTileText(172) = m$
5037.  
5038.     m$ = ""
5039.     m$ = m$ + "...22..." + Chr$(13)
5040.     m$ = m$ + "...22..." + Chr$(13)
5041.     m$ = m$ + "...22..." + Chr$(13)
5042.     m$ = m$ + "...22222" + Chr$(13)
5043.     m$ = m$ + "...22222" + Chr$(13)
5044.     m$ = m$ + "........" + Chr$(13)
5045.     m$ = m$ + "........" + Chr$(13)
5046.     m$ = m$ + "........" + Chr$(13)
5047.     arrTileText(173) = m$
5048.  
5049.     m$ = ""
5050.     m$ = m$ + "........" + Chr$(13)
5051.     m$ = m$ + "........" + Chr$(13)
5052.     m$ = m$ + "........" + Chr$(13)
5053.     m$ = m$ + "22222..." + Chr$(13)
5054.     m$ = m$ + "22222..." + Chr$(13)
5055.     m$ = m$ + "...22..." + Chr$(13)
5056.     m$ = m$ + "...22..." + Chr$(13)
5057.     m$ = m$ + "...22..." + Chr$(13)
5058.     arrTileText(174) = m$
5059.  
5060.     m$ = ""
5061.     m$ = m$ + "........" + Chr$(13)
5062.     m$ = m$ + "........" + Chr$(13)
5063.     m$ = m$ + "........" + Chr$(13)
5064.     m$ = m$ + "........" + Chr$(13)
5065.     m$ = m$ + "........" + Chr$(13)
5066.     m$ = m$ + "........" + Chr$(13)
5067.     m$ = m$ + "22222222" + Chr$(13)
5068.     m$ = m$ + "22222222" + Chr$(13)
5069.     arrTileText(175) = m$
5070.  
5071.     m$ = ""
5072.     m$ = m$ + "........" + Chr$(13)
5073.     m$ = m$ + "........" + Chr$(13)
5074.     m$ = m$ + "........" + Chr$(13)
5075.     m$ = m$ + "...22222" + Chr$(13)
5076.     m$ = m$ + "...22222" + Chr$(13)
5077.     m$ = m$ + "...22..." + Chr$(13)
5078.     m$ = m$ + "...22..." + Chr$(13)
5079.     m$ = m$ + "...22..." + Chr$(13)
5080.     arrTileText(176) = m$
5081.  
5082.     m$ = ""
5083.     m$ = m$ + "...22..." + Chr$(13)
5084.     m$ = m$ + "...22..." + Chr$(13)
5085.     m$ = m$ + "...22..." + Chr$(13)
5086.     m$ = m$ + "22222222" + Chr$(13)
5087.     m$ = m$ + "22222222" + Chr$(13)
5088.     m$ = m$ + "........" + Chr$(13)
5089.     m$ = m$ + "........" + Chr$(13)
5090.     m$ = m$ + "........" + Chr$(13)
5091.     arrTileText(177) = m$
5092.  
5093.     m$ = ""
5094.     m$ = m$ + "........" + Chr$(13)
5095.     m$ = m$ + "........" + Chr$(13)
5096.     m$ = m$ + "........" + Chr$(13)
5097.     m$ = m$ + "22222222" + Chr$(13)
5098.     m$ = m$ + "22222222" + Chr$(13)
5099.     m$ = m$ + "...22..." + Chr$(13)
5100.     m$ = m$ + "...22..." + Chr$(13)
5101.     m$ = m$ + "...22..." + Chr$(13)
5102.     arrTileText(178) = m$
5103.  
5104.     m$ = ""
5105.     m$ = m$ + "...22..." + Chr$(13)
5106.     m$ = m$ + "...22..." + Chr$(13)
5107.     m$ = m$ + "...22..." + Chr$(13)
5108.     m$ = m$ + "22222..." + Chr$(13)
5109.     m$ = m$ + "22222..." + Chr$(13)
5110.     m$ = m$ + "...22..." + Chr$(13)
5111.     m$ = m$ + "...22..." + Chr$(13)
5112.     m$ = m$ + "...22..." + Chr$(13)
5113.     arrTileText(179) = m$
5114.  
5115.     m$ = ""
5116.     m$ = m$ + "22......" + Chr$(13)
5117.     m$ = m$ + "22......" + Chr$(13)
5118.     m$ = m$ + "22......" + Chr$(13)
5119.     m$ = m$ + "22......" + Chr$(13)
5120.     m$ = m$ + "22......" + Chr$(13)
5121.     m$ = m$ + "22......" + Chr$(13)
5122.     m$ = m$ + "22......" + Chr$(13)
5123.     m$ = m$ + "22......" + Chr$(13)
5124.     arrTileText(180) = m$
5125.  
5126.     m$ = ""
5127.     m$ = m$ + "222....." + Chr$(13)
5128.     m$ = m$ + "222....." + Chr$(13)
5129.     m$ = m$ + "222....." + Chr$(13)
5130.     m$ = m$ + "222....." + Chr$(13)
5131.     m$ = m$ + "222....." + Chr$(13)
5132.     m$ = m$ + "222....." + Chr$(13)
5133.     m$ = m$ + "222....." + Chr$(13)
5134.     m$ = m$ + "222....." + Chr$(13)
5135.     arrTileText(181) = m$
5136.  
5137.     m$ = ""
5138.     m$ = m$ + ".....222" + Chr$(13)
5139.     m$ = m$ + ".....222" + Chr$(13)
5140.     m$ = m$ + ".....222" + Chr$(13)
5141.     m$ = m$ + ".....222" + Chr$(13)
5142.     m$ = m$ + ".....222" + Chr$(13)
5143.     m$ = m$ + ".....222" + Chr$(13)
5144.     m$ = m$ + ".....222" + Chr$(13)
5145.     m$ = m$ + ".....222" + Chr$(13)
5146.     arrTileText(182) = m$
5147.  
5148.     m$ = ""
5149.     m$ = m$ + "22222222" + Chr$(13)
5150.     m$ = m$ + "22222222" + Chr$(13)
5151.     m$ = m$ + "........" + Chr$(13)
5152.     m$ = m$ + "........" + Chr$(13)
5153.     m$ = m$ + "........" + Chr$(13)
5154.     m$ = m$ + "........" + Chr$(13)
5155.     m$ = m$ + "........" + Chr$(13)
5156.     m$ = m$ + "........" + Chr$(13)
5157.     arrTileText(183) = m$
5158.  
5159.     m$ = ""
5160.     m$ = m$ + "22222222" + Chr$(13)
5161.     m$ = m$ + "22222222" + Chr$(13)
5162.     m$ = m$ + "22222222" + Chr$(13)
5163.     m$ = m$ + "........" + Chr$(13)
5164.     m$ = m$ + "........" + Chr$(13)
5165.     m$ = m$ + "........" + Chr$(13)
5166.     m$ = m$ + "........" + Chr$(13)
5167.     m$ = m$ + "........" + Chr$(13)
5168.     arrTileText(184) = m$
5169.  
5170.     m$ = ""
5171.     m$ = m$ + "........" + Chr$(13)
5172.     m$ = m$ + "........" + Chr$(13)
5173.     m$ = m$ + "........" + Chr$(13)
5174.     m$ = m$ + "........" + Chr$(13)
5175.     m$ = m$ + "........" + Chr$(13)
5176.     m$ = m$ + "22222222" + Chr$(13)
5177.     m$ = m$ + "22222222" + Chr$(13)
5178.     m$ = m$ + "22222222" + Chr$(13)
5179.     arrTileText(185) = m$
5180.  
5181.     m$ = ""
5182.     m$ = m$ + "......22" + Chr$(13)
5183.     m$ = m$ + "......22" + Chr$(13)
5184.     m$ = m$ + "......22" + Chr$(13)
5185.     m$ = m$ + "......22" + Chr$(13)
5186.     m$ = m$ + "......22" + Chr$(13)
5187.     m$ = m$ + "......22" + Chr$(13)
5188.     m$ = m$ + "22222222" + Chr$(13)
5189.     m$ = m$ + "22222222" + Chr$(13)
5190.     arrTileText(186) = m$
5191.  
5192.     m$ = ""
5193.     m$ = m$ + "........" + Chr$(13)
5194.     m$ = m$ + "........" + Chr$(13)
5195.     m$ = m$ + "........" + Chr$(13)
5196.     m$ = m$ + "........" + Chr$(13)
5197.     m$ = m$ + "2222...." + Chr$(13)
5198.     m$ = m$ + "2222...." + Chr$(13)
5199.     m$ = m$ + "2222...." + Chr$(13)
5200.     m$ = m$ + "2222...." + Chr$(13)
5201.     arrTileText(187) = m$
5202.  
5203.     m$ = ""
5204.     m$ = m$ + "....2222" + Chr$(13)
5205.     m$ = m$ + "....2222" + Chr$(13)
5206.     m$ = m$ + "....2222" + Chr$(13)
5207.     m$ = m$ + "....2222" + Chr$(13)
5208.     m$ = m$ + "........" + Chr$(13)
5209.     m$ = m$ + "........" + Chr$(13)
5210.     m$ = m$ + "........" + Chr$(13)
5211.     m$ = m$ + "........" + Chr$(13)
5212.     arrTileText(188) = m$
5213.  
5214.     m$ = ""
5215.     m$ = m$ + "...22..." + Chr$(13)
5216.     m$ = m$ + "...22..." + Chr$(13)
5217.     m$ = m$ + "...22..." + Chr$(13)
5218.     m$ = m$ + "22222..." + Chr$(13)
5219.     m$ = m$ + "22222..." + Chr$(13)
5220.     m$ = m$ + "........" + Chr$(13)
5221.     m$ = m$ + "........" + Chr$(13)
5222.     m$ = m$ + "........" + Chr$(13)
5223.     arrTileText(189) = m$
5224.  
5225.     m$ = ""
5226.     m$ = m$ + "2222...." + Chr$(13)
5227.     m$ = m$ + "2222...." + Chr$(13)
5228.     m$ = m$ + "2222...." + Chr$(13)
5229.     m$ = m$ + "2222...." + Chr$(13)
5230.     m$ = m$ + "........" + Chr$(13)
5231.     m$ = m$ + "........" + Chr$(13)
5232.     m$ = m$ + "........" + Chr$(13)
5233.     m$ = m$ + "........" + Chr$(13)
5234.     arrTileText(190) = m$
5235.  
5236.     m$ = ""
5237.     m$ = m$ + "2222...." + Chr$(13)
5238.     m$ = m$ + "2222...." + Chr$(13)
5239.     m$ = m$ + "2222...." + Chr$(13)
5240.     m$ = m$ + "2222...." + Chr$(13)
5241.     m$ = m$ + "....2222" + Chr$(13)
5242.     m$ = m$ + "....2222" + Chr$(13)
5243.     m$ = m$ + "....2222" + Chr$(13)
5244.     m$ = m$ + "....2222" + Chr$(13)
5245.     arrTileText(191) = m$
5246.  
5247.     m$ = ""
5248.     m$ = m$ + "........" + Chr$(13)
5249.     m$ = m$ + ".2222222" + Chr$(13)
5250.     m$ = m$ + ".2.....2" + Chr$(13)
5251.     m$ = m$ + ".2.....2" + Chr$(13)
5252.     m$ = m$ + ".2.....2" + Chr$(13)
5253.     m$ = m$ + ".2.....2" + Chr$(13)
5254.     m$ = m$ + ".2.....2" + Chr$(13)
5255.     m$ = m$ + ".2222222" + Chr$(13)
5256.     arrTileText(192) = m$
5257.  
5258.     m$ = ""
5259.     m$ = m$ + "........" + Chr$(13)
5260.     m$ = m$ + ".2222222" + Chr$(13)
5261.     m$ = m$ + ".2222222" + Chr$(13)
5262.     m$ = m$ + ".2222222" + Chr$(13)
5263.     m$ = m$ + ".2222222" + Chr$(13)
5264.     m$ = m$ + ".2222222" + Chr$(13)
5265.     m$ = m$ + ".2222222" + Chr$(13)
5266.     m$ = m$ + ".2222222" + Chr$(13)
5267.     arrTileText(193) = m$
5268.  
5269.     m$ = ""
5270.     m$ = m$ + "........" + Chr$(13)
5271.     m$ = m$ + "...22..." + Chr$(13)
5272.     m$ = m$ + "..2222.." + Chr$(13)
5273.     m$ = m$ + ".222222." + Chr$(13)
5274.     m$ = m$ + "...22..." + Chr$(13)
5275.     m$ = m$ + "...22..." + Chr$(13)
5276.     m$ = m$ + "...22..." + Chr$(13)
5277.     m$ = m$ + "...22..." + Chr$(13)
5278.     arrTileText(194) = m$
5279.  
5280.     m$ = ""
5281.     m$ = m$ + "........" + Chr$(13)
5282.     m$ = m$ + "...22..." + Chr$(13)
5283.     m$ = m$ + "...22..." + Chr$(13)
5284.     m$ = m$ + "...22..." + Chr$(13)
5285.     m$ = m$ + "...22..." + Chr$(13)
5286.     m$ = m$ + ".222222." + Chr$(13)
5287.     m$ = m$ + "..2222.." + Chr$(13)
5288.     m$ = m$ + "...22..." + Chr$(13)
5289.     arrTileText(195) = m$
5290.  
5291.     m$ = ""
5292.     m$ = m$ + "........" + Chr$(13)
5293.     m$ = m$ + "...2...." + Chr$(13)
5294.     m$ = m$ + "..22...." + Chr$(13)
5295.     m$ = m$ + ".2222222" + Chr$(13)
5296.     m$ = m$ + ".2222222" + Chr$(13)
5297.     m$ = m$ + "..22...." + Chr$(13)
5298.     m$ = m$ + "...2...." + Chr$(13)
5299.     m$ = m$ + "........" + Chr$(13)
5300.     arrTileText(196) = m$
5301.  
5302.     m$ = ""
5303.     m$ = m$ + "........" + Chr$(13)
5304.     m$ = m$ + ".....2.." + Chr$(13)
5305.     m$ = m$ + ".....22." + Chr$(13)
5306.     m$ = m$ + ".2222222" + Chr$(13)
5307.     m$ = m$ + ".2222222" + Chr$(13)
5308.     m$ = m$ + ".....22." + Chr$(13)
5309.     m$ = m$ + ".....2.." + Chr$(13)
5310.     m$ = m$ + "........" + Chr$(13)
5311.     arrTileText(197) = m$
5312.  
5313.     m$ = ""
5314.     m$ = m$ + "........" + Chr$(13)
5315.     m$ = m$ + "........" + Chr$(13)
5316.     m$ = m$ + "........" + Chr$(13)
5317.     m$ = m$ + "........" + Chr$(13)
5318.     m$ = m$ + "........" + Chr$(13)
5319.     m$ = m$ + "........" + Chr$(13)
5320.     m$ = m$ + "........" + Chr$(13)
5321.     m$ = m$ + "........" + Chr$(13)
5322.     arrTileText(198) = m$
5323.  
5324.     m$ = ""
5325.     m$ = m$ + ".222222." + Chr$(13)
5326.     m$ = m$ + "2......2" + Chr$(13)
5327.     m$ = m$ + "2.2..2.2" + Chr$(13)
5328.     m$ = m$ + "2......2" + Chr$(13)
5329.     m$ = m$ + "2.2..2.2" + Chr$(13)
5330.     m$ = m$ + "2.2222.2" + Chr$(13)
5331.     m$ = m$ + "2......2" + Chr$(13)
5332.     m$ = m$ + ".222222." + Chr$(13)
5333.     arrTileText(199) = m$
5334.  
5335.     m$ = ""
5336.     m$ = m$ + ".222222." + Chr$(13)
5337.     m$ = m$ + "2......2" + Chr$(13)
5338.     m$ = m$ + "2.2..2.2" + Chr$(13)
5339.     m$ = m$ + "2......2" + Chr$(13)
5340.     m$ = m$ + "2.2222.2" + Chr$(13)
5341.     m$ = m$ + "2.2..2.2" + Chr$(13)
5342.     m$ = m$ + "2......2" + Chr$(13)
5343.     m$ = m$ + ".222222." + Chr$(13)
5344.     arrTileText(200) = m$
5345.  
5346.     m$ = ""
5347.     m$ = m$ + "........" + Chr$(13)
5348.     m$ = m$ + "........" + Chr$(13)
5349.     m$ = m$ + "........" + Chr$(13)
5350.     m$ = m$ + "........" + Chr$(13)
5351.     m$ = m$ + "........" + Chr$(13)
5352.     m$ = m$ + "........" + Chr$(13)
5353.     m$ = m$ + "........" + Chr$(13)
5354.     m$ = m$ + "........" + Chr$(13)
5355.     arrTileText(201) = m$
5356.  
5357.     m$ = ""
5358.     m$ = m$ + ".222222." + Chr$(13)
5359.     m$ = m$ + ".....22." + Chr$(13)
5360.     m$ = m$ + "....22.." + Chr$(13)
5361.     m$ = m$ + "...22..." + Chr$(13)
5362.     m$ = m$ + "..22...." + Chr$(13)
5363.     m$ = m$ + ".22....." + Chr$(13)
5364.     m$ = m$ + ".222222." + Chr$(13)
5365.     m$ = m$ + "........" + Chr$(13)
5366.     arrTileText(202) = m$
5367.  
5368.     m$ = ""
5369.     m$ = m$ + "...22..." + Chr$(13)
5370.     m$ = m$ + "...22..." + Chr$(13)
5371.     m$ = m$ + "...22..." + Chr$(13)
5372.     m$ = m$ + "22222222" + Chr$(13)
5373.     m$ = m$ + "22222222" + Chr$(13)
5374.     m$ = m$ + "...22..." + Chr$(13)
5375.     m$ = m$ + "...22..." + Chr$(13)
5376.     m$ = m$ + "...22..." + Chr$(13)
5377.     arrTileText(203) = m$
5378.  
5379.     m$ = ""
5380.     m$ = m$ + "22......" + Chr$(13)
5381.     m$ = m$ + "22......" + Chr$(13)
5382.     m$ = m$ + "..22...." + Chr$(13)
5383.     m$ = m$ + "..22...." + Chr$(13)
5384.     m$ = m$ + "22......" + Chr$(13)
5385.     m$ = m$ + "22......" + Chr$(13)
5386.     m$ = m$ + "..22...." + Chr$(13)
5387.     m$ = m$ + "..22...." + Chr$(13)
5388.     arrTileText(204) = m$
5389.  
5390.     m$ = ""
5391.     m$ = m$ + "...22..." + Chr$(13)
5392.     m$ = m$ + "...22..." + Chr$(13)
5393.     m$ = m$ + "...22..." + Chr$(13)
5394.     m$ = m$ + "...22..." + Chr$(13)
5395.     m$ = m$ + "...22..." + Chr$(13)
5396.     m$ = m$ + "...22..." + Chr$(13)
5397.     m$ = m$ + "...22..." + Chr$(13)
5398.     m$ = m$ + "...22..." + Chr$(13)
5399.     arrTileText(205) = m$
5400.  
5401.     m$ = ""
5402.     m$ = m$ + "..22..22" + Chr$(13)
5403.     m$ = m$ + "..22..22" + Chr$(13)
5404.     m$ = m$ + "22..22.." + Chr$(13)
5405.     m$ = m$ + "22..22.." + Chr$(13)
5406.     m$ = m$ + "..22..22" + Chr$(13)
5407.     m$ = m$ + "..22..22" + Chr$(13)
5408.     m$ = m$ + "22..22.." + Chr$(13)
5409.     m$ = m$ + "22..22.." + Chr$(13)
5410.     arrTileText(206) = m$
5411.  
5412.     m$ = ""
5413.     m$ = m$ + "..22..22" + Chr$(13)
5414.     m$ = m$ + "2..22..2" + Chr$(13)
5415.     m$ = m$ + "22..22.." + Chr$(13)
5416.     m$ = m$ + ".22..22." + Chr$(13)
5417.     m$ = m$ + "..22..22" + Chr$(13)
5418.     m$ = m$ + "2..22..2" + Chr$(13)
5419.     m$ = m$ + "22..22.." + Chr$(13)
5420.     m$ = m$ + ".22..22." + Chr$(13)
5421.     arrTileText(207) = m$
5422.  
5423.     m$ = ""
5424.     m$ = m$ + "........" + Chr$(13)
5425.     m$ = m$ + "........" + Chr$(13)
5426.     m$ = m$ + "........" + Chr$(13)
5427.     m$ = m$ + "........" + Chr$(13)
5428.     m$ = m$ + "........" + Chr$(13)
5429.     m$ = m$ + "........" + Chr$(13)
5430.     m$ = m$ + "........" + Chr$(13)
5431.     m$ = m$ + "........" + Chr$(13)
5432.     arrTileText(208) = m$
5433.  
5434.     m$ = ""
5435.     m$ = m$ + "2222...." + Chr$(13)
5436.     m$ = m$ + "2222...." + Chr$(13)
5437.     m$ = m$ + "2222...." + Chr$(13)
5438.     m$ = m$ + "2222...." + Chr$(13)
5439.     m$ = m$ + "2222...." + Chr$(13)
5440.     m$ = m$ + "2222...." + Chr$(13)
5441.     m$ = m$ + "2222...." + Chr$(13)
5442.     m$ = m$ + "2222...." + Chr$(13)
5443.     arrTileText(209) = m$
5444.  
5445.     m$ = ""
5446.     m$ = m$ + "........" + Chr$(13)
5447.     m$ = m$ + "........" + Chr$(13)
5448.     m$ = m$ + "........" + Chr$(13)
5449.     m$ = m$ + "........" + Chr$(13)
5450.     m$ = m$ + "22222222" + Chr$(13)
5451.     m$ = m$ + "22222222" + Chr$(13)
5452.     m$ = m$ + "22222222" + Chr$(13)
5453.     m$ = m$ + "22222222" + Chr$(13)
5454.     arrTileText(210) = m$
5455.  
5456.     m$ = ""
5457.     m$ = m$ + "22222222" + Chr$(13)
5458.     m$ = m$ + "........" + Chr$(13)
5459.     m$ = m$ + "........" + Chr$(13)
5460.     m$ = m$ + "........" + Chr$(13)
5461.     m$ = m$ + "........" + Chr$(13)
5462.     m$ = m$ + "........" + Chr$(13)
5463.     m$ = m$ + "........" + Chr$(13)
5464.     m$ = m$ + "........" + Chr$(13)
5465.     arrTileText(211) = m$
5466.  
5467.     m$ = ""
5468.     m$ = m$ + "........" + Chr$(13)
5469.     m$ = m$ + "........" + Chr$(13)
5470.     m$ = m$ + "........" + Chr$(13)
5471.     m$ = m$ + "........" + Chr$(13)
5472.     m$ = m$ + "........" + Chr$(13)
5473.     m$ = m$ + "........" + Chr$(13)
5474.     m$ = m$ + "........" + Chr$(13)
5475.     m$ = m$ + "22222222" + Chr$(13)
5476.     arrTileText(212) = m$
5477.  
5478.     m$ = ""
5479.     m$ = m$ + "22......" + Chr$(13)
5480.     m$ = m$ + "22......" + Chr$(13)
5481.     m$ = m$ + "22......" + Chr$(13)
5482.     m$ = m$ + "22......" + Chr$(13)
5483.     m$ = m$ + "22......" + Chr$(13)
5484.     m$ = m$ + "22......" + Chr$(13)
5485.     m$ = m$ + "22......" + Chr$(13)
5486.     m$ = m$ + "22......" + Chr$(13)
5487.     arrTileText(213) = m$
5488.  
5489.     m$ = ""
5490.     m$ = m$ + "22..22.." + Chr$(13)
5491.     m$ = m$ + "22..22.." + Chr$(13)
5492.     m$ = m$ + "..22..22" + Chr$(13)
5493.     m$ = m$ + "..22..22" + Chr$(13)
5494.     m$ = m$ + "22..22.." + Chr$(13)
5495.     m$ = m$ + "22..22.." + Chr$(13)
5496.     m$ = m$ + "..22..22" + Chr$(13)
5497.     m$ = m$ + "..22..22" + Chr$(13)
5498.     arrTileText(214) = m$
5499.  
5500.     m$ = ""
5501.     m$ = m$ + "......22" + Chr$(13)
5502.     m$ = m$ + "......22" + Chr$(13)
5503.     m$ = m$ + "......22" + Chr$(13)
5504.     m$ = m$ + "......22" + Chr$(13)
5505.     m$ = m$ + "......22" + Chr$(13)
5506.     m$ = m$ + "......22" + Chr$(13)
5507.     m$ = m$ + "......22" + Chr$(13)
5508.     m$ = m$ + "......22" + Chr$(13)
5509.     arrTileText(215) = m$
5510.  
5511.     m$ = ""
5512.     m$ = m$ + "........" + Chr$(13)
5513.     m$ = m$ + "........" + Chr$(13)
5514.     m$ = m$ + "........" + Chr$(13)
5515.     m$ = m$ + "........" + Chr$(13)
5516.     m$ = m$ + "22..22.." + Chr$(13)
5517.     m$ = m$ + "22..22.." + Chr$(13)
5518.     m$ = m$ + "..22..22" + Chr$(13)
5519.     m$ = m$ + "..22..22" + Chr$(13)
5520.     arrTileText(216) = m$
5521.  
5522.     m$ = ""
5523.     m$ = m$ + "22..22.." + Chr$(13)
5524.     m$ = m$ + "2..22..2" + Chr$(13)
5525.     m$ = m$ + "..22..22" + Chr$(13)
5526.     m$ = m$ + ".22..22." + Chr$(13)
5527.     m$ = m$ + "22..22.." + Chr$(13)
5528.     m$ = m$ + "2..22..2" + Chr$(13)
5529.     m$ = m$ + "..22..22" + Chr$(13)
5530.     m$ = m$ + ".22..22." + Chr$(13)
5531.     arrTileText(217) = m$
5532.  
5533.     m$ = ""
5534.     m$ = m$ + "......22" + Chr$(13)
5535.     m$ = m$ + "......22" + Chr$(13)
5536.     m$ = m$ + "......22" + Chr$(13)
5537.     m$ = m$ + "......22" + Chr$(13)
5538.     m$ = m$ + "......22" + Chr$(13)
5539.     m$ = m$ + "......22" + Chr$(13)
5540.     m$ = m$ + "......22" + Chr$(13)
5541.     m$ = m$ + "......22" + Chr$(13)
5542.     arrTileText(218) = m$
5543.  
5544.     m$ = ""
5545.     m$ = m$ + "...22..." + Chr$(13)
5546.     m$ = m$ + "...22..." + Chr$(13)
5547.     m$ = m$ + "...22..." + Chr$(13)
5548.     m$ = m$ + "...22222" + Chr$(13)
5549.     m$ = m$ + "...22222" + Chr$(13)
5550.     m$ = m$ + "...22..." + Chr$(13)
5551.     m$ = m$ + "...22..." + Chr$(13)
5552.     m$ = m$ + "...22..." + Chr$(13)
5553.     arrTileText(219) = m$
5554.  
5555.     m$ = ""
5556.     m$ = m$ + "........" + Chr$(13)
5557.     m$ = m$ + "........" + Chr$(13)
5558.     m$ = m$ + "........" + Chr$(13)
5559.     m$ = m$ + "........" + Chr$(13)
5560.     m$ = m$ + "....2222" + Chr$(13)
5561.     m$ = m$ + "....2222" + Chr$(13)
5562.     m$ = m$ + "....2222" + Chr$(13)
5563.     m$ = m$ + "....2222" + Chr$(13)
5564.     arrTileText(220) = m$
5565.  
5566.     m$ = ""
5567.     m$ = m$ + "...22..." + Chr$(13)
5568.     m$ = m$ + "...22..." + Chr$(13)
5569.     m$ = m$ + "...22..." + Chr$(13)
5570.     m$ = m$ + "...22222" + Chr$(13)
5571.     m$ = m$ + "...22222" + Chr$(13)
5572.     m$ = m$ + "........" + Chr$(13)
5573.     m$ = m$ + "........" + Chr$(13)
5574.     m$ = m$ + "........" + Chr$(13)
5575.     arrTileText(221) = m$
5576.  
5577.     m$ = ""
5578.     m$ = m$ + "........" + Chr$(13)
5579.     m$ = m$ + "........" + Chr$(13)
5580.     m$ = m$ + "........" + Chr$(13)
5581.     m$ = m$ + "22222..." + Chr$(13)
5582.     m$ = m$ + "22222..." + Chr$(13)
5583.     m$ = m$ + "...22..." + Chr$(13)
5584.     m$ = m$ + "...22..." + Chr$(13)
5585.     m$ = m$ + "...22..." + Chr$(13)
5586.     arrTileText(222) = m$
5587.  
5588.     m$ = ""
5589.     m$ = m$ + "........" + Chr$(13)
5590.     m$ = m$ + "........" + Chr$(13)
5591.     m$ = m$ + "........" + Chr$(13)
5592.     m$ = m$ + "........" + Chr$(13)
5593.     m$ = m$ + "........" + Chr$(13)
5594.     m$ = m$ + "........" + Chr$(13)
5595.     m$ = m$ + "22222222" + Chr$(13)
5596.     m$ = m$ + "22222222" + Chr$(13)
5597.     arrTileText(223) = m$
5598.  
5599.     m$ = ""
5600.     m$ = m$ + "........" + Chr$(13)
5601.     m$ = m$ + "........" + Chr$(13)
5602.     m$ = m$ + "........" + Chr$(13)
5603.     m$ = m$ + "...22222" + Chr$(13)
5604.     m$ = m$ + "...22222" + Chr$(13)
5605.     m$ = m$ + "...22..." + Chr$(13)
5606.     m$ = m$ + "...22..." + Chr$(13)
5607.     m$ = m$ + "...22..." + Chr$(13)
5608.     arrTileText(224) = m$
5609.  
5610.     m$ = ""
5611.     m$ = m$ + "...22..." + Chr$(13)
5612.     m$ = m$ + "...22..." + Chr$(13)
5613.     m$ = m$ + "...22..." + Chr$(13)
5614.     m$ = m$ + "22222222" + Chr$(13)
5615.     m$ = m$ + "22222222" + Chr$(13)
5616.     m$ = m$ + "........" + Chr$(13)
5617.     m$ = m$ + "........" + Chr$(13)
5618.     m$ = m$ + "........" + Chr$(13)
5619.     arrTileText(225) = m$
5620.  
5621.     m$ = ""
5622.     m$ = m$ + "........" + Chr$(13)
5623.     m$ = m$ + "........" + Chr$(13)
5624.     m$ = m$ + "........" + Chr$(13)
5625.     m$ = m$ + "22222222" + Chr$(13)
5626.     m$ = m$ + "22222222" + Chr$(13)
5627.     m$ = m$ + "...22..." + Chr$(13)
5628.     m$ = m$ + "...22..." + Chr$(13)
5629.     m$ = m$ + "...22..." + Chr$(13)
5630.     arrTileText(226) = m$
5631.  
5632.     m$ = ""
5633.     m$ = m$ + "...22..." + Chr$(13)
5634.     m$ = m$ + "...22..." + Chr$(13)
5635.     m$ = m$ + "...22..." + Chr$(13)
5636.     m$ = m$ + "22222..." + Chr$(13)
5637.     m$ = m$ + "22222..." + Chr$(13)
5638.     m$ = m$ + "...22..." + Chr$(13)
5639.     m$ = m$ + "...22..." + Chr$(13)
5640.     m$ = m$ + "...22..." + Chr$(13)
5641.     arrTileText(227) = m$
5642.  
5643.     m$ = ""
5644.     m$ = m$ + "22......" + Chr$(13)
5645.     m$ = m$ + "22......" + Chr$(13)
5646.     m$ = m$ + "22......" + Chr$(13)
5647.     m$ = m$ + "22......" + Chr$(13)
5648.     m$ = m$ + "22......" + Chr$(13)
5649.     m$ = m$ + "22......" + Chr$(13)
5650.     m$ = m$ + "22......" + Chr$(13)
5651.     m$ = m$ + "22......" + Chr$(13)
5652.     arrTileText(228) = m$
5653.  
5654.     m$ = ""
5655.     m$ = m$ + "222....." + Chr$(13)
5656.     m$ = m$ + "222....." + Chr$(13)
5657.     m$ = m$ + "222....." + Chr$(13)
5658.     m$ = m$ + "222....." + Chr$(13)
5659.     m$ = m$ + "222....." + Chr$(13)
5660.     m$ = m$ + "222....." + Chr$(13)
5661.     m$ = m$ + "222....." + Chr$(13)
5662.     m$ = m$ + "222....." + Chr$(13)
5663.     arrTileText(229) = m$
5664.  
5665.     m$ = ""
5666.     m$ = m$ + ".....222" + Chr$(13)
5667.     m$ = m$ + ".....222" + Chr$(13)
5668.     m$ = m$ + ".....222" + Chr$(13)
5669.     m$ = m$ + ".....222" + Chr$(13)
5670.     m$ = m$ + ".....222" + Chr$(13)
5671.     m$ = m$ + ".....222" + Chr$(13)
5672.     m$ = m$ + ".....222" + Chr$(13)
5673.     m$ = m$ + ".....222" + Chr$(13)
5674.     arrTileText(230) = m$
5675.  
5676.     m$ = ""
5677.     m$ = m$ + "22222222" + Chr$(13)
5678.     m$ = m$ + "22222222" + Chr$(13)
5679.     m$ = m$ + "........" + Chr$(13)
5680.     m$ = m$ + "........" + Chr$(13)
5681.     m$ = m$ + "........" + Chr$(13)
5682.     m$ = m$ + "........" + Chr$(13)
5683.     m$ = m$ + "........" + Chr$(13)
5684.     m$ = m$ + "........" + Chr$(13)
5685.     arrTileText(231) = m$
5686.  
5687.     m$ = ""
5688.     m$ = m$ + "22222222" + Chr$(13)
5689.     m$ = m$ + "22222222" + Chr$(13)
5690.     m$ = m$ + "22222222" + Chr$(13)
5691.     m$ = m$ + "........" + Chr$(13)
5692.     m$ = m$ + "........" + Chr$(13)
5693.     m$ = m$ + "........" + Chr$(13)
5694.     m$ = m$ + "........" + Chr$(13)
5695.     m$ = m$ + "........" + Chr$(13)
5696.     arrTileText(232) = m$
5697.  
5698.     m$ = ""
5699.     m$ = m$ + "........" + Chr$(13)
5700.     m$ = m$ + "........" + Chr$(13)
5701.     m$ = m$ + "........" + Chr$(13)
5702.     m$ = m$ + "........" + Chr$(13)
5703.     m$ = m$ + "........" + Chr$(13)
5704.     m$ = m$ + "22222222" + Chr$(13)
5705.     m$ = m$ + "22222222" + Chr$(13)
5706.     m$ = m$ + "22222222" + Chr$(13)
5707.     arrTileText(233) = m$
5708.  
5709.     m$ = ""
5710.     m$ = m$ + ".......2" + Chr$(13)
5711.     m$ = m$ + "......22" + Chr$(13)
5712.     m$ = m$ + ".....22." + Chr$(13)
5713.     m$ = m$ + ".22.22.." + Chr$(13)
5714.     m$ = m$ + ".2222..." + Chr$(13)
5715.     m$ = m$ + ".222...." + Chr$(13)
5716.     m$ = m$ + ".22....." + Chr$(13)
5717.     m$ = m$ + "........" + Chr$(13)
5718.     arrTileText(234) = m$
5719.  
5720.     m$ = ""
5721.     m$ = m$ + "........" + Chr$(13)
5722.     m$ = m$ + "........" + Chr$(13)
5723.     m$ = m$ + "........" + Chr$(13)
5724.     m$ = m$ + "........" + Chr$(13)
5725.     m$ = m$ + "2222...." + Chr$(13)
5726.     m$ = m$ + "2222...." + Chr$(13)
5727.     m$ = m$ + "2222...." + Chr$(13)
5728.     m$ = m$ + "2222...." + Chr$(13)
5729.     arrTileText(235) = m$
5730.  
5731.     m$ = ""
5732.     m$ = m$ + "....2222" + Chr$(13)
5733.     m$ = m$ + "....2222" + Chr$(13)
5734.     m$ = m$ + "....2222" + Chr$(13)
5735.     m$ = m$ + "....2222" + Chr$(13)
5736.     m$ = m$ + "........" + Chr$(13)
5737.     m$ = m$ + "........" + Chr$(13)
5738.     m$ = m$ + "........" + Chr$(13)
5739.     m$ = m$ + "........" + Chr$(13)
5740.     arrTileText(236) = m$
5741.  
5742.     m$ = ""
5743.     m$ = m$ + "...22..." + Chr$(13)
5744.     m$ = m$ + "...22..." + Chr$(13)
5745.     m$ = m$ + "...22..." + Chr$(13)
5746.     m$ = m$ + "22222..." + Chr$(13)
5747.     m$ = m$ + "22222..." + Chr$(13)
5748.     m$ = m$ + "........" + Chr$(13)
5749.     m$ = m$ + "........" + Chr$(13)
5750.     m$ = m$ + "........" + Chr$(13)
5751.     arrTileText(237) = m$
5752.  
5753.     m$ = ""
5754.     m$ = m$ + "2222...." + Chr$(13)
5755.     m$ = m$ + "2222...." + Chr$(13)
5756.     m$ = m$ + "2222...." + Chr$(13)
5757.     m$ = m$ + "2222...." + Chr$(13)
5758.     m$ = m$ + "........" + Chr$(13)
5759.     m$ = m$ + "........" + Chr$(13)
5760.     m$ = m$ + "........" + Chr$(13)
5761.     m$ = m$ + "........" + Chr$(13)
5762.     arrTileText(238) = m$
5763.  
5764.     m$ = ""
5765.     m$ = m$ + "2222...." + Chr$(13)
5766.     m$ = m$ + "2222...." + Chr$(13)
5767.     m$ = m$ + "2222...." + Chr$(13)
5768.     m$ = m$ + "2222...." + Chr$(13)
5769.     m$ = m$ + "....2222" + Chr$(13)
5770.     m$ = m$ + "....2222" + Chr$(13)
5771.     m$ = m$ + "....2222" + Chr$(13)
5772.     m$ = m$ + "....2222" + Chr$(13)
5773.     arrTileText(239) = m$
5774.  
5775.     m$ = ""
5776.     m$ = m$ + "........" + Chr$(13)
5777.     m$ = m$ + "........" + Chr$(13)
5778.     m$ = m$ + "........" + Chr$(13)
5779.     m$ = m$ + "........" + Chr$(13)
5780.     m$ = m$ + "........" + Chr$(13)
5781.     m$ = m$ + "........" + Chr$(13)
5782.     m$ = m$ + "........" + Chr$(13)
5783.     m$ = m$ + "........" + Chr$(13)
5784.     arrTileText(240) = m$
5785.  
5786.     m$ = ""
5787.     m$ = m$ + "22222.22" + Chr$(13)
5788.     m$ = m$ + "22222.22" + Chr$(13)
5789.     m$ = m$ + "22222.22" + Chr$(13)
5790.     m$ = m$ + "........" + Chr$(13)
5791.     m$ = m$ + "22.22222" + Chr$(13)
5792.     m$ = m$ + "22.22222" + Chr$(13)
5793.     m$ = m$ + "22.22222" + Chr$(13)
5794.     m$ = m$ + "........" + Chr$(13)
5795.     arrTileText(241) = m$
5796.  
5797.     m$ = ""
5798.     m$ = m$ + "........" + Chr$(13)
5799.     m$ = m$ + "........" + Chr$(13)
5800.     m$ = m$ + "........" + Chr$(13)
5801.     m$ = m$ + ".222222." + Chr$(13)
5802.     m$ = m$ + "........" + Chr$(13)
5803.     m$ = m$ + "........" + Chr$(13)
5804.     m$ = m$ + "........" + Chr$(13)
5805.     m$ = m$ + "........" + Chr$(13)
5806.     arrTileText(242) = m$
5807.  
5808.     m$ = ""
5809.     m$ = m$ + "........" + Chr$(13)
5810.     m$ = m$ + "...2...." + Chr$(13)
5811.     m$ = m$ + "...2...." + Chr$(13)
5812.     m$ = m$ + "...2...." + Chr$(13)
5813.     m$ = m$ + "...2...." + Chr$(13)
5814.     m$ = m$ + "...2...." + Chr$(13)
5815.     m$ = m$ + "...2...." + Chr$(13)
5816.     m$ = m$ + "........" + Chr$(13)
5817.     arrTileText(243) = m$
5818.  
5819.     m$ = ""
5820.     m$ = m$ + "........" + Chr$(13)
5821.     m$ = m$ + "........" + Chr$(13)
5822.     m$ = m$ + "........" + Chr$(13)
5823.     m$ = m$ + "...2222." + Chr$(13)
5824.     m$ = m$ + "...2...." + Chr$(13)
5825.     m$ = m$ + "...2...." + Chr$(13)
5826.     m$ = m$ + "...2...." + Chr$(13)
5827.     m$ = m$ + "........" + Chr$(13)
5828.     arrTileText(244) = m$
5829.  
5830.     m$ = ""
5831.     m$ = m$ + "........" + Chr$(13)
5832.     m$ = m$ + "........" + Chr$(13)
5833.     m$ = m$ + "........" + Chr$(13)
5834.     m$ = m$ + ".222...." + Chr$(13)
5835.     m$ = m$ + "...2...." + Chr$(13)
5836.     m$ = m$ + "...2...." + Chr$(13)
5837.     m$ = m$ + "...2...." + Chr$(13)
5838.     m$ = m$ + "........" + Chr$(13)
5839.     arrTileText(245) = m$
5840.  
5841.     m$ = ""
5842.     m$ = m$ + "........" + Chr$(13)
5843.     m$ = m$ + "...2...." + Chr$(13)
5844.     m$ = m$ + "...2...." + Chr$(13)
5845.     m$ = m$ + "...2222." + Chr$(13)
5846.     m$ = m$ + "........" + Chr$(13)
5847.     m$ = m$ + "........" + Chr$(13)
5848.     m$ = m$ + "........" + Chr$(13)
5849.     m$ = m$ + "........" + Chr$(13)
5850.     arrTileText(246) = m$
5851.  
5852.     m$ = ""
5853.     m$ = m$ + "........" + Chr$(13)
5854.     m$ = m$ + "...2...." + Chr$(13)
5855.     m$ = m$ + "...2...." + Chr$(13)
5856.     m$ = m$ + ".222...." + Chr$(13)
5857.     m$ = m$ + "........" + Chr$(13)
5858.     m$ = m$ + "........" + Chr$(13)
5859.     m$ = m$ + "........" + Chr$(13)
5860.     m$ = m$ + "........" + Chr$(13)
5861.     arrTileText(247) = m$
5862.  
5863.     m$ = ""
5864.     m$ = m$ + "........" + Chr$(13)
5865.     m$ = m$ + "........" + Chr$(13)
5866.     m$ = m$ + "........" + Chr$(13)
5867.     m$ = m$ + "........" + Chr$(13)
5868.     m$ = m$ + "........" + Chr$(13)
5869.     m$ = m$ + "........" + Chr$(13)
5870.     m$ = m$ + "........" + Chr$(13)
5871.     m$ = m$ + "........" + Chr$(13)
5872.     arrTileText(248) = m$
5873.  
5874.     m$ = ""
5875.     m$ = m$ + "........" + Chr$(13)
5876.     m$ = m$ + "........" + Chr$(13)
5877.     m$ = m$ + "........" + Chr$(13)
5878.     m$ = m$ + "........" + Chr$(13)
5879.     m$ = m$ + "........" + Chr$(13)
5880.     m$ = m$ + "........" + Chr$(13)
5881.     m$ = m$ + "........" + Chr$(13)
5882.     m$ = m$ + "........" + Chr$(13)
5883.     arrTileText(249) = m$
5884.  
5885.     m$ = ""
5886.     m$ = m$ + "........" + Chr$(13)
5887.     m$ = m$ + "........" + Chr$(13)
5888.     m$ = m$ + "........" + Chr$(13)
5889.     m$ = m$ + "........" + Chr$(13)
5890.     m$ = m$ + "........" + Chr$(13)
5891.     m$ = m$ + "........" + Chr$(13)
5892.     m$ = m$ + "........" + Chr$(13)
5893.     m$ = m$ + "........" + Chr$(13)
5894.     arrTileText(250) = m$
5895.  
5896.     m$ = ""
5897.     m$ = m$ + "........" + Chr$(13)
5898.     m$ = m$ + "........" + Chr$(13)
5899.     m$ = m$ + "........" + Chr$(13)
5900.     m$ = m$ + "........" + Chr$(13)
5901.     m$ = m$ + "........" + Chr$(13)
5902.     m$ = m$ + "........" + Chr$(13)
5903.     m$ = m$ + "........" + Chr$(13)
5904.     m$ = m$ + "........" + Chr$(13)
5905.     arrTileText(251) = m$
5906.  
5907.     m$ = ""
5908.     m$ = m$ + "2.2.2.2." + Chr$(13)
5909.     m$ = m$ + ".2.2.2.2" + Chr$(13)
5910.     m$ = m$ + "2.2.2.2." + Chr$(13)
5911.     m$ = m$ + ".2.2.2.2" + Chr$(13)
5912.     m$ = m$ + "2.2.2.2." + Chr$(13)
5913.     m$ = m$ + ".2.2.2.2" + Chr$(13)
5914.     m$ = m$ + "2.2.2.2." + Chr$(13)
5915.     m$ = m$ + ".2.2.2.2" + Chr$(13)
5916.     arrTileText(252) = m$
5917.  
5918.     m$ = ""
5919.     m$ = m$ + "22222222" + Chr$(13)
5920.     m$ = m$ + "2......2" + Chr$(13)
5921.     m$ = m$ + "2......2" + Chr$(13)
5922.     m$ = m$ + "2......2" + Chr$(13)
5923.     m$ = m$ + "2......2" + Chr$(13)
5924.     m$ = m$ + "2......2" + Chr$(13)
5925.     m$ = m$ + "2......2" + Chr$(13)
5926.     m$ = m$ + "22222222" + Chr$(13)
5927.     arrTileText(253) = m$
5928.  
5929.     m$ = ""
5930.     m$ = m$ + "22222222" + Chr$(13)
5931.     m$ = m$ + "22222222" + Chr$(13)
5932.     m$ = m$ + "22222222" + Chr$(13)
5933.     m$ = m$ + "22222222" + Chr$(13)
5934.     m$ = m$ + "22222222" + Chr$(13)
5935.     m$ = m$ + "22222222" + Chr$(13)
5936.     m$ = m$ + "22222222" + Chr$(13)
5937.     m$ = m$ + "22222222" + Chr$(13)
5938.     arrTileText(254) = m$
5939.  
5940.     m$ = ""
5941.     m$ = ""
5942.     m$ = m$ + "22....22" + Chr$(13)
5943.     m$ = m$ + "2..22..2" + Chr$(13)
5944.     m$ = m$ + "2..22..2" + Chr$(13)
5945.     m$ = m$ + "22.....2" + Chr$(13)
5946.     m$ = m$ + "22222..2" + Chr$(13)
5947.     m$ = m$ + "2..22..2" + Chr$(13)
5948.     m$ = m$ + "22....22" + Chr$(13)
5949.     m$ = m$ + "22222222" + Chr$(13)
5950.     arrTileText(255) = m$
5951.  
5952. End Sub ' GetTileText
5953.  
5954. ' ################################################################################################################################################################
5955. ' END TILE DEFINITIONS
5956. ' ################################################################################################################################################################
5957.  
5958. ' ################################################################################################################################################################
5959. ' BEGIN COLOR FUNCTIONS
5960. ' ################################################################################################################################################################
5961. Function cWhite~& ()
5962.     cWhite = _RGB32(255, 255, 255)
5963. End Function ' cWhite~&
5964.  
5965. Function cEmpty~& ()
5966.     cEmpty = _RGB32(0, 0, 0, 0)
5967. End Function ' cEmpty~&
5968.  
5969. Function cBlack~& ()
5970.     cBlack = _RGB32(0, 0, 0)
5971. End Function ' cBlack~&
5972.  
5973. Function cRed~& ()
5974.     cRed = _RGB32(255, 0, 0)
5975. End Function
5976.  
5977. Function cYellow~& ()
5978.     cYellow = _RGB32(255, 255, 0)
5979. End Function ' cYellow~&
5980.  
5981. Function cLime~& ()
5982.     cLime = _RGB32(0, 255, 0)
5983. End Function ' cLime~&
5984.  
5985. Function cCyan~& ()
5986.     cCyan = _RGB32(0, 255, 255)
5987. End Function ' cCyan~&
5988.  
5989. Function cBlue~& ()
5990.     cBlue = _RGB32(0, 0, 255)
5991. End Function ' cBlue~&
5992.  
5993. Function cPurple~& ()
5994.     cPurple = _RGB32(128, 0, 255)
5995. End Function ' cPurple~&
5996.  
5997. Function cMagenta~& ()
5998.     cMagenta = _RGB32(255, 0, 255)
5999. End Function ' cMagenta~&
6000.  
6001. Function cOrange~& ()
6002.     cOrange = _RGB32(255, 165, 0)
6003. End Function ' cOrange~&
6004.  
6005. Function cGray~& ()
6006.     cGray = _RGB32(128, 128, 128)
6007. End Function ' cGray~&
6008. ' ################################################################################################################################################################
6009. ' END COLOR FUNCTIONS
6010. ' ################################################################################################################################################################
6011.  
6012. ' ################################################################################################################################################################
6013. ' BEGIN GENERAL PURPOSE ROUTINES
6014. ' ################################################################################################################################################################
6015.  
6016. ' /////////////////////////////////////////////////////////////////////////////
6017. ' See also StringTo2dArray
6018.  
6019. Function Array2dToString$ (MyArray() As String)
6020.     Dim MyString As String
6021.     Dim iY As Integer
6022.     Dim iX As Integer
6023.     Dim sLine As String
6024.     MyString = ""
6025.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
6026.         sLine = ""
6027.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
6028.             sLine = sLine + MyArray(iY, iX)
6029.         Next iX
6030.         MyString = MyString + sLine + Chr$(13)
6031.     Next iY
6032.     Array2dToString$ = MyString
6033. End Function ' Array2dToString$
6034.  
6035. ' /////////////////////////////////////////////////////////////////////////////
6036.  
6037. 'Function Array2dToStringTest$ (MyArray() As String)
6038. '    Dim MyString As String
6039. '    Dim iY As Integer
6040. '    Dim iX As Integer
6041. '    Dim sLine As String
6042. '    MyString = ""
6043. '    MyString = MyString + "           11111111112222222222333" + Chr$(13)
6044. '    MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
6045. '    For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
6046. '        sLine = ""
6047. '        sLine = sLine + Right$("  " + cstr$(iY), 2)
6048. '        For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
6049. '            sLine = sLine + MyArray(iY, iX)
6050. '        Next iX
6051. '        sLine = sLine + Right$("  " + cstr$(iY), 2)
6052. '        MyString = MyString + sLine + Chr$(13)
6053. '    Next iY
6054. '    MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
6055. '    MyString = MyString + "           11111111112222222222333" + Chr$(13)
6056. '    Array2dToStringTest$ = MyString
6057. 'End Function ' Array2dToStringTest$
6058.  
6059. ' /////////////////////////////////////////////////////////////////////////////
6060.  
6061. Function cstr$ (myValue)
6062.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
6063.     cstr$ = _Trim$(Str$(myValue))
6064. End Function ' cstr$
6065.  
6066. ' /////////////////////////////////////////////////////////////////////////////
6067. ' Simple timestamp function
6068.  
6069. Function CurrentDateTime$
6070.     CurrentDateTime$ = Mid$(Date$, 7, 4) + "-" + _
6071.         Mid$(Date$, 1, 5) + " " + _
6072.         Time$
6073. End Function ' CurrentDateTime$
6074.  
6075. ' /////////////////////////////////////////////////////////////////////////////
6076. ' Receives an {sDelim} delimited list {sInput}
6077. ' returns the list with all duplicate entries removed.
6078.  
6079. Function DedupeDelimList$ (sInput As String, sDelim As String)
6080.     ReDim arrLines(-1) As String
6081.     Dim sOutput As String
6082.     Dim iLoop As Integer
6083.  
6084.     split sInput, sDelim, arrLines()
6085.     sOutput = sDelim
6086.     For iLoop = LBound(arrLines) To UBound(arrLines)
6087.         If InStr(1, sOutput, sDelim + arrLines(iLoop) + sDelim) = 0 Then
6088.             sOutput = sOutput + arrLines(iLoop) + sDelim
6089.         End If
6090.     Next iLoop
6091.  
6092.     DedupeDelimList$ = sOutput
6093. End Function ' DedupeDelimList$
6094.  
6095. ' /////////////////////////////////////////////////////////////////////////////
6096. ' Use with timer functions to avoid "after midnight" bug.
6097.  
6098. ' Re: how to time something (ie do loop for n seconds)
6099. ' https://qb64forum.alephc.xyz/index.php?topic=4682.0
6100.  
6101. ' SMcNeill, QB64 Developer
6102. ' « Reply #1 on: Today at 11:26:52 am »
6103. '
6104. ' One caveat here:  You *can* experience bugs with this after midnight.
6105. '
6106. ' Program starts at 23:59:59.
6107. ' Add three seconds -- 24:00:02...  (In seconds, and not hours and minutes like this, though hours and minutes are easier to visualize.)
6108. ' Clock hits midnight:  0:00:00
6109. '
6110. ' At no point will you ever have TIMER become greater than t#.
6111. '
6112. ' If you're going to have a program which might run into this issue,
6113. ' I'd suggest just plugging in my ExtendedTimer and use it instead:
6114. '
6115. ' Most of us write time code to test little snippets for which method might
6116. ' be faster for us while we're coding.  The clock resetting on us isn't
6117. ' normally such a big deal.  When it is, however, all you have to do is
6118. ' swap to the ExtendedTimer function [below]
6119. '
6120. ' Returns a value for you based off DAY + TIME, rather than just time alone!
6121. ' No midnight clock issues with something like that in our programs.  ;)
6122.  
6123. ' Usage:
6124. '     ' DO SOMETHING FOR 3 SECONDS
6125. '     t# = ExtendedTimer + 3
6126. '     Do
6127. '         '(SOMETHING)
6128. '     Loop Until Timer > t#
6129.  
6130. Function ExtendedTimer##
6131.     d$ = Date$
6132.     l = InStr(d$, "-")
6133.     l1 = InStr(l + 1, d$, "-")
6134.     m = Val(Left$(d$, l))
6135.     d = Val(Mid$(d$, l + 1))
6136.     y = Val(Mid$(d$, l1 + 1)) - 1970
6137.     For i = 1 To m
6138.         Select Case i 'Add the number of days for each previous month passed
6139.             Case 1: d = d 'January doestn't have any carry over days.
6140.             Case 2, 4, 6, 8, 9, 11: d = d + 31
6141.             Case 3: d = d + 28
6142.             Case 5, 7, 10, 12: d = d + 30
6143.         End Select
6144.     Next
6145.     For i = 1 To y
6146.         d = d + 365
6147.     Next
6148.     For i = 2 To y Step 4
6149.         If m > 2 Then d = d + 1 'add an extra day for leap year every 4 years, starting in 1970
6150.     Next
6151.     d = d - 1 'for year 2000
6152.     s~&& = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
6153.     ExtendedTimer## = (s~&& + Timer)
6154. End Function ' ExtendedTimer##
6155.  
6156. ' /////////////////////////////////////////////////////////////////////////////
6157. ' Receives a {sDelimeter} delimited list of numbers {MyString}
6158. ' and splits it up into an integer array arrInteger()
6159. ' beginning at index {iMinIndex}.
6160.  
6161. Sub GetIntegerArrayFromDelimList (MyString As String, sDelimiter As String, iMinIndex As Integer, arrInteger() As Integer)
6162.     ReDim arrString(-1) As String
6163.     Dim CleanString As String
6164.     Dim iLoop As Integer
6165.     Dim iCount As Integer: iCount = iMinIndex - 1
6166.  
6167.     ReDim arrInteger(-1) As Integer
6168.  
6169.     'DebugPrint "GetIntegerArrayFromDelimList " + _
6170.     '    "MyString=" + chr$(34) + MyString + chr$(34) + ", " + _
6171.     '    "sDelimiter=" + chr$(34) + sDelimiter + chr$(34) + ", " + _
6172.     '    "iMinIndex=" + cstr$(iMinIndex) + ", " + _
6173.     '    "arrInteger()"
6174.  
6175.  
6176.     If Len(sDelimiter) > 0 Then
6177.         CleanString = MyString
6178.         If sDelimiter <> " " Then
6179.             CleanString = Replace$(CleanString, " ", "")
6180.         End If
6181.  
6182.         split CleanString, sDelimiter, arrString()
6183.         iCount = iMinIndex - 1
6184.         For iLoop = LBound(arrString) To UBound(arrString)
6185.             If IsNum%(arrString(iLoop)) = TRUE Then
6186.                 iCount = iCount + 1
6187.                 ReDim _Preserve arrInteger(iMinIndex To iCount) As Integer
6188.                 arrInteger(iCount) = Val(arrString(iLoop))
6189.                 'DebugPrint "5633 arrInteger(" + cstr$(iCount) + ") = VAL(arrString(" + cstr$(iLoop) + ")) = " + cstr$(arrInteger(iCount))
6190.  
6191.             End If
6192.         Next iLoop
6193.     Else
6194.         If IsNum%(MyString) = TRUE Then
6195.             ReDim _Preserve arrInteger(iMinIndex To iMinIndex) As Integer
6196.             arrInteger(iMinIndex) = Val(MyString)
6197.         End If
6198.     End If
6199.  
6200.     'CleanString=""
6201.     'for iLoop=lbound(arrInteger) to ubound(arrInteger)
6202.     'CleanString = CleanString + iifstr$(iLoop=lbound(arrInteger), "", ",") + cstr$(arrInteger(iLoop))
6203.     'next iLoop
6204.     'DebugPrint "arrInteger=(" + CleanString + ")"
6205.  
6206. End Sub ' GetIntegerArrayFromDelimList
6207.  
6208. ' /////////////////////////////////////////////////////////////////////////////
6209.  
6210. Function IIF (Condition, IfTrue, IfFalse)
6211.     If Condition Then IIF = IfTrue Else IIF = IfFalse
6212. End Function
6213.  
6214. ' /////////////////////////////////////////////////////////////////////////////
6215.  
6216. Function IIFSTR$ (Condition, IfTrue$, IfFalse$)
6217.     If Condition Then IIFSTR$ = IfTrue$ Else IIFSTR$ = IfFalse$
6218. End Function
6219.  
6220. ' /////////////////////////////////////////////////////////////////////////////
6221. ' By sMcNeill from https://www.qb64.org/forum/index.php?topic=896.0
6222.  
6223. Function IsNum% (text$)
6224.     Dim a$
6225.     Dim b$
6226.     a$ = _Trim$(text$)
6227.     b$ = _Trim$(Str$(Val(text$)))
6228.     If a$ = b$ Then
6229.         IsNum% = TRUE
6230.     Else
6231.         IsNum% = FALSE
6232.     End If
6233. End Function ' IsNum%
6234.  
6235. ' /////////////////////////////////////////////////////////////////////////////
6236. ' Does a _PrintString at the specified row+column.
6237.  
6238. ' iRow and iCol are 0-based.
6239.  
6240. Sub PrintString (iRow As Integer, iCol As Integer, MyString As String)
6241.     Dim iX As Integer
6242.     Dim iY As Integer
6243.     iX = _FontWidth * iCol
6244.     iY = _FontHeight * iRow ' (iRow + 1)
6245.     _PrintString (iX, iY), MyString
6246. End Sub ' PrintString
6247.  
6248. ' /////////////////////////////////////////////////////////////////////////////
6249. ' Does a _PrintString at the specified row+column.
6250.  
6251. ' iRow and iCol are 1-based.
6252.  
6253. Sub PrintString1 (iRow As Integer, iCol As Integer, MyString As String)
6254.     Dim iX As Integer
6255.     Dim iY As Integer
6256.     iX = _FontWidth * (iCol - 1)
6257.     iY = _FontHeight * (iRow - 1)
6258.     _PrintString (iX, iY), MyString
6259. End Sub ' PrintString1
6260.  
6261. ' /////////////////////////////////////////////////////////////////////////////
6262. ' FROM: String Manipulation
6263. ' found at abandoned, outdated and now likely malicious qb64 dot net website
6264. ' http://www.qb64.[net]/forum/index_topic_5964-0/
6265. '
6266. 'SUMMARY:
6267. '   Purpose:  A library of custom functions that transform strings.
6268. '   Author:   Dustinian Camburides (dustinian@gmail.com)
6269. '   Platform: QB64 (www.qb64.org)
6270. '   Revision: 1.6
6271. '   Updated:  5/28/2012
6272.  
6273. 'SUMMARY:
6274. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
6275. 'INPUT:
6276. 'Text: The input string; the text that's being manipulated.
6277. 'Find: The specified sub-string; the string sought within the [Text] string.
6278. 'Add: The sub-string that's being added to the [Text] string.
6279.  
6280. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
6281.     ' VARIABLES:
6282.     Dim Text2 As String
6283.     Dim Find2 As String
6284.     Dim Add2 As String
6285.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
6286.     Dim strBefore As String ' The characters before the string to be replaced.
6287.     Dim strAfter As String ' The characters after the string to be replaced.
6288.  
6289.     ' INITIALIZE:
6290.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
6291.     Text2 = Text1
6292.     Find2 = Find1
6293.     Add2 = Add1
6294.  
6295.     lngLocation = InStr(1, Text2, Find2)
6296.  
6297.     ' PROCESSING:
6298.     ' While [Find2] appears in [Text2]...
6299.     While lngLocation
6300.         ' Extract all Text2 before the [Find2] substring:
6301.         strBefore = Left$(Text2, lngLocation - 1)
6302.  
6303.         ' Extract all text after the [Find2] substring:
6304.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
6305.  
6306.         ' Return the substring:
6307.         Text2 = strBefore + Add2 + strAfter
6308.  
6309.         ' Locate the next instance of [Find2]:
6310.         lngLocation = InStr(1, Text2, Find2)
6311.  
6312.         ' Next instance of [Find2]...
6313.     Wend
6314.  
6315.     ' OUTPUT:
6316.     Replace$ = Text2
6317. End Function ' Replace$
6318.  
6319. ' /////////////////////////////////////////////////////////////////////////////
6320. ' Split and join strings
6321. ' https://www.qb64.org/forum/index.php?topic=1073.0
6322. '
6323. ' FROM luke, QB64 Developer
6324. ' Date: February 15, 2019, 04:11:07 AM
6325. '
6326. ' Given a string of words separated by spaces (or any other character),
6327. ' splits it into an array of the words. I've no doubt many people have
6328. ' written a version of this over the years and no doubt there's a million
6329. ' ways to do it, but I thought I'd put mine here so we have at least one
6330. ' version. There's also a join function that does the opposite
6331. ' array -> single string.
6332. '
6333. ' Code is hopefully reasonably self explanatory with comments and a little demo.
6334. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
6335.  
6336. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
6337. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
6338. '
6339. 'delimiter$ must be one character long.
6340. 'result$() must have been REDIMmed previously.
6341.  
6342. ' Modified to handle multi-character delimiters
6343.  
6344. Sub split (in$, delimiter$, result$())
6345.     Dim start As Integer
6346.     Dim finish As Integer
6347.     Dim iDelimLen As Integer
6348.     ReDim result$(-1)
6349.  
6350.     iDelimLen = Len(delimiter$)
6351.  
6352.     start = 1
6353.     Do
6354.         'While Mid$(in$, start, 1) = delimiter$
6355.         While Mid$(in$, start, iDelimLen) = delimiter$
6356.             'start = start + 1
6357.             start = start + iDelimLen
6358.             If start > Len(in$) Then
6359.                 Exit Sub
6360.             End If
6361.         Wend
6362.         finish = InStr(start, in$, delimiter$)
6363.         If finish = 0 Then
6364.             finish = Len(in$) + 1
6365.         End If
6366.  
6367.         ReDim _Preserve result$(0 To UBound(result$) + 1)
6368.  
6369.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
6370.         start = finish + 1
6371.     Loop While start <= Len(in$)
6372. End Sub ' split
6373.  
6374. ' /////////////////////////////////////////////////////////////////////////////
6375. ' Converts a chr$(13) delimited string
6376. ' into a 2-dimensional array.
6377.  
6378. ' Usage:
6379. ' Dim StringArray(1 To 48, 1 To 128) As String
6380. ' StringTo2dArray StringArray(), GetMap$
6381.  
6382. ' Version 2 with indexed array(row, columm)
6383. ' Renamed StringToArray to StringTo2dArray.
6384.  
6385. ' See also: Array2dToString$
6386.  
6387. Sub StringTo2dArray (MyArray() As String, MyString As String)
6388.     Dim sDelim As String
6389.     ReDim arrLines(0) As String
6390.     Dim iRow As Integer
6391.     Dim iCol As Integer
6392.     Dim sChar As String
6393.     Dim iDim1 As Integer
6394.     Dim iDim2 As Integer
6395.     Dim iIndex1 As Integer
6396.     Dim iIndex2 As Integer
6397.  
6398.     iDim1 = LBound(MyArray, 1)
6399.     iDim2 = LBound(MyArray, 2)
6400.     sDelim = Chr$(13)
6401.     split MyString, sDelim, arrLines()
6402.     For iRow = LBound(arrLines) To UBound(arrLines)
6403.         If iRow <= UBound(MyArray, 1) Then
6404.             For iCol = 1 To Len(arrLines(iRow))
6405.                 If iCol <= UBound(MyArray, 2) Then
6406.                     sChar = Mid$(arrLines(iRow), iCol, 1)
6407.  
6408.                     If Len(sChar) > 1 Then
6409.                         sChar = Left$(sChar, 1)
6410.                     Else
6411.                         If Len(sChar) = 0 Then
6412.                             sChar = "."
6413.                         End If
6414.                     End If
6415.  
6416.                     iIndex1 = iRow + iDim1
6417.                     iIndex2 = (iCol - 1) + iDim2
6418.                     MyArray(iIndex1, iIndex2) = sChar
6419.                     'DebugPrint "MyArray(" + cstr$(iIndex1) + ", " + cstr$(iIndex2) + " = " + chr$(34) + sChar + chr$(34)
6420.                 Else
6421.                     ' Exit if out of bounds
6422.                     Exit For
6423.                 End If
6424.             Next iCol
6425.         Else
6426.             ' Exit if out of bounds
6427.             Exit For
6428.         End If
6429.     Next iRow
6430. End Sub ' StringTo2dArray
6431.  
6432. ' /////////////////////////////////////////////////////////////////////////////
6433.  
6434. Function TrueFalse$ (myValue)
6435.     If myValue = TRUE Then
6436.         TrueFalse$ = "TRUE"
6437.     Else
6438.         TrueFalse$ = "FALSE"
6439.     End If
6440. End Function ' TrueFalse$
6441.  
6442. ' ################################################################################################################################################################
6443. ' END GENERAL PURPOSE ROUTINES
6444. ' ################################################################################################################################################################
6445.  
6446. ' ################################################################################################################################################################
6447. ' BEGIN HARDWARE IMAGES DEMO #2 (WORKS)
6448. ' ################################################################################################################################################################
6449.  
6450. ' /////////////////////////////////////////////////////////////////////////////
6451. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
6452. ' https://qb64forum.alephc.xyz/index.php?topic=4674.0
6453.  
6454. ' madscijr
6455. ' « Reply #5 on: Yesterday at 09:46:53 pm »
6456.  
6457. ' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
6458. ' Hardware images basically get their speed by being a sort of "Write Only"
6459. ' method for images. You can make them, you can put them on the screen,
6460. ' but you can't edit them or read information back from them.
6461. ' ...
6462. ' 2) You don't have to specify where they show up as a destination with putimage.
6463. ' ...
6464. ' If you have any specific questions, feel free to ask them and I'll do my
6465. ' best to answer for you, if I can.  ;)
6466. '
6467. ' Thanks for taking the time to explain all that. When I'm back at the PC,
6468. ' I'll try out your example.
6469. '
6470. ' For now, just one question: if you can't read information from them or even
6471. ' specify where on the destination they go, how are they even useful?
6472. ' Maybe it will click when I run your example or read up on it, but I just
6473. ' don't see what the use of an image would be if you can't control where on
6474. ' the screen it is drawn? Or how it would help speed up drawing a map of
6475. ' colored tiles to the screen.
6476. '
6477. ' Thanks again...
6478.  
6479. ' SMcNeill, QB64 Developer
6480. ' « Reply #6 on: Today at 01:14:28 am »
6481. '
6482. ' Try this out and see if it doesn't help answer your questions:
6483.  
6484. Sub HardwareImageDemo2
6485.     $Color:32
6486.     Display = _NewImage(1024, 720, 32)
6487.     Software = _NewImage(1024, 720, 32)
6488.  
6489.     Screen Display
6490.     Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
6491.     Print "Press <ANY KEY> to view this screen."
6492.     Sleep
6493.  
6494.     _Dest Software
6495.     For y = 0 To 720 Step 40
6496.         For x = 0 To 1024 Step 40
6497.             Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
6498.         Next
6499.     Next
6500.  
6501.     _Dest Display
6502.     _PutImage , Software
6503.     Print
6504.     Print "As you can see, this is a simple software screen."
6505.     Print "Now, I'm going to copy that software screen and make it a hardware screen."
6506.     Print "Press <ANY KEY> for me to do so!"
6507.     Sleep
6508.  
6509.     Hardware = _CopyImage(Software, 33)
6510.     Cls
6511.     Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
6512.     Print
6513.     Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
6514.     Print
6515.     Print "First, the software screen!  Press <ANY KEY> to continue."
6516.     Sleep
6517.  
6518.     _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
6519.     Print: Print: Print: Print: Print: Print: Print
6520.     Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
6521.     Print
6522.     Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
6523.     Sleep: _KeyClear
6524.  
6525.     _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
6526.     Print
6527.     Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
6528.     Print
6529.     Print "Doesn't really seem to be very different at all, now does it?"
6530.     Print
6531.     Print "Press <ANY KEY> to continue."
6532.     _Display
6533.     Sleep
6534.  
6535.     _AutoDisplay
6536.     Print
6537.     Color Red
6538.     Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
6539.     Color White
6540.     Print
6541.     Print "It's no longer on the screen, as it was previously.  Why??"
6542.     Print
6543.     Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
6544.     Print
6545.     Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
6546.     Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
6547.     Print
6548.     Print "If we want one to remain on the screen, we have to do it either by:"
6549.     Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
6550.     Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
6551.     Print
6552.     Print "Press <ANY KEY> to continue."
6553.     Sleep
6554.  
6555.     Cls
6556.     Print
6557.     Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
6558.     Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
6559.     Print
6560.     Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
6561.     Print "Press <ANY KEY> to find out!"
6562.     Sleep
6563.  
6564.     't# = ExtendedTimer + 3
6565.     t# = Timer + 3
6566.     Do
6567.         count = count + 1
6568.         _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
6569.         x = x + 40
6570.         If x > 1024 Then x = 0: y = y + 40
6571.         If y > 720 Then x = 0: y = 0
6572.         _Display
6573.     Loop Until Timer > t#
6574.     _AutoDisplay
6575.  
6576.     Print: Print: Print: Print: Print: Print: Print: Print
6577.     Print "See lots of flashing tiles on the screen for the last three seconds?"
6578.     Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
6579.     Print
6580.     Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
6581.     Sleep
6582.  
6583.     count = 0: x = 0: y = 0
6584.     t# = Timer + 3
6585.     tempScreen = _CopyImage(Display, 33)
6586.     _DisplayOrder _Hardware
6587.     Do
6588.         count = count + 1
6589.         _PutImage , tempScreen
6590.         _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
6591.         x = x + 40
6592.         If x > 1024 Then x = 0: y = y + 40
6593.         If y > 720 Then x = 0: y = 0
6594.         _Display
6595.     Loop Until Timer > t#
6596.  
6597.     _FreeImage tempScreen
6598.     _AutoDisplay
6599.     _DisplayOrder _Hardware , _Software
6600.     Print
6601.     Print "Didn't seem very different at the rate of which we were running things, now did it?"
6602.     Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
6603.     Print
6604.     Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
6605.     Print "complete copy of the original software screen as well!"
6606.     Print
6607.     Print "The reason why I did this?"
6608.     Print
6609.     Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
6610.     Print
6611.     Print "Press <ANY KEY> to continue"
6612.     Sleep
6613.  
6614.     Cls
6615.     Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
6616.     Print
6617.     Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
6618.     Print "To start with, I'm going to do this in a LOOP with the software images."
6619.     Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
6620.     Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
6621.  
6622.     Do
6623.         _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
6624.         x = x + 40
6625.         If x > 1024 Then x = 0: y = y + 40
6626.         If y > 720 Then x = 0: y = 0
6627.         _Limit 60
6628.         _Display
6629.     Loop Until _KeyDown(27)
6630.  
6631.     Cls , 0
6632.     Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
6633.     tempImage = _CopyImage(Display, 33)
6634.     x = 0: y = 0
6635.     _DisplayOrder _Hardware
6636.     Do
6637.         _PutImage , tempImage
6638.         _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
6639.         x = x + 40
6640.         If x > 1024 Then x = 0: y = y + 40
6641.         If y > 720 Then x = 0: y = 0
6642.         _Limit 60
6643.         _Display
6644.     Loop Until _KeyDown(32)
6645.  
6646.     _DisplayOrder _Software , _Hardware
6647.     _AutoDisplay
6648.     Cls
6649.     Print "On my laptop, these two methods use the following amounts of CPU power:"
6650.     Print "Software, 60 FPS -- 3% CPU"
6651.     Print "Hardware, 60 FPS -- 0.1% CPU"
6652.     Print
6653.     Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
6654.     Print "Software, 600 FPS -- 10.3% CPU"
6655.     Print "Hardware, 600 FPS -- 0.1% CPU"
6656.     Print
6657.     Print
6658.     Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
6659.     Print
6660.     Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
6661.     Print
6662.     Print
6663.     Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
6664.     Print "to their own hardware layer, which you can specify to go on below or above your software screen."
6665.     Print
6666.     Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
6667.     Print
6668.     Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
6669.     Print
6670.     Print
6671.     Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
6672. End Sub ' HardwareImageDemo2
6673.  
6674. ' ################################################################################################################################################################
6675. ' END HARDWARE IMAGES DEMO #2 (WORKS)
6676. ' ################################################################################################################################################################
6677.  
6678. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6679. ' BEGIN DEBUGGING ROUTINES #DEBUGGING
6680. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6681.  
6682. Sub DebugPrint (MyString As String)
6683.     If m_bDebug = TRUE Then
6684.         '_Echo MyString
6685.  
6686.         ReDim arrLines(-1) As String
6687.         Dim iLoop As Integer
6688.         split MyString, Chr$(13), arrLines()
6689.         For iLoop = LBound(arrLines) To UBound(arrLines)
6690.             _Echo arrLines(iLoop)
6691.         Next iLoop
6692.     End If
6693. End Sub ' DebugPrint
6694.  
6695. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6696. ' END DEBUGGING ROUTINES @DEBUGGING
6697. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
6698.  
6699. ' ################################################################################################################################################################
6700. ' BEGIN MENU HELPER ROUTINES
6701. ' ################################################################################################################################################################
6702.  
6703. ' /////////////////////////////////////////////////////////////////////////////
6704.  
6705. Sub ShowInstructions (in$)
6706.     Dim iLoop As Integer
6707.     Dim iCount As Integer: iCount = 0
6708.     Dim iRows As Integer: iRows = _Height(0) '\ _FontHeight ' GET # OF AVAILABLE TEXT ROWS
6709.     ReDim arrLines(-1) As String
6710.     Cls
6711.     split in$, Chr$(13), arrLines() ' SPLIT OUTPUT INTO LINES
6712.     For iLoop = LBound(arrLines) To UBound(arrLines)
6713.         Print arrLines(iLoop)
6714.         iCount = iCount + 1
6715.         If iCount > (iRows - 5) Then
6716.             'INPUT "PRESS <ENTER> TO CONTINUE"; in$
6717.             Sleep
6718.             iCount = 0
6719.         End If
6720.     Next iLoop
6721.     Print
6722.     Input "PRESS <ENTER> TO CONTINUE"; in$
6723. End Sub ' ShowInstructions
6724.  
6725. ' ################################################################################################################################################################
6726. ' END MENU HELPER ROUTINES
6727. ' ################################################################################################################################################################
6728.  
6729.  
6730. ' ################################################################################################################################################################
6731. ' BEGIN Steve's very different custom screen
6732. ' ################################################################################################################################################################
6733.  
6734. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
6735. ' https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904
6736.  
6737. ' SMcNeill, QB64 Developer
6738. ' Reply #18 on: Yesterday at 05:08:58 pm
6739. '
6740. ' One thing that would be *very* different with all hardware images vs what
6741. ' you're doing currently, is the fact that you have to remember:
6742. ' Hardware images display once and then flush themselves from the GPU buffer.
6743. '
6744. ' You can't just print to a tile, and then read the information for the color of
6745. ' that tile, and instantly turn that color into another one.  You have write
6746. ' access to hardware images, but not read access -- and the images aren't
6747. ' persistent like the software images are.
6748. '
6749. ' For something like this to work for a whole screen in hardware image mode,
6750. ' you'd have to sort out some sort of way to store your screen's info and then
6751. ' constantly redraw everything over and over again to keep it refreshed on the
6752. ' display.
6753. '
6754. ' The way I'd go about doing something like this would be to make myself a
6755. ' custom SCREEN 0-style memory array.  Screen 0 stores all our information for
6756. ' each character in 2 bytes -- one for color, one for character.  I'd basically
6757. ' do the same, but with 3 bytes -- one for tile color, one for font color, one
6758. ' for character.
6759. '
6760. ' Let me toss a simple demo of this line of thinking for you:
6761. ' (TestCustomHardwareScreen1)
6762. '
6763. ' I tried to comment the heck out of the code to help explain what it's doing
6764. ' from line to line, so I hope this isn't too hard to sort out and understand.
6765. '
6766. ' The beginning is nothing more than initializing things and making 2 different
6767. ' sprite sheets that I'll make use of later -- one for the tiles and one for the
6768. ' characters.
6769. '
6770. ' Then there's the mid section where you can SLEEP step through and view the
6771. ' various resource sheets.
6772. '
6773. ' Then an example of all the characters in a cyan font, resting atop a red tile.
6774. ' (You have to hit ENTER to move on from this screen.)
6775. '
6776. ' Then an example of all those tiles that go under the characters being replaced
6777. ' with sequential colored tiles.  (A lot of these tiles are simply BLACK, but
6778. ' that's the nature of the 256 color palette as those multiple blacks are there
6779. ' to be replaced with custom color values instead.)
6780. '
6781. ' Once more, you'll have to hit ENTER to continue.
6782. '
6783. ' And then I do a quick time loop to count how many times we can redraw the whole
6784. ' screen of tiles + characters in 3 seconds.
6785. '
6786. ' For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of
6787. ' about 1800 refreshes in that time.  That's around 600 FPS, which would be more
6788. ' than enough for any sort of game display or use that I think I could come up
6789. ' with, and that's without me trying to optimize math or any such things to
6790. ' reduce calculations and speed the process up any more.  (Keep in mind, this is
6791. ' 1800 full pages of a 800x600 screen -- if your screen has a lower overall
6792. ' resolution, then you'd draw more loops with less to process, but a higher
6793. ' resolution screen would draw fewer loops with more to process.)
6794. '
6795. ' No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page
6796. ' of tiles and colored characters.  (And, YES, it is a whole page being rendered
6797. ' repeatedly -- even if I didn't bother to fill in the vast majority of that page
6798. ' with anything more than black tiles, black fonts, and chr$(0) blank spaces...)
6799. '
6800. ' It's a completely different approach to displaying stuff than what you've been
6801. ' doing, but it seems as if what you've been doing isn't working as it must be
6802. ' running too slow for you.  You wouldn't be able to use the normal PRINT
6803. ' statements to display to the faux screen memory array I've created; you'd have
6804. ' to write your own.
6805. '
6806. ' For a quick speed comparison, here's the same type process ran using PRINT
6807. ' and a software screen of the same size:
6808. ' (TestSoftwareScreen1)
6809.  
6810. ' /////////////////////////////////////////////////////////////////////////////
6811.  
6812. Function GetInstructions1$
6813.     Dim in$
6814.     in$ = ""
6815.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + Chr$(13)
6816.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + Chr$(13)
6817.     in$ = in$ + " " + Chr$(13)
6818.     in$ = in$ + "SMcNeill, QB64 Developer" + Chr$(13)
6819.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + Chr$(13)
6820.     in$ = in$ + " " + Chr$(13)
6821.     in$ = in$ + "One thing that would be *very* different with all hardware images vs what " + Chr$(13)
6822.     in$ = in$ + "you're doing currently, is the fact that you have to remember:  " + Chr$(13)
6823.     in$ = in$ + "Hardware images display once and then flush themselves from the GPU buffer. " + Chr$(13)
6824.     in$ = in$ + " " + Chr$(13)
6825.     in$ = in$ + "You can't just print to a tile, and then read the information for the color of " + Chr$(13)
6826.     in$ = in$ + "that tile, and instantly turn that color into another one.  You have write " + Chr$(13)
6827.     in$ = in$ + "access to hardware images, but not read access -- and the images aren't " + Chr$(13)
6828.     in$ = in$ + "persistent like the software images are." + Chr$(13)
6829.     in$ = in$ + " " + Chr$(13)
6830.     in$ = in$ + "For something like this to work for a whole screen in hardware image mode, " + Chr$(13)
6831.     in$ = in$ + "you'd have to sort out some sort of way to store your screen's info and then " + Chr$(13)
6832.     in$ = in$ + "constantly redraw everything over and over again to keep it refreshed on the " + Chr$(13)
6833.     in$ = in$ + "display." + Chr$(13)
6834.     in$ = in$ + " " + Chr$(13)
6835.     in$ = in$ + "The way I'd go about doing something like this would be to make myself a " + Chr$(13)
6836.     in$ = in$ + "custom SCREEN 0-style memory array.  Screen 0 stores all our information for " + Chr$(13)
6837.     in$ = in$ + "each character in 2 bytes -- one for color, one for character.  I'd basically " + Chr$(13)
6838.     in$ = in$ + "do the same, but with 3 bytes -- one for tile color, one for font color, one " + Chr$(13)
6839.     in$ = in$ + "for character." + Chr$(13)
6840.     in$ = in$ + " " + Chr$(13)
6841.     in$ = in$ + "Let me toss a simple demo of this line of thinking for you:" + Chr$(13)
6842.     in$ = in$ + " " + Chr$(13)
6843.     in$ = in$ + "I tried to comment the heck out of the code to help explain what it's doing " + Chr$(13)
6844.     in$ = in$ + "from line to line, so I hope this isn't too hard to sort out and understand." + Chr$(13)
6845.     in$ = in$ + " " + Chr$(13)
6846.     in$ = in$ + "The beginning is nothing more than initializing things and making 2 different " + Chr$(13)
6847.     in$ = in$ + "sprite sheets that I'll make use of later -- one for the tiles and one for the " + Chr$(13)
6848.     in$ = in$ + "characters." + Chr$(13)
6849.     in$ = in$ + " " + Chr$(13)
6850.     in$ = in$ + "Then there's the mid section where you can SLEEP step through and view the " + Chr$(13)
6851.     in$ = in$ + "various resource sheets." + Chr$(13)
6852.     in$ = in$ + " " + Chr$(13)
6853.     in$ = in$ + "Then an example of all the characters in a cyan font, resting atop a red tile.  " + Chr$(13)
6854.     in$ = in$ + "(You have to hit ENTER to move on from this screen.)" + Chr$(13)
6855.     in$ = in$ + " " + Chr$(13)
6856.     in$ = in$ + "Then an example of all those tiles that go under the characters being replaced " + Chr$(13)
6857.     in$ = in$ + "with sequential colored tiles.  (A lot of these tiles are simply BLACK, but " + Chr$(13)
6858.     in$ = in$ + "that's the nature of the 256 color palette as those multiple blacks are there " + Chr$(13)
6859.     in$ = in$ + "to be replaced with custom color values instead.)" + Chr$(13)
6860.     in$ = in$ + " " + Chr$(13)
6861.     in$ = in$ + "Once more, you'll have to hit ENTER to continue." + Chr$(13)
6862.     in$ = in$ + " " + Chr$(13)
6863.     in$ = in$ + "And then I do a quick time loop to count how many times we can redraw the whole " + Chr$(13)
6864.     in$ = in$ + "screen of tiles + characters in 3 seconds." + Chr$(13)
6865.     in$ = in$ + " " + Chr$(13)
6866.     in$ = in$ + "For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of " + Chr$(13)
6867.     in$ = in$ + "about 1800 refreshes in that time.  That's around 600 FPS, which would be more " + Chr$(13)
6868.     in$ = in$ + "than enough for any sort of game display or use that I think I could come up " + Chr$(13)
6869.     in$ = in$ + "with, and that's without me trying to optimize math or any such things to " + Chr$(13)
6870.     in$ = in$ + "reduce calculations and speed the process up any more.  (Keep in mind, this is " + Chr$(13)
6871.     in$ = in$ + "1800 full pages of a 800x600 screen -- if your screen has a lower overall " + Chr$(13)
6872.     in$ = in$ + "resolution, then you'd draw more loops with less to process, but a higher " + Chr$(13)
6873.     in$ = in$ + "resolution screen would draw fewer loops with more to process.)" + Chr$(13)
6874.     in$ = in$ + " " + Chr$(13)
6875.     in$ = in$ + "No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page " + Chr$(13)
6876.     in$ = in$ + "of tiles and colored characters.  (And, YES, it is a whole page being rendered " + Chr$(13)
6877.     in$ = in$ + "repeatedly -- even if I didn't bother to fill in the vast majority of that page " + Chr$(13)
6878.     in$ = in$ + "with anything more than black tiles, black fonts, and chr$(0) blank spaces...)" + Chr$(13)
6879.     in$ = in$ + " " + Chr$(13)
6880.     in$ = in$ + "It's a completely different approach to displaying stuff than what you've been " + Chr$(13)
6881.     in$ = in$ + "doing, but it seems as if what you've been doing isn't working as it must be " + Chr$(13)
6882.     in$ = in$ + "running too slow for you.  You wouldn't be able to use the normal PRINT " + Chr$(13)
6883.     in$ = in$ + "statements to display to the faux screen memory array I've created; you'd have " + Chr$(13)
6884.     in$ = in$ + "to write your own." + Chr$(13)
6885.     GetInstructions1$ = in$
6886. End Function ' GetInstructions1$
6887.  
6888. ' /////////////////////////////////////////////////////////////////////////////
6889.  
6890. Function GetInstructions2$
6891.     Dim in$
6892.     in$ = ""
6893.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + Chr$(13)
6894.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + Chr$(13)
6895.     in$ = in$ + " " + Chr$(13)
6896.     in$ = in$ + "SMcNeill, QB64 Developer" + Chr$(13)
6897.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + Chr$(13)
6898.     in$ = in$ + " " + Chr$(13)
6899.     in$ = in$ + "For a quick speed comparison, here's the same type process ran using PRINT " + Chr$(13)
6900.     in$ = in$ + "and a software screen of the same size:" + Chr$(13)
6901.     GetInstructions2$ = in$
6902. End Function ' GetInstructions2$
6903.  
6904. ' ################################################################################################################################################################
6905.  
6906. ' /////////////////////////////////////////////////////////////////////////////
6907.  
6908. Sub TestCustomHardwareScreen1
6909.     Dim in$
6910.     Cls
6911.     Print "Custom hardware screen test. Press <ENTER> to proceed through each step."
6912.     Input "PRESS <ENTER> TO START"; in$
6913.  
6914.     Randomize Timer
6915.  
6916.     Display = _NewImage(800, 600, 32) 'my main screenwich is 100 by 75 characters with 8x8 font.
6917.     Tile = _NewImage(8 * 256, 8, 32) '8x8 tiles in 256 colors
6918.     Font = _NewImage(8 * 256, 8 * 256, 32) '256 characters of an 8x8 font, in all 256 possible colors.
6919.  
6920.     Screen Display 'Set the main screen for starters so it'll go ahead and create itself properly while I'm working on making my tiles and fonts
6921.  
6922.     Dim As _Unsigned Long Kolors(255) 'an array to hold all my color values
6923.     tempScreen256 = _NewImage(10, 10, 256) 'very tiny 256 color screen, just to borrow the palette from
6924.     For i = 0 To 255 '40 colors
6925.         Kolors(i) = _RGB32(_Red(i, tempScreen256), _Green(i, tempScreen256), _Blue(i, tempScreen256)) 'since I don't know your color palette, I'll just copy the QB64 256 color palette.  ;)
6926.     Next
6927.     _FreeImage tempScreen256 'free up all images once done with them
6928.  
6929.     _Dest Tile 'Create my software tiles of 256 colors
6930.     For i = 0 To 255 '256 tiles, one for each color
6931.         Line (i * 8, 0)-Step(8, 8), Kolors(i), BF 'all drawn sequentially onto a sprite sheet
6932.     Next
6933.  
6934.     _Dest Font
6935.     _Font 8 'I'm just going to use the built in QB64 8x8 font for quick and easy sheet creation.
6936.     For k = 0 To 255 '256 colors
6937.         Color Kolors(k), 0 'make our font the proper color
6938.         For c = 0 To 255 '256 characters
6939.             _PrintString (c * 8, k * 8), Chr$(c) 'print the characters row by row to the screen
6940.         Next
6941.     Next
6942.     _Dest Display
6943.  
6944.     Sleep 'View the blank screen  until a key is hit
6945.     Screen Tile 'View the tiles
6946.     Sleep 'until a key is hit
6947.     Screen Font 'view the fonts
6948.     Sleep 'until a key is hit
6949.     Screen Display 'and back to the normal blank screen
6950.     _Delay .2 'time to remove finger from key
6951.     'Dim Shared As Long TileHw, FontHw
6952.  
6953.     TileHw = _CopyImage(Tile, 33) 'hardware copy of the tile image
6954.     FontHw = _CopyImage(Font, 33) 'hardware copy of the font image
6955.  
6956.     _FreeImage Tile 'free unused images when done with them
6957.     _FreeImage Font 'free unused images when done with them
6958.  
6959.     _DisplayOrder _Hardware 'From this point onwards, I'm *ONLY* going to use my hardware layer
6960.  
6961.     'Dim Shared ScreenArray(99, 74) As _Unsigned Long 'Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
6962.  
6963.     'To start with, let's put all 256 chracters on the screen, on a color 40 tile (red), in a color 3 font (cyan)
6964.     For i = 0 To 255
6965.         x = x + 1: If x > 99 Then x = 0: y = y + 1
6966.         ScreenArray(x, y) = SetAll(40, 3, i) '40 tile color, 3 font color, i is the character
6967.     Next
6968.  
6969.     Do 'And then let's show these results on the screen.  Take a moment to open task manager and see how little resources we're using here.
6970.         ScreenRender 'Draw a whole screen full of these tiles + characters
6971.         _Limit 30
6972.     Loop Until _KeyDown(13) 'until we hit ENTER
6973.  
6974.     _Delay .2 'time to lift up the key so we don't instantly blow past the next loop
6975.  
6976.     x = 0: y = 0
6977.     For i = 0 To 255 'and here I'm going to set all these tiles to have incremental background tile colors
6978.         x = x + 1: If x > 99 Then x = 0: y = y + 1 'from left to right, top to bottom
6979.         SetArrayTile x, y, i 'set each tile to become an ever increasing color value
6980.     Next
6981.  
6982.     Do 'And then let's show these results on the screen.
6983.         ScreenRender 'Draw a whole screen full of these tiles + characters
6984.         _Limit 30
6985.     Loop Until _KeyDown(13) 'until we hit ENTER
6986.  
6987.     'And to finish up, let's do a quick count of how many loops per second we *could* process, with the whole screen being redrawn over and over like this
6988.     t## = Timer + 3
6989.     Do
6990.         count& = count& + 1
6991.         ScreenRender
6992.     Loop Until Timer > t##
6993.  
6994.     _DisplayOrder _Software
6995.  
6996.     _AutoDisplay
6997.  
6998.     _KeyClear: _Delay 1
6999.     Screen 0: Cls
7000.     Print "Whole screen rendering of color tile + color font = "; count&; " times in 3 seconds."
7001.  
7002.     Print
7003.     Input "PRESS <ENTER> TO CONTINUE"; in$
7004.  
7005. End Sub ' TestCustomHardwareScreen1
7006.  
7007. ' /////////////////////////////////////////////////////////////////////////////
7008.  
7009. Sub ScreenRender
7010.     Dim As _Unsigned Long tileColor, fontColor, character
7011.     For x = 0 To 99
7012.         For y = 0 To 74
7013.             tileColor = ScreenArray(x, y) \ (256 * 256)
7014.             fontColor = (ScreenArray(x, y) - tileColor * 256 * 256) \ 256
7015.             character = ScreenArray(x, y) Mod 256
7016.             _PutImage (x * 8, y * 8)-Step(7, 7), TileHw, , (tileColor * 8, 0)-Step(7, 7)
7017.             _PutImage (x * 8, y * 8)-Step(7, 7), FontHw, , (character * 8, fontColor * 8)-Step(7, 7)
7018.         Next
7019.     Next
7020.     _Display
7021. End Sub ' ScreenRender
7022.  
7023. ' /////////////////////////////////////////////////////////////////////////////
7024.  
7025. Function SetAll&& (tile, fontcolor, character)
7026.     SetAll&& = tile * 256 * 256 + fontcolor * 256 + character
7027. End Function ' SetAll&&
7028.  
7029. ' /////////////////////////////////////////////////////////////////////////////
7030.  
7031. Sub SetArrayTile (x, y, newTileColor)
7032.     temp&& = ScreenArray(x, y)
7033.     oldTile&& = temp&& \ (256 * 256)
7034.     ScreenArray(x, y) = temp&& - oldTile&& + newTileColor * 256 * 256
7035. End Sub ' SetArrayTile
7036.  
7037. ' /////////////////////////////////////////////////////////////////////////////
7038.  
7039. Sub SetArrayFontColor (x, y, newFontColor)
7040.     temp&& = ScreenArray(x, y)
7041.     oldTile&& = temp&& \ (256 * 256)
7042.     oldFont&& = (temp&& - oldTile&&) \ 256
7043.     ScreenArray(x, y) = temp&& - oldFont&& + newFontColor * 256
7044. End Sub ' SetArrayFontColor
7045.  
7046. ' /////////////////////////////////////////////////////////////////////////////
7047.  
7048. Sub SetArrayCharacter (x, y, newCharacter)
7049.     temp&& = ScreenArray(x, y)
7050.     oldCharacter&& = temp&& Mod 256
7051.     ScreenArray(x, y) = temp&& - oldCharacter&& + newCharacter
7052. End Sub ' SetArrayCharacter
7053.  
7054. ' /////////////////////////////////////////////////////////////////////////////
7055.  
7056. Sub TestSoftwareScreen1
7057.     Dim in$
7058.  
7059.     Screen _NewImage(800, 600, 32)
7060.     _ControlChr Off
7061.  
7062.     t## = Timer + 3
7063.     _Font 8
7064.     Do
7065.         count = count + 1
7066.         For x = 1 To 100
7067.             For y = 1 To 75
7068.                 c = (c + 1) Mod 256
7069.                 Color _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)
7070.                 Locate y, x: Print Chr$(c);
7071.             Next
7072.         Next
7073.     Loop Until Timer > t##
7074.  
7075.     _KeyClear: _Delay 1
7076.     Screen 0: Cls
7077.     Print count; "total screen replacements in 3 seconds."
7078.     Print
7079.     Input "PRESS <ENTER> TO CONTINUE"; in$
7080. End Sub ' TestSoftwareScreen1
7081.  
7082. ' ################################################################################################################################################################
7083. ' END Steve's very different custom screen
7084. ' ################################################################################################################################################################
7085.  

[Gets]

Benefits of drawing rectangles should be greater with larger images, especially if they're designed with the format in mind. hardware boxes are also much faster when handling transparencies.

[madscijr]

...
The way I'd  go about doing something like this would be to make myself a custom SCREEN 0-style memory array.  Screen 0 stores all our information for each character in 2 bytes -- one for color, one for character.  I'd basically do the same, but with 3 bytes -- one for tile color, one for font color, one for character.

Let me toss a simple demo of this line of thinking for you:
...

OK, I started studying your example (see Sub TestCustomHardwareScreen2 on line 624) and I am a little confused about what exactly is happening.

You use the word "tile" and the word "font", and it seems like a tile is just a square block of color, whereas the font is what I would call the tile.

Is your code just creating a giant image with the tileset drawn in all possible combinations of foreground/background color?

Or is it actually drawing the tiles in hardware and changing the colors on the fly?

If it's the former (create a giant image for all possible color combinations) then I got that working (menu option 1, test #8 in below code) and it's pretty fast (13,433 refreshes).

Code: QB64: [Select]

1. ' ################################################################################################################################################################
2. ' Speed tests and demos of various methods draw a 2-color 8x8 tile
3.  
4. ' From thread:
5. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
6. ' https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904
7. ' ################################################################################################################################################################
8.  
9. ' ===============================================================================
10. ' GLOBAL CONSTANTS
11. ' ===============================================================================
12. ' BOOLEAN VALUES
13. Const FALSE = 0
14. Const TRUE = Not FALSE
15.  
16. ' ===============================================================================
17. ' USER DEFINED TYPES
18. ' ===============================================================================
19. ' UDT TO HOLD COORDINATES FOR DRAWING A RECTANGLE
20. Type RectangleType
21.     x1 As Integer ' start x
22.     y1 As Integer ' start y
23.     x2 As Integer ' end x
24.     y2 As Integer ' end y
25.     PixelCount As Integer
26.     IsActive As Integer
27. End Type ' RectangleType
28.  
29. Type DrawCompareType
30.     IndexList As String
31.     ShapeCount As Integer
32.     PixelCount As Integer
33.     IsActive As Integer
34. End Type ' DrawCompareType
35.  
36. ' UDT FOR PRECALCULATED TILESHEET
37. Type TileSheetMapType
38.     xStart As Integer
39.     xEnd As Integer
40.     yStart As Integer
41.     yEnd As Integer
42. End Type
43.  
44. ' UDT FOR PRECALCULATED TILE MAP
45. Type TileMapType
46.     xPos As Integer
47.     yPos As Integer
48. End Type
49.  
50. ' ===============================================================================
51. ' GLOBAL VARIABLES
52. ' ===============================================================================
53. Dim Shared m_bDebug As Integer: m_bDebug = TRUE ' ENABLES/DISABLES CONSOLE WINDOW AND DebugPrint
54. Dim Shared m_ProgramPath$: m_ProgramPath$ = Left$(Command$(0), _InStrRev(Command$(0), "\"))
55. Dim Shared m_ProgramName$: m_ProgramName$ = Mid$(Command$(0), _InStrRev(Command$(0), "\") + 1)
56. Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
57.  
58. ' Used for Steve's very different custom screen:
59. Dim Shared m_TileHw As Long
60. Dim Shared m_FontHw As Long
61. Dim Shared m_ScreenArray(99, 74) As _Unsigned Long ' Here, I'm creating a screen array to hold the information of EVERY character I place onto the screen, and its tile
62.  
63. ' ===============================================================================
64. ' LOCAL VARIABLES
65. ' ===============================================================================
66. Dim in$
67.  
68. ' ****************************************************************************************************************************************************************
69. ' ACTIVATE DEBUGGING WINDOW
70. If m_bDebug = TRUE Then
71.     $Console
72.     _Delay 4
73.     _Console On
74.     _Echo "Started " + m_ProgramName$
75.     _Echo "Debugging on..."
76. End If
77. ' ****************************************************************************************************************************************************************
78.  
79. ' ===============================================================================
80. ' START THE MAIN ROUTINE
81. ' ===============================================================================
82. main
83.  
84. ' ===============================================================================
85. ' FINISH
86. ' ===============================================================================
87. Screen 0
88. Print m_ProgramName$ + " finished."
89. Input "Press <ENTER> to continue", in$
90. ' ****************************************************************************************************************************************************************
91. ' DEACTIVATE DEBUGGING WINDOW
92. If m_bDebug = TRUE Then
93.     _Console Off
94. End If
95. ' ****************************************************************************************************************************************************************
96. System ' return control to the operating system
97. End
98.  
99. ' ################################################################################################################################################################
100. ' BEGIN MAIN MENU
101. ' ################################################################################################################################################################
102.  
103. ' /////////////////////////////////////////////////////////////////////////////
104.  
105. Sub main
106.     Dim RoutineName As String: RoutineName = "main"
107.     Dim in$
108.     Dim bFinished As Integer: bFinished = FALSE
109.     Dim result$: result$ = ""
110.     Do
111.         Screen 0: _ScreenMove 0, 0
112.         Cls
113.         Print m_ProgramName$
114.         Print
115.         Print "RE: fastest way to draw a 2-color 8x8 tile (with variable colors)?"
116.         Print
117.  
118.         Print "1) DrawingSpeedTest7"
119.         Print
120.         Print "2) HardwareImageDemo2"
121.         Print
122.         Print "3) GetAllPossibleShapesTest"
123.         Print "4) FindOptimizedVectorTest - find minimum shapes to draw a tile"
124.         Print "5) GetVectorTilesTest"
125.         Print "6) MakePaletteImageTest"
126.         Print "7) DrawVectorTilePutImageTest"
127.         Print
128.         Print "A) TestCustomHardwareScreen1"
129.         Print "B) ^ instructions"
130.         Print
131.         Print "C) TestSoftwareScreen1"
132.         Print "D) ^ instructions"
133.  
134.         Print "E) TestCustomHardwareScreen2"
135.  
136.         Print
137.         Print "Q) Exit program"
138.         Do
139.             in$ = InKey$
140.             If UCase$(in$) = "Q" Then
141.                 bFinished = TRUE: Exit Do
142.             ElseIf UCase$(in$) = "1" Then
143.                 DrawingSpeedTest7: Exit Do
144.             ElseIf UCase$(in$) = "2" Then
145.                 HardwareImageDemo2: Exit Do
146.             ElseIf UCase$(in$) = "3" Then
147.                 GetAllPossibleShapesTest: Exit Do
148.             ElseIf UCase$(in$) = "4" Then
149.                 FindOptimizedVectorTest: Exit Do
150.             ElseIf UCase$(in$) = "5" Then
151.                 GetVectorTilesTest: Exit Do
152.             ElseIf UCase$(in$) = "6" Then
153.                 MakePaletteImageTest: Exit Do
154.             ElseIf UCase$(in$) = "7" Then
155.                 DrawVectorTilePutImageTest: Exit Do
156.             ElseIf UCase$(in$) = "A" Then
157.                 TestCustomHardwareScreen1: Exit Do
158.             ElseIf UCase$(in$) = "B" Then
159.                 ShowInstructions (GetInstructions1$): Exit Do
160.             ElseIf UCase$(in$) = "C" Then
161.                 TestSoftwareScreen1: Exit Do
162.             ElseIf UCase$(in$) = "D" Then
163.                 ShowInstructions (GetInstructions2$): Exit Do
164.  
165.             ElseIf UCase$(in$) = "E" Then
166.                 TestCustomHardwareScreen2: Exit Do
167.  
168.             End If
169.         Loop
170.     Loop Until bFinished = TRUE
171. End Sub ' main
172.  
173. ' ################################################################################################################################################################
174. ' END MAIN MENU
175. ' ################################################################################################################################################################
176.  
177. ' ################################################################################################################################################################
178. ' BEGIN DRAWING SPEED TEST
179. ' ################################################################################################################################################################
180.  
181. ' /////////////////////////////////////////////////////////////////////////////
182.  
183. Sub DrawingSpeedTest7
184.     Dim sError As String: sError = ""
185.     Dim imgScreen As Long ' the main display
186.     Dim imgHardwareScreen As Long ' copy of the software screen, transformed into a hardware image
187.     Dim imgTiles As Long ' original tileset, black on transparent
188.     Dim imgHardwareTiles As Long ' copy of the tileset, tranformed into a hardware image
189.     Dim imgTilesRed As Long ' colored tileset copy
190.     Dim imgTilesGreen As Long ' colored tileset copy
191.     Dim imgTilesBlue As Long ' colored tileset copy
192.     Dim imgTilesYellow As Long ' colored tileset copy
193.     Dim imgColorTiles As Long ' holds 4 copies of tileset in different colors (red, green, blue, yellow)
194.     Dim imgTilesAllColorsSW As Long ' holds n copies of tileset in all combinations of specified foreground/background colors
195.     Dim imgTilesAllColorsHW As Long ' copy of the tileset, tranformed into a hardware image
196.  
197.     Dim imgPalette As Long ' contains palette of colors
198.     Dim imgPaletteHW As Long ' hardware image of palette of colors
199.     Dim iTileNum As Integer
200.     Dim iFgColorIndex As Integer: iFgColorIndex = 0
201.     Dim iBgColorIndex As Integer: iBgColorIndex = 0
202.     Dim iFirstColor As Integer: iFirstColor = 0
203.     Dim iLastColor As Integer: iLastColor = 3
204.     'Dim iCols As Integer
205.     'Dim iRows As Integer
206.     Dim iY As Integer
207.     Dim iX As Integer
208.     Dim fgColor As _Unsigned Long
209.     Dim bgColor As _Unsigned Long
210.     Dim iMinY As Integer
211.     Dim iMaxY As Integer
212.     Dim iMinX As Integer
213.     Dim iMaxX As Integer
214.     Dim iCount1 As Long
215.     Dim iCount2 As Long
216.     Dim iCount3 As Long
217.     Dim iCount4 As Long
218.     Dim iCount5 As Long
219.     Dim iCount6 As Long
220.     Dim iCount7 As Long
221.     Dim iCount8 As Long
222.     Dim t# ' for timer
223.     Dim arrColor(0 To 5) As _Unsigned Long
224.  
225.     Dim arrColors(-1) As _Unsigned Long ' supported colors for COLORED TILESET COPIES v2
226.     ReDim arrTileIndex(-1) As Long ' stores x positions for tiles (0-255) for COLORED TILESET COPIES v2
227.     ReDim arrColorIndex(-1, -1) As Long ' stores y positions for (fgColorIndex, bgColorIndex) for COLORED TILESET COPIES v2
228.     Dim iFirstColor2 As Integer
229.     Dim iLastColor2 As Integer
230.  
231.     ' ================================================================================================================================================================
232.     ' INIT SCREEN
233.     ' ================================================================================================================================================================
234.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
235.     Screen imgScreen
236.     Cls , cGray
237.  
238.     'iCols = _Width(imgScreen) \ 8
239.     'iRows = _Height(imgScreen) \ 8
240.  
241.     iMinX = 1: iMaxX = 16
242.     iMinY = 3: iMaxY = 18
243.  
244.     ' ================================================================================================================================================================
245.     ' INITIALIZE NEUTRAL COLOR GRAPHICS TILES (BLACK ON TRANSPARENT)
246.     ' ================================================================================================================================================================
247.     If Len(sError) = 0 Then
248.         '' LOAD TILES (16 cols x 16 rows of 8x8 tiles) FROM FILE
249.         'sFile$ = Left$(Command$(0), _InStrRev(Command$(0), "\")) + "Font_8x8_128x128_v3.png" ' 128x128 pixels, 16 rows x 16 columns of 8x8 tiles
250.         'imgTiles = _LoadImage(sFile$, 32)
251.  
252.         ' LOAD TILES FROM TEXT DEFINITIONS IN Sub GetTileText
253.         sError = GetTiles$(imgTiles, cBlack, cEmpty)
254.     End If
255.  
256.     ' ================================================================================================================================================================
257.     ' CREATE COLORED TILESET COPIES v1
258.     ' ================================================================================================================================================================
259.     If Len(sError) = 0 Then
260.         MakeColoredTileset imgTiles, imgTilesRed, cRed, cBlack
261.         MakeColoredTileset imgTiles, imgTilesGreen, cLime, cBlack
262.         MakeColoredTileset imgTiles, imgTilesBlue, cBlue, cBlack
263.         MakeColoredTileset imgTiles, imgTilesYellow, cYellow, cBlack
264.  
265.         ' Make one big tileset with all colors
266.         imgColorTiles = _NewImage(512, 128, 32)
267.         _PutImage (0, 0), imgTilesRed, imgColorTiles, (0, 0)-(128, 128)
268.         _PutImage (128, 0), imgTilesGreen, imgColorTiles, (0, 0)-(128, 128)
269.         _PutImage (256, 0), imgTilesBlue, imgColorTiles, (0, 0)-(128, 128)
270.         _PutImage (384, 0), imgTilesYellow, imgColorTiles, (0, 0)-(128, 128)
271.  
272.         imgHardwareTiles = _CopyImage(imgColorTiles, 33) ' Copy tilesheet for hardware image
273.     End If
274.  
275.     ' ================================================================================================================================================================
276.     ' CREATE COLORED TILESET COPIES v2
277.     ' ================================================================================================================================================================
278.     If Len(sError) = 0 Then
279.         'ReDim arrColors(0 To 4) As _UNSIGNED Long
280.         'arrColors(0) = cRed
281.         'arrColors(1) = cLime
282.         'arrColors(2) = cBlue
283.         'arrColors(3) = cYellow
284.         'arrColors(4) = cBlack
285.  
286.         ReDim arrColors(0 To 39) As _Unsigned Long
287.         arrColors(0) = cRed
288.         arrColors(1) = cOrangeRed
289.         arrColors(2) = cDarkOrange
290.         arrColors(3) = cOrange
291.         arrColors(4) = cGold
292.         arrColors(5) = cYellow
293.         arrColors(6) = cChartreuse
294.         arrColors(7) = cOliveDrab1
295.         arrColors(8) = cLime
296.         arrColors(9) = cMediumSpringGreen
297.         arrColors(10) = cCyan
298.         arrColors(11) = cDeepSkyBlue
299.         arrColors(12) = cDodgerBlue
300.         arrColors(13) = cSeaBlue
301.         arrColors(14) = cBlue
302.         arrColors(15) = cBluePurple
303.         arrColors(16) = cDeepPurple
304.         arrColors(17) = cPurple
305.         arrColors(18) = cPurpleRed
306.         arrColors(19) = cDarkRed
307.         arrColors(20) = cBrickRed
308.         arrColors(21) = cDarkGreen
309.         arrColors(22) = cGreen
310.         arrColors(23) = cOliveDrab
311.         arrColors(24) = cLightPink
312.         arrColors(25) = cHotPink
313.         arrColors(26) = cDeepPink
314.         arrColors(27) = cMagenta
315.         arrColors(28) = cBlack
316.         arrColors(29) = cDimGray
317.         arrColors(30) = cGray
318.         arrColors(31) = cDarkGray
319.         arrColors(32) = cSilver
320.         arrColors(33) = cLightGray
321.         arrColors(34) = cGainsboro
322.         arrColors(35) = cWhiteSmoke
323.         arrColors(36) = cWhite
324.         arrColors(37) = cDarkBrown
325.         arrColors(38) = cLightBrown
326.         arrColors(39) = cKhaki
327.         iFirstColor2 = LBound(arrColors)
328.         iLastColor2 = UBound(arrColors)
329.  
330.         ' Make one big tileset with all possible foreground/background color combinations
331.         MakeColoredTileset2 imgTiles, imgTilesAllColorsSW, arrColors(), arrTileIndex(), arrColorIndex()
332.         imgTilesAllColorsHW = _CopyImage(imgTilesAllColorsSW, 33) ' Copy tilesheet for hardware image
333.     End If
334.  
335.     ' ================================================================================================================================================================
336.     ' VECTOR TILES SETUP
337.     ' ================================================================================================================================================================
338.     If Len(sError) = 0 Then
339.         ' set up vector tiles
340.         GetVectorTiles
341.  
342.         ' set up colors for vector HW tiles
343.         arrColor(0) = cRed
344.         arrColor(1) = cLime
345.         arrColor(2) = cBlue
346.         arrColor(3) = cYellow
347.         arrColor(4) = cBlack
348.         arrColor(5) = cEmpty
349.         MakePaletteImage imgPalette, arrColor()
350.         _Dest imgScreen&
351.  
352.         imgPaletteHW = _CopyImage(imgPalette, 33) ' Copy palette for hardware image
353.     End If
354.  
355.     ' ================================================================================================================================================================
356.     ' METHOD #1
357.     ' _PUTIMAGE with SOFTWARE IMAGES
358.     ' ================================================================================================================================================================
359.     If Len(sError) = 0 Then
360.         Cls , cGray
361.         Color cWhite, cBlack: Locate 1, 1: Print "Test #1: DrawTile8 routine using 4 tilesets (1 per color) and regular _putimage using using SOFTWARE images..."
362.  
363.         iCount1 = 0
364.         t# = Timer + 3
365.         Do
366.             iCount1 = iCount1 + 1
367.             iFirstColor = iFirstColor Xor 1
368.             iFgColorIndex = iFirstColor
369.             iY = iMinY
370.             iX = iMinX
371.             For iTileNum = 0 To 255
372.                 Select Case iFgColorIndex
373.                     Case 0:
374.                         DrawTile8 imgTilesRed, iTileNum, imgScreen, iX, iY
375.                     Case 1:
376.                         DrawTile8 imgTilesGreen, iTileNum, imgScreen, iX, iY
377.                     Case 2:
378.                         DrawTile8 imgTilesBlue, iTileNum, imgScreen, iX, iY
379.                     Case Else:
380.                         DrawTile8 imgTilesYellow, iTileNum, imgScreen, iX, iY
381.                 End Select
382.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
383.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
384.             Next iTileNum
385.             _Display
386.         Loop Until Timer > t#
387.         _AutoDisplay
388.     End If
389.  
390.     ' ================================================================================================================================================================
391.     ' METHOD #2
392.     ' COLOR SWAP with SOFTWARE IMAGES
393.     ' ================================================================================================================================================================
394.     If Len(sError) = 0 Then
395.         Cls , cGray
396.         Color cWhite, cBlack: Locate 1, 1: Print "Test #2: DrawColorTile routine using 1 tileset with DoColorSwap using SOFTWARE images...";
397.  
398.         iCount2 = 0
399.         t# = Timer + 3
400.         Do
401.             iCount2 = iCount2 + 1
402.             iFirstColor = iFirstColor Xor 1
403.             iFgColorIndex = iFirstColor
404.             iY = iMinY
405.             iX = iMinX
406.             For iTileNum = 0 To 255
407.                 Select Case iFgColorIndex
408.                     Case 0:
409.                         fgColor = cRed: bgColor = cBlack
410.                     Case 1:
411.                         fgColor = cLime: bgColor = cBlack
412.                     Case 2:
413.                         fgColor = cBlue: bgColor = cBlack
414.                     Case Else:
415.                         fgColor = cYellow: bgColor = cBlack
416.                 End Select
417.                 DrawColorTile imgScreen, imgTiles, iTileNum, fgColor, bgColor, iX, iY
418.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
419.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
420.             Next iTileNum
421.             _Display
422.         Loop Until Timer > t#
423.         _AutoDisplay
424.     End If
425.  
426.     ' ================================================================================================================================================================
427.     ' METHOD #3
428.     ' _PUTIMAGE with HARDWARE IMAGES
429.     ' ================================================================================================================================================================
430.     If Len(sError) = 0 Then
431.         Cls , cGray
432.         Color cWhite, cBlack: Locate 1, 1: Print "Test #3: DrawTileHw8 routine using 1 big multi-tileset and HARDWARE images...";
433.  
434.         imgHardwareScreen = _CopyImage(0, 33)
435.         _DisplayOrder _Hardware
436.  
437.         iCount3 = 0
438.         t# = Timer + 3
439.         Do
440.             iCount3 = iCount3 + 1
441.             iFirstColor = iFirstColor Xor 1
442.             iFgColorIndex = iFirstColor
443.             iY = iMinY
444.             iX = iMinX
445.             _PutImage , imgHardwareScreen
446.             For iTileNum = 0 To 255
447.                 DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iX, iY, iFgColorIndex
448.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
449.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
450.             Next iTileNum
451.             _Display
452.         Loop Until Timer > t#
453.         _AutoDisplay
454.         _DisplayOrder _Software , _Hardware
455.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
456.         If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
457.     End If
458.  
459.     ' ================================================================================================================================================================
460.     ' METHOD #4
461.     ' VECTOR-BASED TILES USING LINE
462.     ' ================================================================================================================================================================
463.     If Len(sError) = 0 Then
464.         Cls , cGray
465.         Color cWhite, cBlack: Locate 1, 1: Print "Test #4: DrawVectorTileLine routine using 1 vector-based tileset drawn with Line shapes...";
466.  
467.         iCount4 = 0
468.         t# = Timer + 3
469.         Do
470.             iCount4 = iCount4 + 1
471.             iFirstColor = iFirstColor Xor 1
472.             iFgColorIndex = iFirstColor
473.             iY = iMinY
474.             iX = iMinX
475.             For iTileNum = 0 To 255
476.                 Select Case iFgColorIndex
477.                     Case 0:
478.                         fgColor = cRed: bgColor = cBlack
479.                     Case 1:
480.                         fgColor = cLime: bgColor = cBlack
481.                     Case 2:
482.                         fgColor = cBlue: bgColor = cBlack
483.                     Case Else:
484.                         fgColor = cYellow: bgColor = cBlack
485.                 End Select
486.                 'DrawShape iTileNum, iX, iY, fgColor, bgColor
487.                 DrawVectorTileLine iTileNum, iX * 8, iY * 8, fgColor, bgColor
488.  
489.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
490.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
491.             Next iTileNum
492.             _Display
493.         Loop Until Timer > t#
494.         _AutoDisplay
495.         _DisplayOrder _Software , _Hardware
496.     End If
497.  
498.     ' ================================================================================================================================================================
499.     ' METHOD #5
500.     ' VECTOR-BASED TILES USING _PutImage
501.     ' ================================================================================================================================================================
502.     If Len(sError) = 0 Then
503.         Cls , cGray
504.         Color cWhite, cBlack: Locate 1, 1: Print "Test #5: DrawVectorTilePutImage routine using 1 vector-based tileset drawn with _PutImage...";
505.  
506.         iBgColorIndex = 4
507.  
508.         iCount5 = 0
509.         t# = Timer + 3
510.         Do
511.             iCount5 = iCount5 + 1
512.             iFirstColor = iFirstColor Xor 1
513.             iFgColorIndex = iFirstColor
514.             iY = iMinY
515.             iX = iMinX
516.             For iTileNum = 0 To 255
517.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
518.                 DrawVectorTilePutImage _
519.                     imgScreen, imgPalette, arrColor(), _
520.                     iTileNum, iX, iY, _
521.                     iFgColorIndex, iBgColorIndex
522.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
523.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
524.             Next iTileNum
525.             _Display
526.         Loop Until Timer > t#
527.         _AutoDisplay
528.     End If
529.  
530.     ' ================================================================================================================================================================
531.     ' METHOD #6
532.     ' VECTOR-BASED TILES USING _PutImage with HARDWARE IMAGES
533.     ' ================================================================================================================================================================
534.     If Len(sError) = 0 Then
535.         Cls , cGray
536.         Color cWhite, cBlack: Locate 1, 1: Print "Test #6: DrawVectorTilePutImageHW routine using 1 vector-based tileset drawn with hardware images...";
537.  
538.         iBgColorIndex = 4
539.         imgHardwareScreen = _CopyImage(0, 33)
540.         _DisplayOrder _Hardware
541.  
542.         iCount6 = 0
543.         t# = Timer + 3
544.         Do
545.             iCount6 = iCount6 + 1
546.             iFirstColor = iFirstColor Xor 1
547.             iFgColorIndex = iFirstColor
548.             iY = iMinY
549.             iX = iMinX
550.             _PutImage , imgHardwareScreen
551.             For iTileNum = 0 To 255
552.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
553.                 DrawVectorTilePutImageHW _
554.                     imgPaletteHW, arrColor(), _
555.                     iTileNum, iX, iY, _
556.                     iFgColorIndex, iBgColorIndex
557.  
558.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
559.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
560.             Next iTileNum
561.             _Display
562.         Loop Until Timer > t#
563.         _AutoDisplay
564.         _DisplayOrder _Software , _Hardware
565.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
566.         If imgPaletteHW < -1 Or imgPaletteHW > 0 Then _FreeImage imgPaletteHW ' FREE MEMORY
567.     End If
568.  
569.     ' ================================================================================================================================================================
570.     ' METHOD #7
571.     ' SOLID BOXES WITH LINE
572.     ' ================================================================================================================================================================
573.     If Len(sError) = 0 Then
574.         Cls , cGray
575.         Color cWhite, cBlack: Locate 1, 1: Print "Test #7: Solid boxes with Line...";
576.  
577.         iCount7 = 0
578.         t# = Timer + 3
579.         Do
580.             _Display
581.             iCount7 = iCount7 + 1
582.             iFirstColor = iFirstColor Xor 1
583.             iFgColorIndex = iFirstColor
584.             iY = iMinY
585.             iX = iMinX
586.             For iTileNum = 0 To 255
587.                 Select Case iFgColorIndex
588.                     Case 0:
589.                         fgColor = cRed: bgColor = cBlack
590.                     Case 1:
591.                         fgColor = cLime: bgColor = cBlack
592.                     Case 2:
593.                         fgColor = cBlue: bgColor = cBlack
594.                     Case Else:
595.                         fgColor = cYellow: bgColor = cBlack
596.                 End Select
597.  
598.                 'DrawShape iTileNum, iX, iY, fgColor, bgColor
599.                 'DrawVectorTileLine iTileNum, iX*8, iY*8, fgColor, bgColor
600.                 Line (iX * 8, iY * 8)-((iX * 8) + 7, (iY * 8) + 7), fgColor, BF ' Draw a solid box
601.  
602.                 iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iLastColor Then iFgColorIndex = iFirstColor
603.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
604.             Next iTileNum
605.             _Display
606.         Loop Until Timer > t#
607.         _AutoDisplay
608.     End If
609.  
610.  
611.     ' ================================================================================================================================================================
612.     ' METHOD #8
613.     ' _PUTIMAGE with HARDWARE IMAGES v2 (ALL COLOR COMBINATIONS)
614.     ' ================================================================================================================================================================
615.     If Len(sError) = 0 Then
616.         Cls , cGray
617.         Color cWhite, cBlack: Locate 1, 1: Print "Test #8: DrawColorTileHw8 routine using 1 big multi-tileset and HARDWARE images...";
618.  
619.         ''_PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
620.         '_PutImage (0, 0), imgTilesAllColorsSW, imgScreen
621.         'sleep
622.         'IF TRUE=FALSE THEN
623.         imgHardwareScreen = _CopyImage(0, 33)
624.         _DisplayOrder _Hardware
625.  
626.         iCount8 = 0
627.         t# = Timer + 3
628.         Do
629.             iCount8 = iCount8 + 1
630.             iFirstColor2 = iFirstColor2 Xor 1
631.             iFgColorIndex = iFirstColor2
632.             iBgColorIndex = iFgColorIndex + 1: If iBgColorIndex > iLastColor2 Then iBgColorIndex = iFirstColor2
633.  
634.             iY = iMinY
635.             iX = iMinX
636.             _PutImage , imgHardwareScreen
637.             For iTileNum = 0 To 255
638.                 DrawColorTileHw8 imgTilesAllColorsHW, iTileNum, imgScreen, iX, iY, iFgColorIndex, iBgColorIndex, arrTileIndex(), arrColorIndex()
639.                 iFgColorIndex = iFgColorIndex + 1
640.                 If iFgColorIndex > iLastColor2 Then
641.                     iFgColorIndex = iFirstColor2
642.                     iBgColorIndex = iBgColorIndex + 1
643.                     If iBgColorIndex > iLastColor2 Then
644.                         iBgColorIndex = iFirstColor2
645.                     End If
646.                 End If
647.  
648.                 iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then Exit For
649.             Next iTileNum
650.             _Display
651.         Loop Until Timer > t#
652.         _AutoDisplay
653.         _DisplayOrder _Software , _Hardware
654.         If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
655.         'END IF
656.         If imgTilesAllColorsHW < -1 Or imgTilesAllColorsHW > 0 Then _FreeImage imgTilesAllColorsHW ' FREE MEMORY
657.     End If
658.  
659.  
660.  
661.     ' ================================================================================================================================================================
662.     ' SHOW RESULTS
663.     ' ================================================================================================================================================================
664.     Cls , cGray
665.     Color cWhite, cBlack: Locate 1, 1
666.     Print ""
667.     Print "RESULTS:"
668.     Print Using "DrawTile8                ###,###,###,###,###,### refreshes in 3 seconds."; iCount1
669.     Print Using "DrawColorTile            ###,###,###,###,###,### refreshes in 3 seconds."; iCount2
670.     Print Using "DrawTileHw8              ###,###,###,###,###,### refreshes in 3 seconds."; iCount3
671.     Print Using "DrawVectorTileLine       ###,###,###,###,###,### refreshes in 3 seconds."; iCount4
672.     Print Using "DrawVectorTilePutImage   ###,###,###,###,###,### refreshes in 3 seconds."; iCount5
673.     Print Using "DrawVectorTilePutImageHW ###,###,###,###,###,### refreshes in 3 seconds."; iCount6
674.     Print Using "Solid boxes with Line    ###,###,###,###,###,### refreshes in 3 seconds."; iCount7
675.     Print Using "DrawColorTileHw8         ###,###,###,###,###,### refreshes in 3 seconds."; iCount8
676.     Print "PRESS ANY KEY TO CONTINUE"
677.     Sleep
678.  
679.     ' ================================================================================================================================================================
680.     ' CLEANUP AND EXIT
681.     ' ================================================================================================================================================================
682.     Screen 0 ' RETURN TO TEXT SCREEN
683.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
684.     'If imgHardwareScreen < -1 Or imgHardwareScreen > 0 Then _FreeImage imgHardwareScreen ' FREE MEMORY
685.     If imgTiles < -1 Or imgTiles > 0 Then _FreeImage imgTiles ' FREE MEMORY
686.     'If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles ' FREE MEMORY
687.     If imgTilesRed < -1 Or imgTilesRed > 0 Then _FreeImage imgTilesRed ' FREE MEMORY
688.     If imgTilesGreen < -1 Or imgTilesGreen > 0 Then _FreeImage imgTilesGreen ' FREE MEMORY
689.     If imgTilesBlue < -1 Or imgTilesBlue > 0 Then _FreeImage imgTilesBlue ' FREE MEMORY
690.     If imgTilesYellow < -1 Or imgTilesYellow > 0 Then _FreeImage imgTilesYellow ' FREE MEMORY
691.     If imgColorTiles < -1 Or imgColorTiles > 0 Then _FreeImage imgColorTiles ' FREE MEMORY
692.     If imgTilesAllColorsSW < -1 Or imgTilesAllColorsSW > 0 Then _FreeImage imgTilesAllColorsSW ' FREE MEMORY
693.     'If imgTilesAllColorsHW < -1 Or imgTilesAllColorsHW > 0 Then _FreeImage imgTilesAllColorsHW ' FREE MEMORY
694.     If imgPalette < -1 Or imgPalette > 0 Then _FreeImage imgPalette ' FREE MEMORY
695.     'If imgPaletteHW < -1 Or imgPaletteHW > 0 Then _FreeImage imgPaletteHW ' FREE MEMORY
696.  
697. End Sub ' DrawingSpeedTest7
698.  
699. ' ################################################################################################################################################################
700. ' END DRAWING SPEED TEST
701. ' ################################################################################################################################################################
702.  
703.  
704.  
705.  
706.  
707.  
708.  
709.  
710.  
711.  
712.  
713.  
714.  
715.  
716.  
717.  
718.  
719.  
720.  
721.  
722.  
723.  
724.  
725.  
726.  
727.  
728.  
729.  
730.  
731.  
732.  
733.  
734.  
735.  
736.  
737.  
738.  
739.  
740.  
741.  
742.  
743. ' ################################################################################################################################################################
744. ' BEGIN Steve's very different custom screen
745. ' ################################################################################################################################################################
746.  
747. ' /////////////////////////////////////////////////////////////////////////////
748.  
749. Sub TestCustomHardwareScreen2
750.     Dim sError As String: sError = ""
751.     Dim in$
752.     Dim arrColors(255) As _Unsigned Long ' an array to hold all my color values
753.     Dim imgDisplay As Long
754.     Dim imgTile As Long
755.     Dim imgFont As Long
756.     Dim imgTempScreen256 As Long
757.     Dim iLoop As Integer
758.     Dim iColor As Integer
759.     Dim iTile As Integer
760.     Dim iX As Integer
761.     Dim iY As Integer
762.     Dim count&
763.     Dim t## ' _FLOAT
764.  
765.     Randomize Timer
766.  
767.     imgDisplay = _NewImage(800, 600, 32) ' my main screenwich is 100 by 75 characters with 8x8 font.
768.     imgTile = _NewImage(8 * 256, 8, 32) ' 8x8 tiles in 256 colors
769.     imgFont = _NewImage(8 * 256, 8 * 256, 32) ' 256 characters of an 8x8 font, in all 256 possible colors.
770.  
771.     ' Set the main screen for starters so it'll go ahead
772.     ' and create itself properly while I'm working on making my tiles and fonts
773.     Screen imgDisplay
774.  
775.     ' very tiny 256 color screen, just to borrow the palette from
776.     imgTempScreen256 = _NewImage(10, 10, 256)
777.     ' 40 colors
778.     For iLoop = 0 To 255
779.         ' since I don't know your color palette, I'll just copy the QB64 256 color palette.  ;)
780.         arrColors(iLoop) = _RGB32(_Red(iLoop, imgTempScreen256), _Green(iLoop, imgTempScreen256), _Blue(iLoop, imgTempScreen256))
781.     Next iLoop
782.     If imgTempScreen256 < -1 Or imgTempScreen256 > 0 Then _FreeImage imgTempScreen256 ' FREE MEMORY
783.  
784.     ' Create my software tiles of 256 colors
785.     _Dest imgTile
786.     For iLoop = 0 To 255 ' 256 tiles, one for each color
787.         ' all drawn sequentially onto a sprite sheet
788.         Line (iLoop * 8, 0)-Step(8, 8), arrColors(iLoop), BF
789.     Next iLoop
790.  
791.     ' I'm just going to use the built in QB64 8x8 font for quick and easy sheet creation.
792.     _Dest imgFont
793.     _Font 8
794.     For iColor = 0 To 255 ' 256 colors
795.         Color arrColors(iColor), 0 ' make our font the proper color
796.         For iTile = 0 To 255 ' 256 characters
797.             ' print the characters row by row to the screen
798.             _PrintString (iTile * 8, iColor * 8), Chr$(iTile)
799.         Next iTile
800.     Next iColor
801.     _Dest imgDisplay
802.  
803.     'Sleep ' View the blank screen  until a key is hit
804.  
805.     Screen imgTile ' View the tiles
806.     DebugPrint "Viewing the tiles (imgTile) - press any key to continue"
807.     Sleep ' until a key is hit
808.  
809.     Screen imgFont ' view the fonts
810.     DebugPrint "Viewing the fonts (imgFont) - press any key to continue"
811.     Sleep ' until a key is hit
812.  
813.     Screen imgDisplay ' and back to the normal blank screen
814.     _Delay .2 ' time to remove finger from key
815.     'Dim Shared As Long m_TileHw, m_FontHw
816.  
817.     m_TileHw = _CopyImage(imgTile, 33) ' hardware copy of the tile image
818.     m_FontHw = _CopyImage(imgFont, 33) ' hardware copy of the font image
819.  
820.     If imgTile < -1 Or imgTile > 0 Then _FreeImage imgTile ' FREE MEMORY 'free unused images when done with them
821.     If imgFont < -1 Or imgFont > 0 Then _FreeImage imgFont ' FREE MEMORY 'free unused images when done with them
822.  
823.     ' From this point onwards, I'm *ONLY* going to use my hardware layer
824.     _DisplayOrder _Hardware
825.  
826.     '' Here, I'm creating a screen array to hold the information
827.     '' of EVERY character I place onto the screen, and its tile
828.     'Dim Shared m_ScreenArray(99, 74) As _Unsigned Long
829.  
830.     ' To start with, let's put all 256 chracters on the screen,
831.     ' on a color 40 tile (red), in a color 3 font (cyan)
832.     iX = 0: iY = 0
833.     For iLoop = 0 To 255
834.         ' 40 tile color, 3 font color, iLoop is the character
835.         iX = iX + 1: If iX > 99 Then iX = 0: iY = iY + 1
836.         m_ScreenArray(iX, iY) = SetAll(40, 3, iLoop)
837.     Next iLoop
838.  
839.     ' And then let's show these results on the screen.
840.     ' Take a moment to open task manager and see how little resources we're using here.
841.     DebugPrint "Viewing the whole screen full of these tiles + characters"
842.     DebugPrint "press ENTER to continue"
843.     Do
844.         ' Draw a whole screen full of these tiles + characters
845.         ScreenRender
846.         _Limit 30
847.     Loop Until _KeyDown(13) ' until we hit ENTER
848.  
849.     _Delay .2 ' time to lift up the key so we don't instantly blow past the next loop
850.  
851.     iX = 0: iY = 0
852.     ' and here I'm going to set all these tiles to have incremental background tile colors
853.     For iLoop = 0 To 255
854.         ' from left to right, top to bottom
855.         iX = iX + 1: If iX > 99 Then iX = 0: iY = iY + 1
856.         SetArrayTile iX, iY, iLoop ' set each tile to become an ever increasing color value
857.     Next iLoop
858.  
859.     ' And then let's show these results on the screen.
860.     DebugPrint "Viewing the screen with incremental colors"
861.     DebugPrint "press ENTER to continue"
862.     Do
863.         ' Draw a whole screen full of these tiles + characters
864.         ScreenRender
865.         _Limit 30
866.     Loop Until _KeyDown(13) ' until we hit ENTER
867.  
868.     ' And to finish up, let's do a quick count of how many loops per second
869.     ' we *could* process, with the whole screen being redrawn over and over like this
870.     DebugPrint "Counting how many loops per second for 3 seconds..."
871.     t## = Timer + 3
872.     count& = 0
873.     Do
874.         count& = count& + 1
875.         ScreenRender
876.     Loop Until Timer > t##
877.  
878.     ' Return to normal software screen
879.     DebugPrint "Returning to normal software screen"
880.     _DisplayOrder _Software
881.     _AutoDisplay
882.  
883.     _KeyClear: _Delay 1 ' clear keyboard buffer
884.  
885.     Screen 0: Cls
886.     Print "Whole screen rendering of color tile + color font = "; count&; " times in 3 seconds."
887.     Print
888.     Input "PRESS <ENTER> TO CONTINUE"; in$
889.  
890.     If imgDisplay < -1 Or imgDisplay > 0 Then _FreeImage imgDisplay ' FREE MEMORY
891.  
892. End Sub ' TestCustomHardwareScreen2
893.  
894. ' /////////////////////////////////////////////////////////////////////////////
895.  
896. Sub TestCustomHardwareScreen1
897.     Dim sError As String: sError = ""
898.     Dim in$
899.     Dim arrColors(255) As _Unsigned Long ' an array to hold all my color values
900.     Dim imgDisplay As Long
901.     Dim imgTile As Long
902.     Dim imgFont As Long
903.     Dim imgTempScreen256 As Long
904.     Dim iLoop As Integer
905.     Dim iColor As Integer
906.     Dim iTile As Integer
907.     Dim iX As Integer
908.     Dim iY As Integer
909.     Dim count&
910.     Dim t## ' _FLOAT
911.  
912.     Cls
913.     Print "Custom hardware screen test. Press <ENTER> to proceed through each step."
914.     Input "PRESS <ENTER> TO START"; in$
915.  
916.     Randomize Timer
917.  
918.     imgDisplay = _NewImage(800, 600, 32) ' my main screenwich is 100 by 75 characters with 8x8 font.
919.     imgTile = _NewImage(8 * 256, 8, 32) ' 8x8 tiles in 256 colors
920.     imgFont = _NewImage(8 * 256, 8 * 256, 32) ' 256 characters of an 8x8 font, in all 256 possible colors.
921.  
922.     ' Set the main screen for starters so it'll go ahead
923.     ' and create itself properly while I'm working on making my tiles and fonts
924.     Screen imgDisplay
925.  
926.     ' very tiny 256 color screen, just to borrow the palette from
927.     imgTempScreen256 = _NewImage(10, 10, 256)
928.     For iLoop = 0 To 255 ' 40 colors
929.         ' since I don't know your color palette, I'll just copy the QB64 256 color palette.  ;)
930.         arrColors(iLoop) = _RGB32(_Red(iLoop, imgTempScreen256), _Green(iLoop, imgTempScreen256), _Blue(iLoop, imgTempScreen256))
931.     Next iLoop
932.     If imgTempScreen256 < -1 Or imgTempScreen256 > 0 Then _FreeImage imgTempScreen256 ' FREE MEMORY
933.  
934.     ' Create my software tiles of 256 colors
935.     _Dest imgTile
936.     For iLoop = 0 To 255 ' 256 tiles, one for each color
937.         Line (iLoop * 8, 0)-Step(8, 8), arrColors(iLoop), BF ' all drawn sequentially onto a sprite sheet
938.     Next iLoop
939.  
940.     ' I'm just going to use the built in QB64 8x8 font for quick and easy sheet creation.
941.     _Dest imgFont
942.     _Font 8
943.     For iColor = 0 To 255 ' 256 colors
944.         Color arrColors(iColor), 0 ' make our font the proper color
945.         For iTile = 0 To 255 ' 256 characters
946.             _PrintString (iTile * 8, iColor * 8), Chr$(iTile) ' print the characters row by row to the screen
947.         Next iTile
948.     Next iColor
949.     _Dest imgDisplay
950.  
951.     Sleep ' View the blank screen  until a key is hit
952.  
953.     Screen imgTile ' View the tiles
954.     Sleep ' until a key is hit
955.  
956.     Screen imgFont ' view the fonts
957.     Sleep ' until a key is hit
958.  
959.     Screen imgDisplay ' and back to the normal blank screen
960.     _Delay .2 ' time to remove finger from key
961.     'Dim Shared As Long m_TileHw, m_FontHw
962.  
963.     m_TileHw = _CopyImage(imgTile, 33) ' hardware copy of the tile image
964.     m_FontHw = _CopyImage(imgFont, 33) ' hardware copy of the font image
965.  
966.     If imgTile < -1 Or imgTile > 0 Then _FreeImage imgTile ' FREE MEMORY 'free unused images when done with them
967.     If imgFont < -1 Or imgFont > 0 Then _FreeImage imgFont ' FREE MEMORY 'free unused images when done with them
968.  
969.     ' From this point onwards, I'm *ONLY* going to use my hardware layer
970.     _DisplayOrder _Hardware
971.  
972.     '' Here, I'm creating a screen array to hold the information
973.     '' of EVERY character I place onto the screen, and its tile
974.     'Dim Shared m_ScreenArray(99, 74) As _Unsigned Long
975.  
976.     ' To start with, let's put all 256 chracters on the screen,
977.     ' on a color 40 tile (red), in a color 3 font (cyan)
978.     iX = 0: iY = 0
979.     For iLoop = 0 To 255
980.         ' 40 tile color, 3 font color, iLoop is the character
981.         iX = iX + 1: If iX > 99 Then iX = 0: iY = iY + 1
982.         m_ScreenArray(iX, iY) = SetAll(40, 3, iLoop)
983.     Next iLoop
984.  
985.     ' And then let's show these results on the screen.
986.     ' Take a moment to open task manager and see how little resources we're using here.
987.     Do
988.         ' Draw a whole screen full of these tiles + characters
989.         ScreenRender
990.         _Limit 30
991.     Loop Until _KeyDown(13) ' until we hit ENTER
992.  
993.     _Delay .2 ' time to lift up the key so we don't instantly blow past the next loop
994.  
995.     iX = 0: iY = 0
996.     ' and here I'm going to set all these tiles to have incremental background tile colors
997.     For iLoop = 0 To 255
998.         ' from left to right, top to bottom
999.         iX = iX + 1: If iX > 99 Then iX = 0: iY = iY + 1
1000.         SetArrayTile iX, iY, iLoop ' set each tile to become an ever increasing color value
1001.     Next iLoop
1002.  
1003.     ' And then let's show these results on the screen.
1004.     Do
1005.         ' Draw a whole screen full of these tiles + characters
1006.         ScreenRender
1007.         _Limit 30
1008.     Loop Until _KeyDown(13) ' until we hit ENTER
1009.  
1010.     ' And to finish up, let's do a quick count of how many loops per second
1011.     ' we *could* process, with the whole screen being redrawn over and over like this
1012.     t## = Timer + 3
1013.     count& = 0
1014.     Do
1015.         count& = count& + 1
1016.         ScreenRender
1017.     Loop Until Timer > t##
1018.  
1019.     ' Return to normal software screen
1020.     _DisplayOrder _Software
1021.     _AutoDisplay
1022.  
1023.     _KeyClear: _Delay 1 ' clear keyboard buffer
1024.  
1025.     Screen 0: Cls
1026.     Print "Whole screen rendering of color tile + color font = "; count&; " times in 3 seconds."
1027.  
1028.     Print
1029.     Input "PRESS <ENTER> TO CONTINUE"; in$
1030.  
1031.     If imgDisplay < -1 Or imgDisplay > 0 Then _FreeImage imgDisplay ' FREE MEMORY
1032.  
1033. End Sub ' TestCustomHardwareScreen1
1034.  
1035. ' /////////////////////////////////////////////////////////////////////////////
1036.  
1037. Sub ScreenRender
1038.     Dim tileColor As _Unsigned Long
1039.     Dim fontColor As _Unsigned Long
1040.     Dim character As _Unsigned Long
1041.     Dim iX As Integer
1042.     Dim iY As Integer
1043.  
1044.     For iX = 0 To 99
1045.         For iY = 0 To 74
1046.             tileColor = m_ScreenArray(iX, iY) \ (256 * 256)
1047.             fontColor = (m_ScreenArray(iX, iY) - tileColor * 256 * 256) \ 256
1048.             character = m_ScreenArray(iX, iY) Mod 256
1049.             _PutImage (iX * 8, iY * 8)-Step(7, 7), m_TileHw, , (tileColor * 8, 0)-Step(7, 7)
1050.             _PutImage (iX * 8, iY * 8)-Step(7, 7), m_FontHw, , (character * 8, fontColor * 8)-Step(7, 7)
1051.         Next iY
1052.     Next iX
1053.     _Display
1054. End Sub ' ScreenRender
1055.  
1056. ' /////////////////////////////////////////////////////////////////////////////
1057.  
1058. Function SetAll&& (tile, fontcolor, character)
1059.     SetAll&& = tile * 256 * 256 + fontcolor * 256 + character
1060. End Function ' SetAll&&
1061.  
1062. ' /////////////////////////////////////////////////////////////////////////////
1063.  
1064. Sub SetArrayTile (iX, iY, newTileColor)
1065.     Dim temp&&
1066.     Dim oldTile&&
1067.  
1068.     temp&& = m_ScreenArray(iX, iY)
1069.     oldTile&& = temp&& \ (256 * 256)
1070.     m_ScreenArray(iX, iY) = temp&& - oldTile&& + newTileColor * 256 * 256
1071. End Sub ' SetArrayTile
1072.  
1073. ' /////////////////////////////////////////////////////////////////////////////
1074.  
1075. Sub SetArrayFontColor (iX, iY, newFontColor)
1076.     Dim temp&&
1077.     Dim oldTile&&
1078.     Dim oldFont&&
1079.  
1080.     temp&& = m_ScreenArray(iX, iY)
1081.     oldTile&& = temp&& \ (256 * 256)
1082.     oldFont&& = (temp&& - oldTile&&) \ 256
1083.     m_ScreenArray(iX, iY) = temp&& - oldFont&& + newFontColor * 256
1084. End Sub ' SetArrayFontColor
1085.  
1086. ' /////////////////////////////////////////////////////////////////////////////
1087.  
1088. Sub SetArrayCharacter (iX, iY, newCharacter)
1089.     Dim temp&&
1090.     Dim oldCharacter&&
1091.  
1092.     temp&& = m_ScreenArray(iX, iY)
1093.     oldCharacter&& = temp&& Mod 256
1094.     m_ScreenArray(iX, iY) = temp&& - oldCharacter&& + newCharacter
1095. End Sub ' SetArrayCharacter
1096.  
1097. ' ################################################################################################################################################################
1098.  
1099. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
1100. ' https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904
1101.  
1102. ' SMcNeill, QB64 Developer
1103. ' Reply #18 on: Yesterday at 05:08:58 pm
1104. '
1105. ' One thing that would be *very* different with all hardware images vs what
1106. ' you're doing currently, is the fact that you have to remember:
1107. ' Hardware images display once and then flush themselves from the GPU buffer.
1108. '
1109. ' You can't just print to a tile, and then read the information for the color of
1110. ' that tile, and instantly turn that color into another one.  You have write
1111. ' access to hardware images, but not read access -- and the images aren't
1112. ' persistent like the software images are.
1113. '
1114. ' For something like this to work for a whole screen in hardware image mode,
1115. ' you'd have to sort out some sort of way to store your screen's info and then
1116. ' constantly redraw everything over and over again to keep it refreshed on the
1117. ' display.
1118. '
1119. ' The way I'd go about doing something like this would be to make myself a
1120. ' custom SCREEN 0-style memory array.  Screen 0 stores all our information for
1121. ' each character in 2 bytes -- one for color, one for character.  I'd basically
1122. ' do the same, but with 3 bytes -- one for tile color, one for font color, one
1123. ' for character.
1124. '
1125. ' Let me toss a simple demo of this line of thinking for you:
1126. ' (TestCustomHardwareScreen1)
1127. '
1128. ' I tried to comment the heck out of the code to help explain what it's doing
1129. ' from line to line, so I hope this isn't too hard to sort out and understand.
1130. '
1131. ' The beginning is nothing more than initializing things and making 2 different
1132. ' sprite sheets that I'll make use of later -- one for the tiles and one for the
1133. ' characters.
1134. '
1135. ' Then there's the mid section where you can SLEEP step through and view the
1136. ' various resource sheets.
1137. '
1138. ' Then an example of all the characters in a cyan font, resting atop a red tile.
1139. ' (You have to hit ENTER to move on from this screen.)
1140. '
1141. ' Then an example of all those tiles that go under the characters being replaced
1142. ' with sequential colored tiles.  (A lot of these tiles are simply BLACK, but
1143. ' that's the nature of the 256 color palette as those multiple blacks are there
1144. ' to be replaced with custom color values instead.)
1145. '
1146. ' Once more, you'll have to hit ENTER to continue.
1147. '
1148. ' And then I do a quick time loop to count how many times we can redraw the whole
1149. ' screen of tiles + characters in 3 seconds.
1150. '
1151. ' For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of
1152. ' about 1800 refreshes in that time.  That's around 600 FPS, which would be more
1153. ' than enough for any sort of game display or use that I think I could come up
1154. ' with, and that's without me trying to optimize math or any such things to
1155. ' reduce calculations and speed the process up any more.  (Keep in mind, this is
1156. ' 1800 full pages of a 800x600 screen -- if your screen has a lower overall
1157. ' resolution, then you'd draw more loops with less to process, but a higher
1158. ' resolution screen would draw fewer loops with more to process.)
1159. '
1160. ' No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page
1161. ' of tiles and colored characters.  (And, YES, it is a whole page being rendered
1162. ' repeatedly -- even if I didn't bother to fill in the vast majority of that page
1163. ' with anything more than black tiles, black fonts, and chr$(0) blank spaces...)
1164. '
1165. ' It's a completely different approach to displaying stuff than what you've been
1166. ' doing, but it seems as if what you've been doing isn't working as it must be
1167. ' running too slow for you.  You wouldn't be able to use the normal PRINT
1168. ' statements to display to the faux screen memory array I've created; you'd have
1169. ' to write your own.
1170. '
1171. ' For a quick speed comparison, here's the same type process ran using PRINT
1172. ' and a software screen of the same size:
1173. ' (TestSoftwareScreen1)
1174.  
1175. ' ################################################################################################################################################################
1176.  
1177. ' /////////////////////////////////////////////////////////////////////////////
1178.  
1179. Function GetInstructions1$
1180.     Dim in$
1181.     in$ = ""
1182.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + Chr$(13)
1183.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + Chr$(13)
1184.     in$ = in$ + " " + Chr$(13)
1185.     in$ = in$ + "SMcNeill, QB64 Developer" + Chr$(13)
1186.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + Chr$(13)
1187.     in$ = in$ + " " + Chr$(13)
1188.     in$ = in$ + "One thing that would be *very* different with all hardware images vs what " + Chr$(13)
1189.     in$ = in$ + "you're doing currently, is the fact that you have to remember:  " + Chr$(13)
1190.     in$ = in$ + "Hardware images display once and then flush themselves from the GPU buffer. " + Chr$(13)
1191.     in$ = in$ + " " + Chr$(13)
1192.     in$ = in$ + "You can't just print to a tile, and then read the information for the color of " + Chr$(13)
1193.     in$ = in$ + "that tile, and instantly turn that color into another one.  You have write " + Chr$(13)
1194.     in$ = in$ + "access to hardware images, but not read access -- and the images aren't " + Chr$(13)
1195.     in$ = in$ + "persistent like the software images are." + Chr$(13)
1196.     in$ = in$ + " " + Chr$(13)
1197.     in$ = in$ + "For something like this to work for a whole screen in hardware image mode, " + Chr$(13)
1198.     in$ = in$ + "you'd have to sort out some sort of way to store your screen's info and then " + Chr$(13)
1199.     in$ = in$ + "constantly redraw everything over and over again to keep it refreshed on the " + Chr$(13)
1200.     in$ = in$ + "display." + Chr$(13)
1201.     in$ = in$ + " " + Chr$(13)
1202.     in$ = in$ + "The way I'd go about doing something like this would be to make myself a " + Chr$(13)
1203.     in$ = in$ + "custom SCREEN 0-style memory array.  Screen 0 stores all our information for " + Chr$(13)
1204.     in$ = in$ + "each character in 2 bytes -- one for color, one for character.  I'd basically " + Chr$(13)
1205.     in$ = in$ + "do the same, but with 3 bytes -- one for tile color, one for font color, one " + Chr$(13)
1206.     in$ = in$ + "for character." + Chr$(13)
1207.     in$ = in$ + " " + Chr$(13)
1208.     in$ = in$ + "Let me toss a simple demo of this line of thinking for you:" + Chr$(13)
1209.     in$ = in$ + " " + Chr$(13)
1210.     in$ = in$ + "I tried to comment the heck out of the code to help explain what it's doing " + Chr$(13)
1211.     in$ = in$ + "from line to line, so I hope this isn't too hard to sort out and understand." + Chr$(13)
1212.     in$ = in$ + " " + Chr$(13)
1213.     in$ = in$ + "The beginning is nothing more than initializing things and making 2 different " + Chr$(13)
1214.     in$ = in$ + "sprite sheets that I'll make use of later -- one for the tiles and one for the " + Chr$(13)
1215.     in$ = in$ + "characters." + Chr$(13)
1216.     in$ = in$ + " " + Chr$(13)
1217.     in$ = in$ + "Then there's the mid section where you can SLEEP step through and view the " + Chr$(13)
1218.     in$ = in$ + "various resource sheets." + Chr$(13)
1219.     in$ = in$ + " " + Chr$(13)
1220.     in$ = in$ + "Then an example of all the characters in a cyan font, resting atop a red tile.  " + Chr$(13)
1221.     in$ = in$ + "(You have to hit ENTER to move on from this screen.)" + Chr$(13)
1222.     in$ = in$ + " " + Chr$(13)
1223.     in$ = in$ + "Then an example of all those tiles that go under the characters being replaced " + Chr$(13)
1224.     in$ = in$ + "with sequential colored tiles.  (A lot of these tiles are simply BLACK, but " + Chr$(13)
1225.     in$ = in$ + "that's the nature of the 256 color palette as those multiple blacks are there " + Chr$(13)
1226.     in$ = in$ + "to be replaced with custom color values instead.)" + Chr$(13)
1227.     in$ = in$ + " " + Chr$(13)
1228.     in$ = in$ + "Once more, you'll have to hit ENTER to continue." + Chr$(13)
1229.     in$ = in$ + " " + Chr$(13)
1230.     in$ = in$ + "And then I do a quick time loop to count how many times we can redraw the whole " + Chr$(13)
1231.     in$ = in$ + "screen of tiles + characters in 3 seconds." + Chr$(13)
1232.     in$ = in$ + " " + Chr$(13)
1233.     in$ = in$ + "For an 800x600 screen (100 x 75 characters and tiles), my laptop does a max of " + Chr$(13)
1234.     in$ = in$ + "about 1800 refreshes in that time.  That's around 600 FPS, which would be more " + Chr$(13)
1235.     in$ = in$ + "than enough for any sort of game display or use that I think I could come up " + Chr$(13)
1236.     in$ = in$ + "with, and that's without me trying to optimize math or any such things to " + Chr$(13)
1237.     in$ = in$ + "reduce calculations and speed the process up any more.  (Keep in mind, this is " + Chr$(13)
1238.     in$ = in$ + "1800 full pages of a 800x600 screen -- if your screen has a lower overall " + Chr$(13)
1239.     in$ = in$ + "resolution, then you'd draw more loops with less to process, but a higher " + Chr$(13)
1240.     in$ = in$ + "resolution screen would draw fewer loops with more to process.)" + Chr$(13)
1241.     in$ = in$ + " " + Chr$(13)
1242.     in$ = in$ + "No _MEM access.  No optimization work.  Just 600 FPS rendering of a whole page " + Chr$(13)
1243.     in$ = in$ + "of tiles and colored characters.  (And, YES, it is a whole page being rendered " + Chr$(13)
1244.     in$ = in$ + "repeatedly -- even if I didn't bother to fill in the vast majority of that page " + Chr$(13)
1245.     in$ = in$ + "with anything more than black tiles, black fonts, and chr$(0) blank spaces...)" + Chr$(13)
1246.     in$ = in$ + " " + Chr$(13)
1247.     in$ = in$ + "It's a completely different approach to displaying stuff than what you've been " + Chr$(13)
1248.     in$ = in$ + "doing, but it seems as if what you've been doing isn't working as it must be " + Chr$(13)
1249.     in$ = in$ + "running too slow for you.  You wouldn't be able to use the normal PRINT " + Chr$(13)
1250.     in$ = in$ + "statements to display to the faux screen memory array I've created; you'd have " + Chr$(13)
1251.     in$ = in$ + "to write your own." + Chr$(13)
1252.     GetInstructions1$ = in$
1253. End Function ' GetInstructions1$
1254.  
1255. ' /////////////////////////////////////////////////////////////////////////////
1256.  
1257. Function GetInstructions2$
1258.     Dim in$
1259.     in$ = ""
1260.     in$ = in$ + "Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?" + Chr$(13)
1261.     in$ = in$ + "https://qb64forum.alephc.xyz/index.php?topic=4674.msg140904#msg140904" + Chr$(13)
1262.     in$ = in$ + " " + Chr$(13)
1263.     in$ = in$ + "SMcNeill, QB64 Developer" + Chr$(13)
1264.     in$ = in$ + "Reply #18 on: Yesterday at 05:08:58 pm" + Chr$(13)
1265.     in$ = in$ + " " + Chr$(13)
1266.     in$ = in$ + "For a quick speed comparison, here's the same type process ran using PRINT " + Chr$(13)
1267.     in$ = in$ + "and a software screen of the same size:" + Chr$(13)
1268.     GetInstructions2$ = in$
1269. End Function ' GetInstructions2$
1270.  
1271. ' ################################################################################################################################################################
1272.  
1273. ' /////////////////////////////////////////////////////////////////////////////
1274.  
1275. Sub TestSoftwareScreen1
1276.     Dim in$
1277.     Dim t## ' _FLOAT
1278.     Dim count As Integer
1279.     Dim iX As Integer
1280.     Dim iY As Integer
1281.     Dim iTile As Integer
1282.  
1283.     Screen _NewImage(800, 600, 32)
1284.     _ControlChr Off
1285.  
1286.     _Font 8
1287.     t## = Timer + 3
1288.     count = 0
1289.     Do
1290.         count = count + 1
1291.         For iX = 1 To 100
1292.             For iY = 1 To 75
1293.                 iTile = (iTile + 1) Mod 256
1294.                 Color _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)
1295.                 Locate iY, iX: Print Chr$(iTile);
1296.             Next iY
1297.         Next iX
1298.     Loop Until Timer > t##
1299.  
1300.     _KeyClear: _Delay 1
1301.     Screen 0: Cls
1302.     Print count; "total screen replacements in 3 seconds."
1303.     Print
1304.     Input "PRESS <ENTER> TO CONTINUE"; in$
1305. End Sub ' TestSoftwareScreen1
1306.  
1307. ' ################################################################################################################################################################
1308. ' END Steve's very different custom screen
1309. ' ################################################################################################################################################################
1310.  
1311.  
1312.  
1313.  
1314.  
1315.  
1316.  
1317.  
1318.  
1319.  
1320.  
1321.  
1322.  
1323.  
1324.  
1325.  
1326.  
1327.  
1328.  
1329.  
1330.  
1331.  
1332.  
1333.  
1334.  
1335.  
1336.  
1337.  
1338.  
1339.  
1340.  
1341.  
1342.  
1343.  
1344.  
1345.  
1346.  
1347.  
1348.  
1349.  
1350.  
1351.  
1352.  
1353.  
1354.  
1355.  
1356.  
1357.  
1358.  
1359.  
1360.  
1361.  
1362.  
1363.  
1364.  
1365.  
1366.  
1367.  
1368.  
1369.  
1370.  
1371.  
1372.  
1373.  
1374.  
1375.  
1376.  
1377.  
1378.  
1379. ' ################################################################################################################################################################
1380. ' BEGIN VECTOR-BASED TILE ROUTINES
1381. ' ################################################################################################################################################################
1382.  
1383. ' /////////////////////////////////////////////////////////////////////////////
1384.  
1385. Sub DrawVectorTilePutImageTest
1386.     Dim imgPalette As Long ' contains palette of colors
1387.     Dim imgScreen As Long ' the main display
1388.     Dim MyString As String
1389.     Dim iLoop As Integer
1390.     Dim iTileNum As Integer
1391.     Dim arrColor(0 To 8) As _Unsigned Long
1392.     Dim arrColorNames(0 To 8) As String
1393.     Dim iMinFgColorIndex As Integer: iMinFgColorIndex = 0
1394.     Dim iMaxFgColorIndex As Integer: iMaxFgColorIndex = 7
1395.     Dim iMinBgColorIndex As Integer: iMinBgColorIndex = 0
1396.     Dim iMaxBgColorIndex As Integer: iMaxBgColorIndex = 8
1397.     Dim iFgColorIndex As Integer: iFgColorIndex = iMinFgColorIndex
1398.     Dim iBgColorIndex As Integer: iBgColorIndex = iMinBgColorIndex
1399.     Dim iX As Integer
1400.     Dim iY As Integer
1401.     Dim iMinX As Integer
1402.     Dim iMaxX As Integer
1403.     Dim iMinY As Integer
1404.     Dim iMaxY As Integer
1405.  
1406.     ' Initialize colors
1407.     arrColor(0) = cBlack
1408.     arrColor(1) = cRed
1409.     arrColor(2) = cYellow
1410.     arrColor(3) = cLime
1411.     arrColor(4) = cCyan
1412.     arrColor(5) = cBlue
1413.     arrColor(6) = cPurple
1414.     arrColor(7) = cMagenta
1415.     arrColor(8) = cEmpty
1416.  
1417.     ' Initialize color names (for test output)
1418.     arrColorNames(0) = "cBlack"
1419.     arrColorNames(1) = "cRed"
1420.     arrColorNames(2) = "cYellow"
1421.     arrColorNames(3) = "cLime"
1422.     arrColorNames(4) = "cCyan"
1423.     arrColorNames(5) = "cBlue"
1424.     arrColorNames(6) = "cPurple"
1425.     arrColorNames(7) = "cMagenta"
1426.     arrColorNames(8) = "cEmpty"
1427.  
1428.     ' Set up screen
1429.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
1430.     Screen imgScreen
1431.     Cls , cGray
1432.  
1433.     ' Generate color palette
1434.     MakePaletteImage imgPalette, arrColor()
1435.  
1436.     '' Draw palette on screen:
1437.     ''_PutImage (xDest%, yDest%), imgSource&, imgDest&, (sx1%, sy1%)-(sx2%, sy2%)
1438.     '_PutImage (400, 300), imgPalette, imgScreen, (0,0)-(_WIDTH(imgPalette), _HEIGHT(imgPalette))
1439.  
1440.     ' Set up tiles
1441.     GetVectorTiles
1442.  
1443.     ' Set up screen boundaries, initial colors, etc.
1444.     iMinX = 0: iMaxX = _Width(0) \ 8
1445.     iMinY = 0: iMaxY = _Height(0) \ 8
1446.     DebugPrint "iMaxX = _Width(0) = " + cstr$(iMaxX)
1447.     DebugPrint "iMaxY = _Height(0) = " + cstr$(iMaxY)
1448.  
1449.     iFgColorIndex = iMinFgColorIndex - 1
1450.  
1451.     ' Freeze dislay
1452.     _Display
1453.  
1454.     ' Test text
1455.     'MyString = "#"
1456.     'MyString = "BOO!"
1457.     MyString = "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1458.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1459.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1460.         "THIS IS A TEST!"
1461.  
1462.     iY = 5
1463.     iX = 5
1464.     For iLoop = 1 To Len(MyString)
1465.         iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iMaxFgColorIndex Then iFgColorIndex = iMinFgColorIndex
1466.         iBgColorIndex = iBgColorIndex + 1: If iBgColorIndex > iMaxBgColorIndex Then iBgColorIndex = iMinBgColorIndex
1467.         iTileNum = Asc(Mid$(MyString, iLoop, 1))
1468.         If iTileNum = 13 Then
1469.             ' Linebreak = go to a new line
1470.             iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
1471.         Else
1472.             DrawVectorTilePutImage _
1473.                 imgScreen, imgPalette, arrColor(), _
1474.                 iTileNum, iX, iY, _
1475.                 iFgColorIndex, iBgColorIndex
1476.             iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
1477.             'iX = iX + 1: iY = iY + 1
1478.             If iX > iMaxX Then iX = iMinX
1479.             If iY > iMaxY Then iY = iMinY
1480.         End If
1481.     Next iLoop
1482.  
1483.     ' Resume display
1484.     _Display
1485.     _AutoDisplay
1486.  
1487.     ' Promput user
1488.     Color cWhite, cBlack: Locate 22, 1
1489.     Print "Press any key to continue";
1490.     Sleep
1491.  
1492.     Screen 0 ' RETURN TO TEXT SCREEN
1493.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
1494. End Sub ' DrawVectorTilePutImageTest
1495.  
1496. ' /////////////////////////////////////////////////////////////////////////////
1497. ' Draw the shape with _PutImage commands using hardware images:
1498.  
1499. ' Requires that this global shared variable be declared:
1500. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
1501. ' containing
1502. '     m_arrLineTiles({iTileNum}, {iShapeNum})
1503. ' where for each tile, dimension 2 index 0:
1504. '     m_arrLineTiles({iTileNum}, 0).PixelCount
1505. ' holds the last used {iShapeNum} index.
1506.  
1507. ' Receives:
1508. ' imgScreen& = image handle of the screen to draw to
1509. ' imgPalette& = image handle of the palette containing 8x8 squares each with the desired color
1510. ' arrColor() = array containing _UNSIGNED Long RGB color values
1511. ' iTileNum% = 0-255, number of the tile in m_arrLineTiles to draw
1512. ' iX, iY = x/y position to draw 8x8 tile to (multiplied by 8 to get screen position)
1513. ' fgColor, bgColor = index for foreground/background color in arrColor (which contains the actual RGB values)
1514.  
1515. Sub DrawVectorTilePutImage( _
1516.     imgScreen&, imgPalette&, arrColor() as _UNSIGNED Long, _
1517.     iTileNum As Integer, iX As Integer, iY As Integer, _
1518.     fgColorIndex As Integer, bgColorIndex As Integer)
1519.  
1520.     Dim iLoop As Integer
1521.  
1522.     Dim sc% ' source column on tile sheet
1523.     Dim sr% ' source row on tile sheet
1524.     Dim sx1% ' source start x
1525.     Dim sx2% ' source end x
1526.     Dim sy1% ' source start y
1527.     Dim sy2% ' source end y
1528.     Dim xDest% ' destination x
1529.     Dim yDest% ' destination y
1530.  
1531.     ' Copy from palette
1532.     _Source imgPalette&
1533.  
1534.     ' Draw to screen
1535.     _Dest imgScreen&
1536.  
1537.     ' GET THE ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
1538.     sr% = 0 ' TileNum% \ rows%
1539.  
1540.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
1541.     sy1% = sr% * 8
1542.  
1543.     ' draw background if not transparent
1544.     If bgColorIndex >= LBound(arrColor) Then
1545.         If bgColorIndex <= UBound(arrColor) Then
1546.             If arrColor(bgColorIndex) <> cEmpty Then
1547.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
1548.                 sc% = bgColorIndex ' TileNum% Mod rows%
1549.  
1550.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
1551.                 sx1% = sc% * 8
1552.  
1553.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
1554.                 sx2% = sx1% + 7
1555.  
1556.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
1557.                 sy2% = sy1% + 7
1558.  
1559.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
1560.                 xDest% = iX * 8 ' dx% * 8
1561.  
1562.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
1563.                 yDest% = iY * 8 ' (dy% * 8) '+ yOffset%
1564.  
1565.                 ' Copy portion of source to the top-left corner of the destination page
1566.                 _PutImage (xDest%, yDest%), _
1567.                     imgPalette&, imgScreen&, _
1568.                     (sx1%, sy1%)-(sx2%, sy2%)
1569.             End If
1570.         End If
1571.     End If
1572.  
1573.     If fgColorIndex >= LBound(arrColor) Then
1574.         If fgColorIndex <= UBound(arrColor) Then
1575.             For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
1576.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
1577.                 sc% = fgColorIndex ' TileNum% Mod rows%
1578.  
1579.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
1580.                 sx1% = sc% * 8
1581.  
1582.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
1583.                 'sx2% = sx1% + 7
1584.                 sx2% = sx1% + (m_arrLineTiles(iTileNum, iLoop).x2 - m_arrLineTiles(iTileNum, iLoop).x1)
1585.  
1586.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
1587.                 'sy2% = sy1% + 7
1588.                 sy2% = sy1% + (m_arrLineTiles(iTileNum, iLoop).y2 - m_arrLineTiles(iTileNum, iLoop).y1)
1589.  
1590.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
1591.                 xDest% = (iX * 8) + m_arrLineTiles(iTileNum, iLoop).x1 ' dx% * 8
1592.  
1593.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
1594.                 yDest% = (iY * 8) + m_arrLineTiles(iTileNum, iLoop).y1 ' (dy% * 8) '+ yOffset%
1595.  
1596.                 ' Copy portion of source to the top-left corner of the destination page
1597.                 _PutImage (xDest%, yDest%), _
1598.                     imgPalette&, imgScreen&, _
1599.                     (sx1%, sy1%)-(sx2%, sy2%)
1600.  
1601.             Next iLoop
1602.         End If
1603.     End If
1604. End Sub ' DrawVectorTilePutImage
1605.  
1606. ' /////////////////////////////////////////////////////////////////////////////
1607. ' (Same as DrawVectorTilePutImage but uses hardware images.)
1608.  
1609. ' Draw the shape with _PutImage commands using hardware images:
1610.  
1611. ' Requires that this global shared variable be declared:
1612. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
1613. ' containing
1614. '     m_arrLineTiles({iTileNum}, {iShapeNum})
1615. ' where for each tile, dimension 2 index 0:
1616. '     m_arrLineTiles({iTileNum}, 0).PixelCount
1617. ' holds the last used {iShapeNum} index.
1618.  
1619. ' Receives:
1620. ' imgScreen& = image handle of hardware image for the screen to draw to
1621. ' imgPalette& = image handle of hardware image for palette containing 8x8 squares each with the desired color
1622. ' arrColor() = array containing _UNSIGNED Long RGB color values
1623. ' iTileNum% = 0-255, number of the tile in m_arrLineTiles to draw
1624. ' iX, iY = x/y position to draw 8x8 tile to (multiplied by 8 to get screen position)
1625. ' fgColor, bgColor = index for foreground/background color in arrColor (which contains the actual RGB values)
1626.  
1627. Sub DrawVectorTilePutImageHW( _
1628.     imgPalette&, arrColor() as _UNSIGNED Long, _
1629.     iTileNum As Integer, iX As Integer, iY As Integer, _
1630.     fgColorIndex As Integer, bgColorIndex As Integer)
1631.  
1632.     Dim iLoop As Integer
1633.     Dim sc% ' source column on tile sheet
1634.     Dim sr% ' source row on tile sheet
1635.     Dim sx1% ' source start x
1636.     Dim sx2% ' source end x
1637.     Dim sy1% ' source start y
1638.     Dim sy2% ' source end y
1639.     Dim xDest% ' destination x
1640.     Dim yDest% ' destination y
1641.  
1642.     ' GET THE ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
1643.     sr% = 0 ' TileNum% \ rows%
1644.  
1645.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
1646.     sy1% = sr% * 8
1647.  
1648.     ' draw background if not transparent
1649.     If bgColorIndex >= LBound(arrColor) Then
1650.         If bgColorIndex <= UBound(arrColor) Then
1651.             If arrColor(bgColorIndex) <> cEmpty Then
1652.                 ' GET THE COLUMN OF TILE # TileNum% ON THE SOURCE TILE SHEET
1653.                 sc% = bgColorIndex ' TileNum% Mod rows%
1654.  
1655.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
1656.                 sx1% = sc% * 8
1657.  
1658.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
1659.                 sx2% = sx1% + 7
1660.  
1661.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
1662.                 sy2% = sy1% + 7
1663.  
1664.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
1665.                 xDest% = iX * 8
1666.  
1667.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
1668.                 yDest% = iY * 8
1669.  
1670.                 ' Copy portion of source to the top-left corner of the destination page
1671.                 _PutImage (xDest%, yDest%), _
1672.                     imgPalette&, , _
1673.                     (sx1%, sy1%)-(sx2%, sy2%)
1674.             End If
1675.         End If
1676.     End If
1677.  
1678.     If fgColorIndex >= LBound(arrColor) Then
1679.         If fgColorIndex <= UBound(arrColor) Then
1680.             For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
1681.                 ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
1682.                 sc% = fgColorIndex ' TileNum% Mod rows%
1683.  
1684.                 ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
1685.                 sx1% = sc% * 8
1686.  
1687.                 ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
1688.                 sx2% = sx1% + (m_arrLineTiles(iTileNum, iLoop).x2 - m_arrLineTiles(iTileNum, iLoop).x1)
1689.  
1690.                 ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
1691.                 sy2% = sy1% + (m_arrLineTiles(iTileNum, iLoop).y2 - m_arrLineTiles(iTileNum, iLoop).y1)
1692.  
1693.                 ' GET THE DESTINATION X COORDINATE ON THE SCREEN
1694.                 xDest% = (iX * 8) + m_arrLineTiles(iTileNum, iLoop).x1
1695.  
1696.                 ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
1697.                 yDest% = (iY * 8) + m_arrLineTiles(iTileNum, iLoop).y1
1698.  
1699.                 ' Copy portion of source to the top-left corner of the destination page
1700.                 _PutImage (xDest%, yDest%), _
1701.                     imgPalette&, , _
1702.                     (sx1%, sy1%)-(sx2%, sy2%)
1703.             Next iLoop
1704.         End If
1705.     End If
1706. End Sub ' DrawVectorTilePutImageHW
1707.  
1708. ' /////////////////////////////////////////////////////////////////////////////
1709. ' Receives an array of _Unsigned Long RGB color values
1710. ' and returns a new image imgNew
1711. ' containing 8x8 squares with each color
1712.  
1713. ' Usage:
1714. ' MakePaletteImage imgNew, arrColorRGB()
1715.  
1716. Sub MakePaletteImage (imgNew As Long, arrColorRGB() As _Unsigned Long)
1717.     Dim tw% ' width/height of tile
1718.     Dim iCount As Integer
1719.     Dim iY As Integer
1720.     Dim iX As Integer
1721.     Dim iLoop1 As Integer
1722.  
1723.     tw% = 8 ' SIZE OF TILE
1724.  
1725.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
1726.  
1727.     iY = tw%
1728.     iX = ((UBound(arrColorRGB) - LBound(arrColorRGB)) + 1) * tw%
1729.     If iX > 0 Then
1730.         imgNew = _NewImage(iX, iY, 32)
1731.         _Dest imgNew&
1732.  
1733.         iY = 0
1734.         iCount = -1
1735.         For iLoop1 = LBound(arrColorRGB) To UBound(arrColorRGB)
1736.             iCount = iCount + 1
1737.             iX = iCount * tw%
1738.             Line (iX, iY)-(iX + 7, iY + 7), arrColorRGB(iCount), BF
1739.         Next iLoop1
1740.     End If
1741. End Sub ' MakePaletteImage
1742.  
1743. ' /////////////////////////////////////////////////////////////////////////////
1744.  
1745. Sub MakePaletteImageTest
1746.     Dim arrColor(0 To 7) As _Unsigned Long
1747.     Dim imgPalette As Long ' contains palette of colors
1748.     Dim imgScreen As Long ' the main display
1749.  
1750.     arrColor(0) = cBlack
1751.     arrColor(1) = cRed
1752.     arrColor(2) = cYellow
1753.     arrColor(3) = cLime
1754.     arrColor(4) = cCyan
1755.     arrColor(5) = cBlue
1756.     arrColor(6) = cPurple
1757.     arrColor(7) = cMagenta
1758.     'arrColor(8) = cEmpty
1759.  
1760.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
1761.     Screen imgScreen
1762.     Cls , cGray
1763.  
1764.     MakePaletteImage imgPalette, arrColor()
1765.  
1766.     ' Draw palette on screen:
1767.     '_PutImage (xDest%, yDest%), imgSource&, imgDest&, (sx1%, sy1%)-(sx2%, sy2%)
1768.     _PutImage (400, 300), imgPalette, imgScreen, (0, 0)-(_Width(imgPalette), _Height(imgPalette))
1769.  
1770.     ' Promput user
1771.     _Dest imgScreen
1772.     Color cWhite, cBlack
1773.     'PrintString1 15, 1, "Press any key to continue"
1774.     Locate 15, 1: Print "Press any key to continue";
1775.     Sleep
1776.  
1777.     Screen 0 ' RETURN TO TEXT SCREEN
1778.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
1779.  
1780. End Sub ' MakePaletteImage
1781.  
1782. ' /////////////////////////////////////////////////////////////////////////////
1783. ' Draw the shape with Line commands:
1784.  
1785. ' Requires that this global shared variable be declared:
1786. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
1787. ' containing
1788. '     m_arrLineTiles({iTileNum}, {iShapeNum})
1789. ' where for each tile, dimension 2 index 0:
1790. '     m_arrLineTiles({iTileNum}, 0).PixelCount
1791. ' holds the last used {iShapeNum} index.
1792.  
1793. Sub DrawVectorTileLine (iTileNum As Integer, iX As Integer, iY As Integer, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
1794.     If bgColor <> cEmpty Then
1795.         Line (iX, iY)-(iX + 7, iY + 7), bgColor, BF
1796.     End If
1797.     Dim iLoop As Integer
1798.     For iLoop = 1 To m_arrLineTiles(iTileNum, 0).PixelCount
1799.         Line (iX+m_arrLineTiles(iTileNum, iLoop).x1, _
1800.             iY+m_arrLineTiles(iTileNum, iLoop).y1 _
1801.             )-(iX+m_arrLineTiles(iTileNum, iLoop).x2, _
1802.             iY+m_arrLineTiles(iTileNum, iLoop).y2), _
1803.             fgColor, BF
1804.     Next iLoop
1805. End Sub ' DrawVectorTileLine
1806.  
1807. ' /////////////////////////////////////////////////////////////////////////////
1808. ' Get line drawing coordinates for 8x8 tileset.
1809.  
1810. ' Requires that this global shared variable be declared:
1811. '     Dim Shared m_arrLineTiles(0 To 255, 0 To 32) As RectangleType
1812. ' containing
1813. '     m_arrLineTiles({iTileNum}, {iShapeNum})
1814. ' where for each tile, dimension 2 index 0:
1815. '     m_arrLineTiles({iTileNum}, 0).PixelCount
1816. ' holds the last used {iShapeNum} index.
1817.  
1818. ' VECTOR TILE DRAWING EXPERIMENT
1819.  
1820. ' Translates an 8x8 raster tileset into a set of (hopefully)
1821. ' optimized rectangle coordinates that can be quickly drawn to
1822. ' the screen with Line.
1823.  
1824. ' GOAL: Optimize for each shape by determining how to draw it with the
1825. ' minimum number of line commands.
1826. '
1827. ' For example this:
1828. '     ' DRAW WITH HORIZONTAL LINES
1829. '     Line (iX + 6, iY + 3)-(iX + 6, iY + 3), fgColor
1830. '     Line (iX + 6, iY + 4)-(iX + 6, iY + 4), fgColor
1831. ' could be replaced with:
1832. '     ' DRAW WITH VERTICAL LINES
1833. '     Line (iX + 6, iY + 3)-(iX + 6, iY + 4), fgColor
1834.  
1835. ' For each tile, we store a list of line coordinates (x1,y1,x2,y2)
1836. ' in a 2D array, and draw using a simple drawing routine that
1837. ' receives the list of coordinates, fgColor and bgColor,
1838. ' and draws all shapes (solid rectangles) with Line.
1839. ' If bgColor is not transparent and if we want a background color
1840. ' then we first draw an 8x8 bgColor rectangle first and then
1841. ' draw the shape on top of that.
1842.  
1843. ' Rather than compute this on the fly, we could precompute it and
1844. ' for each given tile, store the list of those rectangle coordinates
1845. ' (x1,y1,x2,y2) for drawing it indexed by the tile's definition in
1846. ' hexidecimal where 16-bits (0-F) defines the bit pattern for each
1847. ' row in the tile, therefore a tile's definition can be stored by
1848. ' 8 characters (or less if we use base 64). Perhaps build a utility
1849. ' that will compute the optimal drawing pattern for every possible
1850. ' combination of an 8x8 grid, and index them all by the tile's 8-byte
1851. ' hexidecimal definition. It might take a while to run, but once it
1852. ' does, we will have a database of every possible tile's optimized
1853. ' drawing instructions that can be quickly looked up.
1854. ' Then we only pull out those definitions for the tiles that our
1855. ' given program uses, so the data would be relatively small
1856. ' (even smaller if we encode it with base-64).
1857.  
1858. ' TODO: maybe optimize with linked list?
1859.  
1860. Sub GetVectorTiles
1861.     Dim RoutineName As String: RoutineName = "GetVectorTiles"
1862.     ReDim arrTileText(0 To 255) As String
1863.     ReDim arrShapes1(-1) As RectangleType
1864.     Dim iTileNum As Integer
1865.     Dim iLoop1 As Integer
1866.     Dim sLine As String
1867.     Dim iLen As Integer
1868.  
1869.     '' DEBUG
1870.     'Dim sStartTime As String : sStartTime = "TBD"
1871.     'Dim sEndTime As String : sEndTime = "TBD"
1872.     'sStartTime = CurrentDateTime$
1873.     'DebugPrint CurrentDateTime$ + " started " + RoutineName
1874.  
1875.     ' Get raster tiles as a string array
1876.     GetTileText arrTileText()
1877.  
1878.     ' Get minimum set of Line coordinates for each tile
1879.     For iTileNum = 0 To 255
1880.         FindOptimizedVector arrTileText(iTileNum), arrShapes1()
1881.  
1882.         ' If we have coordinates, add it to the database
1883.         If UBound(arrShapes1) > -1 Then
1884.  
1885.             'DebugPrint "#   x1   y1   x2   y2   Pixels    IsActive"
1886.             'for iLoop1 = lbound(arrShapes1) to ubound(arrShapes1)
1887.             '    sLine = ""
1888.             '    sLine = sLine + left$(cstr$(iLoop1) + String$(4, " "), 4)
1889.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).x1) + String$(2, " "), 2) + "   "
1890.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).y1) + String$(2, " "), 2) + "   "
1891.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).x2) + String$(2, " "), 2) + "   "
1892.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).y2) + String$(2, " "), 2) + "   "
1893.             '    sLine = sLine + left$(cstr$(arrShapes1(iLoop1).PixelCount) + String$(7, " "), 7) + "   "
1894.             '    sLine = sLine + TrueFalse$(arrShapes1(iLoop1).IsActive)
1895.             '    DebugPrint sLine
1896.             'next iLoop1
1897.  
1898.             ' SAVE SHAPES TO TILE
1899.             iLen = 0
1900.             For iLoop1 = LBound(arrShapes1) To UBound(arrShapes1)
1901.                 If arrShapes1(iLoop1).IsActive = TRUE Then
1902.                     iLen = iLen + 1
1903.  
1904.                     ' NOTE: we do -1 because FindOptimizedVector does it 1-based,
1905.                     '       don't ask me why, i was confused and don't want to
1906.                     '       spend time right now to fix it,
1907.                     '       but it saves math later to do 0-based
1908.                     m_arrLineTiles(iTileNum, iLen).x1 = arrShapes1(iLoop1).x1 - 1
1909.                     m_arrLineTiles(iTileNum, iLen).y1 = arrShapes1(iLoop1).y1 - 1
1910.                     m_arrLineTiles(iTileNum, iLen).x2 = arrShapes1(iLoop1).x2 - 1
1911.                     m_arrLineTiles(iTileNum, iLen).y2 = arrShapes1(iLoop1).y2 - 1
1912.  
1913.                     m_arrLineTiles(iTileNum, iLen).PixelCount = arrShapes1(iLoop1).PixelCount
1914.                     m_arrLineTiles(iTileNum, iLen).IsActive = arrShapes1(iLoop1).IsActive
1915.                 End If
1916.             Next iLoop1
1917.  
1918.             ' MARK TILE (ubound 2, index 0) AS HAVING SHAPES + SAVE COUNT
1919.             m_arrLineTiles(iTileNum, 0).IsActive = TRUE
1920.             m_arrLineTiles(iTileNum, 0).PixelCount = iLen ' (iTileNum, 0).PixelCount stores the # of shapes
1921.  
1922.             ' DISABLE ANY REMAINING ENTRIES
1923.             For iLoop1 = (iLen + 1) To UBound(m_arrLineTiles, 2)
1924.                 m_arrLineTiles(iTileNum, iLoop1).IsActive = FALSE
1925.             Next iLoop1
1926.  
1927.         Else
1928.             ' This tile must have been blank
1929.             'DebugPrint "*** NO SHAPES TO DRAW THIS TILE ***"
1930.  
1931.             ' MARK THIS TILE AS HAVING NO SHAPES
1932.             m_arrLineTiles(iTileNum, 0).IsActive = FALSE
1933.             m_arrLineTiles(iTileNum, 0).PixelCount = 0 ' (iTileNum, 0).PixelCount stores the # of shapes
1934.         End If
1935.     Next iTileNum
1936.  
1937.     '' DEBUG
1938.     'sEndTime = CurrentDateTime$
1939.     'DebugPrint RoutineName + " finished:"
1940.     'DebugPrint "    started  at: " + sStartTime
1941.     'DebugPrint "    finished at: " + sEndTime
1942. End Sub ' GetVectorTiles
1943.  
1944. ' /////////////////////////////////////////////////////////////////////////////
1945. ' 254 solid
1946. ' 253 empty
1947. ' 252 shaded
1948. ' 241 bricks
1949. ' 191 checker
1950. ' 194 - 197 arrows u/d/l/r
1951. ' 169 top left corner
1952. ' 154 diamond
1953. ' 155 +
1954. ' 151 empty circle
1955. ' 145 solid circle
1956. ' 147 heart
1957.  
1958. Sub GetVectorTilesTest
1959.     Dim imgScreen As Long ' the main display
1960.     Dim MyString As String
1961.     Dim iLoop As Integer
1962.     Dim iTileNum As Integer
1963.     Dim arrColor(0 To 8) As _Unsigned Long
1964.     Dim iMinFgColorIndex As Integer: iMinFgColorIndex = 0
1965.     Dim iMaxFgColorIndex As Integer: iMaxFgColorIndex = 7
1966.     Dim iMinBgColorIndex As Integer: iMinBgColorIndex = 0
1967.     Dim iMaxBgColorIndex As Integer: iMaxBgColorIndex = 8
1968.     Dim iFgColorIndex As Integer: iFgColorIndex = iMinFgColorIndex
1969.     Dim iBgColorIndex As Integer: iBgColorIndex = iMinBgColorIndex
1970.     Dim iX As Integer
1971.     Dim iY As Integer
1972.     Dim iMinX As Integer
1973.     Dim iMaxX As Integer
1974.     Dim iMinY As Integer
1975.     Dim iMaxY As Integer
1976.  
1977.     ' Initialize colors
1978.     arrColor(0) = cBlack
1979.     arrColor(1) = cRed
1980.     arrColor(2) = cYellow
1981.     arrColor(3) = cLime
1982.     arrColor(4) = cCyan
1983.     arrColor(5) = cBlue
1984.     arrColor(6) = cPurple
1985.     arrColor(7) = cMagenta
1986.     arrColor(8) = cEmpty
1987.  
1988.     ' Set up screen
1989.     imgScreen = _NewImage(1024, 768, 32): _ScreenMove 0, 0
1990.     Screen imgScreen
1991.     Cls , cGray
1992.  
1993.     ' Set up tiles
1994.     GetVectorTiles
1995.  
1996.     ' Test text
1997.     MyString = "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1998.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
1999.         "HELLO WORLD " + chr$(147) + " " + chr$(154) + " " + chr$(191) + chr$(13) + _
2000.         "THIS IS A TEST!"
2001.  
2002.     ' Set up screen boundaries, initial colors, etc.
2003.     iMinX = 0: iMaxX = _Width(0) \ 8
2004.     iMinY = 0: iMaxY = _Height(0) \ 8
2005.     iFgColorIndex = iMinFgColorIndex - 1
2006.     iY = 5
2007.     iX = 5
2008.     For iLoop = 1 To Len(MyString)
2009.         iFgColorIndex = iFgColorIndex + 1: If iFgColorIndex > iMaxFgColorIndex Then iFgColorIndex = iMinFgColorIndex
2010.         iBgColorIndex = iBgColorIndex + 1: If iBgColorIndex > iMaxBgColorIndex Then iBgColorIndex = iMinBgColorIndex
2011.  
2012.         iTileNum = Asc(Mid$(MyString, iLoop, 1))
2013.         If iTileNum = 13 Then
2014.             ' Linebreak = go to a new line
2015.             iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
2016.         Else
2017.             'DrawVectorTileLine iTileNum, iX*8, iY*8, arrColor(iFgColorIndex), cEmpty
2018.             DrawVectorTileLine iTileNum, iX * 8, iY * 8, arrColor(iFgColorIndex), arrColor(iBgColorIndex)
2019.             iX = iX + 1: If iX > iMaxX Then iX = iMinX: iY = iY + 1: If iY > iMaxY Then iY = iMinY
2020.         End If
2021.  
2022.     Next iLoop
2023.  
2024.     ' Promput user
2025.     Color cWhite, cBlack: Locate 22, 1
2026.     Print "Press any key to continue";
2027.     Sleep
2028.  
2029.     Screen 0 ' RETURN TO TEXT SCREEN
2030.     If imgScreen < -1 Or imgScreen > 0 Then _FreeImage imgScreen ' FREE MEMORY
2031. End Sub ' GetVectorTilesTest
2032.  
2033. ' /////////////////////////////////////////////////////////////////////////////
2034. ' Calculates and returns the coordinates for every possible rectangle shape
2035. ' from 1-8 pixels high, and 1-8 pixels wide.
2036.  
2037. Sub GetAllPossibleShapes (arrShapes1() As RectangleType)
2038.     ReDim arrShapes1(-1) As RectangleType
2039.     Dim iLoopRows As Integer
2040.     Dim iLoopCols As Integer
2041.     Dim iIndex As Integer
2042.     Dim iLoopY As Integer
2043.     Dim iLoopX As Integer
2044.  
2045.     For iLoopRows = 1 To 8
2046.         For iLoopCols = 1 To 8
2047.             ' Add next shape to array
2048.             iIndex = UBound(arrShapes1) + 1
2049.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
2050.  
2051.             ' Save coordinates
2052.             arrShapes1(iIndex).x1 = 1
2053.             arrShapes1(iIndex).y1 = 1
2054.             arrShapes1(iIndex).x2 = iLoopCols
2055.             arrShapes1(iIndex).y2 = iLoopRows
2056.             arrShapes1(UBound(arrShapes1)).PixelCount = 0
2057.  
2058.             ' Count Pixels
2059.             For iLoopY = 1 To 8
2060.                 For iLoopX = 1 To 8
2061.                     if _
2062.                         iLoopY >= arrShapes1(iIndex).y1 _
2063.                         and _
2064.                         iLoopY <= arrShapes1(iIndex).y2 _
2065.                         and _
2066.                         iLoopX >= arrShapes1(iIndex).x1 _
2067.                         and _
2068.                         iLoopX <= arrShapes1(iIndex).x2 _
2069.                         then
2070.  
2071.                         'sLine = sLine + "#"
2072.                         arrShapes1(UBound(arrShapes1)).PixelCount = arrShapes1(UBound(arrShapes1)).PixelCount + 1
2073.                     Else
2074.                         'sLine = sLine + "."
2075.                     End If
2076.                 Next iLoopX
2077.                 'DebugPrint sLine
2078.             Next iLoopY
2079.  
2080.         Next iLoopCols
2081.     Next iLoopRows
2082. End Sub ' GetAllPossibleShapes
2083.  
2084. ' /////////////////////////////////////////////////////////////////////////////
2085. ' Tests GetAllPossibleShapes to retrieve the coordinates for every possible
2086. ' rectangle shape from 1-8 pixels high, and 1-8 pixels wide,
2087. ' and uses Line to draw them on the screen.
2088.  
2089. Sub GetAllPossibleShapesTest
2090.     ReDim arrShapes1(-1) As RectangleType
2091.     Dim arrColor(0 To 7) As _Unsigned Long
2092.     Dim iLoopShape As Integer
2093.     Dim iOffsetY As Integer
2094.     Dim iOffsetX As Integer
2095.     Dim iColorIndex As Integer
2096.     Dim iMinColorIndex As Integer: iMinColorIndex = 1
2097.     Dim iMaxColorIndex As Integer: iMaxColorIndex = 7
2098.     Dim in$
2099.     Dim iX As Integer
2100.     Dim iY As Integer
2101.     Dim iSizeW As Integer
2102.     Dim iSizeH As Integer
2103.     Dim fgColor As _Unsigned Long
2104.     Dim iMinX As Integer
2105.     Dim iMinY As Integer
2106.     Dim iMaxX As Integer
2107.     Dim iMaxY As Integer
2108.  
2109.     Screen _NewImage(1280, 1024, 32): _ScreenMove 0, 0
2110.     iMinX = 0
2111.     iMinY = 17
2112.     iMaxX = (_Width(0) / 8) ' iMaxX = _Width(0) - 16
2113.     iMaxY = _Height(0) - 16
2114.     iOffsetY = iMinY
2115.     iOffsetX = iMinX
2116.  
2117.     arrColor(0) = cBlack
2118.     arrColor(1) = cRed
2119.     arrColor(2) = cYellow
2120.     arrColor(3) = cLime
2121.     arrColor(4) = cCyan
2122.     arrColor(5) = cBlue
2123.     arrColor(6) = cPurple
2124.     arrColor(7) = cMagenta
2125.  
2126.     GetAllPossibleShapes arrShapes1()
2127.  
2128.     iColorIndex = iMinColorIndex
2129.     For iLoopShape = 0 To UBound(arrShapes1)
2130.         DebugPrint _
2131.             "(" + cstr$(arrShapes1(iLoopShape).x1) + ", " + cstr$(arrShapes1(iLoopShape).y1) + ")-" + _
2132.             "(" + cstr$(arrShapes1(iLoopShape).x2) + ", " + cstr$(arrShapes1(iLoopShape).y2) + ") " + _
2133.             cstr$(arrShapes1(iLoopShape).PixelCount) + " pixels"
2134.  
2135.         iX = arrShapes1(iLoopShape).x1 + iOffsetX
2136.         iY = arrShapes1(iLoopShape).y1 + iOffsetY
2137.         iSizeW = (arrShapes1(iLoopShape).x2 - arrShapes1(iLoopShape).x1) + 1
2138.         iSizeH = (arrShapes1(iLoopShape).y2 - arrShapes1(iLoopShape).y1) + 1
2139.         fgColor = arrColor(iColorIndex)
2140.         DrawRectSolid iX, iY, iSizeW, iSizeH, fgColor
2141.  
2142.         iOffsetX = iOffsetX + 16: If iOffsetX > iMaxX Then iOffsetX = iMinX: iOffsetY = iOffsetY + 16: If iOffsetY > iMaxY Then iOffsetY = iMinY
2143.         iColorIndex = iColorIndex + 1: If iColorIndex > iMaxColorIndex Then iColorIndex = iMinColorIndex
2144.     Next iLoopShape
2145.  
2146.     Locate 1, 1
2147.     Color cWhite, cBlack
2148.     Input "PRESS <ENTER> TO CONTINUE"; in$
2149.     Screen 0
2150. End Sub ' GetAllPossibleShapes
2151.  
2152. ' /////////////////////////////////////////////////////////////////////////////
2153.  
2154. Sub DumpNextShape (oShape As RectangleType, sVarName As String)
2155.     Dim iLoopY As Integer
2156.     Dim iLoopX As Integer
2157.     Dim sLine As String
2158.  
2159.     If Len(sVarName) > 0 Then
2160.         DebugPrint sVarName + ":"
2161.     Else
2162.         DebugPrint "RectangleType:"
2163.     End If
2164.  
2165.     DebugPrint _
2166.         "(" + cstr$(oShape.x1) + ", " + cstr$(oShape.y1) + ")-" + _
2167.         "(" + cstr$(oShape.x2) + ", " + cstr$(oShape.y2) + ") " + _
2168.         cstr$(oShape.PixelCount) + " pixels, " + _
2169.         "IsActive=" + TrueFalse$(oShape.IsActive)
2170.  
2171.     For iLoopY = 1 To 8
2172.         sLine = ""
2173.         For iLoopX = 1 To 8
2174.             if _
2175.                 iLoopY >= oShape.y1 _
2176.                 and _
2177.                 iLoopY <= oShape.y2 _
2178.                 and _
2179.                 iLoopX >= oShape.x1 _
2180.                 and _
2181.                 iLoopX <= oShape.x2 _
2182.                 then
2183.  
2184.                 sLine = sLine + "#"
2185.             Else
2186.                 sLine = sLine + "."
2187.             End If
2188.         Next iLoopX
2189.         DebugPrint sLine
2190.     Next iLoopY
2191.     DebugPrint ""
2192. End Sub ' DumpNextShape
2193.  
2194. ' /////////////////////////////////////////////////////////////////////////////
2195. ' Dump all shapes in array.
2196.  
2197. ' {i} in sVarName is replaced by array index
2198.  
2199. Sub DumpShapeList (arrShapes() As RectangleType, sVarName As String)
2200.     Dim iLoop1 As Integer
2201.     Dim sNextVarName As String
2202.  
2203.     For iLoop1 = 0 To UBound(arrShapes3)
2204.         sNextVarName = Replace$(sVarName, "{i}", cstr$(iLoop1))
2205.         DumpNextShape arrShapes(iLoop1), sVarName
2206.     Next iLoop1
2207. End Sub ' DumpShapeList
2208.  
2209. ' /////////////////////////////////////////////////////////////////////////////
2210. ' Receives an array of shapes
2211. '
2212. Sub GetActiveShapes (arrShapes2() As RectangleType, arrShapes3() As RectangleType)
2213.     Dim iLoopShape As Integer
2214.     Dim iIndex As Integer
2215.     ReDim arrShapes3(-1) As RectangleType
2216.     For iLoopShape = 0 To UBound(arrShapes2)
2217.         If arrShapes2(iLoopShape).IsActive = TRUE Then
2218.             iIndex = UBound(arrShapes3) + 1
2219.             ReDim _Preserve arrShapes3(0 To iIndex) As RectangleType
2220.             arrShapes3(iIndex).y1 = arrShapes2(iLoopShape).y1
2221.             arrShapes3(iIndex).x1 = arrShapes2(iLoopShape).x1
2222.             arrShapes3(iIndex).y2 = arrShapes2(iLoopShape).y2
2223.             arrShapes3(iIndex).x2 = arrShapes2(iLoopShape).x2
2224.             arrShapes3(iIndex).PixelCount = arrShapes2(iLoopShape).PixelCount
2225.             arrShapes3(iIndex).IsActive = arrShapes2(iLoopShape).IsActive
2226.         End If
2227.     Next iLoopShape
2228. End Sub ' GetActiveShapes
2229.  
2230. ' /////////////////////////////////////////////////////////////////////////////
2231.  
2232. Function DelimIntegerListsAreEqual% (sList1 As String, sList2 As String, sDelim As String)
2233.     Dim bResult As Integer: bResult = FALSE
2234.     Dim arrList1(-1) As Integer
2235.     Dim arrList2(-1) As Integer
2236.     Dim iLoop1 As Integer
2237.     Dim iLoop2 As Integer
2238.     Dim bFound As Integer
2239.  
2240.     ' Convert delimited lists into integer arrays
2241.     GetIntegerArrayFromDelimList sList1, sDelim, 0, arrList1()
2242.     GetIntegerArrayFromDelimList sList2, sDelim, 0, arrList2()
2243.  
2244.     ' Are lists same size?
2245.     If UBound(arrList1) = UBound(arrList2) Then
2246.         bResult = TRUE
2247.     End If
2248.  
2249.     ' Check list #2 against list #1
2250.     If bResult = TRUE Then
2251.         ' Are all items in list #1 in list #2?
2252.         For iLoop1 = LBound(arrList1) To UBound(arrList1)
2253.             bFound = FALSE
2254.             For iLoop2 = LBound(arrList2) To UBound(arrList2)
2255.                 If arrList2(iLoop2) = arrList1(iLoop1) Then
2256.                     bFound = TRUE
2257.                     Exit For
2258.                 End If
2259.             Next iLoop2
2260.             If bFound = FALSE Then
2261.                 ' not found, lists not equal
2262.                 bResult = FALSE
2263.                 Exit For
2264.             End If
2265.         Next iLoop1
2266.     End If
2267.  
2268.     ' Check list #1 against list #2
2269.     If bResult = TRUE Then
2270.         For iLoop1 = LBound(arrList2) To UBound(arrList2)
2271.             bFound = FALSE
2272.             For iLoop2 = LBound(arrList1) To UBound(arrList1)
2273.                 If arrList1(iLoop2) = arrList2(iLoop1) Then
2274.                     bFound = TRUE
2275.                     Exit For
2276.                 End If
2277.             Next iLoop2
2278.             If bFound = FALSE Then
2279.                 ' not found, lists not equal
2280.                 bResult = FALSE
2281.                 Exit For
2282.             End If
2283.         Next iLoop1
2284.     End If
2285.  
2286.     ' Return results
2287.     DelimIntegerListsAreEqual% = bResult
2288. End Function ' DelimIntegerListsAreEqual%
2289.  
2290. ' /////////////////////////////////////////////////////////////////////////////
2291.  
2292. ' DumpTileFromShapes arrShapes1(), bIncludeInactive, bShowRowsAndColumns
2293.  
2294. Sub DumpTileFromShapes (arrShapes1() As RectangleType, bIncludeInactive As Integer, bShowRowsAndColumns As Integer)
2295.     ReDim arrTile1(1 To 8, 1 To 8) As String
2296.     Dim iDestY As Integer
2297.     Dim iDestX As Integer
2298.     Dim iLoop1 As Integer
2299.     Dim sLine As String
2300.  
2301.     ' Initialize next tile
2302.     For iDestY = 1 To 8: For iDestX = 1 To 8: arrTile1(iDestY, iDestX) = ".": Next iDestX: Next iDestY
2303.  
2304.     ' Draw all (active) shapes onto tile
2305.     For iLoop1 = LBound(arrShapes1) To UBound(arrShapes1)
2306.         If arrShapes1(iLoop1).IsActive = TRUE Or bIncludeInactive = TRUE Then
2307.             For iDestY = 1 To 8
2308.                 For iDestX = 1 To 8
2309.                     If iDestY >= arrShapes1(iLoop1).y1 Then
2310.                         If iDestY <= arrShapes1(iLoop1).y2 Then
2311.                             If iDestX >= arrShapes1(iLoop1).x1 Then
2312.                                 If iDestX <= arrShapes1(iLoop1).x2 Then
2313.                                     arrTile1(iDestY, iDestX) = "#"
2314.                                 End If
2315.                             End If
2316.                         End If
2317.                     End If
2318.                 Next iDestX
2319.             Next iDestY
2320.         End If
2321.     Next iLoop1
2322.  
2323.     ' Output the shape
2324.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
2325.     For iDestY = 1 To 8
2326.         sLine = ""
2327.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
2328.         For iDestX = 1 To 8
2329.             sLine = sLine + arrTile1(iDestY, iDestX)
2330.         Next iDestX
2331.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
2332.         DebugPrint sLine
2333.     Next iDestY
2334.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
2335.  
2336. End Sub ' DumpTileFromShapes
2337.  
2338. ' /////////////////////////////////////////////////////////////////////////////
2339.  
2340. ' DumpTile arrTile1(), bShowRowsAndColumns
2341.  
2342. Sub DumpTile (arrTile1( 1 To 8 , 1 To 8) As String, bShowRowsAndColumns As Integer)
2343.     Dim iDestY As Integer
2344.     Dim iDestX As Integer
2345.     Dim sLine As String
2346.  
2347.     ' Output the tile
2348.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
2349.     For iDestY = 1 To 8
2350.         sLine = ""
2351.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
2352.         For iDestX = 1 To 8
2353.             sLine = sLine + arrTile1(iDestY, iDestX)
2354.         Next iDestX
2355.         If bShowRowsAndColumns = TRUE Then sLine = sLine + cstr$(iDestY)
2356.         DebugPrint sLine
2357.     Next iDestY
2358.     If bShowRowsAndColumns = TRUE Then DebugPrint " 12345678"
2359. End Sub ' DumpTile
2360.  
2361. ' /////////////////////////////////////////////////////////////////////////////
2362. ' Receives an 8x8 raster tile definition and returns a list of coordinates
2363. ' for the minimum number of rectangles to draw that tile.
2364.  
2365. ' This version uses a brute force method, ie draw every size rectangle
2366. ' from 1x1 up to 8x8 (which can themselves be precalculated) in every
2367. ' available location in the 8x8 grid (where no part of any rectangle falls
2368. ' off the grid), then tries every combination of those rectangles to find
2369. ' the combination where the the minimum number of rectangles cover all
2370. ' points (or if 2 combinations have the same # of rectangles, the one that
2371. ' covers the lesser total points).
2372.  
2373. ' (You can try searching for "rectangular decomposition of binary images"
2374. ' and similar to find a better algorithm.)
2375.  
2376. ' Receives:
2377. ' TileString (String) = contains 8x8 raster tile definition as a string, where
2378. '                       empty space represended by ".",
2379. '                       pixel represented by any non-whitespace character,
2380. '                       each row separated by chr$(13).
2381. ' Returns (byref):
2382. ' arrOptimizedShapes (array of RectangleType) = array of rectangle coordinates
2383. '                       defining the shapes that will draw the tile.
2384. '
2385. ' Return value = empty string if successful, error message if not.
2386.  
2387. Sub FindOptimizedVector (TileString As String, arrShapes1() As RectangleType)
2388.     Dim RoutineName As String: RoutineName = "FindOptimizedVector"
2389.     Dim bContinue As Integer: bContinue = TRUE
2390.     ReDim arrTile1(1 To 8, 1 To 8) As String
2391.     ReDim arrTile2(1 To 8, 1 To 8) As String
2392.     ReDim arrShapes2(-1) As RectangleType
2393.     ReDim arrCompare(-1) As DrawCompareType
2394.     Dim oShapeSet As DrawCompareType
2395.     Dim iLoopY As Integer
2396.     Dim iLoopX As Integer
2397.     Dim iDestY As Integer
2398.     Dim iDestX As Integer
2399.     Dim iSizeY As Integer
2400.     Dim iSizeX As Integer
2401.     Dim iEndY As Integer
2402.     Dim iEndX As Integer
2403.     Dim iTestY As Integer
2404.     Dim iTestX As Integer
2405.     Dim bShapeFits As Integer
2406.     Dim iLoop1 As Integer
2407.     Dim iLoop2 As Integer
2408.     Dim iIndex As Integer
2409.     Dim sItemList As String
2410.     Dim iShapeCount As Integer
2411.     Dim iPixelCount As Integer
2412.     Dim bFinished As Integer
2413.     Dim sCompare As String
2414.     ReDim arrTestIndex(-1) As Integer
2415.     Dim iShapeIndex As Integer
2416.     Dim iRound As Integer
2417.     Dim sLine As String
2418.  
2419.     '' ****************************************************************************************************************************************************************
2420.     '' DEBUG:
2421.     'Dim sStartTime As String : sStartTime = CurrentDateTime$
2422.     'Dim sEndTime As String : sEndTime = ""
2423.     'DebugPrint sStartTime + " started " + RoutineName
2424.     '' ****************************************************************************************************************************************************************
2425.  
2426.     ' =============================================================================
2427.     ' INITIALIZE
2428.     If bContinue = TRUE Then
2429.         ' -----------------------------------------------------------------------------
2430.         ' Init results
2431.         ReDim arrShapes1(-1) As RectangleType
2432.  
2433.         ' -----------------------------------------------------------------------------
2434.         ' Turn tile into 2D array
2435.         StringTo2dArray arrTile1(), TileString
2436.  
2437.         ' -----------------------------------------------------------------------------
2438.         ' Count pixels
2439.         iPixelCount = 0
2440.         For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
2441.             For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
2442.                 If arrTile1(iLoopY, iLoopX) <> "." Then
2443.                     iPixelCount = iPixelCount + 1
2444.                 End If
2445.             Next iLoopX
2446.         Next iLoopY
2447.  
2448.         ' If shape is blank no need to continue looking
2449.         ' we can just return an empty array
2450.         If iPixelCount = 0 Then
2451.             bContinue = FALSE
2452.         End If
2453.     End If
2454.  
2455.     ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2456.     ' BEGIN LOOK FOR MINIMUM COMBINATION OF SHAPES TO DRAW TILE
2457.     If bContinue = TRUE Then
2458.         ' =============================================================================
2459.         ' Get a set of every size shape (rectangle) from 1x1 up to 8x8
2460.         GetAllPossibleShapes arrShapes1()
2461.         'DebugPrint "ALL POSSIBLE SHAPES:"
2462.         'DumpShapeList arrShapes1(), "arrShapes1{i}"
2463.  
2464.         ' =============================================================================
2465.         ' Try each shape in every location on the tile, to see which fit
2466.         For iLoop1 = 0 To UBound(arrShapes1)
2467.             ' Try plotting next shape in every position
2468.             For iDestY = 1 To 8
2469.                 For iDestX = 1 To 8
2470.                     ' Track whether shape is fully on the tile at this position
2471.                     bShapeFits = FALSE
2472.  
2473.                     ' Does shape fit at this Y position?
2474.                     iSizeY = arrShapes1(iLoop1).y2 - arrShapes1(iLoop1).y1
2475.                     iEndY = iDestY + iSizeY
2476.                     If iEndY < 9 Then
2477.                         ' Does shape fit at this X position?
2478.                         iSizeX = arrShapes1(iLoop1).x2 - arrShapes1(iLoop1).x1
2479.                         iEndX = iDestX + iSizeX
2480.                         If iEndX < 9 Then
2481.                             ' The shape is fully on the tile here
2482.                             bShapeFits = TRUE
2483.  
2484.                             ' Now see if any of shape's pixels fall outside of tile's pixels?
2485.                             For iTestY = iDestY To iEndY
2486.                                 For iTestX = iDestX To iEndX
2487.                                     If arrTile1(iTestY, iTestX) = "." Then
2488.                                         ' No pixel here, shape fails
2489.                                         bShapeFits = FALSE
2490.                                         Exit For
2491.                                     End If
2492.                                 Next iTestX
2493.                                 If bShapeFits = FALSE Then Exit For
2494.                             Next iTestY
2495.                         End If
2496.                     End If
2497.  
2498.                     ' If shape fits, add it to the list of shapes/positions that work for the tile
2499.                     If bShapeFits = TRUE Then
2500.                         iIndex = UBound(arrShapes2) + 1
2501.                         ReDim _Preserve arrShapes2(0 To iIndex) As RectangleType
2502.                         arrShapes2(iIndex).y1 = iDestY
2503.                         arrShapes2(iIndex).x1 = iDestX
2504.                         arrShapes2(iIndex).y2 = iEndY
2505.                         arrShapes2(iIndex).x2 = iEndX
2506.                         arrShapes2(iIndex).PixelCount = arrShapes1(iLoop1).PixelCount
2507.                         arrShapes2(iIndex).IsActive = TRUE
2508.                     End If
2509.                 Next iDestX
2510.             Next iDestY
2511.         Next iLoop1
2512.  
2513.         ' Eliminate non-active shapes
2514.         GetActiveShapes arrShapes2(), arrShapes1()
2515.  
2516.         'DebugPrint "ALL SHAPES/LOCATIONS THAT MATCHED + FIT:"
2517.         'DumpShapeList arrShapes2(), "arrShapes2{i}"
2518.  
2519.         ' =============================================================================
2520.         ' Remove redundant shapes (any where another shape covers more points)
2521.  
2522.         For iLoop1 = 0 To UBound(arrShapes1)
2523.             ' make sure shape #1 was not eliminated
2524.             If arrShapes1(iLoop1).IsActive = TRUE Then
2525.                 ' compare shape #1 against all other shapes
2526.                 For iLoop2 = 0 To UBound(arrShapes1)
2527.                     ' don't compare against itself
2528.                     If iLoop2 <> iLoop1 Then
2529.                         ' make sure shape #2 was not eliminated
2530.                         If arrShapes1(iLoop2).IsActive = TRUE Then
2531.                             ' can shape #2 do what shape #1 can do? (covers all points shape #1 does)
2532.                             if _
2533.                                 arrShapes1(iLoop1).y1 >= arrShapes1(iLoop2).y1 _
2534.                                 and _
2535.                                 arrShapes1(iLoop1).y2 <= arrShapes1(iLoop2).y2 _
2536.                                 and _
2537.                                 arrShapes1(iLoop1).x1 >= arrShapes1(iLoop2).x1 _
2538.                                 and _
2539.                                 arrShapes1(iLoop1).x2 <= arrShapes1(iLoop2).x2 _
2540.                                 then
2541.  
2542.                                 ' does shape #2 do it better? (cover more points than shape #1)
2543.                                 If arrShapes1(iLoop2).PixelCount >= arrShapes1(iLoop1).PixelCount Then
2544.                                     ' Remove shape #1
2545.                                     arrShapes1(iLoop1).IsActive = FALSE
2546.                                 End If
2547.                             End If
2548.                         End If
2549.                     End If
2550.                 Next iLoop2
2551.             End If
2552.         Next iLoop1
2553.  
2554.         ' Eliminate non-active shapes
2555.         GetActiveShapes arrShapes1(), arrShapes2()
2556.  
2557.         'DebugPrint "SHAPES THAT MATCHED + FIT, NON-REDUNDANT LEVEL 1:"
2558.         'DumpShapeList arrShapes2(), "arrShapes2{i}"
2559.  
2560.     End If
2561.  
2562.     ' =============================================================================
2563.     ' Can we do without any?
2564.     ' Compare all combinations subtractively:
2565.  
2566.     ' 1. Count enabled shapes + total pixels for full list of shapes "set A".
2567.     ' 2. Save "set A" to the "contender list",
2568.     '    with the shape count and total pixel count.
2569.     ' 3. For each shape "x":
2570.     '    a) see if full tile can still be drawn without "x"
2571.     '       (where the set of shapes minus "x" is "set y").
2572.     '    b) If full tile can be drawn, save "set y" to the "contender list"
2573.     '       with the shape count and total pixel count.
2574.     ' 4. When done, identify the winner "set z" that can draw the full tile
2575.     '    using the minimum shape coverage.
2576.     '    a) The set with the smallest tile count wins.
2577.     '    b) In the event of a tie, the set with the least total pixel count wins.
2578.     '    c) In the event of another tie, just use the first finalist.
2579.     ' 5. Disable all shapes NOT in the winning "set z".
2580.     ' 6. Save list of enabled shapes to "last winner".
2581.     ' 7. Repeat steps 1-5 until, comparing the list of enabled shapes to
2582.     '    the list "last winner". When the list stops changing (lists are equal),
2583.     '    we have gone as far as we can go.
2584.     ' 8. Return shapes in "last winner" as final result.
2585.  
2586.     If bContinue = TRUE Then
2587.  
2588.         ' -----------------------------------------------------------------------------
2589.         ' Start with all
2590.         ' 1. Count enabled shapes + total pixels for full list of shapes "set A".
2591.         ' 2. Save "set A" to the "contender list",
2592.         '    with the shape count and total pixel count.
2593.         sItemList = ""
2594.         iShapeCount = 0
2595.         iPixelCount = 0
2596.         For iLoop1 = LBound(arrShapes2) To UBound(arrShapes2)
2597.             sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iLoop1)
2598.             iShapeCount = iShapeCount + 1
2599.             iPixelCount = iPixelCount + arrShapes2(iLoop1).PixelCount
2600.         Next iLoop1
2601.  
2602.         oShapeSet.IndexList = sItemList
2603.         oShapeSet.ShapeCount = iShapeCount
2604.         oShapeSet.PixelCount = iPixelCount
2605.         oShapeSet.IsActive = TRUE
2606.  
2607.         ' -----------------------------------------------------------------------------
2608.         ' Now see which combinations can draw the tile
2609.  
2610.         iRound = 0
2611.         bFinished = FALSE
2612.         Do
2613.             ' At the top of the loop, oShapeSet contains the latest set of shapes
2614.             iRound = iRound + 1
2615.  
2616.             ' Get the list of shapes (indexes pointing to each shape in arrShapes2)
2617.             ' All this packing and unpacking probably wastes cycles
2618.             ' It might not be necessary if we had arrays inside of types!
2619.             GetIntegerArrayFromDelimList oShapeSet.IndexList, ",", 0, arrTestIndex()
2620.  
2621.             ' Clear the list of contenders
2622.             ReDim arrCompare(-1) As DrawCompareType
2623.  
2624.             '' ****************************************************************************************************************************************************************
2625.             'DebugPrint "################################################################################################################################################################"
2626.             'DebugPrint "Round " + cstr$(iRound) + " shapes to dedupe:"
2627.             'for iLoop2 = lbound(arrTestIndex) to ubound(arrTestIndex)
2628.             '    iIndex = arrTestIndex(iLoop2)
2629.             '    DumpNextShape arrShapes2(iIndex), "Shape " + cstr$(iIndex) + " round " + cstr$(iRound) + ""
2630.             '    DebugPrint ""
2631.             'Next iLoop2
2632.             'DebugPrint "################################################################################################################################################################"
2633.             '' ****************************************************************************************************************************************************************
2634.  
2635.             ' 3. For each shape "x":
2636.             '    a) see if full tile can still be drawn without "x"
2637.             '       (where the set of shapes minus "x" is "set y").
2638.             '    b) If full tile can be drawn, save "set y" to the "contender list"
2639.             '       with the shape count and total pixel count.
2640.             For iLoop1 = LBound(arrTestIndex) To UBound(arrTestIndex)
2641.  
2642.                 ''DEBUG:
2643.                 'DebugPrint "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
2644.                 'DebugPrint "Can we eliminate " + cstr$(iLoop1) ' this shape?"
2645.                 'DumpNextShape arrShapes2(iLoop1), "arrShapes2(" + cstr$(iLoop1) + ")"
2646.                 'DebugPrint "????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????"
2647.                 'DebugPrint ""
2648.  
2649.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2650.                 ' Clear test tile
2651.                 ReDim arrTile2(1 To 8, 1 To 8) As String
2652.                 For iDestY = 1 To 8
2653.                     For iDestX = 1 To 8
2654.                         arrTile2(iDestY, iDestX) = "."
2655.                     Next iDestX
2656.                 Next iDestY
2657.  
2658.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2659.                 ' Try drawing next combination of shapes in the test tile
2660.                 sItemList = ""
2661.                 iShapeCount = 0
2662.                 iPixelCount = 0
2663.                 For iLoop2 = LBound(arrTestIndex) To UBound(arrTestIndex)
2664.  
2665.                     ' Make sure it's not shape "x"
2666.                     If iLoop2 <> iLoop1 Then
2667.                         iIndex = arrTestIndex(iLoop2)
2668.  
2669.                         sItemList = sItemList + IIFSTR$(Len(sItemList) = 0, "", ",") + cstr$(iIndex)
2670.                         iShapeCount = iShapeCount + 1
2671.                         iPixelCount = iPixelCount + arrShapes2(iIndex).PixelCount
2672.  
2673.                         For iDestY = 1 To 8
2674.                             For iDestX = 1 To 8
2675.                                 If iDestY >= arrShapes2(iIndex).y1 Then
2676.                                     If iDestY <= arrShapes2(iIndex).y2 Then
2677.                                         If iDestX >= arrShapes2(iIndex).x1 Then
2678.                                             If iDestX <= arrShapes2(iIndex).x2 Then
2679.                                                 arrTile2(iDestY, iDestX) = "#"
2680.                                             End If
2681.                                         End If
2682.                                     End If
2683.                                 End If
2684.                             Next iDestX
2685.                         Next iDestY
2686.                     End If
2687.                 Next iLoop2
2688.  
2689.                 ''DebugPrint "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2690.                 ''DebugPrint "Attempted drawing tile without " + cstr$(iLoop1) ' item #" + cstr$(iLoop1)
2691.                 ''DumpTile arrTile2(), TRUE
2692.                 'DebugPrint "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
2693.                 'DebugPrint ""
2694.                 'DebugPrint "RESULT$:"
2695.                 iShapeIndex = arrTestIndex(iLoop1)
2696.  
2697.                 ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2698.                 ' Does the test tile match the real tile?
2699.                 sCompare = TilesAreEqual$(arrTile1(), arrTile2())
2700.                 If Len(sCompare) = 0 Then
2701.                     ' Add to the list of contenders
2702.                     iIndex = UBound(arrCompare) + 1
2703.                     ReDim _Preserve arrCompare(0 To iIndex) As DrawCompareType
2704.                     arrCompare(iIndex).IndexList = sItemList
2705.                     arrCompare(iIndex).ShapeCount = iShapeCount
2706.                     arrCompare(iIndex).PixelCount = iPixelCount
2707.                     arrCompare(iIndex).IsActive = TRUE
2708.  
2709.                     'DebugPrint "*******************************************************************************"
2710.                     'DebugPrint "YES: Tile can be drawn without shape " + cstr$(iShapeIndex) + " round " + cstr$(iRound)
2711.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").IndexList  = " + sItemList
2712.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").ShapeCount = " + cstr$(iShapeCount)
2713.                     'DebugPrint "arrCompare(" + cstr$(iIndex) + ").PixelCount = " + cstr$(PixelCount)
2714.                     'DebugPrint "*******************************************************************************"
2715.  
2716.                     'else
2717.                     'DebugPrint "*******************************************************************************"
2718.                     'DebugPrint "NOPE: Tile cannot be drawn without shape " + cstr$(iShapeIndex) + " round " + cstr$(iRound)
2719.                     'DebugPrint sCompare
2720.                     'DebugPrint "Attempted with:"
2721.                     'DebugPrint ".IndexList  = " + sItemList
2722.                     'DebugPrint ".ShapeCount = " + cstr$(iShapeCount)
2723.                     'DebugPrint ".PixelCount = " + cstr$(PixelCount)
2724.                     'DebugPrint "*******************************************************************************"
2725.                 End If
2726.  
2727.             Next iLoop1
2728.  
2729.             ' =============================================================================
2730.             ' Identify the best combination that uses the least # of shapes + pixels
2731.  
2732.             ' DEDUPE IF THERE ARE >1 GROUPS
2733.             If UBound(arrCompare) > LBound(arrCompare) Then
2734.  
2735.                 '' ****************************************************************************************************************************************************************
2736.                 ''DEBUG:
2737.                 'DebugPrint "RESULTS BEFORE DEDUPE:"
2738.                 'sLine = ","
2739.                 'for iLoop2 = lbound(arrCompare) to ubound(arrCompare)
2740.                 '    if arrCompare(iLoop2).IsActive = TRUE then
2741.                 '        sLine = sLine + cstr$(iLoop2) + ","
2742.                 '        DebugPrint "-------------------------------------------------------------------------------"
2743.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IndexList  = " + arrCompare(iLoop2).IndexList
2744.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").ShapeCount = " + cstr$(arrCompare(iLoop2).ShapeCount)
2745.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").PixelCount = " + cstr$(arrCompare(iLoop2).PixelCount)
2746.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IsActive   = " + TrueFalse$(arrCompare(iLoop2).IsActive)
2747.                 '    end if
2748.                 'next iLoop2
2749.                 'DebugPrint ""
2750.                 '' ****************************************************************************************************************************************************************
2751.  
2752.                 For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
2753.                     For iLoop2 = LBound(arrCompare) To UBound(arrCompare)
2754.                         If iLoop1 <> iLoop2 Then
2755.                             If arrCompare(iLoop1).IsActive = TRUE Then
2756.                                 If arrCompare(iLoop2).IsActive = TRUE Then
2757.                                     If arrCompare(iLoop2).ShapeCount < arrCompare(iLoop1).ShapeCount Then
2758.                                         arrCompare(iLoop1).IsActive = FALSE
2759.                                     ElseIf arrCompare(iLoop2).ShapeCount > arrCompare(iLoop1).ShapeCount Then
2760.                                         arrCompare(iLoop2).IsActive = FALSE
2761.                                     Else
2762.                                         If arrCompare(iLoop2).PixelCount < arrCompare(iLoop1).PixelCount Then
2763.                                             arrCompare(iLoop1).IsActive = FALSE
2764.                                         ElseIf arrCompare(iLoop2).PixelCount > arrCompare(iLoop1).PixelCount Then
2765.                                             arrCompare(iLoop2).IsActive = FALSE
2766.                                         Else
2767.                                             arrCompare(iLoop2).IsActive = FALSE
2768.                                         End If
2769.                                     End If
2770.                                 End If
2771.                             End If
2772.                         End If
2773.                     Next iLoop2
2774.                 Next iLoop1
2775.  
2776.                 '' ****************************************************************************************************************************************************************
2777.                 ''DEBUG:
2778.                 'DebugPrint "RESULTS AFTER DEDUPE:"
2779.                 'for iLoop2 = lbound(arrCompare) to ubound(arrCompare)
2780.                 '    if InStr(1, sLine, "," + cstr$(iLoop2) + ",") > 0 then
2781.                 '        DebugPrint "-------------------------------------------------------------------------------"
2782.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IndexList  = " + arrCompare(iLoop2).IndexList
2783.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").ShapeCount = " + cstr$(arrCompare(iLoop2).ShapeCount)
2784.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").PixelCount = " + cstr$(arrCompare(iLoop2).PixelCount)
2785.                 '        DebugPrint "arrCompare(" + cstr$(iLoop2) + ").IsActive   = " + TrueFalse$(arrCompare(iLoop2).IsActive)
2786.                 '    end if
2787.                 'next iLoop2
2788.                 'DebugPrint ""
2789.                 '' ****************************************************************************************************************************************************************
2790.  
2791.             End If
2792.  
2793.             ' =============================================================================
2794.             ' Identify the winner!
2795.             ' Look at the list of indexes that make up the winning shape combination,
2796.             ' and pick the first one.
2797.  
2798.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
2799.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
2800.             'DebugPrint "LOOK FOR THE WINNER, END ROUND " + cstr$(iRound)
2801.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
2802.             'DebugPrint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
2803.             iIndex = -1
2804.  
2805.             'DebugPrint "arrCompare(" + cstr$(lbound(arrCompare)) + " To " + cstr$(ubound(arrCompare)) + ")"
2806.             'DebugPrint ""
2807.  
2808.             'DebugPrint "Group   Status"
2809.             'DebugPrint "-----   ----------"
2810.             For iLoop1 = LBound(arrCompare) To UBound(arrCompare)
2811.                 If arrCompare(iLoop1).IsActive = TRUE Then
2812.                     If iIndex = -1 Then
2813.                         iIndex = iLoop1
2814.                         Exit For
2815.                         '            DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "IsActive WINNER"
2816.                         '        else
2817.                         '            DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "IsActive"
2818.                     End If
2819.                     '    else
2820.                     '        DebugPrint left$(cstr$(iLoop1) + "     ", 5) + "   " + "(disabled)"
2821.                 End If
2822.             Next iLoop1
2823.             'DebugPrint ""
2824.  
2825.             ' =============================================================================
2826.             ' Has it changed from the last round?
2827.             'DebugPrint "////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"
2828.             'DebugPrint "Has it changed from the last round?"
2829.             'DebugPrint "iIndex=" + cstr$(iIndex)
2830.             'DebugPrint "////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"
2831.             'DebugPrint ""
2832.  
2833.             If iIndex > -1 Then
2834.                 'DebugPrint "Comparing arrCompare(" + cstr$(iIndex) + ").IndexList: " + arrCompare(iIndex).IndexList
2835.                 'DebugPrint "       to oShapeSet.IndexList: " + oShapeSet.IndexList
2836.                 'DebugPrint ""
2837.  
2838.                 If DelimIntegerListsAreEqual%(arrCompare(iIndex).IndexList, oShapeSet.IndexList, ",") = TRUE Then
2839.                     'DebugPrint "DelimIntegerListsAreEqual% returns TRUE"
2840.                     'DebugPrint "FOUND WINNER (Group #" + cstr$(iIndex) + ") exiting..."
2841.                     ' no change, we have reduced as much as possible, exit
2842.                     bFinished = TRUE
2843.                 Else
2844.                     'DebugPrint "DelimIntegerListsAreEqual% returns FALSE"
2845.                     'DebugPrint "None yet, try next data"
2846.                     'DebugPrint "Replacing old best set: "
2847.                     'DebugPrint "    IndexList=" + oShapeSet.IndexList
2848.                     'DebugPrint "    ShapeCount=" + cstr$(oShapeSet.ShapeCount)
2849.                     'DebugPrint "    PixelCount=" + cstr$(oShapeSet.PixelCount)
2850.                     'DebugPrint "    IsActive  =" + TrueFalse$(oShapeSet.IsActive)
2851.                     'DebugPrint "with arrCompare(" + cstr$(iIndex) + ")"
2852.                     'DebugPrint "    IndexList=" + arrCompare(iIndex).IndexList
2853.                     'DebugPrint "    ShapeCount=" + cstr$(arrCompare(iIndex).ShapeCount)
2854.                     'DebugPrint "    PixelCount=" + cstr$(arrCompare(iIndex).PixelCount)
2855.                     'DebugPrint "    IsActive  =" + TrueFalse$(arrCompare(iIndex).IsActive)
2856.                     'DebugPrint "and continuing to compare..."
2857.  
2858.                     ' Continue reducing with the latest set
2859.                     oShapeSet.IndexList = arrCompare(iIndex).IndexList
2860.                     oShapeSet.ShapeCount = arrCompare(iIndex).ShapeCount
2861.                     oShapeSet.PixelCount = arrCompare(iIndex).PixelCount
2862.                     oShapeSet.IsActive = TRUE
2863.                 End If
2864.             Else
2865.                 'DebugPrint "(NONE FOUND THAT WORKED, USE THE EXISTING oShapeSet)"
2866.                 'DebugPrint "Replacing old best set: "
2867.                 'DebugPrint "    oShapeSet.IndexList=" + oShapeSet.IndexList
2868.                 'DebugPrint "    oShapeSet.ShapeCount=" + cstr$(oShapeSet.ShapeCount)
2869.                 'DebugPrint "    oShapeSet.PixelCount=" + cstr$(oShapeSet.PixelCount)
2870.                 'DebugPrint "    oShapeSet.IsActive  =" + TrueFalse$(oShapeSet.IsActive)
2871.                 ' none found that works, exit
2872.                 bFinished = TRUE
2873.             End If
2874.  
2875.         Loop Until bFinished = TRUE
2876.  
2877.         ' =============================================================================
2878.         ' Build results
2879.  
2880.         ' Get the list of shapes (indexes pointing to each shape in arrShapes1)
2881.         GetIntegerArrayFromDelimList oShapeSet.IndexList, ",", 0, arrTestIndex()
2882.  
2883.         ' Initialize the final output
2884.         ReDim arrShapes1(-1) As RectangleType
2885.  
2886.         ' Add the shapes to the final list
2887.         For iLoop2 = LBound(arrTestIndex) To UBound(arrTestIndex)
2888.             iShapeIndex = arrTestIndex(iLoop2)
2889.  
2890.             iIndex = UBound(arrShapes1) + 1
2891.             ReDim _Preserve arrShapes1(0 To iIndex) As RectangleType
2892.  
2893.             'DebugPrint "Copying arrShapes2(" + cstr$(iShapeIndex) + ") to arrShapes1(" + cstr$(iIndex) + "):"
2894.  
2895.             If arrShapes2(iShapeIndex).IsActive = TRUE Then
2896.                 arrShapes1(iIndex).x1 = arrShapes2(iShapeIndex).x1
2897.                 arrShapes1(iIndex).y1 = arrShapes2(iShapeIndex).y1
2898.                 arrShapes1(iIndex).x2 = arrShapes2(iShapeIndex).x2
2899.                 arrShapes1(iIndex).y2 = arrShapes2(iShapeIndex).y2
2900.                 arrShapes1(iIndex).PixelCount = arrShapes2(iShapeIndex).PixelCount
2901.                 arrShapes1(iIndex).IsActive = arrShapes2(iShapeIndex).IsActive
2902.  
2903.                 ''DEBUG:
2904.                 'DumpNextShape arrShapes1(iIndex), "arrShapes1(" + cstr$(iIndex) + ")"
2905.  
2906.             End If
2907.         Next iLoop2
2908.  
2909.     End If
2910.     ' END LOOK FOR MINIMUM COMBINATION OF SHAPES TO DRAW TILE
2911.     ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2912.  
2913.     '' ****************************************************************************************************************************************************************
2914.     '' DEBUG:
2915.     'DumpTileFromShapes arrShapes1(), FALSE, TRUE
2916.     '
2917.     'sEndTime = CurrentDateTime$
2918.     'DebugPrint RoutineName + " finished:"
2919.     'DebugPrint "    started  at: " + sStartTime
2920.     'DebugPrint "    finished at: " + sEndTime
2921.     '' ****************************************************************************************************************************************************************
2922.  
2923. End Sub ' FindOptimizedVector
2924.  
2925. ' /////////////////////////////////////////////////////////////////////////////
2926. ' Test routine for the FindOptimizedVector routine.
2927.  
2928. Sub FindOptimizedVectorTest
2929.     Dim RoutineName As String: RoutineName = "FindOptimizedVectorTest"
2930.     Dim sError As String: sError = ""
2931.     Dim in$
2932.     ReDim arrTileText(0 To 255) As String
2933.     Dim sTestList As String
2934.     ReDim arrTestIndex(-1) As Integer
2935.     Dim iLoop1 As Integer
2936.     Dim iLoop2 As Integer
2937.     Dim iIndex As Integer
2938.     ReDim arrOptimizedShapes(-1) As RectangleType
2939.     Dim sLine As String
2940.  
2941.     ' Start output
2942.     DebugPrint "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
2943.     DebugPrint "Testing tiles: " + sTestList
2944.     DebugPrint ""
2945.  
2946.     ' Get raster tiles as a string array
2947.     GetTileText arrTileText()
2948.  
2949.     ' List of tiles to test
2950.     'sTestList = "254,253,247,32,238,241,225,233,213,214,212,203,194,193,192,169,154,151,145,147,129,115,114,84,65,46,44,35,252"
2951.     'sTestList = "46,35"
2952.     'sTestList = "84,253,192,151,147,114,65"
2953.     'sTestList = "43,44,45,46"
2954.     'sTestList = "60,62" ' 84 + 192 work, the rest don't
2955.     'sTestList = "254,252"
2956.     sTestList = "84,60,62,75,141,142,150,207,217,252,192" ' 84 + 192 work, the rest don't
2957.     'sTestList = "60,62,75,141,142,150,207,217,252" ' 84 + 192 work, the rest don't
2958.     'sTestList="75"
2959.     'DebugPrint "GETTING LIST OF TILES..."
2960.     GetIntegerArrayFromDelimList sTestList, ",", 0, arrTestIndex()
2961.  
2962.     ' Test tiles
2963.     For iIndex = 0 To 255
2964.         'for iLoop1 = lbound(arrTestIndex) to ubound(arrTestIndex)
2965.         '    iIndex = arrTestIndex(iLoop1)
2966.         DebugPrint "----------------------------------------------------------------------------------------------------------------------------------------------------------------"
2967.         DebugPrint "Tile #" + cstr$(iIndex) + ":"
2968.         DebugPrint arrTileText(iIndex)
2969.         DebugPrint ""
2970.  
2971.         ' Process next tile and generate line drawing routines
2972.         FindOptimizedVector arrTileText(iIndex), arrOptimizedShapes()
2973.  
2974.         If Len(sError) = 0 Then
2975.             If UBound(arrOptimizedShapes) > -1 Then
2976.                 DebugPrint "#   x1   y1   x2   y2   Pixels    IsActive"
2977.                 For iLoop2 = LBound(arrOptimizedShapes) To UBound(arrOptimizedShapes)
2978.                     sLine = ""
2979.                     sLine = sLine + Left$(cstr$(iLoop2) + String$(4, " "), 4)
2980.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).x1) + String$(2, " "), 2) + "   "
2981.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).y1) + String$(2, " "), 2) + "   "
2982.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).x2) + String$(2, " "), 2) + "   "
2983.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).y2) + String$(2, " "), 2) + "   "
2984.                     sLine = sLine + Left$(cstr$(arrOptimizedShapes(iLoop2).PixelCount) + String$(7, " "), 7) + "   "
2985.                     sLine = sLine + TrueFalse$(arrOptimizedShapes(iLoop2).IsActive)
2986.                     DebugPrint sLine
2987.                 Next iLoop2
2988.             Else
2989.                 DebugPrint "*** NO SHAPES TO DRAW THIS TILE ***"
2990.             End If
2991.         Else
2992.             DebugPrint "ERROR FOR TILE #" + cstr$(iIndex) + ": " + sError
2993.         End If
2994.         DebugPrint ""
2995.         'next iLoop1
2996.     Next iIndex
2997.  
2998.     ' DONE
2999.     DebugPrint RoutineName + " finished."
3000.     'Input "PRESS <ENTER> TO CONTINUE";in$
3001. End Sub ' FindOptimizedVectorTest
3002.  
3003. ' /////////////////////////////////////////////////////////////////////////////
3004. ' Receives two 2D string arrays and compares the dimensions
3005. ' and makes sure that the any blank pixel value "." matches
3006. ' (any other non-whitespace characters are considered a pixel
3007. ' as long as they are not "." they are considered a match).
3008. ' Returns empty string if they match, else returns a difference report.
3009.  
3010. Function TilesAreEqual$ (arrTile1() As String, arrTile2() As String)
3011.     Dim sResult As String: sResult = ""
3012.     Dim iLoopY As Integer
3013.     Dim iLoopX As Integer
3014.     Dim sTemp As String
3015.     Dim bMatch As Integer
3016.     Dim iY As Integer
3017.  
3018.     If LBound(arrTile1, 1) = LBound(arrTile2, 1) Then
3019.         If UBound(arrTile1, 1) = UBound(arrTile2, 1) Then
3020.             If LBound(arrTile1, 2) = LBound(arrTile2, 2) Then
3021.                 If UBound(arrTile1, 2) = UBound(arrTile2, 2) Then
3022.                     bMatch = TRUE
3023.                     sTemp = " 12345678 " + Chr$(13)
3024.                     iY = 0
3025.                     For iLoopY = LBound(arrTile1, 1) To UBound(arrTile1, 1)
3026.                         iY = iY + 1
3027.                         sTemp = sTemp + cstr$(iY)
3028.                         For iLoopX = LBound(arrTile1, 2) To UBound(arrTile1, 2)
3029.                             If arrTile1(iLoopY, iLoopX) = "." And arrTile2(iLoopY, iLoopX) <> "." Then
3030.                                 bMatch = FALSE
3031.                                 sTemp = sTemp + "?"
3032.                             ElseIf arrTile1(iLoopY, iLoopX) <> "." And arrTile2(iLoopY, iLoopX) = "." Then
3033.                                 bMatch = FALSE
3034.                                 sTemp = sTemp + "?"
3035.                             Else
3036.                                 sTemp = sTemp + arrTile1(iLoopY, iLoopX)
3037.                             End If
3038.                         Next iLoopX
3039.                         sTemp = sTemp + cstr$(iY) + Chr$(13)
3040.                     Next iLoopY
3041.                     sTemp = sTemp + " 12345678 " + Chr$(13)
3042.                     If bMatch = FALSE Then
3043.                         sResult = sTemp
3044.                     End If
3045.                 Else
3046.                     sResult = "ubound(arrTile1, 2)=" + cstr$(ubound(arrTile1, 2)) + _
3047.                         " <> " + _
3048.                         "ubound(arrTile2, 2)=" + cstr$(ubound(arrTile2, 2))
3049.                 End If
3050.             Else
3051.                 sResult = "lbound(arrTile1, 2)=" + cstr$(lbound(arrTile1, 2)) + _
3052.                     " <> " + _
3053.                     "lbound(arrTile2, 2)=" + cstr$(lbound(arrTile2, 2))
3054.  
3055.             End If
3056.         Else
3057.             sResult = "ubound(arrTile1, 1)=" + cstr$(ubound(arrTile1, 1)) + _
3058.                 " <> " + _
3059.                 "ubound(arrTile2, 1)=" + cstr$(ubound(arrTile2, 1))
3060.         End If
3061.     Else
3062.         sResult = "lbound(arrTile1, 1)=" + cstr$(lbound(arrTile1, 1)) + _
3063.             " <> " + _
3064.             "lbound(arrTile2, 1)=" + cstr$(lbound(arrTile2, 1))
3065.     End If
3066.     TilesAreEqual$ = sResult
3067. End Function ' TilesAreEqual$
3068.  
3069. ' ################################################################################################################################################################
3070. ' END VECTOR-BASED TILE ROUTINES
3071. ' ################################################################################################################################################################
3072.  
3073. ' ################################################################################################################################################################
3074. ' BEGIN BOX DRAWING ROUTINES
3075. ' ################################################################################################################################################################
3076.  
3077. ' /////////////////////////////////////////////////////////////////////////////
3078. ' DRAW A 2-D BOX (OUTLINE)
3079. ' https://www.qb64.org/wiki/LINE
3080.  
3081. Sub DrawBoxOutline (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
3082.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, B ' Draw box outline
3083. End Sub ' DrawBoxOutline
3084.  
3085. ' /////////////////////////////////////////////////////////////////////////////
3086. ' DRAW A 2-D BOX (SOLID)
3087. ' https://www.qb64.org/wiki/LINE
3088.  
3089. ' Renamed DrawBox/DrawBoxLine to DrawSolidBox
3090.  
3091. Sub DrawBoxSolid (iX As Integer, iY As Integer, iSize As Integer, fgColor As _Unsigned Long)
3092.     Line (iX, iY)-(iX + (iSize - 1), iY + (iSize - 1)), fgColor, BF ' Draw a solid box
3093. End Sub ' DrawBoxSolid
3094.  
3095. ' /////////////////////////////////////////////////////////////////////////////
3096. ' DRAW A 2-D RECTANGLE (OUTLINE)
3097.  
3098. Sub DrawRectOutline (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
3099.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, B ' Draw rectangle outline
3100. End Sub ' DrawRectOutline
3101.  
3102. ' /////////////////////////////////////////////////////////////////////////////
3103. ' DRAW A 2-D RECTANGLE (SOLID)
3104.  
3105. Sub DrawRectSolid (iX As Integer, iY As Integer, iSizeW As Integer, iSizeH As Integer, fgColor As _Unsigned Long)
3106.     Line (iX, iY)-(iX + (iSizeW - 1), iY + (iSizeH - 1)), fgColor, BF ' Draw a solid rectangle
3107. End Sub ' DrawRectSolid
3108.  
3109. ' /////////////////////////////////////////////////////////////////////////////
3110. ' DRAW A 2-D BOX (OUTLINE)
3111. ' https://www.qb64.org/wiki/LINE
3112.  
3113. ' The style parameter 0-255 doesn't seem to have a solid line?
3114. ' For that, use DrawOutlineBox.
3115.  
3116. ' LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]
3117. ' B creates a box outline with each side parallel to the program screen sides. BF creates a filled box.
3118. ' The style% signed INTEGER value sets a dotted pattern to draw the line or rectangle outline.
3119.  
3120. Sub DrawStyledOutlineBox (iX%, iY%, iSize%, iColor~&, iStyle%)
3121.     Line (iX%, iY%)-(iX% + (iSize% - 1), iY% + (iSize% - 1)), iColor~&, B , iStyle%
3122. End Sub ' DrawStyledOutlineBox
3123.  
3124. ' /////////////////////////////////////////////////////////////////////////////
3125. ' DRAW A 2-D BOX (OUTLINE) WITH A SOLID LINE
3126.  
3127. Sub DrawOutlineBox (iX%, iY%, iSize2%, iColor~&, iWeight2%)
3128.     Dim iFromX%
3129.     Dim iFromY%
3130.     Dim iToX%
3131.     Dim iToY%
3132.     iSize% = iSize2% - 1
3133.     iWeight% = iWeight2% - 1
3134.     If iWeight% = 0 Then
3135.         ' TOP LINE
3136.         iFromX% = iX%
3137.         iFromY% = iY%
3138.         iToX% = iX% + iSize%
3139.         iToY% = iY%
3140.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3141.  
3142.         ' BOTTOM LINE
3143.         iFromX% = iX%
3144.         iFromY% = iY% + iSize%
3145.         iToX% = iX% + iSize%
3146.         iToY% = iY% + iSize%
3147.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3148.  
3149.         ' LEFT LINE
3150.         iFromX% = iX%
3151.         iFromY% = iY%
3152.         iToX% = iX%
3153.         iToY% = iY% + iSize%
3154.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3155.  
3156.         ' RIGHT LINE
3157.         iFromX% = iX% + iSize%
3158.         iFromY% = iY%
3159.         iToX% = iX% + iSize%
3160.         iToY% = iY% + iSize%
3161.         Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3162.     ElseIf iWeight% > 0 Then
3163.         ' TOP LINE
3164.         For iFromY% = iY% To (iY% + iWeight%)
3165.             iFromX% = iX%
3166.             'iFromY% = iY%
3167.             iToX% = iX% + iSize%
3168.             iToY% = iFromY%
3169.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3170.         Next iFromY%
3171.  
3172.         ' BOTTOM LINE
3173.         For iFromY% = ((iY% + iSize%) - iWeight%) To (iY% + iSize%)
3174.             iFromX% = iX%
3175.             'iFromY% = iY% + iSize%
3176.             iToX% = iX% + iSize%
3177.             iToY% = iFromY%
3178.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3179.         Next iFromY%
3180.  
3181.         ' LEFT LINE
3182.         For iFromX% = iX% To (iX% + iWeight%)
3183.             'iFromX% = iX%
3184.             iFromY% = iY%
3185.             iToX% = iFromX%
3186.             iToY% = iY% + iSize%
3187.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3188.         Next iFromX%
3189.  
3190.         ' RIGHT LINE
3191.         For iFromX% = ((iX% + iSize%) - iWeight%) To (iX% + iSize%)
3192.             'iFromX% = iX% + iSize%
3193.             iFromY% = iY%
3194.             iToX% = iFromX%
3195.             iToY% = iY% + iSize%
3196.             Line (iFromX%, iFromY%)-(iToX%, iToY%), iColor~&, BF
3197.         Next iFromX%
3198.     End If
3199. End Sub ' DrawOutlineBox
3200.  
3201. ' ################################################################################################################################################################
3202. ' END BOX DRAWING ROUTINES
3203. ' ################################################################################################################################################################
3204.  
3205. ' ################################################################################################################################################################
3206. ' BEGIN DRAW TILES, COLOR SWAP with HARDWARE IMAGES
3207. ' ################################################################################################################################################################
3208.  
3209. ' /////////////////////////////////////////////////////////////////////////////
3210. ' Same as DrawColorTile but using hardware images.
3211.  
3212. ' Receives:
3213. ' imgTiles& = handle to 16x16 tile sheet of 16x16 pixel tiles colored black (256 tiles)
3214. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
3215. ' TileColor~& = color to use for tile
3216. ' imgScreen& = handle to screen to draw tile on
3217. ' dx% = column # to draw tile at (where each column is 16 pixels wide)
3218. ' dy% = row # to draw tile at (where each row is 16 pixels high)
3219. ' xOffset% = offset tile this many columns over
3220. ' yOffset% = offset tile this many rows down
3221.  
3222. Sub DrawColorTileHW ( _
3223.     imgHardwareScreen As Long, _
3224.     imgTiles As Long, _
3225.     iTileNum As Integer, _
3226.     fgColor As _UNSIGNED Long, _
3227.     bgColor As _UNSIGNED Long, _
3228.     dx As Integer, _
3229.     dy As Integer)
3230.  
3231.     Dim cols%
3232.     Dim rows%
3233.     Dim sc%
3234.     Dim sr%
3235.     Dim sx1%
3236.     Dim sy1%
3237.     Dim sx2%
3238.     Dim sy2%
3239.     Dim xDest%
3240.     Dim yDest%
3241.     Dim imgColorSprite As Long
3242.     Dim imgUniversalSprite As Long
3243.     Dim imgColorSpriteHW As Long
3244.     Dim imgUniversalSpriteHW As Long
3245.  
3246.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
3247.     cols% = 16
3248.     rows% = 16
3249.  
3250.     ' GET THE COLUMN/ROW OF TILE # iTileNum ON THE SOURCE TILE SHEET
3251.     sc% = iTileNum Mod rows%
3252.     sr% = iTileNum \ rows%
3253.  
3254.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3255.     sx1% = sc% * 8
3256.  
3257.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3258.     sy1% = sr% * 8
3259.  
3260.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3261.     sx2% = sx1% + 7
3262.  
3263.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3264.     sy2% = sy1% + 7
3265.  
3266.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3267.     xDest% = dx * 8
3268.  
3269.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3270.     yDest% = dy * 8
3271.  
3272.     ' IS THERE A BACKGROUND COLOR?
3273.     If bgColor <> cEmpty Then
3274.         imgColorSprite = _NewImage(8, 8, 32)
3275.         imgColorSpriteHW = _CopyImage(imgColorSprite, 33) ' Copy for hardware image
3276.         '_Dest imgColorSprite
3277.         _Dest imgColorSpriteHW
3278.         Cls , bgColor
3279.  
3280.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
3281.         '_Source imgColorSprite
3282.         _Source imgColorSpriteHW
3283.         _Dest imgHardwareScreen
3284.  
3285.         'SOFTWARE IMAGE:
3286.         '_PutImage (xDest%, yDest%), imgColorSprite, imgHardwareScreen, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
3287.  
3288.         'HARDWARE IMAGE:
3289.         _PutImage (xDest%, yDest%), imgColorSpriteHW, , (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
3290.     End If
3291.  
3292.     ' CREATE A TEMPORARY TILE TO COLOR
3293.     imgUniversalSprite = _NewImage(8, 8, 32)
3294.  
3295.     ' COPY THE TILE TO THE TEMPORARY ONE
3296.     _Source imgHardwareTiles
3297.     _Dest imgUniversalSprite
3298.     'SOFTWARE IMAGE:
3299.     '_PutImage (0, 0), imgTiles, imgUniversalSprite, (sx1%, sy1%)-(sx2%, sy2%)
3300.  
3301.     'HARDWARE IMAGE:
3302.     _PutImage (0, 0), imgHardwareTiles, , (sx1%, sy1%)-(sx2%, sy2%)
3303.  
3304.     ' COLOR IN THE TEMPORARY TILE
3305.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
3306.  
3307.     'SOFTWARE IMAGE:
3308.     'IF imgColorSprite < -1 OR imgColorSprite > 0 THEN _FreeImage imgColorSprite
3309.     'DoColorSwap imgUniversalSprite, cBlack, fgColor, imgColorSprite
3310.  
3311.     'HARDWARE IMAGE:
3312.     DoColorSwapHW imgUniversalSpriteHW, cBlack, fgColor, imgColorSpriteHW
3313.  
3314.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgHardwareScreen
3315.     _Source imgColorSpriteHW
3316.     _Dest imgHardwareScreen
3317.  
3318.     'SOFTWARE IMAGE:
3319.     '_PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
3320.  
3321.     'HARDWARE IMAGE:
3322.     _PutImage (xDest%, yDest%), imgColorSprite, , (0, 0)-(7, 7)
3323.  
3324.     ' ADDED PER FellipeHeitor
3325.     If imgHardwareTiles < -1 Or imgHardwareTiles > 0 Then _FreeImage imgHardwareTiles
3326.     If imgColorSprite < -1 Or imgColorSprite > 0 Then _FreeImage imgColorSprite
3327.     If imgColorSpriteHW < -1 Or imgColorSpriteHW > 0 Then _FreeImage imgColorSpriteHW
3328.     If imgUniversalSprite < -1 Or imgUniversalSprite > 0 Then _FreeImage imgUniversalSprite
3329.     If imgUniversalSpriteHW < -1 Or imgUniversalSpriteHW > 0 Then _FreeImage imgUniversalSpriteHW
3330.  
3331. End Sub ' DrawColorTileHW
3332.  
3333. ' /////////////////////////////////////////////////////////////////////////////
3334. ' Same as DoColorSwap but using hardware images.
3335.  
3336. ' Latest version with NOVARSEG's changes.
3337. ' Based on code from:
3338. ' Image color swap?
3339. ' https://www.qb64.org/forum/index.php?topic=2312.0
3340.  
3341. ' Like Function swapcolor& except returns new image in a parameter
3342. ' in case being a function causes a memory leak?
3343.  
3344. Sub DoColorSwapHW ( _
3345.     imgOriginalHW As Long, _
3346.     oldColor As _UNSIGNED Long, _
3347.     newColor As _UNSIGNED Long, _
3348.     imgNewHW As Long)
3349.  
3350.     Dim m As _MEM
3351.     Dim a As _Offset
3352.     Dim c As _Unsigned Long
3353.     Dim imgNew As Long
3354.  
3355.     a = 0
3356.     imgNew = _CopyImage(imgOriginalHW, 32)
3357.     m = _MemImage(imgNewHW)
3358.     Do Until a = m.SIZE - 4
3359.         a = a + 4
3360.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
3361.         If c = oldColor Then
3362.             _MemPut m, m.OFFSET + a, newColor
3363.         End If
3364.     Loop
3365.     _MemFree m
3366. End Sub ' DoColorSwapHW
3367.  
3368. ' ################################################################################################################################################################
3369. ' END DRAW TILES, COLOR SWAP with HARDWARE IMAGES
3370. ' ################################################################################################################################################################
3371.  
3372. ' ################################################################################################################################################################
3373. ' BEGIN DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
3374. ' ################################################################################################################################################################
3375.  
3376. ' /////////////////////////////////////////////////////////////////////////////
3377. ' Simple version which calculates coordinates on tile sheet and destination
3378. ' screen every time. For a faster version uses precalculated coordinates,
3379. ' see DrawColorTileFast. This version does not support offsetX, offsetY.
3380.  
3381. ' Receives:
3382. ' imgScreen& = handle to screen to draw tile on
3383. ' imgTiles& = handle to 16x16 tile sheet of 8x8 pixel tiles colored black (256 tiles)
3384. ' TileNum% = ordinal number of tile on tile sheet to draw (0-255)
3385. ' TileColor~& = foreground color to use for tile
3386. ' BackColor~& = background color to use for tile
3387. ' dx% = column # to draw tile at (where each column is 8 pixels wide)
3388. ' dy% = row # to draw tile at (where each row is 8 pixels high)
3389.  
3390. ' Usage:
3391. ' DrawColorTile imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%
3392.  
3393. Sub DrawColorTile (imgScreen&, imgTiles&, TileNum%, TileColor~&, BackColor~&, dx%, dy%)
3394.     Dim cols%
3395.     Dim rows%
3396.     Dim sc%
3397.     Dim sr%
3398.     Dim sx1%
3399.     Dim sy1%
3400.     Dim sx2%
3401.     Dim sy2%
3402.     Dim xDest%
3403.     Dim yDest%
3404.     Dim ColorSprite&
3405.     Dim UniversalSprite&
3406.  
3407.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
3408.     cols% = 16
3409.     rows% = 16
3410.  
3411.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
3412.     sc% = TileNum% Mod rows%
3413.     sr% = TileNum% \ rows%
3414.  
3415.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3416.     sx1% = sc% * 8
3417.  
3418.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3419.     sy1% = sr% * 8
3420.  
3421.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3422.     sx2% = sx1% + 7
3423.  
3424.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3425.     sy2% = sy1% + 7
3426.  
3427.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3428.     xDest% = dx% * 8
3429.  
3430.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3431.     yDest% = dy% * 8
3432.  
3433.     ' IS THERE A BACKGROUND COLOR?
3434.     If BackColor~& <> cEmpty Then
3435.         ColorSprite& = _NewImage(8, 8, 32)
3436.         _Dest ColorSprite&
3437.         Cls , BackColor~&
3438.  
3439.         ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
3440.         _Source ColorSprite&
3441.         _Dest imgScreen&
3442.         _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
3443.     End If
3444.  
3445.     ' CREATE A TEMPORARY TILE TO COLOR
3446.     UniversalSprite& = _NewImage(8, 8, 32)
3447.  
3448.     ' COPY THE TILE TO THE TEMPORARY ONE
3449.     _Source imgTiles&
3450.     _Dest UniversalSprite&
3451.     _PutImage (0, 0), imgTiles&, UniversalSprite&, (sx1%, sy1%)-(sx2%, sy2%)
3452.  
3453.     ' COLOR IN THE TEMPORARY TILE
3454.     ' REPLACING BLACK (THE SOURCE COLOR) WITH THE TILE COLOR
3455.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
3456.     DoColorSwap UniversalSprite&, cBlack, TileColor~&, ColorSprite&
3457.  
3458.     ' COPY THE TEMPORARY TILE TO THE SCREEN imgScreen&
3459.     _Source ColorSprite&
3460.     _Dest imgScreen&
3461.     _PutImage (xDest%, yDest%), ColorSprite&, imgScreen&, (0, 0)-(7, 7) ' portion of source to the top-left corner of the destination page
3462.  
3463.     ' ADDED PER FellipeHeitor
3464.     If ColorSprite& < -1 Or ColorSprite& > 0 Then _FreeImage ColorSprite&
3465.     If UniversalSprite& < -1 Or UniversalSprite& > 0 Then _FreeImage UniversalSprite&
3466. End Sub ' DrawColorTile
3467.  
3468. ' /////////////////////////////////////////////////////////////////////////////
3469. ' Latest version with NOVARSEG's changes.
3470.  
3471. ' Based on code from:
3472.  
3473. ' Image color swap?
3474. ' https://www.qb64.org/forum/index.php?topic=2312.0
3475.  
3476. ' Like Function swapcolor& except returns new image in a parameter
3477. ' in case being a function causes a memory leak?
3478.  
3479. Sub DoColorSwap (imgOriginal&, oldcolor~&, newcolor~&, imgNew&)
3480.     Dim m As _MEM
3481.     Dim a As _Offset
3482.     Dim c As _Unsigned Long
3483.     a = 0
3484.     imgNew& = _CopyImage(imgOriginal&, 32)
3485.     m = _MemImage(imgNew&)
3486.     Do Until a = m.SIZE - 4
3487.         a = a + 4
3488.         c = _MemGet(m, m.OFFSET + a, _Unsigned Long)
3489.         If c = oldcolor~& Then
3490.             _MemPut m, m.OFFSET + a, newcolor~&
3491.         End If
3492.     Loop
3493.     _MemFree m
3494. End Sub ' DoColorSwap&
3495.  
3496. ' ################################################################################################################################################################
3497. ' END DRAW TILES, COLOR SWAP with SOFTWARE IMAGES
3498. ' ################################################################################################################################################################
3499.  
3500. ' ################################################################################################################################################################
3501. ' BEGIN DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
3502. ' ################################################################################################################################################################
3503.  
3504. ' /////////////////////////////////////////////////////////////////////////////
3505. ' Draws an 8x8 tile at the specified column/row dx%, dy%
3506.  
3507. ' Original version which calculates coordinates on tile sheet and destination
3508. ' screen every time. For a faster version uses precalculated coordinates,
3509. ' see DrawTileFast.
3510.  
3511. ' tw% = tile width/height (in pixels)
3512.  
3513. ' DIV and MOD:
3514. ' c% = a% \ b% ' DIV (INTEGER DIVISION)
3515. ' d% = a% MOD b% ' MODULO (DIVISION REMAINDER)
3516.  
3517. '_PUTIMAGE (0, 0), i ' places image at upper left corner of window w/o stretching it
3518. '_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) ' portion of source to the top-left corner of the destination page
3519. '_PUTIMAGE (64,  128), imgTiles&,      imgScreen&,   (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
3520. '_PutImage (64, 128), imgTiles&, imgScreen&, (128, 128)-(164, 164) ' portion of source to the top-left corner of the destination page
3521.  
3522. Sub DrawTile8 (imgTiles&, TileNum%, imgScreen&, dx%, dy%)
3523.     Dim tw% ' width/height of tile
3524.     Dim tw_minus1% ' width/height of tile -1
3525.     Dim cols% ' # tiles across on tile sheet
3526.     Dim rows% ' # tile rows on tile sheet
3527.     Dim sc% ' source column on tile sheet
3528.     Dim sr% ' source row on tile sheet
3529.     Dim sx1% ' source start x
3530.     Dim sx2% ' source end x
3531.     Dim sy1% ' source start y
3532.     Dim sy2% ' source end y
3533.     Dim xDest% ' destination x
3534.     Dim yDest% ' destination y
3535.  
3536.     ' SIZE OF TILE
3537.     tw% = 8
3538.     tw_minus1% = 7
3539.  
3540.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
3541.     cols% = 16
3542.     rows% = 16
3543.  
3544.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
3545.     sc% = TileNum% Mod rows%
3546.     sr% = TileNum% \ rows%
3547.  
3548.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
3549.  
3550.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3551.     sx1% = sc% * tw%
3552.  
3553.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3554.     sy1% = sr% * tw%
3555.  
3556.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3557.     sx2% = sx1% + tw_minus1%
3558.  
3559.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3560.     sy2% = sy1% + tw_minus1%
3561.  
3562.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3563.     xDest% = dx% * tw%
3564.  
3565.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3566.     yDest% = (dy% * tw%) '+ yOffset%
3567.  
3568.     'Print "Tile#" + cstr$(TileNum%) + _
3569.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
3570.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
3571.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
3572.  
3573.     _Dest imgScreen&
3574.  
3575.     ' portion of source to the top-left corner of the destination page
3576.     _PutImage (xDest%, yDest%), imgTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
3577.  
3578. End Sub ' DrawTile8
3579.  
3580. ' ################################################################################################################################################################
3581. ' END DRAW TILES, _PUTIMAGE with SOFTWARE IMAGES
3582. ' ################################################################################################################################################################
3583.  
3584. ' ################################################################################################################################################################
3585. ' BEGIN DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
3586. ' ################################################################################################################################################################
3587.  
3588. ' /////////////////////////////////////////////////////////////////////////////
3589. ' Draws an 8x8 tile at the specified column/row dx%, dy%
3590. ' using hardware images
3591.  
3592. ' Usage:
3593. ' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
3594. ' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
3595. ' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
3596.  
3597. ' where iSubTileset% = iFgColorIndex
3598.  
3599. Sub DrawTileHw8 (imgHardwareTiles&, TileNum%, imgScreen&, dx%, dy%, iSubTileset%)
3600.     Dim tw% ' width/height of tile
3601.     Dim tw_minus1% ' width/height of tile -1
3602.     Dim cols% ' # tiles across on tile sheet
3603.     Dim rows% ' # tile rows on tile sheet
3604.     Dim sc% ' source column on tile sheet
3605.     Dim sr% ' source row on tile sheet
3606.     Dim sx1% ' source start x
3607.     Dim sx2% ' source end x
3608.     Dim sy1% ' source start y
3609.     Dim sy2% ' source end y
3610.     Dim xDest% ' destination x
3611.     Dim yDest% ' destination y
3612.     Dim xOffset%
3613.  
3614.     ' CALCULATE OFFSET
3615.     xOffset% = 128 * iSubTileset%
3616.  
3617.     ' SIZE OF TILE
3618.     tw% = 8
3619.     tw_minus1% = 7
3620.  
3621.     ' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
3622.     cols% = 16
3623.     rows% = 16
3624.  
3625.     ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
3626.     sc% = TileNum% Mod rows%
3627.     sr% = TileNum% \ rows%
3628.  
3629.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
3630.  
3631.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3632.     sx1% = (sc% * tw%) + xOffset%
3633.  
3634.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3635.     sy1% = sr% * tw%
3636.  
3637.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3638.     sx2% = sx1% + tw_minus1%
3639.  
3640.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3641.     sy2% = sy1% + tw_minus1%
3642.  
3643.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3644.     xDest% = dx% * tw%
3645.  
3646.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3647.     yDest% = (dy% * tw%) '+ yOffset%
3648.  
3649.     'Print "Tile#" + cstr$(TileNum%) + _
3650.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
3651.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
3652.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
3653.  
3654.     _Dest imgScreen&
3655.  
3656.     ' portion of source to the top-left corner of the destination page
3657.     '_PutImage (xDest%, yDest%), imgHardwareTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
3658.     '_PutImage (200, 100)-Step(100, 100), imgHardwareTiles&, , (0, 0)-(40, 40)
3659.     _PutImage (xDest%, yDest%), imgHardwareTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
3660.  
3661. End Sub ' DrawTileHw8
3662.  
3663. ' /////////////////////////////////////////////////////////////////////////////
3664. ' Receives an image imgTiles of 8x8 tiles
3665. ' colored black on transparent background
3666. ' and returns a new image imgNew
3667. ' copied from the tiles in imgTiles,
3668. ' except colored to foreground color fgColor,
3669. ' and background color bgColor
3670.  
3671. ' Usage:
3672. ' MakeColoredTileset imgTiles, imgNew, fgColor, bgColor
3673.  
3674. Sub MakeColoredTileset (imgTiles As Long, imgNew As Long, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
3675.     Dim iTileNum As Integer
3676.     Dim iY As Integer
3677.     Dim iX As Integer
3678.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
3679.     imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
3680.     iTileNum = 0
3681.     For iY = 0 To (_Height(imgTiles) \ 8) - 1
3682.         For iX = 0 To (_Width(imgTiles) \ 8) - 1
3683.             DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX, iY
3684.             iTileNum = iTileNum + 1
3685.             If iTileNum > 255 Then Exit For
3686.         Next iX
3687.         If iTileNum > 255 Then Exit For
3688.     Next iY
3689. End Sub ' MakeColoredTileset
3690.  
3691. ' /////////////////////////////////////////////////////////////////////////////
3692. ' Receives an image imgTiles of 8x8 tiles
3693. ' colored black on transparent background
3694. ' and an array of colors,
3695. ' and returns a new image imgNew
3696. ' copied from the tiles in imgTiles,
3697. ' with every combination of the colors in the array
3698. ' as the foreground/background color.
3699.  
3700. ' Usage:
3701. ' MakeColoredTileset2 imgTiles, imgNew, arrColor(), arrTileIndex(), arrColorIndex()
3702.  
3703. ' Input: iTileNum, bgColor, fgColor
3704. ' X Index: arrTileIndex(iTileNum) = returns x position for iTileNum
3705. ' Y Index: arrColorIndex(fgColor, bgColor) = returns y position for fgColor, bgColor
3706.  
3707. Sub MakeColoredTileset2 ( _
3708.     imgTiles As Long, _
3709.     imgNew As Long, _
3710.     arrColor() As _Unsigned Long, _
3711.     arrTileIndex() As Long, _
3712.     arrColorIndex() As Long)
3713.  
3714.     Dim iTileNum As Integer
3715.     Dim iY As Integer
3716.     Dim iX As Integer
3717.     Dim iFG As Integer
3718.     Dim iBG As Integer
3719.     Dim iWidth As Long
3720.     Dim iHeight As Long
3721.     Dim iColorCount As Long
3722.     Dim iDestX As Long
3723.     Dim iDestY As Long
3724.     Dim fgColor As _Unsigned Long
3725.     Dim bgColor As _Unsigned Long
3726.  
3727.     If imgNew < -1 Or imgNew > 0 Then _FreeImage imgNew ' FREE MEMORY
3728.  
3729.     ' FIGURE OUT SIZE OF TARGET IMAGE
3730.     iColorCount = (UBound(arrColor) - LBound(arrColor)) + 1
3731.     iHeight = (iColorCount * iColorCount) * 8
3732.     iWidth = 256 * 8
3733.  
3734.     ' CREATE TARGET IMAGE
3735.     'imgNew = _NewImage(_Width(imgTiles), _Height(imgTiles), 32)
3736.     imgNew = _NewImage(iWidth, iHeight, 32)
3737.  
3738.     ' INITIALIZE X POSITION INDEX
3739.     ReDim arrTileIndex(0 To 255) As Long
3740.  
3741.     ' INITIALIZE Y POSITION INDEX
3742.     ReDim arrColorIndex(LBound(arrColor) To UBound(arrColor), LBound(arrColor) To UBound(arrColor)) As Long
3743.  
3744.     ' POPULATE X POSITION INDEX
3745.     iX = 0
3746.     For iTileNum = 0 To 255
3747.         arrTileIndex(iTileNum) = iX
3748.         iX = iX + 8
3749.     Next iTileNum
3750.  
3751.     ' CREATE TILE MAP FOR ALL COMBINATIONS OF FOREGROUND + BACKGROUND COLORS
3752.     ' AND POPULATE Y POSITION INDEX
3753.     iY = 0
3754.     For iFG = LBound(arrColor) To UBound(arrColor)
3755.         For iBG = LBound(arrColor) To UBound(arrColor)
3756.             For iTileNum = 0 To 255
3757.                 iX = arrTileIndex(iTileNum)
3758.                 fgColor = arrColor(iFG)
3759.                 bgColor = arrColor(iBG)
3760.                 DrawColorTile imgNew, imgTiles, iTileNum, fgColor, bgColor, iX \ 8, iY \ 8
3761.                 arrColorIndex(iFG, iBG) = iY
3762.             Next iTileNum
3763.             iY = iY + 8
3764.         Next iBG
3765.     Next iFG
3766.  
3767. End Sub ' MakeColoredTileset2
3768.  
3769. ' /////////////////////////////////////////////////////////////////////////////
3770. ' Draws an 8x8 tile at the specified column/row dx%, dy%
3771. ' in the specified foreground/background color
3772. ' using hardware images.
3773.  
3774. ' Usage:
3775. ' Dim imgHardwareTiles As Long ' the hardware image copy of the tileset
3776. ' imgHardwareTiles = _CopyImage(imgTiles, 33) ' Copy tilesheet for hardware image
3777. ' DrawTileHw8 imgHardwareTiles, iTileNum, imgScreen, iColumn, iRow, iSubTileset
3778.  
3779. ' THIS:
3780. ' DrawColorTileHw8 imgTilesAllColorsHW, iTileNum, imgScreen, iX, iY, iFgColorIndex, iBgColorIndex, arrTileIndex(), arrColorIndex()
3781.  
3782. Sub DrawColorTileHw8 (imgHardwareTiles&, TileNum%, imgScreen&, dx%, dy%, _
3783.     iFgColorIndex As Integer, _
3784.     iBgColorIndex As Integer, _
3785.     arrTileIndex() As Long, _
3786.     arrColorIndex() As Long)
3787.  
3788.     Dim tw% ' width/height of tile
3789.     Dim tw_minus1% ' width/height of tile -1
3790.     Dim cols% ' # tiles across on tile sheet
3791.     Dim rows% ' # tile rows on tile sheet
3792.     Dim sc% ' source column on tile sheet
3793.     Dim sr% ' source row on tile sheet
3794.     Dim sx1% ' source start x
3795.     Dim sx2% ' source end x
3796.     Dim sy1% ' source start y
3797.     Dim sy2% ' source end y
3798.     Dim xDest% ' destination x
3799.     Dim yDest% ' destination y
3800.     Dim xOffset%
3801.  
3802.     '' CALCULATE OFFSET
3803.     'xOffset% = 128 * iSubTileset%
3804.  
3805.     ' SIZE OF TILE
3806.     tw% = 8
3807.     tw_minus1% = 7
3808.  
3809.     '' # OF COLUMNS / ROWS ON SOURCE TILE SHEET
3810.     'cols% = 16
3811.     'rows% = 16
3812.  
3813.     '' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
3814.     'sc% = TileNum% Mod rows%
3815.     'sr% = TileNum% \ rows%
3816.  
3817.     'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
3818.  
3819.     ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3820.     'sx1% = (sc% * tw%) + xOffset%
3821.     sx1% = arrTileIndex(TileNum%)
3822.  
3823.     ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3824.     'sy1% = sr% * tw%
3825.     sy1% = arrColorIndex(iFgColorIndex, iBgColorIndex)
3826.  
3827.     ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3828.     sx2% = sx1% + tw_minus1%
3829.  
3830.     ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3831.     sy2% = sy1% + tw_minus1%
3832.  
3833.     ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3834.     xDest% = dx% * tw%
3835.  
3836.     ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3837.     yDest% = (dy% * tw%) '+ yOffset%
3838.  
3839.     'Print "Tile#" + cstr$(TileNum%) + _
3840.     '    " at r" + cstr$(sr%) + "c" + cstr$(sc%) + _
3841.     '    " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + _
3842.     '    " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
3843.  
3844.     _Dest imgScreen&
3845.  
3846.     ' portion of source to the top-left corner of the destination page
3847.     '_PutImage (xDest%, yDest%), imgHardwareTiles&, imgScreen&, (sx1%, sy1%)-(sx2%, sy2%)
3848.     '_PutImage (200, 100)-Step(100, 100), imgHardwareTiles&, , (0, 0)-(40, 40)
3849.     _PutImage (xDest%, yDest%), imgHardwareTiles&, , (sx1%, sy1%)-(sx2%, sy2%)
3850.  
3851. End Sub ' DrawColorTileHw8
3852.  
3853. ' ################################################################################################################################################################
3854. ' END DRAW TILES, _PUTIMAGE with HARDWARE IMAGES
3855. ' ################################################################################################################################################################
3856.  
3857. ' ################################################################################################################################################################
3858. ' BEGIN TILE PRECALCULATION UTILITIES
3859. ' ################################################################################################################################################################
3860.  
3861. ' /////////////////////////////////////////////////////////////////////////////
3862. ' Precalculates the tile locations ahead of time to save time copying them
3863. ' to the screen.
3864.  
3865. ' Requires the following types be declared:
3866. '
3867. '     Type TileSheetMapType ' UDT FOR PRECALCULATED TILESHEET
3868. '         xStart As Integer
3869. '         xEnd As Integer
3870. '         yStart As Integer
3871. '         yEnd As Integer
3872. '     End Type
3873. '     Type TileMapType ' UDT FOR PRECALCULATED TILE MAP
3874. '         xPos As Integer
3875. '         yPos As Integer
3876. '     End Type
3877. '
3878. ' EXAMPLE USAGE:
3879. '
3880. '     Dim TileCount%
3881. '     Dim TilesheetCols%
3882. '     Dim TilesheetRows%
3883. '     Dim tileHeightPx%
3884. '     Dim tileWidthPx%
3885. '     Dim xOffset%
3886. '     Dim yOffset%
3887. '     Dim numTilesX%
3888. '     Dim numTilesY%
3889. '     REDIM arrTileSheetMap(255) AS TileSheetMapType
3890. '     REDIM arrTileMap(20, 20) AS TileMapType
3891. '     TileCount% = 256 ' TOTAL # OF TILES
3892. '     TilesheetCols% = 16 ' # OF COLUMNS ON SOURCE TILE SHEET
3893. '     TilesheetRows% = 16 ' # OF ROWS    ON SOURCE TILE SHEET
3894. '     tileHeightPx% = 32 ' TILE HEIGHT
3895. '     tileWidthPx% = 32 ' TILE WIDTH
3896. '     xOffset% = 0 ' SCREEN OFFSET X
3897. '     yOffset% = 64 ' SCREEN OFFSET Y
3898. '     numTilesX% = 20 ' HOW MANY TILES ACROSS (ON DESTINATION)
3899. '     numTilesY% = 20 ' HOW MANY TILES UP/DOWN (ON DESTINATION)
3900. '     ComputeTileLocations arrTileSheetMap(), arrTileMap(), TileCount%, _
3901. '         TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, _
3902. '         xOffset%, yOffset%, numTilesX%, numTilesY%
3903.  
3904. ' TODO: this can be simplified & optimized:
3905. '       - we don't need x/y offsets
3906. '       - tile height/width can be hardcoded
3907. '       - etc.
3908.  
3909. Sub ComputeTileLocations (arrTileSheetMap() As TileSheetMapType, arrTileMap() As TileMapType, TileCount%, TilesheetCols%, TilesheetRows%, tileWidthPx%, tileHeightPx%, xOffset%, yOffset%, numTilesX%, numTilesY%)
3910.     Dim TileNum%
3911.     Dim sc%
3912.     Dim sr%
3913.     Dim sx1%
3914.     Dim sx2%
3915.     Dim sy1%
3916.     Dim sy2%
3917.  
3918.     Dim dx%
3919.     Dim dy%
3920.     Dim xDest%
3921.     Dim yDest%
3922.  
3923.     ' -----------------------------------------------------------------------------
3924.     ' CALCULATE TILE SHEET COORDINATES FOR TILES 0-255
3925.  
3926.     For TileNum% = 0 To (TileCount% - 1)
3927.  
3928.         ' GET THE COLUMN/ROW OF TILE # TileNum% ON THE SOURCE TILE SHEET
3929.         sc% = TileNum% Mod TilesheetCols%
3930.         sr% = TileNum% \ TilesheetRows%
3931.  
3932.         'Print "Tile#" + cstr$(TileNum%) + " at sc%=" + cstr$(sc%) + ",sr%=" + cstr$(sr%)
3933.  
3934.         ' GET THE START X COORDINATE ON THE SOURCE TILE SHEET
3935.         'sx1% = sc% * tw%
3936.         sx1% = sc% * tileWidthPx%
3937.  
3938.         ' GET THE START Y COORDINATE ON THE SOURCE TILE SHEET
3939.         'sy1% = sr% * tw%
3940.         sy1% = sr% * tileHeightPx%
3941.  
3942.         ' GET THE END X COORDINATE ON THE SOURCE TILE SHEET
3943.         'sx2% = sx1% + (tw% - 1)
3944.         sx2% = sx1% + (tileWidthPx% - 1)
3945.  
3946.         ' GET THE END y COORDINATE ON THE SOURCE TILE SHEET
3947.         'sy2% = sy1% + (tw% - 1)
3948.         sy2% = sy1% + (tileHeightPx% - 1)
3949.  
3950.         ' SAVE THE COORDINATES FOR TileNum% IN THE ARRAY
3951.         arrTileSheetMap(TileNum%).xStart = sx1%
3952.         arrTileSheetMap(TileNum%).xEnd = sx2%
3953.         arrTileSheetMap(TileNum%).yStart = sy1%
3954.         arrTileSheetMap(TileNum%).yEnd = sy2%
3955.  
3956.     Next TileNum%
3957.  
3958.     ' -----------------------------------------------------------------------------
3959.     ' CALCULATE SCREEN COORDINATES FOR TILES
3960.  
3961.     For dx% = 0 To (numTilesX% - 1)
3962.         For dy% = 0 To (numTilesY% - 1)
3963.  
3964.             ' GET THE DESTINATION X COORDINATE ON THE SCREEN
3965.             'xDest% = dx% * tw%
3966.             xDest% = (dx% * tileWidthPx%) + xOffset%
3967.  
3968.             ' GET THE DESTINATION Y COORDINATE ON THE SCREEN
3969.             'yDest% = (dy% * tw%) + 64
3970.             yDest% = (dy% * tileHeightPx%) + yOffset%
3971.  
3972.             'Print "Tile#" + cstr$(TileNum%) + " at r" + cstr$(sr%) + "c" + cstr$(sc%) + " pixel location r" + cstr$(sy1%) + "c" + cstr$(sx1%) + " through r" + cstr$(sy2%) + "c" + cstr$(sx2%)
3973.  
3974.             ' SAVE THE SCREEN PIXEL COORDINATES FOR dx%, dy% IN THE ARRAY
3975.             ' WHERE dx% and dy% ARE 1-BASED
3976.             arrTileMap(dx% + 1, dy% + 1).xPos = xDest%
3977.             arrTileMap(dx% + 1, dy% + 1).yPos = yDest%
3978.  
3979.         Next dy%
3980.     Next dx%
3981.  
3982. End Sub ' ComputeTileLocations
3983.  
3984. ' ################################################################################################################################################################
3985. ' END TILE PRECALCULATION UTILITIES
3986. ' ################################################################################################################################################################
3987.  
3988. ' ################################################################################################################################################################
3989. ' BEGIN TILE TO IMAGE ROUTINES
3990. ' ################################################################################################################################################################
3991.  
3992. ' /////////////////////////////////////////////////////////////////////////////
3993. ' Loads tileset of 256 8x8 tiles into a 128x128 image (16 columns x 16 rows)
3994. ' where tiles are a single color.
3995.  
3996. ' Parameters:
3997. ' imgTiles& = contains the resulting tileset image
3998. ' fgColor = tile color
3999. ' bgColor = tile background color
4000.  
4001. Function GetTiles$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
4002.     Dim RoutineName As String: RoutineName = "GetTiles$"
4003.     Dim sResult As String: sResult = ""
4004.     ReDim arrTileText(0 To 255) As String
4005.  
4006.     Dim iTileNum As Integer
4007.  
4008.     ReDim arrLines(-1) As String
4009.     Dim iFromX As Integer
4010.     Dim iFromY As Integer
4011.     Dim sLine As String
4012.     Dim sChar As String
4013.  
4014.     Dim iTileX As Integer
4015.     Dim iTileY As Integer
4016.     Dim iToX As Integer
4017.     Dim iToY As Integer
4018.     Dim pixelColor As _Unsigned Long
4019.     Dim bFinished As Integer
4020.  
4021.     ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
4022.     ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
4023.     If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
4024.     imgTiles& = _NewImage(128, 128, 32)
4025.     '    Cls , cEmpty ' set the background color as transparent
4026.  
4027.     'Screen imgTiles&
4028.     'Cls , bgColor ' set the background color as transparent
4029.     _Dest imgTiles&
4030.     'DrawRect 0, 0, 128, 128, cEmpty
4031.     'DrawBox 0, 0, 128, cWhite
4032.     Cls , cEmpty ' set the background color as transparent
4033.  
4034.     GetTileText arrTileText()
4035.     iTileX = 0
4036.     iTileY = 0
4037.     bFinished = FALSE
4038.     For iTileNum = 0 To 255
4039.         split arrTileText(iTileNum), Chr$(13), arrLines()
4040.         iToY = iTileY * 8
4041.         If (iToY > _Height(imgTiles&)) Then
4042.             sResult = "iToY value " + cstr$(iToY) + " " + _
4043.                 "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
4044.                 "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
4045.             bFinished = TRUE
4046.             Exit For
4047.         End If
4048.  
4049.         For iFromY = LBound(arrLines) To UBound(arrLines)
4050.             sLine = arrLines(iFromY)
4051.             If Len(sLine) > 0 Then
4052.                 iToX = iTileX * 8
4053.                 For iFromX = 1 To Len(sLine)
4054.                     sChar = Mid$(sLine, iFromX, 1)
4055.                     If sChar = "." Then
4056.                         pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
4057.                     Else
4058.                         pixelColor = fgColor ' cBlack
4059.                     End If
4060.                     PSet (iToX, iToY), pixelColor
4061.                     iToX = iToX + 1
4062.                     If (iToX > _Width(imgTiles&)) Then
4063.                         sResult = "iToX value " + cstr$(iToX) + " " + _
4064.                             "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
4065.                             "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
4066.                         bFinished = TRUE
4067.                         Exit For
4068.                     End If
4069.                 Next iFromX
4070.                 iToY = iToY + 1
4071.                 If bFinished = TRUE Then Exit For
4072.             End If
4073.         Next iFromY
4074.         If bFinished = TRUE Then Exit For
4075.  
4076.         iTileX = iTileX + 1
4077.         If iTileX > 15 Then
4078.             iTileX = 0
4079.             iTileY = iTileY + 1
4080.             'if iTileY > 15 then
4081.             '    sResult = "Exceeded max 16 rows of tiles." + _
4082.             '        "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
4083.             '    bFinished = TRUE
4084.             '    exit for
4085.             'end if
4086.         End If
4087.     Next iTileNum
4088.  
4089.     GetTiles$ = sResult
4090. End Function ' GetTiles$
4091.  
4092. ' /////////////////////////////////////////////////////////////////////////////
4093. ' Loads tileset of 256 8x8 tiles into a 2048 x 8 image
4094. ' (256 8x8 pixel tiles organized left to right)
4095. ' where tiles are a single color.
4096.  
4097. ' Parameters:
4098. ' imgTiles& = contains the resulting tileset image
4099. ' fgColor = tile color
4100. ' bgColor = tile background color
4101.  
4102. Function GetTiles2$ (imgTiles&, fgColor As _Unsigned Long, bgColor As _Unsigned Long)
4103.     Dim RoutineName As String: RoutineName = "GetTiles2$"
4104.     Dim sResult As String: sResult = ""
4105.     ReDim arrTileText(0 To 255) As String
4106.  
4107.     Dim iTileNum As Integer
4108.  
4109.     ReDim arrLines(-1) As String
4110.     Dim iFromX As Integer
4111.     Dim iFromY As Integer
4112.     Dim sLine As String
4113.     Dim sChar As String
4114.  
4115.     Dim iTileX As Integer
4116.     Dim iTileY As Integer
4117.     Dim iToX As Integer
4118.     Dim iToY As Integer
4119.     Dim pixelColor As _Unsigned Long
4120.     Dim bFinished As Integer
4121.  
4122.     ' Do not try to free image handles currently being used as the active SCREEN. Change screen modes first.
4123.     ' _DISPLAY turns off the auto refresh screen default _AUTODISPLAY behavior. Prevents screen flickering.
4124.     If imgTiles& < -1 Or imgTiles& > 0 Then _FreeImage imgTiles&
4125.     imgTiles& = _NewImage(2048, 8, 32)
4126.     '    Cls , cEmpty ' set the background color as transparent
4127.  
4128.     'Screen imgTiles&
4129.     'Cls , bgColor ' set the background color as transparent
4130.     _Dest imgTiles&
4131.     'DrawRect 0, 0, 128, 128, cEmpty
4132.     'DrawBox 0, 0, 128, cWhite
4133.     Cls , cEmpty ' set the background color as transparent
4134.  
4135.     GetTileText arrTileText()
4136.     iTileX = 0
4137.     iTileY = 0
4138.     iToY = 0
4139.     bFinished = FALSE
4140.     For iTileNum = 0 To 255
4141.         split arrTileText(iTileNum), Chr$(13), arrLines()
4142.         iToY = iTileY * 8
4143.         If (iToY > _Height(imgTiles&)) Then
4144.             sResult = "iToY value " + cstr$(iToY) + " " + _
4145.                 "exceeded image height " + cstr$(_Height(imgTiles&)) + ". " + _
4146.                 "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
4147.             bFinished = TRUE
4148.             Exit For
4149.         End If
4150.  
4151.         For iFromY = LBound(arrLines) To UBound(arrLines)
4152.             sLine = arrLines(iFromY)
4153.             If Len(sLine) > 0 Then
4154.                 iToX = iTileX * 8
4155.                 For iFromX = 1 To Len(sLine)
4156.                     sChar = Mid$(sLine, iFromX, 1)
4157.                     If sChar = "." Then
4158.                         pixelColor = bgColor ' cEmpty ' POINT(iFromX, iFromY)
4159.                     Else
4160.                         pixelColor = fgColor ' cBlack
4161.                     End If
4162.                     PSet (iToX, iToY), pixelColor
4163.                     iToX = iToX + 1
4164.                     If (iToX > _Width(imgTiles&)) Then
4165.                         sResult = "iToX value " + cstr$(iToX) + " " + _
4166.                             "exceeded image width " + cstr$(_Width(imgTiles&)) + ". " + _
4167.                             "Exiting " + RoutineName + " at iTileNum=" + cstr$(iTileNum) + "."
4168.                         bFinished = TRUE
4169.                         Exit For
4170.                     End If
4171.                 Next iFromX
4172.                 iToY = iToY + 1
4173.                 If bFinished = TRUE Then Exit For
4174.             End If
4175.         Next iFromY
4176.         If bFinished = TRUE Then Exit For
4177.  
4178.         iTileX = iTileX + 1
4179.         'If iTileX > 15 Then
4180.         '    iTileX = 0
4181.         '    iTileY = iTileY + 1
4182.         'End If
4183.     Next iTileNum
4184.  
4185.     GetTiles2$ = sResult
4186. End Function ' GetTiles2$
4187.  
4188. ' ################################################################################################################################################################
4189. ' END TILE TO IMAGE ROUTINES
4190. ' ################################################################################################################################################################
4191.  
4192. ' ################################################################################################################################################################
4193. ' BEGIN TILE DEFINITIONS
4194. ' ################################################################################################################################################################
4195.  
4196. ' /////////////////////////////////////////////////////////////////////////////
4197. ' Returns an array of 256 8x8 tiles defined in text
4198. ' where each tile is defined by "." as blank and anything else is a pixel
4199. ' and each row is delimited by chr$(13)
4200.  
4201. Sub GetTileText (arrTileText() As String)
4202.     ReDim arrTileText(0 To 255) As String
4203.  
4204.     m$ = ""
4205.     m$ = m$ + "22....22" + Chr$(13)
4206.     m$ = m$ + "2..22..2" + Chr$(13)
4207.     m$ = m$ + "2..2...2" + Chr$(13)
4208.     m$ = m$ + "2...2..2" + Chr$(13)
4209.     m$ = m$ + "2..22..2" + Chr$(13)
4210.     m$ = m$ + "2..22..2" + Chr$(13)
4211.     m$ = m$ + "22....22" + Chr$(13)
4212.     m$ = m$ + "22222222" + Chr$(13)
4213.     arrTileText(0) = m$
4214.  
4215.     m$ = ""
4216.     m$ = m$ + "........" + Chr$(13)
4217.     m$ = m$ + "........" + Chr$(13)
4218.     m$ = m$ + "........" + Chr$(13)
4219.     m$ = m$ + "........" + Chr$(13)
4220.     m$ = m$ + "........" + Chr$(13)
4221.     m$ = m$ + "........" + Chr$(13)
4222.     m$ = m$ + "........" + Chr$(13)
4223.     m$ = m$ + "........" + Chr$(13)
4224.     arrTileText(1) = m$
4225.  
4226.     m$ = ""
4227.     m$ = m$ + "........" + Chr$(13)
4228.     m$ = m$ + "........" + Chr$(13)
4229.     m$ = m$ + "........" + Chr$(13)
4230.     m$ = m$ + "........" + Chr$(13)
4231.     m$ = m$ + "........" + Chr$(13)
4232.     m$ = m$ + "........" + Chr$(13)
4233.     m$ = m$ + "........" + Chr$(13)
4234.     m$ = m$ + "........" + Chr$(13)
4235.     arrTileText(2) = m$
4236.  
4237.     m$ = ""
4238.     m$ = m$ + "........" + Chr$(13)
4239.     m$ = m$ + "........" + Chr$(13)
4240.     m$ = m$ + "........" + Chr$(13)
4241.     m$ = m$ + "........" + Chr$(13)
4242.     m$ = m$ + "........" + Chr$(13)
4243.     m$ = m$ + "........" + Chr$(13)
4244.     m$ = m$ + "........" + Chr$(13)
4245.     m$ = m$ + "........" + Chr$(13)
4246.     arrTileText(3) = m$
4247.  
4248.     m$ = ""
4249.     m$ = m$ + "........" + Chr$(13)
4250.     m$ = m$ + "........" + Chr$(13)
4251.     m$ = m$ + "........" + Chr$(13)
4252.     m$ = m$ + "........" + Chr$(13)
4253.     m$ = m$ + "........" + Chr$(13)
4254.     m$ = m$ + "........" + Chr$(13)
4255.     m$ = m$ + "........" + Chr$(13)
4256.     m$ = m$ + "........" + Chr$(13)
4257.     arrTileText(4) = m$
4258.  
4259.     m$ = ""
4260.     m$ = m$ + "........" + Chr$(13)
4261.     m$ = m$ + "........" + Chr$(13)
4262.     m$ = m$ + "........" + Chr$(13)
4263.     m$ = m$ + "........" + Chr$(13)
4264.     m$ = m$ + "........" + Chr$(13)
4265.     m$ = m$ + "........" + Chr$(13)
4266.     m$ = m$ + "........" + Chr$(13)
4267.     m$ = m$ + "........" + Chr$(13)
4268.     arrTileText(5) = m$
4269.  
4270.     m$ = ""
4271.     m$ = m$ + "........" + Chr$(13)
4272.     m$ = m$ + "........" + Chr$(13)
4273.     m$ = m$ + "........" + Chr$(13)
4274.     m$ = m$ + "........" + Chr$(13)
4275.     m$ = m$ + "........" + Chr$(13)
4276.     m$ = m$ + "........" + Chr$(13)
4277.     m$ = m$ + "........" + Chr$(13)
4278.     m$ = m$ + "........" + Chr$(13)
4279.     arrTileText(6) = m$
4280.  
4281.     m$ = ""
4282.     m$ = m$ + "........" + Chr$(13)
4283.     m$ = m$ + "........" + Chr$(13)
4284.     m$ = m$ + "........" + Chr$(13)
4285.     m$ = m$ + "........" + Chr$(13)
4286.     m$ = m$ + "........" + Chr$(13)
4287.     m$ = m$ + "........" + Chr$(13)
4288.     m$ = m$ + "........" + Chr$(13)
4289.     m$ = m$ + "........" + Chr$(13)
4290.     arrTileText(7) = m$
4291.  
4292.     m$ = ""
4293.     m$ = m$ + "........" + Chr$(13)
4294.     m$ = m$ + "........" + Chr$(13)
4295.     m$ = m$ + "........" + Chr$(13)
4296.     m$ = m$ + "........" + Chr$(13)
4297.     m$ = m$ + "........" + Chr$(13)
4298.     m$ = m$ + "........" + Chr$(13)
4299.     m$ = m$ + "........" + Chr$(13)
4300.     m$ = m$ + "........" + Chr$(13)
4301.     arrTileText(8) = m$
4302.  
4303.     m$ = ""
4304.     m$ = m$ + "........" + Chr$(13)
4305.     m$ = m$ + "........" + Chr$(13)
4306.     m$ = m$ + "........" + Chr$(13)
4307.     m$ = m$ + "........" + Chr$(13)
4308.     m$ = m$ + "........" + Chr$(13)
4309.     m$ = m$ + "........" + Chr$(13)
4310.     m$ = m$ + "........" + Chr$(13)
4311.     m$ = m$ + "........" + Chr$(13)
4312.     arrTileText(9) = m$
4313.  
4314.     m$ = ""
4315.     m$ = m$ + "........" + Chr$(13)
4316.     m$ = m$ + "........" + Chr$(13)
4317.     m$ = m$ + "........" + Chr$(13)
4318.     m$ = m$ + "........" + Chr$(13)
4319.     m$ = m$ + "........" + Chr$(13)
4320.     m$ = m$ + "........" + Chr$(13)
4321.     m$ = m$ + "........" + Chr$(13)
4322.     m$ = m$ + "........" + Chr$(13)
4323.     arrTileText(10) = m$
4324.  
4325.     m$ = ""
4326.     m$ = m$ + "........" + Chr$(13)
4327.     m$ = m$ + "........" + Chr$(13)
4328.     m$ = m$ + "........" + Chr$(13)
4329.     m$ = m$ + "........" + Chr$(13)
4330.     m$ = m$ + "........" + Chr$(13)
4331.     m$ = m$ + "........" + Chr$(13)
4332.     m$ = m$ + "........" + Chr$(13)
4333.     m$ = m$ + "........" + Chr$(13)
4334.     arrTileText(11) = m$
4335.  
4336.     m$ = ""
4337.     m$ = m$ + "........" + Chr$(13)
4338.     m$ = m$ + "........" + Chr$(13)
4339.     m$ = m$ + "........" + Chr$(13)
4340.     m$ = m$ + "........" + Chr$(13)
4341.     m$ = m$ + "........" + Chr$(13)
4342.     m$ = m$ + "........" + Chr$(13)
4343.     m$ = m$ + "........" + Chr$(13)
4344.     m$ = m$ + "........" + Chr$(13)
4345.     arrTileText(12) = m$
4346.  
4347.     m$ = ""
4348.     m$ = m$ + "........" + Chr$(13)
4349.     m$ = m$ + "........" + Chr$(13)
4350.     m$ = m$ + "........" + Chr$(13)
4351.     m$ = m$ + "........" + Chr$(13)
4352.     m$ = m$ + "........" + Chr$(13)
4353.     m$ = m$ + "........" + Chr$(13)
4354.     m$ = m$ + "........" + Chr$(13)
4355.     m$ = m$ + "........" + Chr$(13)
4356.     arrTileText(13) = m$
4357.  
4358.     m$ = ""
4359.     m$ = m$ + "........" + Chr$(13)
4360.     m$ = m$ + "........" + Chr$(13)
4361.     m$ = m$ + "........" + Chr$(13)
4362.     m$ = m$ + "........" + Chr$(13)
4363.     m$ = m$ + "........" + Chr$(13)
4364.     m$ = m$ + "........" + Chr$(13)
4365.     m$ = m$ + "........" + Chr$(13)
4366.     m$ = m$ + "........" + Chr$(13)
4367.     arrTileText(14) = m$
4368.  
4369.     m$ = ""
4370.     m$ = m$ + "........" + Chr$(13)
4371.     m$ = m$ + "........" + Chr$(13)
4372.     m$ = m$ + "........" + Chr$(13)
4373.     m$ = m$ + "........" + Chr$(13)
4374.     m$ = m$ + "........" + Chr$(13)
4375.     m$ = m$ + "........" + Chr$(13)
4376.     m$ = m$ + "........" + Chr$(13)
4377.     m$ = m$ + "........" + Chr$(13)
4378.     arrTileText(15) = m$
4379.  
4380.     m$ = ""
4381.     m$ = m$ + "........" + Chr$(13)
4382.     m$ = m$ + "........" + Chr$(13)
4383.     m$ = m$ + "........" + Chr$(13)
4384.     m$ = m$ + "........" + Chr$(13)
4385.     m$ = m$ + "........" + Chr$(13)
4386.     m$ = m$ + "........" + Chr$(13)
4387.     m$ = m$ + "........" + Chr$(13)
4388.     m$ = m$ + "........" + Chr$(13)
4389.     arrTileText(16) = m$
4390.  
4391.     m$ = ""
4392.     m$ = m$ + "........" + Chr$(13)
4393.     m$ = m$ + "........" + Chr$(13)
4394.     m$ = m$ + "........" + Chr$(13)
4395.     m$ = m$ + "........" + Chr$(13)
4396.     m$ = m$ + "........" + Chr$(13)
4397.     m$ = m$ + "........" + Chr$(13)
4398.     m$ = m$ + "........" + Chr$(13)
4399.     m$ = m$ + "........" + Chr$(13)
4400.     arrTileText(17) = m$
4401.  
4402.     m$ = ""
4403.     m$ = m$ + "........" + Chr$(13)
4404.     m$ = m$ + "........" + Chr$(13)
4405.     m$ = m$ + "........" + Chr$(13)
4406.     m$ = m$ + "........" + Chr$(13)
4407.     m$ = m$ + "........" + Chr$(13)
4408.     m$ = m$ + "........" + Chr$(13)
4409.     m$ = m$ + "........" + Chr$(13)
4410.     m$ = m$ + "........" + Chr$(13)
4411.     arrTileText(18) = m$
4412.  
4413.     m$ = ""
4414.     m$ = m$ + "........" + Chr$(13)
4415.     m$ = m$ + "........" + Chr$(13)
4416.     m$ = m$ + "........" + Chr$(13)
4417.     m$ = m$ + "........" + Chr$(13)
4418.     m$ = m$ + "........" + Chr$(13)
4419.     m$ = m$ + "........" + Chr$(13)
4420.     m$ = m$ + "........" + Chr$(13)
4421.     m$ = m$ + "........" + Chr$(13)
4422.     arrTileText(19) = m$
4423.  
4424.     m$ = ""
4425.     m$ = m$ + "........" + Chr$(13)
4426.     m$ = m$ + "........" + Chr$(13)
4427.     m$ = m$ + "........" + Chr$(13)
4428.     m$ = m$ + "........" + Chr$(13)
4429.     m$ = m$ + "........" + Chr$(13)
4430.     m$ = m$ + "........" + Chr$(13)
4431.     m$ = m$ + "........" + Chr$(13)
4432.     m$ = m$ + "........" + Chr$(13)
4433.     arrTileText(20) = m$
4434.  
4435.     m$ = ""
4436.     m$ = m$ + "........" + Chr$(13)
4437.     m$ = m$ + "........" + Chr$(13)
4438.     m$ = m$ + "........" + Chr$(13)
4439.     m$ = m$ + "........" + Chr$(13)
4440.     m$ = m$ + "........" + Chr$(13)
4441.     m$ = m$ + "........" + Chr$(13)
4442.     m$ = m$ + "........" + Chr$(13)
4443.     m$ = m$ + "........" + Chr$(13)
4444.     arrTileText(21) = m$
4445.  
4446.     m$ = ""
4447.     m$ = m$ + "........" + Chr$(13)
4448.     m$ = m$ + "........" + Chr$(13)
4449.     m$ = m$ + "........" + Chr$(13)
4450.     m$ = m$ + "........" + Chr$(13)
4451.     m$ = m$ + "........" + Chr$(13)
4452.     m$ = m$ + "........" + Chr$(13)
4453.     m$ = m$ + "........" + Chr$(13)
4454.     m$ = m$ + "........" + Chr$(13)
4455.     arrTileText(22) = m$
4456.  
4457.     m$ = ""
4458.     m$ = m$ + "........" + Chr$(13)
4459.     m$ = m$ + "........" + Chr$(13)
4460.     m$ = m$ + "........" + Chr$(13)
4461.     m$ = m$ + "........" + Chr$(13)
4462.     m$ = m$ + "........" + Chr$(13)
4463.     m$ = m$ + "........" + Chr$(13)
4464.     m$ = m$ + "........" + Chr$(13)
4465.     m$ = m$ + "........" + Chr$(13)
4466.     arrTileText(23) = m$
4467.  
4468.     m$ = ""
4469.     m$ = m$ + "........" + Chr$(13)
4470.     m$ = m$ + "........" + Chr$(13)
4471.     m$ = m$ + "........" + Chr$(13)
4472.     m$ = m$ + "........" + Chr$(13)
4473.     m$ = m$ + "........" + Chr$(13)
4474.     m$ = m$ + "........" + Chr$(13)
4475.     m$ = m$ + "........" + Chr$(13)
4476.     m$ = m$ + "........" + Chr$(13)
4477.     arrTileText(24) = m$
4478.  
4479.     m$ = ""
4480.     m$ = m$ + "........" + Chr$(13)
4481.     m$ = m$ + "........" + Chr$(13)
4482.     m$ = m$ + "........" + Chr$(13)
4483.     m$ = m$ + "........" + Chr$(13)
4484.     m$ = m$ + "........" + Chr$(13)
4485.     m$ = m$ + "........" + Chr$(13)
4486.     m$ = m$ + "........" + Chr$(13)
4487.     m$ = m$ + "........" + Chr$(13)
4488.     arrTileText(25) = m$
4489.  
4490.     m$ = ""
4491.     m$ = m$ + "........" + Chr$(13)
4492.     m$ = m$ + "........" + Chr$(13)
4493.     m$ = m$ + "........" + Chr$(13)
4494.     m$ = m$ + "........" + Chr$(13)
4495.     m$ = m$ + "........" + Chr$(13)
4496.     m$ = m$ + "........" + Chr$(13)
4497.     m$ = m$ + "........" + Chr$(13)
4498.     m$ = m$ + "........" + Chr$(13)
4499.     arrTileText(26) = m$
4500.  
4501.     m$ = ""
4502.     m$ = m$ + "........" + Chr$(13)
4503.     m$ = m$ + "........" + Chr$(13)
4504.     m$ = m$ + "........" + Chr$(13)
4505.     m$ = m$ + "........" + Chr$(13)
4506.     m$ = m$ + "........" + Chr$(13)
4507.     m$ = m$ + "........" + Chr$(13)
4508.     m$ = m$ + "........" + Chr$(13)
4509.     m$ = m$ + "........" + Chr$(13)
4510.     arrTileText(27) = m$
4511.  
4512.     m$ = ""
4513.     m$ = m$ + "........" + Chr$(13)
4514.     m$ = m$ + "........" + Chr$(13)
4515.     m$ = m$ + "........" + Chr$(13)
4516.     m$ = m$ + "........" + Chr$(13)
4517.     m$ = m$ + "........" + Chr$(13)
4518.     m$ = m$ + "........" + Chr$(13)
4519.     m$ = m$ + "........" + Chr$(13)
4520.     m$ = m$ + "........" + Chr$(13)
4521.     arrTileText(28) = m$
4522.  
4523.     m$ = ""
4524.     m$ = m$ + "........" + Chr$(13)
4525.     m$ = m$ + "........" + Chr$(13)
4526.     m$ = m$ + "........" + Chr$(13)
4527.     m$ = m$ + "........" + Chr$(13)
4528.     m$ = m$ + "........" + Chr$(13)
4529.     m$ = m$ + "........" + Chr$(13)
4530.     m$ = m$ + "........" + Chr$(13)
4531.     m$ = m$ + "........" + Chr$(13)
4532.     arrTileText(29) = m$
4533.  
4534.     m$ = ""
4535.     m$ = m$ + "........" + Chr$(13)
4536.     m$ = m$ + "........" + Chr$(13)
4537.     m$ = m$ + "........" + Chr$(13)
4538.     m$ = m$ + "........" + Chr$(13)
4539.     m$ = m$ + "........" + Chr$(13)
4540.     m$ = m$ + "........" + Chr$(13)
4541.     m$ = m$ + "........" + Chr$(13)
4542.     m$ = m$ + "........" + Chr$(13)
4543.     arrTileText(30) = m$
4544.  
4545.     m$ = ""
4546.     m$ = m$ + "........" + Chr$(13)
4547.     m$ = m$ + "........" + Chr$(13)
4548.     m$ = m$ + "........" + Chr$(13)
4549.     m$ = m$ + "........" + Chr$(13)
4550.     m$ = m$ + "........" + Chr$(13)
4551.     m$ = m$ + "........" + Chr$(13)
4552.     m$ = m$ + "........" + Chr$(13)
4553.     m$ = m$ + "........" + Chr$(13)
4554.     arrTileText(31) = m$
4555.  
4556.     m$ = ""
4557.     m$ = m$ + "........" + Chr$(13)
4558.     m$ = m$ + "........" + Chr$(13)
4559.     m$ = m$ + "........" + Chr$(13)
4560.     m$ = m$ + "........" + Chr$(13)
4561.     m$ = m$ + "........" + Chr$(13)
4562.     m$ = m$ + "........" + Chr$(13)
4563.     m$ = m$ + "........" + Chr$(13)
4564.     m$ = m$ + "........" + Chr$(13)
4565.     arrTileText(32) = m$
4566.  
4567.     m$ = ""
4568.     m$ = m$ + "...22..." + Chr$(13)
4569.     m$ = m$ + "...22..." + Chr$(13)
4570.     m$ = m$ + "...22..." + Chr$(13)
4571.     m$ = m$ + "...22..." + Chr$(13)
4572.     m$ = m$ + "........" + Chr$(13)
4573.     m$ = m$ + "........" + Chr$(13)
4574.     m$ = m$ + "...22..." + Chr$(13)
4575.     m$ = m$ + "........" + Chr$(13)
4576.     arrTileText(33) = m$
4577.  
4578.     m$ = ""
4579.     m$ = m$ + ".22..22." + Chr$(13)
4580.     m$ = m$ + ".22..22." + Chr$(13)
4581.     m$ = m$ + ".22..22." + Chr$(13)
4582.     m$ = m$ + "........" + Chr$(13)
4583.     m$ = m$ + "........" + Chr$(13)
4584.     m$ = m$ + "........" + Chr$(13)
4585.     m$ = m$ + "........" + Chr$(13)
4586.     m$ = m$ + "........" + Chr$(13)
4587.     arrTileText(34) = m$
4588.  
4589.     m$ = ""
4590.     m$ = m$ + ".22..22." + Chr$(13)
4591.     m$ = m$ + ".22..22." + Chr$(13)
4592.     m$ = m$ + "22222222" + Chr$(13)
4593.     m$ = m$ + ".22..22." + Chr$(13)
4594.     m$ = m$ + "22222222" + Chr$(13)
4595.     m$ = m$ + ".22..22." + Chr$(13)
4596.     m$ = m$ + ".22..22." + Chr$(13)
4597.     m$ = m$ + "........" + Chr$(13)
4598.     arrTileText(35) = m$
4599.  
4600.     m$ = ""
4601.     m$ = m$ + "...22..." + Chr$(13)
4602.     m$ = m$ + "..22222." + Chr$(13)
4603.     m$ = m$ + ".22....." + Chr$(13)
4604.     m$ = m$ + "..2222.." + Chr$(13)
4605.     m$ = m$ + ".....22." + Chr$(13)
4606.     m$ = m$ + ".22222.." + Chr$(13)
4607.     m$ = m$ + "...22..." + Chr$(13)
4608.     m$ = m$ + "........" + Chr$(13)
4609.     arrTileText(36) = m$
4610.  
4611.     m$ = ""
4612.     m$ = m$ + ".22...2." + Chr$(13)
4613.     m$ = m$ + ".22..22." + Chr$(13)
4614.     m$ = m$ + "....22.." + Chr$(13)
4615.     m$ = m$ + "...22..." + Chr$(13)
4616.     m$ = m$ + "..22...." + Chr$(13)
4617.     m$ = m$ + ".22..22." + Chr$(13)
4618.     m$ = m$ + ".2...22." + Chr$(13)
4619.     m$ = m$ + "........" + Chr$(13)
4620.     arrTileText(37) = m$
4621.  
4622.     m$ = ""
4623.     m$ = m$ + "..2222.." + Chr$(13)
4624.     m$ = m$ + ".22..22." + Chr$(13)
4625.     m$ = m$ + "..2222.." + Chr$(13)
4626.     m$ = m$ + "..222..." + Chr$(13)
4627.     m$ = m$ + ".22..222" + Chr$(13)
4628.     m$ = m$ + ".22..22." + Chr$(13)
4629.     m$ = m$ + "..222222" + Chr$(13)
4630.     m$ = m$ + "........" + Chr$(13)
4631.     arrTileText(38) = m$
4632.  
4633.     m$ = ""
4634.     m$ = m$ + ".....22." + Chr$(13)
4635.     m$ = m$ + "....22.." + Chr$(13)
4636.     m$ = m$ + "...22..." + Chr$(13)
4637.     m$ = m$ + "........" + Chr$(13)
4638.     m$ = m$ + "........" + Chr$(13)
4639.     m$ = m$ + "........" + Chr$(13)
4640.     m$ = m$ + "........" + Chr$(13)
4641.     m$ = m$ + "........" + Chr$(13)
4642.     arrTileText(39) = m$
4643.  
4644.     m$ = ""
4645.     m$ = m$ + "....22.." + Chr$(13)
4646.     m$ = m$ + "...22..." + Chr$(13)
4647.     m$ = m$ + "..22...." + Chr$(13)
4648.     m$ = m$ + "..22...." + Chr$(13)
4649.     m$ = m$ + "..22...." + Chr$(13)
4650.     m$ = m$ + "...22..." + Chr$(13)
4651.     m$ = m$ + "....22.." + Chr$(13)
4652.     m$ = m$ + "........" + Chr$(13)
4653.     arrTileText(40) = m$
4654.  
4655.     m$ = ""
4656.     m$ = m$ + "..22...." + Chr$(13)
4657.     m$ = m$ + "...22..." + Chr$(13)
4658.     m$ = m$ + "....22.." + Chr$(13)
4659.     m$ = m$ + "....22.." + Chr$(13)
4660.     m$ = m$ + "....22.." + Chr$(13)
4661.     m$ = m$ + "...22..." + Chr$(13)
4662.     m$ = m$ + "..22...." + Chr$(13)
4663.     m$ = m$ + "........" + Chr$(13)
4664.     arrTileText(41) = m$
4665.  
4666.     m$ = ""
4667.     m$ = m$ + "........" + Chr$(13)
4668.     m$ = m$ + ".22..22." + Chr$(13)
4669.     m$ = m$ + "..2222.." + Chr$(13)
4670.     m$ = m$ + "22222222" + Chr$(13)
4671.     m$ = m$ + "..2222.." + Chr$(13)
4672.     m$ = m$ + ".22..22." + Chr$(13)
4673.     m$ = m$ + "........" + Chr$(13)
4674.     m$ = m$ + "........" + Chr$(13)
4675.     arrTileText(42) = m$
4676.  
4677.     m$ = ""
4678.     m$ = m$ + "........" + Chr$(13)
4679.     m$ = m$ + "...22..." + Chr$(13)
4680.     m$ = m$ + "...22..." + Chr$(13)
4681.     m$ = m$ + ".222222." + Chr$(13)
4682.     m$ = m$ + "...22..." + Chr$(13)
4683.     m$ = m$ + "...22..." + Chr$(13)
4684.     m$ = m$ + "........" + Chr$(13)
4685.     m$ = m$ + "........" + Chr$(13)
4686.     arrTileText(43) = m$
4687.  
4688.     m$ = ""
4689.     m$ = m$ + "........" + Chr$(13)
4690.     m$ = m$ + "........" + Chr$(13)
4691.     m$ = m$ + "........" + Chr$(13)
4692.     m$ = m$ + "........" + Chr$(13)
4693.     m$ = m$ + "........" + Chr$(13)
4694.     m$ = m$ + "...22..." + Chr$(13)
4695.     m$ = m$ + "...22..." + Chr$(13)
4696.     m$ = m$ + "..22...." + Chr$(13)
4697.     arrTileText(44) = m$
4698.  
4699.     m$ = ""
4700.     m$ = m$ + "........" + Chr$(13)
4701.     m$ = m$ + "........" + Chr$(13)
4702.     m$ = m$ + "........" + Chr$(13)
4703.     m$ = m$ + ".222222." + Chr$(13)
4704.     m$ = m$ + "........" + Chr$(13)
4705.     m$ = m$ + "........" + Chr$(13)
4706.     m$ = m$ + "........" + Chr$(13)
4707.     m$ = m$ + "........" + Chr$(13)
4708.     arrTileText(45) = m$
4709.  
4710.     m$ = ""
4711.     m$ = m$ + "........" + Chr$(13)
4712.     m$ = m$ + "........" + Chr$(13)
4713.     m$ = m$ + "........" + Chr$(13)
4714.     m$ = m$ + "........" + Chr$(13)
4715.     m$ = m$ + "........" + Chr$(13)
4716.     m$ = m$ + "...22..." + Chr$(13)
4717.     m$ = m$ + "...22..." + Chr$(13)
4718.     m$ = m$ + "........" + Chr$(13)
4719.     arrTileText(46) = m$
4720.  
4721.     m$ = ""
4722.     m$ = m$ + "........" + Chr$(13)
4723.     m$ = m$ + "......22" + Chr$(13)
4724.     m$ = m$ + ".....22." + Chr$(13)
4725.     m$ = m$ + "....22.." + Chr$(13)
4726.     m$ = m$ + "...22..." + Chr$(13)
4727.     m$ = m$ + "..22...." + Chr$(13)
4728.     m$ = m$ + ".22....." + Chr$(13)
4729.     m$ = m$ + "........" + Chr$(13)
4730.     arrTileText(47) = m$
4731.  
4732.     m$ = ""
4733.     m$ = m$ + "..2222.." + Chr$(13)
4734.     m$ = m$ + ".22..22." + Chr$(13)
4735.     m$ = m$ + ".22.222." + Chr$(13)
4736.     m$ = m$ + ".222.22." + Chr$(13)
4737.     m$ = m$ + ".22..22." + Chr$(13)
4738.     m$ = m$ + ".22..22." + Chr$(13)
4739.     m$ = m$ + "..2222.." + Chr$(13)
4740.     m$ = m$ + "........" + Chr$(13)
4741.     arrTileText(48) = m$
4742.  
4743.     m$ = ""
4744.     m$ = m$ + "...22..." + Chr$(13)
4745.     m$ = m$ + "...22..." + Chr$(13)
4746.     m$ = m$ + "..222..." + Chr$(13)
4747.     m$ = m$ + "...22..." + Chr$(13)
4748.     m$ = m$ + "...22..." + Chr$(13)
4749.     m$ = m$ + "...22..." + Chr$(13)
4750.     m$ = m$ + ".222222." + Chr$(13)
4751.     m$ = m$ + "........" + Chr$(13)
4752.     arrTileText(49) = m$
4753.  
4754.     m$ = ""
4755.     m$ = m$ + "..2222.." + Chr$(13)
4756.     m$ = m$ + ".22..22." + Chr$(13)
4757.     m$ = m$ + ".....22." + Chr$(13)
4758.     m$ = m$ + "....22.." + Chr$(13)
4759.     m$ = m$ + "..22...." + Chr$(13)
4760.     m$ = m$ + ".22....." + Chr$(13)
4761.     m$ = m$ + ".222222." + Chr$(13)
4762.     m$ = m$ + "........" + Chr$(13)
4763.     arrTileText(50) = m$
4764.  
4765.     m$ = ""
4766.     m$ = m$ + "..2222.." + Chr$(13)
4767.     m$ = m$ + ".22..22." + Chr$(13)
4768.     m$ = m$ + ".....22." + Chr$(13)
4769.     m$ = m$ + "...222.." + Chr$(13)
4770.     m$ = m$ + ".....22." + Chr$(13)
4771.     m$ = m$ + ".22..22." + Chr$(13)
4772.     m$ = m$ + "..2222.." + Chr$(13)
4773.     m$ = m$ + "........" + Chr$(13)
4774.     arrTileText(51) = m$
4775.  
4776.     m$ = ""
4777.     m$ = m$ + ".....22." + Chr$(13)
4778.     m$ = m$ + "....222." + Chr$(13)
4779.     m$ = m$ + "...2222." + Chr$(13)
4780.     m$ = m$ + ".22..22." + Chr$(13)
4781.     m$ = m$ + ".2222222" + Chr$(13)
4782.     m$ = m$ + ".....22." + Chr$(13)
4783.     m$ = m$ + ".....22." + Chr$(13)
4784.     m$ = m$ + "........" + Chr$(13)
4785.     arrTileText(52) = m$
4786.  
4787.     m$ = ""
4788.     m$ = m$ + ".222222." + Chr$(13)
4789.     m$ = m$ + ".22....." + Chr$(13)
4790.     m$ = m$ + ".22222.." + Chr$(13)
4791.     m$ = m$ + ".....22." + Chr$(13)
4792.     m$ = m$ + ".....22." + Chr$(13)
4793.     m$ = m$ + ".22..22." + Chr$(13)
4794.     m$ = m$ + "..2222.." + Chr$(13)
4795.     m$ = m$ + "........" + Chr$(13)
4796.     arrTileText(53) = m$
4797.  
4798.     m$ = ""
4799.     m$ = m$ + "..2222.." + Chr$(13)
4800.     m$ = m$ + ".22..22." + Chr$(13)
4801.     m$ = m$ + ".22....." + Chr$(13)
4802.     m$ = m$ + ".22222.." + Chr$(13)
4803.     m$ = m$ + ".22..22." + Chr$(13)
4804.     m$ = m$ + ".22..22." + Chr$(13)
4805.     m$ = m$ + "..2222.." + Chr$(13)
4806.     m$ = m$ + "........" + Chr$(13)
4807.     arrTileText(54) = m$
4808.  
4809.     m$ = ""
4810.     m$ = m$ + ".222222." + Chr$(13)
4811.     m$ = m$ + ".22..22." + Chr$(13)
4812.     m$ = m$ + "....22.." + Chr$(13)
4813.     m$ = m$ + "...22..." + Chr$(13)
4814.     m$ = m$ + "...22..." + Chr$(13)
4815.     m$ = m$ + "...22..." + Chr$(13)
4816.     m$ = m$ + "...22..." + Chr$(13)
4817.     m$ = m$ + "........" + Chr$(13)
4818.     arrTileText(55) = m$
4819.  
4820.     m$ = ""
4821.     m$ = m$ + "..2222.." + Chr$(13)
4822.     m$ = m$ + ".22..22." + Chr$(13)
4823.     m$ = m$ + ".22..22." + Chr$(13)
4824.     m$ = m$ + "..2222.." + Chr$(13)
4825.     m$ = m$ + ".22..22." + Chr$(13)
4826.     m$ = m$ + ".22..22." + Chr$(13)
4827.     m$ = m$ + "..2222.." + Chr$(13)
4828.     m$ = m$ + "........" + Chr$(13)
4829.     arrTileText(56) = m$
4830.  
4831.     m$ = ""
4832.     m$ = m$ + "..2222.." + Chr$(13)
4833.     m$ = m$ + ".22..22." + Chr$(13)
4834.     m$ = m$ + ".22..22." + Chr$(13)
4835.     m$ = m$ + "..22222." + Chr$(13)
4836.     m$ = m$ + ".....22." + Chr$(13)
4837.     m$ = m$ + ".22..22." + Chr$(13)
4838.     m$ = m$ + "..2222.." + Chr$(13)
4839.     m$ = m$ + "........" + Chr$(13)
4840.     arrTileText(57) = m$
4841.  
4842.     m$ = ""
4843.     m$ = m$ + "........" + Chr$(13)
4844.     m$ = m$ + "........" + Chr$(13)
4845.     m$ = m$ + "...22..." + Chr$(13)
4846.     m$ = m$ + "........" + Chr$(13)
4847.     m$ = m$ + "........" + Chr$(13)
4848.     m$ = m$ + "...22..." + Chr$(13)
4849.     m$ = m$ + "........" + Chr$(13)
4850.     m$ = m$ + "........" + Chr$(13)
4851.     arrTileText(58) = m$
4852.  
4853.     m$ = ""
4854.     m$ = m$ + "........" + Chr$(13)
4855.     m$ = m$ + "........" + Chr$(13)
4856.     m$ = m$ + "...22..." + Chr$(13)
4857.     m$ = m$ + "........" + Chr$(13)
4858.     m$ = m$ + "........" + Chr$(13)
4859.     m$ = m$ + "...22..." + Chr$(13)
4860.     m$ = m$ + "...22..." + Chr$(13)
4861.     m$ = m$ + "..22...." + Chr$(13)
4862.     arrTileText(59) = m$
4863.  
4864.     m$ = ""
4865.     m$ = m$ + "....222." + Chr$(13)
4866.     m$ = m$ + "...22..." + Chr$(13)
4867.     m$ = m$ + "..22...." + Chr$(13)
4868.     m$ = m$ + ".22....." + Chr$(13)
4869.     m$ = m$ + "..22...." + Chr$(13)
4870.     m$ = m$ + "...22..." + Chr$(13)
4871.     m$ = m$ + "....222." + Chr$(13)
4872.     m$ = m$ + "........" + Chr$(13)
4873.     arrTileText(60) = m$
4874.  
4875.     m$ = ""
4876.     m$ = m$ + "........" + Chr$(13)
4877.     m$ = m$ + "........" + Chr$(13)
4878.     m$ = m$ + ".222222." + Chr$(13)
4879.     m$ = m$ + "........" + Chr$(13)
4880.     m$ = m$ + ".222222." + Chr$(13)
4881.     m$ = m$ + "........" + Chr$(13)
4882.     m$ = m$ + "........" + Chr$(13)
4883.     m$ = m$ + "........" + Chr$(13)
4884.     arrTileText(61) = m$
4885.  
4886.     m$ = ""
4887.     m$ = m$ + ".222...." + Chr$(13)
4888.     m$ = m$ + "...22..." + Chr$(13)
4889.     m$ = m$ + "....22.." + Chr$(13)
4890.     m$ = m$ + ".....22." + Chr$(13)
4891.     m$ = m$ + "....22.." + Chr$(13)
4892.     m$ = m$ + "...22..." + Chr$(13)
4893.     m$ = m$ + ".222...." + Chr$(13)
4894.     m$ = m$ + "........" + Chr$(13)
4895.     arrTileText(62) = m$
4896.  
4897.     m$ = ""
4898.     m$ = m$ + "..2222.." + Chr$(13)
4899.     m$ = m$ + ".22..22." + Chr$(13)
4900.     m$ = m$ + ".....22." + Chr$(13)
4901.     m$ = m$ + "....22.." + Chr$(13)
4902.     m$ = m$ + "...22..." + Chr$(13)
4903.     m$ = m$ + "........" + Chr$(13)
4904.     m$ = m$ + "...22..." + Chr$(13)
4905.     m$ = m$ + "........" + Chr$(13)
4906.     arrTileText(63) = m$
4907.  
4908.     m$ = ""
4909.     m$ = m$ + "..2222.." + Chr$(13)
4910.     m$ = m$ + ".22..22." + Chr$(13)
4911.     m$ = m$ + ".22.222." + Chr$(13)
4912.     m$ = m$ + ".22.222." + Chr$(13)
4913.     m$ = m$ + ".22....." + Chr$(13)
4914.     m$ = m$ + ".22...2." + Chr$(13)
4915.     m$ = m$ + "..2222.." + Chr$(13)
4916.     m$ = m$ + "........" + Chr$(13)
4917.     arrTileText(64) = m$
4918.  
4919.     m$ = ""
4920.     m$ = m$ + "...22..." + Chr$(13)
4921.     m$ = m$ + "..2222.." + Chr$(13)
4922.     m$ = m$ + ".22..22." + Chr$(13)
4923.     m$ = m$ + ".222222." + Chr$(13)
4924.     m$ = m$ + ".22..22." + Chr$(13)
4925.     m$ = m$ + ".22..22." + Chr$(13)
4926.     m$ = m$ + ".22..22." + Chr$(13)
4927.     m$ = m$ + "........" + Chr$(13)
4928.     arrTileText(65) = m$
4929.  
4930.     m$ = ""
4931.     m$ = m$ + ".22222.." + Chr$(13)
4932.     m$ = m$ + ".22..22." + Chr$(13)
4933.     m$ = m$ + ".22..22." + Chr$(13)
4934.     m$ = m$ + ".22222.." + Chr$(13)
4935.     m$ = m$ + ".22..22." + Chr$(13)
4936.     m$ = m$ + ".22..22." + Chr$(13)
4937.     m$ = m$ + ".22222.." + Chr$(13)
4938.     m$ = m$ + "........" + Chr$(13)
4939.     arrTileText(66) = m$
4940.  
4941.     m$ = ""
4942.     m$ = m$ + "..2222.." + Chr$(13)
4943.     m$ = m$ + ".22..22." + Chr$(13)
4944.     m$ = m$ + ".22....." + Chr$(13)
4945.     m$ = m$ + ".22....." + Chr$(13)
4946.     m$ = m$ + ".22....." + Chr$(13)
4947.     m$ = m$ + ".22..22." + Chr$(13)
4948.     m$ = m$ + "..2222.." + Chr$(13)
4949.     m$ = m$ + "........" + Chr$(13)
4950.     arrTileText(67) = m$
4951.  
4952.     m$ = ""
4953.     m$ = m$ + ".2222..." + Chr$(13)
4954.     m$ = m$ + ".22.22.." + Chr$(13)
4955.     m$ = m$ + ".22..22." + Chr$(13)
4956.     m$ = m$ + ".22..22." + Chr$(13)
4957.     m$ = m$ + ".22..22." + Chr$(13)
4958.     m$ = m$ + ".22.22.." + Chr$(13)
4959.     m$ = m$ + ".2222..." + Chr$(13)
4960.     m$ = m$ + "........" + Chr$(13)
4961.     arrTileText(68) = m$
4962.  
4963.     m$ = ""
4964.     m$ = m$ + ".222222." + Chr$(13)
4965.     m$ = m$ + ".22....." + Chr$(13)
4966.     m$ = m$ + ".22....." + Chr$(13)
4967.     m$ = m$ + ".2222..." + Chr$(13)
4968.     m$ = m$ + ".22....." + Chr$(13)
4969.     m$ = m$ + ".22....." + Chr$(13)
4970.     m$ = m$ + ".222222." + Chr$(13)
4971.     m$ = m$ + "........" + Chr$(13)
4972.     arrTileText(69) = m$
4973.  
4974.     m$ = ""
4975.     m$ = m$ + ".222222." + Chr$(13)
4976.     m$ = m$ + ".22....." + Chr$(13)
4977.     m$ = m$ + ".22....." + Chr$(13)
4978.     m$ = m$ + ".2222..." + Chr$(13)
4979.     m$ = m$ + ".22....." + Chr$(13)
4980.     m$ = m$ + ".22....." + Chr$(13)
4981.     m$ = m$ + ".22....." + Chr$(13)
4982.     m$ = m$ + "........" + Chr$(13)
4983.     arrTileText(70) = m$
4984.  
4985.     m$ = ""
4986.     m$ = m$ + "..2222.." + Chr$(13)
4987.     m$ = m$ + ".22..22." + Chr$(13)
4988.     m$ = m$ + ".22....." + Chr$(13)
4989.     m$ = m$ + ".22.222." + Chr$(13)
4990.     m$ = m$ + ".22..22." + Chr$(13)
4991.     m$ = m$ + ".22..22." + Chr$(13)
4992.     m$ = m$ + "..2222.." + Chr$(13)
4993.     m$ = m$ + "........" + Chr$(13)
4994.     arrTileText(71) = m$
4995.  
4996.     m$ = ""
4997.     m$ = m$ + ".22..22." + Chr$(13)
4998.     m$ = m$ + ".22..22." + Chr$(13)
4999.     m$ = m$ + ".22..22." + Chr$(13)
5000.     m$ = m$ + ".222222." + Chr$(13)
5001.     m$ = m$ + ".22..22." + Chr$(13)
5002.     m$ = m$ + ".22..22." + Chr$(13)
5003.     m$ = m$ + ".22..22." + Chr$(13)
5004.     m$ = m$ + "........" + Chr$(13)
5005.     arrTileText(72) = m$
5006.  
5007.     m$ = ""
5008.     m$ = m$ + "..2222.." + Chr$(13)
5009.     m$ = m$ + "...22..." + Chr$(13)
5010.     m$ = m$ + "...22..." + Chr$(13)
5011.     m$ = m$ + "...22..." + Chr$(13)
5012.     m$ = m$ + "...22..." + Chr$(13)
5013.     m$ = m$ + "...22..." + Chr$(13)
5014.     m$ = m$ + "..2222.." + Chr$(13)
5015.     m$ = m$ + "........" + Chr$(13)
5016.     arrTileText(73) = m$
5017.  
5018.     m$ = ""
5019.     m$ = m$ + "...2222." + Chr$(13)
5020.     m$ = m$ + "....22.." + Chr$(13)
5021.     m$ = m$ + "....22.." + Chr$(13)
5022.     m$ = m$ + "....22.." + Chr$(13)
5023.     m$ = m$ + "....22.." + Chr$(13)
5024.     m$ = m$ + ".22.22.." + Chr$(13)
5025.     m$ = m$ + "..222..." + Chr$(13)
5026.     m$ = m$ + "........" + Chr$(13)
5027.     arrTileText(74) = m$
5028.  
5029.     m$ = ""
5030.     m$ = m$ + ".22..22." + Chr$(13)
5031.     m$ = m$ + ".22.22.." + Chr$(13)
5032.     m$ = m$ + ".2222..." + Chr$(13)
5033.     m$ = m$ + ".222...." + Chr$(13)
5034.     m$ = m$ + ".2222..." + Chr$(13)
5035.     m$ = m$ + ".22.22.." + Chr$(13)
5036.     m$ = m$ + ".22..22." + Chr$(13)
5037.     m$ = m$ + "........" + Chr$(13)
5038.     arrTileText(75) = m$
5039.  
5040.     m$ = ""
5041.     m$ = m$ + ".22....." + Chr$(13)
5042.     m$ = m$ + ".22....." + Chr$(13)
5043.     m$ = m$ + ".22....." + Chr$(13)
5044.     m$ = m$ + ".22....." + Chr$(13)
5045.     m$ = m$ + ".22....." + Chr$(13)
5046.     m$ = m$ + ".22....." + Chr$(13)
5047.     m$ = m$ + ".222222." + Chr$(13)
5048.     m$ = m$ + "........" + Chr$(13)
5049.     arrTileText(76) = m$
5050.  
5051.     m$ = ""
5052.     m$ = m$ + ".22...22" + Chr$(13)
5053.     m$ = m$ + ".222.222" + Chr$(13)
5054.     m$ = m$ + ".2222222" + Chr$(13)
5055.     m$ = m$ + ".22.2.22" + Chr$(13)
5056.     m$ = m$ + ".22...22" + Chr$(13)
5057.     m$ = m$ + ".22...22" + Chr$(13)
5058.     m$ = m$ + ".22...22" + Chr$(13)
5059.     m$ = m$ + "........" + Chr$(13)
5060.     arrTileText(77) = m$
5061.  
5062.     m$ = ""
5063.     m$ = m$ + ".22..22." + Chr$(13)
5064.     m$ = m$ + ".222.22." + Chr$(13)
5065.     m$ = m$ + ".222222." + Chr$(13)
5066.     m$ = m$ + ".222222." + Chr$(13)
5067.     m$ = m$ + ".22.222." + Chr$(13)
5068.     m$ = m$ + ".22..22." + Chr$(13)
5069.     m$ = m$ + ".22..22." + Chr$(13)
5070.     m$ = m$ + "........" + Chr$(13)
5071.     arrTileText(78) = m$
5072.  
5073.     m$ = ""
5074.     m$ = m$ + "..2222.." + Chr$(13)
5075.     m$ = m$ + ".22..22." + Chr$(13)
5076.     m$ = m$ + ".22..22." + Chr$(13)
5077.     m$ = m$ + ".22..22." + Chr$(13)
5078.     m$ = m$ + ".22..22." + Chr$(13)
5079.     m$ = m$ + ".22..22." + Chr$(13)
5080.     m$ = m$ + "..2222.." + Chr$(13)
5081.     m$ = m$ + "........" + Chr$(13)
5082.     arrTileText(79) = m$
5083.  
5084.     m$ = ""
5085.     m$ = m$ + ".22222.." + Chr$(13)
5086.     m$ = m$ + ".22..22." + Chr$(13)
5087.     m$ = m$ + ".22..22." + Chr$(13)
5088.     m$ = m$ + ".22222.." + Chr$(13)
5089.     m$ = m$ + ".22....." + Chr$(13)
5090.     m$ = m$ + ".22....." + Chr$(13)
5091.     m$ = m$ + ".22....." + Chr$(13)
5092.     m$ = m$ + "........" + Chr$(13)
5093.     arrTileText(80) = m$
5094.  
5095.     m$ = ""
5096.     m$ = m$ + "..2222.." + Chr$(13)
5097.     m$ = m$ + ".22..22." + Chr$(13)
5098.     m$ = m$ + ".22..22." + Chr$(13)
5099.     m$ = m$ + ".22..22." + Chr$(13)
5100.     m$ = m$ + ".22..22." + Chr$(13)
5101.     m$ = m$ + "..2222.." + Chr$(13)
5102.     m$ = m$ + "....222." + Chr$(13)
5103.     m$ = m$ + "........" + Chr$(13)
5104.     arrTileText(81) = m$
5105.  
5106.     m$ = ""
5107.     m$ = m$ + ".22222.." + Chr$(13)
5108.     m$ = m$ + ".22..22." + Chr$(13)
5109.     m$ = m$ + ".22..22." + Chr$(13)
5110.     m$ = m$ + ".22222.." + Chr$(13)
5111.     m$ = m$ + ".2222..." + Chr$(13)
5112.     m$ = m$ + ".22.22.." + Chr$(13)
5113.     m$ = m$ + ".22..22." + Chr$(13)
5114.     m$ = m$ + "........" + Chr$(13)
5115.     arrTileText(82) = m$
5116.  
5117.     m$ = ""
5118.     m$ = m$ + "..2222.." + Chr$(13)
5119.     m$ = m$ + ".22..22." + Chr$(13)
5120.     m$ = m$ + ".22....." + Chr$(13)
5121.     m$ = m$ + "..2222.." + Chr$(13)
5122.     m$ = m$ + ".....22." + Chr$(13)
5123.     m$ = m$ + ".22..22." + Chr$(13)
5124.     m$ = m$ + "..2222.." + Chr$(13)
5125.     m$ = m$ + "........" + Chr$(13)
5126.     arrTileText(83) = m$
5127.  
5128.     m$ = ""
5129.     m$ = m$ + ".222222." + Chr$(13)
5130.     m$ = m$ + "...22..." + Chr$(13)
5131.     m$ = m$ + "...22..." + Chr$(13)
5132.     m$ = m$ + "...22..." + Chr$(13)
5133.     m$ = m$ + "...22..." + Chr$(13)
5134.     m$ = m$ + "...22..." + Chr$(13)
5135.     m$ = m$ + "...22..." + Chr$(13)
5136.     m$ = m$ + "........" + Chr$(13)
5137.     arrTileText(84) = m$
5138.  
5139.     m$ = ""
5140.     m$ = m$ + ".22..22." + Chr$(13)
5141.     m$ = m$ + ".22..22." + Chr$(13)
5142.     m$ = m$ + ".22..22." + Chr$(13)
5143.     m$ = m$ + ".22..22." + Chr$(13)
5144.     m$ = m$ + ".22..22." + Chr$(13)
5145.     m$ = m$ + ".22..22." + Chr$(13)
5146.     m$ = m$ + "..2222.." + Chr$(13)
5147.     m$ = m$ + "........" + Chr$(13)
5148.     arrTileText(85) = m$
5149.  
5150.     m$ = ""
5151.     m$ = m$ + ".22..22." + Chr$(13)
5152.     m$ = m$ + ".22..22." + Chr$(13)
5153.     m$ = m$ + ".22..22." + Chr$(13)
5154.     m$ = m$ + ".22..22." + Chr$(13)
5155.     m$ = m$ + ".22..22." + Chr$(13)
5156.     m$ = m$ + "..2222.." + Chr$(13)
5157.     m$ = m$ + "...22..." + Chr$(13)
5158.     m$ = m$ + "........" + Chr$(13)
5159.     arrTileText(86) = m$
5160.  
5161.     m$ = ""
5162.     m$ = m$ + ".22...22" + Chr$(13)
5163.     m$ = m$ + ".22...22" + Chr$(13)
5164.     m$ = m$ + ".22...22" + Chr$(13)
5165.     m$ = m$ + ".22.2.22" + Chr$(13)
5166.     m$ = m$ + ".2222222" + Chr$(13)
5167.     m$ = m$ + ".222.222" + Chr$(13)
5168.     m$ = m$ + ".22...22" + Chr$(13)
5169.     m$ = m$ + "........" + Chr$(13)
5170.     arrTileText(87) = m$
5171.  
5172.     m$ = ""
5173.     m$ = m$ + ".22..22." + Chr$(13)
5174.     m$ = m$ + ".22..22." + Chr$(13)
5175.     m$ = m$ + "..2222.." + Chr$(13)
5176.     m$ = m$ + "...22..." + Chr$(13)
5177.     m$ = m$ + "..2222.." + Chr$(13)
5178.     m$ = m$ + ".22..22." + Chr$(13)
5179.     m$ = m$ + ".22..22." + Chr$(13)
5180.     m$ = m$ + "........" + Chr$(13)
5181.     arrTileText(88) = m$
5182.  
5183.     m$ = ""
5184.     m$ = m$ + ".22..22." + Chr$(13)
5185.     m$ = m$ + ".22..22." + Chr$(13)
5186.     m$ = m$ + ".22..22." + Chr$(13)
5187.     m$ = m$ + "..2222.." + Chr$(13)
5188.     m$ = m$ + "...22..." + Chr$(13)
5189.     m$ = m$ + "...22..." + Chr$(13)
5190.     m$ = m$ + "...22..." + Chr$(13)
5191.     m$ = m$ + "........" + Chr$(13)
5192.     arrTileText(89) = m$
5193.  
5194.     m$ = ""
5195.     m$ = m$ + ".222222." + Chr$(13)
5196.     m$ = m$ + ".....22." + Chr$(13)
5197.     m$ = m$ + "....22.." + Chr$(13)
5198.     m$ = m$ + "...22..." + Chr$(13)
5199.     m$ = m$ + "..22...." + Chr$(13)
5200.     m$ = m$ + ".22....." + Chr$(13)
5201.     m$ = m$ + ".222222." + Chr$(13)
5202.     m$ = m$ + "........" + Chr$(13)
5203.     arrTileText(90) = m$
5204.  
5205.     m$ = ""
5206.     m$ = m$ + "..2222.." + Chr$(13)
5207.     m$ = m$ + "..22...." + Chr$(13)
5208.     m$ = m$ + "..22...." + Chr$(13)
5209.     m$ = m$ + "..22...." + Chr$(13)
5210.     m$ = m$ + "..22...." + Chr$(13)
5211.     m$ = m$ + "..22...." + Chr$(13)
5212.     m$ = m$ + "..2222.." + Chr$(13)
5213.     m$ = m$ + "........" + Chr$(13)
5214.     arrTileText(91) = m$
5215.  
5216.     m$ = ""
5217.     m$ = m$ + "........" + Chr$(13)
5218.     m$ = m$ + ".22....." + Chr$(13)
5219.     m$ = m$ + "..22...." + Chr$(13)
5220.     m$ = m$ + "...22..." + Chr$(13)
5221.     m$ = m$ + "....22.." + Chr$(13)
5222.     m$ = m$ + ".....22." + Chr$(13)
5223.     m$ = m$ + "......22" + Chr$(13)
5224.     m$ = m$ + "........" + Chr$(13)
5225.     arrTileText(92) = m$
5226.  
5227.     m$ = ""
5228.     m$ = m$ + "..2222.." + Chr$(13)
5229.     m$ = m$ + "....22.." + Chr$(13)
5230.     m$ = m$ + "....22.." + Chr$(13)
5231.     m$ = m$ + "....22.." + Chr$(13)
5232.     m$ = m$ + "....22.." + Chr$(13)
5233.     m$ = m$ + "....22.." + Chr$(13)
5234.     m$ = m$ + "..2222.." + Chr$(13)
5235.     m$ = m$ + "........" + Chr$(13)
5236.     arrTileText(93) = m$
5237.  
5238.     m$ = ""
5239.     m$ = m$ + "...22..." + Chr$(13)
5240.     m$ = m$ + "..2222.." + Chr$(13)
5241.     m$ = m$ + ".22..22." + Chr$(13)
5242.     m$ = m$ + "........" + Chr$(13)
5243.     m$ = m$ + "........" + Chr$(13)
5244.     m$ = m$ + "........" + Chr$(13)
5245.     m$ = m$ + "........" + Chr$(13)
5246.     m$ = m$ + "........" + Chr$(13)
5247.     arrTileText(94) = m$
5248.  
5249.     m$ = ""
5250.     m$ = m$ + "........" + Chr$(13)
5251.     m$ = m$ + "........" + Chr$(13)
5252.     m$ = m$ + "........" + Chr$(13)
5253.     m$ = m$ + "........" + Chr$(13)
5254.     m$ = m$ + "........" + Chr$(13)
5255.     m$ = m$ + ".222222." + Chr$(13)
5256.     m$ = m$ + "........" + Chr$(13)
5257.     m$ = m$ + "........" + Chr$(13)
5258.     arrTileText(95) = m$
5259.  
5260.     m$ = ""
5261.     m$ = m$ + "........" + Chr$(13)
5262.     m$ = m$ + "........" + Chr$(13)
5263.     m$ = m$ + "........" + Chr$(13)
5264.     m$ = m$ + "........" + Chr$(13)
5265.     m$ = m$ + "........" + Chr$(13)
5266.     m$ = m$ + "........" + Chr$(13)
5267.     m$ = m$ + "........" + Chr$(13)
5268.     m$ = m$ + "........" + Chr$(13)
5269.     arrTileText(96) = m$
5270.  
5271.     m$ = ""
5272.     m$ = m$ + "........" + Chr$(13)
5273.     m$ = m$ + "..2222.." + Chr$(13)
5274.     m$ = m$ + ".....22." + Chr$(13)
5275.     m$ = m$ + "..22222." + Chr$(13)
5276.     m$ = m$ + ".22..22." + Chr$(13)
5277.     m$ = m$ + "..22222." + Chr$(13)
5278.     m$ = m$ + "........" + Chr$(13)
5279.     m$ = m$ + "........" + Chr$(13)
5280.     arrTileText(97) = m$
5281.  
5282.     m$ = ""
5283.     m$ = m$ + ".22....." + Chr$(13)
5284.     m$ = m$ + ".22....." + Chr$(13)
5285.     m$ = m$ + ".22222.." + Chr$(13)
5286.     m$ = m$ + ".22..22." + Chr$(13)
5287.     m$ = m$ + ".22..22." + Chr$(13)
5288.     m$ = m$ + ".22222.." + Chr$(13)
5289.     m$ = m$ + "........" + Chr$(13)
5290.     m$ = m$ + "........" + Chr$(13)
5291.     arrTileText(98) = m$
5292.  
5293.     m$ = ""
5294.     m$ = m$ + "........" + Chr$(13)
5295.     m$ = m$ + "..2222.." + Chr$(13)
5296.     m$ = m$ + ".22....." + Chr$(13)
5297.     m$ = m$ + ".22....." + Chr$(13)
5298.     m$ = m$ + ".22....." + Chr$(13)
5299.     m$ = m$ + "..2222.." + Chr$(13)
5300.     m$ = m$ + "........" + Chr$(13)
5301.     m$ = m$ + "........" + Chr$(13)
5302.     arrTileText(99) = m$
5303.  
5304.     m$ = ""
5305.     m$ = m$ + ".....22." + Chr$(13)
5306.     m$ = m$ + ".....22." + Chr$(13)
5307.     m$ = m$ + "..22222." + Chr$(13)
5308.     m$ = m$ + ".22..22." + Chr$(13)
5309.     m$ = m$ + ".22..22." + Chr$(13)
5310.     m$ = m$ + "..22222." + Chr$(13)
5311.     m$ = m$ + "........" + Chr$(13)
5312.     m$ = m$ + "........" + Chr$(13)
5313.     arrTileText(100) = m$
5314.  
5315.     m$ = ""
5316.     m$ = m$ + "........" + Chr$(13)
5317.     m$ = m$ + "..2222.." + Chr$(13)
5318.     m$ = m$ + ".22..22." + Chr$(13)
5319.     m$ = m$ + ".222222." + Chr$(13)
5320.     m$ = m$ + ".22....." + Chr$(13)
5321.     m$ = m$ + "..2222.." + Chr$(13)
5322.     m$ = m$ + "........" + Chr$(13)
5323.     m$ = m$ + "........" + Chr$(13)
5324.     arrTileText(101) = m$
5325.  
5326.     m$ = ""
5327.     m$ = m$ + "....222." + Chr$(13)
5328.     m$ = m$ + "...22..." + Chr$(13)
5329.     m$ = m$ + "..22222." + Chr$(13)
5330.     m$ = m$ + "...22..." + Chr$(13)
5331.     m$ = m$ + "...22..." + Chr$(13)
5332.     m$ = m$ + "...22..." + Chr$(13)
5333.     m$ = m$ + "........" + Chr$(13)
5334.     m$ = m$ + "........" + Chr$(13)
5335.     arrTileText(102) = m$
5336.  
5337.     m$ = ""
5338.     m$ = m$ + "........" + Chr$(13)
5339.     m$ = m$ + "..22222." + Chr$(13)
5340.     m$ = m$ + ".22..22." + Chr$(13)
5341.     m$ = m$ + ".22..22." + Chr$(13)
5342.     m$ = m$ + "..22222." + Chr$(13)
5343.     m$ = m$ + ".....22." + Chr$(13)
5344.     m$ = m$ + ".22222.." + Chr$(13)
5345.     m$ = m$ + "........" + Chr$(13)
5346.     arrTileText(103) = m$
5347.  
5348.     m$ = ""
5349.     m$ = m$ + ".22....." + Chr$(13)
5350.     m$ = m$ + ".22....." + Chr$(13)
5351.     m$ = m$ + ".22222.." + Chr$(13)
5352.     m$ = m$ + ".22..22." + Chr$(13)
5353.     m$ = m$ + ".22..22." + Chr$(13)
5354.     m$ = m$ + ".22..22." + Chr$(13)
5355.     m$ = m$ + "........" + Chr$(13)
5356.     m$ = m$ + "........" + Chr$(13)
5357.     arrTileText(104) = m$
5358.  
5359.     m$ = ""
5360.     m$ = m$ + "...22..." + Chr$(13)
5361.     m$ = m$ + "........" + Chr$(13)
5362.     m$ = m$ + "..222..." + Chr$(13)
5363.     m$ = m$ + "...22..." + Chr$(13)
5364.     m$ = m$ + "...22..." + Chr$(13)
5365.     m$ = m$ + "..2222.." + Chr$(13)
5366.     m$ = m$ + "........" + Chr$(13)
5367.     m$ = m$ + "........" + Chr$(13)
5368.     arrTileText(105) = m$
5369.  
5370.     m$ = ""
5371.     m$ = m$ + ".....22." + Chr$(13)
5372.     m$ = m$ + "........" + Chr$(13)
5373.     m$ = m$ + ".....22." + Chr$(13)
5374.     m$ = m$ + ".....22." + Chr$(13)
5375.     m$ = m$ + ".....22." + Chr$(13)
5376.     m$ = m$ + ".....22." + Chr$(13)
5377.     m$ = m$ + "..2222.." + Chr$(13)
5378.     m$ = m$ + "........" + Chr$(13)
5379.     arrTileText(106) = m$
5380.  
5381.     m$ = ""
5382.     m$ = m$ + ".22....." + Chr$(13)
5383.     m$ = m$ + ".22....." + Chr$(13)
5384.     m$ = m$ + ".22.22.." + Chr$(13)
5385.     m$ = m$ + ".2222..." + Chr$(13)
5386.     m$ = m$ + ".22.22.." + Chr$(13)
5387.     m$ = m$ + ".22..22." + Chr$(13)
5388.     m$ = m$ + "........" + Chr$(13)
5389.     m$ = m$ + "........" + Chr$(13)
5390.     arrTileText(107) = m$
5391.  
5392.     m$ = ""
5393.     m$ = m$ + "..222..." + Chr$(13)
5394.     m$ = m$ + "...22..." + Chr$(13)
5395.     m$ = m$ + "...22..." + Chr$(13)
5396.     m$ = m$ + "...22..." + Chr$(13)
5397.     m$ = m$ + "...22..." + Chr$(13)
5398.     m$ = m$ + "..2222.." + Chr$(13)
5399.     m$ = m$ + "........" + Chr$(13)
5400.     m$ = m$ + "........" + Chr$(13)
5401.     arrTileText(108) = m$
5402.  
5403.     m$ = ""
5404.     m$ = m$ + "........" + Chr$(13)
5405.     m$ = m$ + ".22..22." + Chr$(13)
5406.     m$ = m$ + ".2222222" + Chr$(13)
5407.     m$ = m$ + ".2222222" + Chr$(13)
5408.     m$ = m$ + ".22.2.22" + Chr$(13)
5409.     m$ = m$ + ".22...22" + Chr$(13)
5410.     m$ = m$ + "........" + Chr$(13)
5411.     m$ = m$ + "........" + Chr$(13)
5412.     arrTileText(109) = m$
5413.  
5414.     m$ = ""
5415.     m$ = m$ + "........" + Chr$(13)
5416.     m$ = m$ + ".22222.." + Chr$(13)
5417.     m$ = m$ + ".22..22." + Chr$(13)
5418.     m$ = m$ + ".22..22." + Chr$(13)
5419.     m$ = m$ + ".22..22." + Chr$(13)
5420.     m$ = m$ + ".22..22." + Chr$(13)
5421.     m$ = m$ + "........" + Chr$(13)
5422.     m$ = m$ + "........" + Chr$(13)
5423.     arrTileText(110) = m$
5424.  
5425.     m$ = ""
5426.     m$ = m$ + "........" + Chr$(13)
5427.     m$ = m$ + "..2222.." + Chr$(13)
5428.     m$ = m$ + ".22..22." + Chr$(13)
5429.     m$ = m$ + ".22..22." + Chr$(13)
5430.     m$ = m$ + ".22..22." + Chr$(13)
5431.     m$ = m$ + "..2222.." + Chr$(13)
5432.     m$ = m$ + "........" + Chr$(13)
5433.     m$ = m$ + "........" + Chr$(13)
5434.     arrTileText(111) = m$
5435.  
5436.     m$ = ""
5437.     m$ = m$ + "........" + Chr$(13)
5438.     m$ = m$ + ".22222.." + Chr$(13)
5439.     m$ = m$ + ".22..22." + Chr$(13)
5440.     m$ = m$ + ".22..22." + Chr$(13)
5441.     m$ = m$ + ".22222.." + Chr$(13)
5442.     m$ = m$ + ".22....." + Chr$(13)
5443.     m$ = m$ + ".22....." + Chr$(13)
5444.     m$ = m$ + "........" + Chr$(13)
5445.     arrTileText(112) = m$
5446.  
5447.     m$ = ""
5448.     m$ = m$ + "........" + Chr$(13)
5449.     m$ = m$ + "..22222." + Chr$(13)
5450.     m$ = m$ + ".22..22." + Chr$(13)
5451.     m$ = m$ + ".22..22." + Chr$(13)
5452.     m$ = m$ + "..22222." + Chr$(13)
5453.     m$ = m$ + ".....22." + Chr$(13)
5454.     m$ = m$ + ".....22." + Chr$(13)
5455.     m$ = m$ + "........" + Chr$(13)
5456.     arrTileText(113) = m$
5457.  
5458.     m$ = ""
5459.     m$ = m$ + "........" + Chr$(13)
5460.     m$ = m$ + ".22222.." + Chr$(13)
5461.     m$ = m$ + ".22..22." + Chr$(13)
5462.     m$ = m$ + ".22....." + Chr$(13)
5463.     m$ = m$ + ".22....." + Chr$(13)
5464.     m$ = m$ + ".22....." + Chr$(13)
5465.     m$ = m$ + "........" + Chr$(13)
5466.     m$ = m$ + "........" + Chr$(13)
5467.     arrTileText(114) = m$
5468.  
5469.     m$ = ""
5470.     m$ = m$ + "........" + Chr$(13)
5471.     m$ = m$ + "..22222." + Chr$(13)
5472.     m$ = m$ + ".22....." + Chr$(13)
5473.     m$ = m$ + "..2222.." + Chr$(13)
5474.     m$ = m$ + ".....22." + Chr$(13)
5475.     m$ = m$ + ".22222.." + Chr$(13)
5476.     m$ = m$ + "........" + Chr$(13)
5477.     m$ = m$ + "........" + Chr$(13)
5478.     arrTileText(115) = m$
5479.  
5480.     m$ = ""
5481.     m$ = m$ + "...22..." + Chr$(13)
5482.     m$ = m$ + ".222222." + Chr$(13)
5483.     m$ = m$ + "...22..." + Chr$(13)
5484.     m$ = m$ + "...22..." + Chr$(13)
5485.     m$ = m$ + "...22..." + Chr$(13)
5486.     m$ = m$ + "....222." + Chr$(13)
5487.     m$ = m$ + "........" + Chr$(13)
5488.     m$ = m$ + "........" + Chr$(13)
5489.     arrTileText(116) = m$
5490.  
5491.     m$ = ""
5492.     m$ = m$ + "........" + Chr$(13)
5493.     m$ = m$ + ".22..22." + Chr$(13)
5494.     m$ = m$ + ".22..22." + Chr$(13)
5495.     m$ = m$ + ".22..22." + Chr$(13)
5496.     m$ = m$ + ".22..22." + Chr$(13)
5497.     m$ = m$ + "..22222." + Chr$(13)
5498.     m$ = m$ + "........" + Chr$(13)
5499.     m$ = m$ + "........" + Chr$(13)
5500.     arrTileText(117) = m$
5501.  
5502.     m$ = ""
5503.     m$ = m$ + "........" + Chr$(13)
5504.     m$ = m$ + ".22..22." + Chr$(13)
5505.     m$ = m$ + ".22..22." + Chr$(13)
5506.     m$ = m$ + ".22..22." + Chr$(13)
5507.     m$ = m$ + "..2222.." + Chr$(13)
5508.     m$ = m$ + "...22..." + Chr$(13)
5509.     m$ = m$ + "........" + Chr$(13)
5510.     m$ = m$ + "........" + Chr$(13)
5511.     arrTileText(118) = m$
5512.  
5513.     m$ = ""
5514.     m$ = m$ + "........" + Chr$(13)
5515.     m$ = m$ + ".22...22" + Chr$(13)
5516.     m$ = m$ + ".22.2.22" + Chr$(13)
5517.     m$ = m$ + ".2222222" + Chr$(13)
5518.     m$ = m$ + "..22222." + Chr$(13)
5519.     m$ = m$ + "..22.22." + Chr$(13)
5520.     m$ = m$ + "........" + Chr$(13)
5521.     m$ = m$ + "........" + Chr$(13)
5522.     arrTileText(119) = m$
5523.  
5524.     m$ = ""
5525.     m$ = m$ + "........" + Chr$(13)
5526.     m$ = m$ + ".22..22." + Chr$(13)
5527.     m$ = m$ + "..2222.." + Chr$(13)
5528.     m$ = m$ + "...22..." + Chr$(13)
5529.     m$ = m$ + "..2222.." + Chr$(13)
5530.     m$ = m$ + ".22..22." + Chr$(13)
5531.     m$ = m$ + "........" + Chr$(13)
5532.     m$ = m$ + "........" + Chr$(13)
5533.     arrTileText(120) = m$
5534.  
5535.     m$ = ""
5536.     m$ = m$ + "........" + Chr$(13)
5537.     m$ = m$ + ".22..22." + Chr$(13)
5538.     m$ = m$ + ".22..22." + Chr$(13)
5539.     m$ = m$ + ".22..22." + Chr$(13)
5540.     m$ = m$ + "..22222." + Chr$(13)
5541.     m$ = m$ + "....22.." + Chr$(13)
5542.     m$ = m$ + ".2222..." + Chr$(13)
5543.     m$ = m$ + "........" + Chr$(13)
5544.     arrTileText(121) = m$
5545.  
5546.     m$ = ""
5547.     m$ = m$ + "........" + Chr$(13)
5548.     m$ = m$ + ".222222." + Chr$(13)
5549.     m$ = m$ + "....22.." + Chr$(13)
5550.     m$ = m$ + "...22..." + Chr$(13)
5551.     m$ = m$ + "..22...." + Chr$(13)
5552.     m$ = m$ + ".222222." + Chr$(13)
5553.     m$ = m$ + "........" + Chr$(13)
5554.     m$ = m$ + "........" + Chr$(13)
5555.     arrTileText(122) = m$
5556.  
5557.     m$ = ""
5558.     m$ = m$ + "...222.." + Chr$(13)
5559.     m$ = m$ + "..22...." + Chr$(13)
5560.     m$ = m$ + "..2....." + Chr$(13)
5561.     m$ = m$ + ".22....." + Chr$(13)
5562.     m$ = m$ + "..2....." + Chr$(13)
5563.     m$ = m$ + "..22...." + Chr$(13)
5564.     m$ = m$ + "...222.." + Chr$(13)
5565.     m$ = m$ + "........" + Chr$(13)
5566.     arrTileText(123) = m$
5567.  
5568.     m$ = ""
5569.     m$ = m$ + "....2..." + Chr$(13)
5570.     m$ = m$ + "....2..." + Chr$(13)
5571.     m$ = m$ + "....2..." + Chr$(13)
5572.     m$ = m$ + "....2..." + Chr$(13)
5573.     m$ = m$ + "....2..." + Chr$(13)
5574.     m$ = m$ + "....2..." + Chr$(13)
5575.     m$ = m$ + "....2..." + Chr$(13)
5576.     m$ = m$ + "........" + Chr$(13)
5577.     arrTileText(124) = m$
5578.  
5579.     m$ = ""
5580.     m$ = m$ + "..222..." + Chr$(13)
5581.     m$ = m$ + "....22.." + Chr$(13)
5582.     m$ = m$ + ".....2.." + Chr$(13)
5583.     m$ = m$ + ".....22." + Chr$(13)
5584.     m$ = m$ + ".....2.." + Chr$(13)
5585.     m$ = m$ + "....22.." + Chr$(13)
5586.     m$ = m$ + "..222..." + Chr$(13)
5587.     m$ = m$ + "........" + Chr$(13)
5588.     arrTileText(125) = m$
5589.  
5590.     m$ = ""
5591.     m$ = m$ + "........" + Chr$(13)
5592.     m$ = m$ + ".22....2" + Chr$(13)
5593.     m$ = m$ + "2..2..2." + Chr$(13)
5594.     m$ = m$ + "....22.." + Chr$(13)
5595.     m$ = m$ + "........" + Chr$(13)
5596.     m$ = m$ + "........" + Chr$(13)
5597.     m$ = m$ + "........" + Chr$(13)
5598.     m$ = m$ + "........" + Chr$(13)
5599.     arrTileText(126) = m$
5600.  
5601.     m$ = ""
5602.     m$ = m$ + "........" + Chr$(13)
5603.     m$ = m$ + "........" + Chr$(13)
5604.     m$ = m$ + "........" + Chr$(13)
5605.     m$ = m$ + "........" + Chr$(13)
5606.     m$ = m$ + "........" + Chr$(13)
5607.     m$ = m$ + "........" + Chr$(13)
5608.     m$ = m$ + "........" + Chr$(13)
5609.     m$ = m$ + "........" + Chr$(13)
5610.     arrTileText(127) = m$
5611.  
5612.     m$ = ""
5613.     m$ = m$ + "........" + Chr$(13)
5614.     m$ = m$ + "........" + Chr$(13)
5615.     m$ = m$ + "........" + Chr$(13)
5616.     m$ = m$ + "22222222" + Chr$(13)
5617.     m$ = m$ + "22222222" + Chr$(13)
5618.     m$ = m$ + "........" + Chr$(13)
5619.     m$ = m$ + "........" + Chr$(13)
5620.     m$ = m$ + "........" + Chr$(13)
5621.     arrTileText(128) = m$
5622.  
5623.     m$ = ""
5624.     m$ = m$ + "....2..." + Chr$(13)
5625.     m$ = m$ + "...222.." + Chr$(13)
5626.     m$ = m$ + "..22222." + Chr$(13)
5627.     m$ = m$ + ".2222222" + Chr$(13)
5628.     m$ = m$ + ".2222222" + Chr$(13)
5629.     m$ = m$ + "...222.." + Chr$(13)
5630.     m$ = m$ + "..22222." + Chr$(13)
5631.     m$ = m$ + "........" + Chr$(13)
5632.     arrTileText(129) = m$
5633.  
5634.     m$ = ""
5635.     m$ = m$ + "...22..." + Chr$(13)
5636.     m$ = m$ + "...22..." + Chr$(13)
5637.     m$ = m$ + "...22..." + Chr$(13)
5638.     m$ = m$ + "...22..." + Chr$(13)
5639.     m$ = m$ + "...22..." + Chr$(13)
5640.     m$ = m$ + "...22..." + Chr$(13)
5641.     m$ = m$ + "...22..." + Chr$(13)
5642.     m$ = m$ + "...22..." + Chr$(13)
5643.     arrTileText(130) = m$
5644.  
5645.     m$ = ""
5646.     m$ = m$ + "........" + Chr$(13)
5647.     m$ = m$ + "........" + Chr$(13)
5648.     m$ = m$ + "........" + Chr$(13)
5649.     m$ = m$ + "22222222" + Chr$(13)
5650.     m$ = m$ + "22222222" + Chr$(13)
5651.     m$ = m$ + "........" + Chr$(13)
5652.     m$ = m$ + "........" + Chr$(13)
5653.     m$ = m$ + "........" + Chr$(13)
5654.     arrTileText(131) = m$
5655.  
5656.     m$ = ""
5657.     m$ = m$ + "........" + Chr$(13)
5658.     m$ = m$ + "........" + Chr$(13)
5659.     m$ = m$ + "22222222" + Chr$(13)
5660.     m$ = m$ + "22222222" + Chr$(13)
5661.     m$ = m$ + "........" + Chr$(13)
5662.     m$ = m$ + "........" + Chr$(13)
5663.     m$ = m$ + "........" + Chr$(13)
5664.     m$ = m$ + "........" + Chr$(13)
5665.     arrTileText(132) = m$
5666.  
5667.     m$ = ""
5668.     m$ = m$ + "........" + Chr$(13)
5669.     m$ = m$ + "22222222" + Chr$(13)
5670.     m$ = m$ + "22222222" + Chr$(13)
5671.     m$ = m$ + "........" + Chr$(13)
5672.     m$ = m$ + "........" + Chr$(13)
5673.     m$ = m$ + "........" + Chr$(13)
5674.     m$ = m$ + "........" + Chr$(13)
5675.     m$ = m$ + "........" + Chr$(13)
5676.     arrTileText(133) = m$
5677.  
5678.     m$ = ""
5679.     m$ = m$ + "........" + Chr$(13)
5680.     m$ = m$ + "........" + Chr$(13)
5681.     m$ = m$ + "........" + Chr$(13)
5682.     m$ = m$ + "........" + Chr$(13)
5683.     m$ = m$ + "22222222" + Chr$(13)
5684.     m$ = m$ + "22222222" + Chr$(13)
5685.     m$ = m$ + "........" + Chr$(13)
5686.     m$ = m$ + "........" + Chr$(13)
5687.     arrTileText(134) = m$
5688.  
5689.     m$ = ""
5690.     m$ = m$ + "..22...." + Chr$(13)
5691.     m$ = m$ + "..22...." + Chr$(13)
5692.     m$ = m$ + "..22...." + Chr$(13)
5693.     m$ = m$ + "..22...." + Chr$(13)
5694.     m$ = m$ + "..22...." + Chr$(13)
5695.     m$ = m$ + "..22...." + Chr$(13)
5696.     m$ = m$ + "..22...." + Chr$(13)
5697.     m$ = m$ + "..22...." + Chr$(13)
5698.     arrTileText(135) = m$
5699.  
5700.     m$ = ""
5701.     m$ = m$ + "....22.." + Chr$(13)
5702.     m$ = m$ + "....22.." + Chr$(13)
5703.     m$ = m$ + "....22.." + Chr$(13)
5704.     m$ = m$ + "....22.." + Chr$(13)
5705.     m$ = m$ + "....22.." + Chr$(13)
5706.     m$ = m$ + "....22.." + Chr$(13)
5707.     m$ = m$ + "....22.." + Chr$(13)
5708.     m$ = m$ + "....22.." + Chr$(13)
5709.     arrTileText(136) = m$
5710.  
5711.     m$ = ""
5712.     m$ = m$ + "........" + Chr$(13)
5713.     m$ = m$ + "........" + Chr$(13)
5714.     m$ = m$ + "........" + Chr$(13)
5715.     m$ = m$ + "222....." + Chr$(13)
5716.     m$ = m$ + "2222...." + Chr$(13)
5717.     m$ = m$ + "..222..." + Chr$(13)
5718.     m$ = m$ + "...22..." + Chr$(13)
5719.     m$ = m$ + "...22..." + Chr$(13)
5720.     arrTileText(137) = m$
5721.  
5722.     m$ = ""
5723.     m$ = m$ + "...22..." + Chr$(13)
5724.     m$ = m$ + "...22..." + Chr$(13)
5725.     m$ = m$ + "...222.." + Chr$(13)
5726.     m$ = m$ + "....2222" + Chr$(13)
5727.     m$ = m$ + ".....222" + Chr$(13)
5728.     m$ = m$ + "........" + Chr$(13)
5729.     m$ = m$ + "........" + Chr$(13)
5730.     m$ = m$ + "........" + Chr$(13)
5731.     arrTileText(138) = m$
5732.  
5733.     m$ = ""
5734.     m$ = m$ + "...22..." + Chr$(13)
5735.     m$ = m$ + "...22..." + Chr$(13)
5736.     m$ = m$ + "..222..." + Chr$(13)
5737.     m$ = m$ + "2222...." + Chr$(13)
5738.     m$ = m$ + "222....." + Chr$(13)
5739.     m$ = m$ + "........" + Chr$(13)
5740.     m$ = m$ + "........" + Chr$(13)
5741.     m$ = m$ + "........" + Chr$(13)
5742.     arrTileText(139) = m$
5743.  
5744.     m$ = ""
5745.     m$ = m$ + "22......" + Chr$(13)
5746.     m$ = m$ + "22......" + Chr$(13)
5747.     m$ = m$ + "22......" + Chr$(13)
5748.     m$ = m$ + "22......" + Chr$(13)
5749.     m$ = m$ + "22......" + Chr$(13)
5750.     m$ = m$ + "22......" + Chr$(13)
5751.     m$ = m$ + "22222222" + Chr$(13)
5752.     m$ = m$ + "22222222" + Chr$(13)
5753.     arrTileText(140) = m$
5754.  
5755.     m$ = ""
5756.     m$ = m$ + "22......" + Chr$(13)
5757.     m$ = m$ + "222....." + Chr$(13)
5758.     m$ = m$ + ".222...." + Chr$(13)
5759.     m$ = m$ + "..222..." + Chr$(13)
5760.     m$ = m$ + "...222.." + Chr$(13)
5761.     m$ = m$ + "....222." + Chr$(13)
5762.     m$ = m$ + ".....222" + Chr$(13)
5763.     m$ = m$ + "......22" + Chr$(13)
5764.     arrTileText(141) = m$
5765.  
5766.     m$ = ""
5767.     m$ = m$ + "......22" + Chr$(13)
5768.     m$ = m$ + ".....222" + Chr$(13)
5769.     m$ = m$ + "....222." + Chr$(13)
5770.     m$ = m$ + "...222.." + Chr$(13)
5771.     m$ = m$ + "..222..." + Chr$(13)
5772.     m$ = m$ + ".222...." + Chr$(13)
5773.     m$ = m$ + "222....." + Chr$(13)
5774.     m$ = m$ + "22......" + Chr$(13)
5775.     arrTileText(142) = m$
5776.  
5777.     m$ = ""
5778.     m$ = m$ + "22222222" + Chr$(13)
5779.     m$ = m$ + "22222222" + Chr$(13)
5780.     m$ = m$ + "22......" + Chr$(13)
5781.     m$ = m$ + "22......" + Chr$(13)
5782.     m$ = m$ + "22......" + Chr$(13)
5783.     m$ = m$ + "22......" + Chr$(13)
5784.     m$ = m$ + "22......" + Chr$(13)
5785.     m$ = m$ + "22......" + Chr$(13)
5786.     arrTileText(143) = m$
5787.  
5788.     m$ = ""
5789.     m$ = m$ + "22222222" + Chr$(13)
5790.     m$ = m$ + "22222222" + Chr$(13)
5791.     m$ = m$ + "......22" + Chr$(13)
5792.     m$ = m$ + "......22" + Chr$(13)
5793.     m$ = m$ + "......22" + Chr$(13)
5794.     m$ = m$ + "......22" + Chr$(13)
5795.     m$ = m$ + "......22" + Chr$(13)
5796.     m$ = m$ + "......22" + Chr$(13)
5797.     arrTileText(144) = m$
5798.  
5799.     m$ = ""
5800.     m$ = m$ + "........" + Chr$(13)
5801.     m$ = m$ + "..2222.." + Chr$(13)
5802.     m$ = m$ + ".222222." + Chr$(13)
5803.     m$ = m$ + ".222222." + Chr$(13)
5804.     m$ = m$ + ".222222." + Chr$(13)
5805.     m$ = m$ + ".222222." + Chr$(13)
5806.     m$ = m$ + "..2222.." + Chr$(13)
5807.     m$ = m$ + "........" + Chr$(13)
5808.     arrTileText(145) = m$
5809.  
5810.     m$ = ""
5811.     m$ = m$ + "........" + Chr$(13)
5812.     m$ = m$ + "........" + Chr$(13)
5813.     m$ = m$ + "........" + Chr$(13)
5814.     m$ = m$ + "........" + Chr$(13)
5815.     m$ = m$ + "........" + Chr$(13)
5816.     m$ = m$ + "22222222" + Chr$(13)
5817.     m$ = m$ + "22222222" + Chr$(13)
5818.     m$ = m$ + "........" + Chr$(13)
5819.     arrTileText(146) = m$
5820.  
5821.     m$ = ""
5822.     m$ = m$ + "..22.22." + Chr$(13)
5823.     m$ = m$ + ".2222222" + Chr$(13)
5824.     m$ = m$ + ".2222222" + Chr$(13)
5825.     m$ = m$ + ".2222222" + Chr$(13)
5826.     m$ = m$ + "..22222." + Chr$(13)
5827.     m$ = m$ + "...222.." + Chr$(13)
5828.     m$ = m$ + "....2..." + Chr$(13)
5829.     m$ = m$ + "........" + Chr$(13)
5830.     arrTileText(147) = m$
5831.  
5832.     m$ = ""
5833.     m$ = m$ + ".22....." + Chr$(13)
5834.     m$ = m$ + ".22....." + Chr$(13)
5835.     m$ = m$ + ".22....." + Chr$(13)
5836.     m$ = m$ + ".22....." + Chr$(13)
5837.     m$ = m$ + ".22....." + Chr$(13)
5838.     m$ = m$ + ".22....." + Chr$(13)
5839.     m$ = m$ + ".22....." + Chr$(13)
5840.     m$ = m$ + ".22....." + Chr$(13)
5841.     arrTileText(148) = m$
5842.  
5843.     m$ = ""
5844.     m$ = m$ + "........" + Chr$(13)
5845.     m$ = m$ + "........" + Chr$(13)
5846.     m$ = m$ + "........" + Chr$(13)
5847.     m$ = m$ + ".....222" + Chr$(13)
5848.     m$ = m$ + "....2222" + Chr$(13)
5849.     m$ = m$ + "...222.." + Chr$(13)
5850.     m$ = m$ + "...22..." + Chr$(13)
5851.     m$ = m$ + "...22..." + Chr$(13)
5852.     arrTileText(149) = m$
5853.  
5854.     m$ = ""
5855.     m$ = m$ + "22....22" + Chr$(13)
5856.     m$ = m$ + "222..222" + Chr$(13)
5857.     m$ = m$ + ".222222." + Chr$(13)
5858.     m$ = m$ + "..2222.." + Chr$(13)
5859.     m$ = m$ + "..2222.." + Chr$(13)
5860.     m$ = m$ + ".222222." + Chr$(13)
5861.     m$ = m$ + "222..222" + Chr$(13)
5862.     m$ = m$ + "22....22" + Chr$(13)
5863.     arrTileText(150) = m$
5864.  
5865.     m$ = ""
5866.     m$ = m$ + "........" + Chr$(13)
5867.     m$ = m$ + "..2222.." + Chr$(13)
5868.     m$ = m$ + ".222222." + Chr$(13)
5869.     m$ = m$ + ".22..22." + Chr$(13)
5870.     m$ = m$ + ".22..22." + Chr$(13)
5871.     m$ = m$ + ".222222." + Chr$(13)
5872.     m$ = m$ + "..2222.." + Chr$(13)
5873.     m$ = m$ + "........" + Chr$(13)
5874.     arrTileText(151) = m$
5875.  
5876.     m$ = ""
5877.     m$ = m$ + "...22..." + Chr$(13)
5878.     m$ = m$ + "...22..." + Chr$(13)
5879.     m$ = m$ + ".22..22." + Chr$(13)
5880.     m$ = m$ + ".22..22." + Chr$(13)
5881.     m$ = m$ + "...22..." + Chr$(13)
5882.     m$ = m$ + "...22..." + Chr$(13)
5883.     m$ = m$ + "..2222.." + Chr$(13)
5884.     m$ = m$ + "........" + Chr$(13)
5885.     arrTileText(152) = m$
5886.  
5887.     m$ = ""
5888.     m$ = m$ + ".....22." + Chr$(13)
5889.     m$ = m$ + ".....22." + Chr$(13)
5890.     m$ = m$ + ".....22." + Chr$(13)
5891.     m$ = m$ + ".....22." + Chr$(13)
5892.     m$ = m$ + ".....22." + Chr$(13)
5893.     m$ = m$ + ".....22." + Chr$(13)
5894.     m$ = m$ + ".....22." + Chr$(13)
5895.     m$ = m$ + ".....22." + Chr$(13)
5896.     arrTileText(153) = m$
5897.  
5898.     m$ = ""
5899.     m$ = m$ + "....2..." + Chr$(13)
5900.     m$ = m$ + "...222.." + Chr$(13)
5901.     m$ = m$ + "..22222." + Chr$(13)
5902.     m$ = m$ + ".2222222" + Chr$(13)
5903.     m$ = m$ + "..22222." + Chr$(13)
5904.     m$ = m$ + "...222.." + Chr$(13)
5905.     m$ = m$ + "....2..." + Chr$(13)
5906.     m$ = m$ + "........" + Chr$(13)
5907.     arrTileText(154) = m$
5908.  
5909.     m$ = ""
5910.     m$ = m$ + "...22..." + Chr$(13)
5911.     m$ = m$ + "...22..." + Chr$(13)
5912.     m$ = m$ + "...22..." + Chr$(13)
5913.     m$ = m$ + "22222222" + Chr$(13)
5914.     m$ = m$ + "22222222" + Chr$(13)
5915.     m$ = m$ + "...22..." + Chr$(13)
5916.     m$ = m$ + "...22..." + Chr$(13)
5917.     m$ = m$ + "...22..." + Chr$(13)
5918.     arrTileText(155) = m$
5919.  
5920.     m$ = ""
5921.     m$ = m$ + "22......" + Chr$(13)
5922.     m$ = m$ + "22......" + Chr$(13)
5923.     m$ = m$ + "..22...." + Chr$(13)
5924.     m$ = m$ + "..22...." + Chr$(13)
5925.     m$ = m$ + "22......" + Chr$(13)
5926.     m$ = m$ + "22......" + Chr$(13)
5927.     m$ = m$ + "..22...." + Chr$(13)
5928.     m$ = m$ + "..22...." + Chr$(13)
5929.     arrTileText(156) = m$
5930.  
5931.     m$ = ""
5932.     m$ = m$ + "...22..." + Chr$(13)
5933.     m$ = m$ + "...22..." + Chr$(13)
5934.     m$ = m$ + "...22..." + Chr$(13)
5935.     m$ = m$ + "...22..." + Chr$(13)
5936.     m$ = m$ + "...22..." + Chr$(13)
5937.     m$ = m$ + "...22..." + Chr$(13)
5938.     m$ = m$ + "...22..." + Chr$(13)
5939.     m$ = m$ + "...22..." + Chr$(13)
5940.     arrTileText(157) = m$
5941.  
5942.     m$ = ""
5943.     m$ = m$ + "........" + Chr$(13)
5944.     m$ = m$ + "........" + Chr$(13)
5945.     m$ = m$ + "......22" + Chr$(13)
5946.     m$ = m$ + "..22222." + Chr$(13)
5947.     m$ = m$ + ".222.22." + Chr$(13)
5948.     m$ = m$ + "..22.22." + Chr$(13)
5949.     m$ = m$ + "..22.22." + Chr$(13)
5950.     m$ = m$ + "........" + Chr$(13)
5951.     arrTileText(158) = m$
5952.  
5953.     m$ = ""
5954.     m$ = m$ + "22222222" + Chr$(13)
5955.     m$ = m$ + ".2222222" + Chr$(13)
5956.     m$ = m$ + "..222222" + Chr$(13)
5957.     m$ = m$ + "...22222" + Chr$(13)
5958.     m$ = m$ + "....2222" + Chr$(13)
5959.     m$ = m$ + ".....222" + Chr$(13)
5960.     m$ = m$ + "......22" + Chr$(13)
5961.     m$ = m$ + ".......2" + Chr$(13)
5962.     arrTileText(159) = m$
5963.  
5964.     m$ = ""
5965.     m$ = m$ + "........" + Chr$(13)
5966.     m$ = m$ + "........" + Chr$(13)
5967.     m$ = m$ + "........" + Chr$(13)
5968.     m$ = m$ + "........" + Chr$(13)
5969.     m$ = m$ + "........" + Chr$(13)
5970.     m$ = m$ + "........" + Chr$(13)
5971.     m$ = m$ + "........" + Chr$(13)
5972.     m$ = m$ + "........" + Chr$(13)
5973.     arrTileText(160) = m$
5974.  
5975.     m$ = ""
5976.     m$ = m$ + "2222...." + Chr$(13)
5977.     m$ = m$ + "2222...." + Chr$(13)
5978.     m$ = m$ + "2222...." + Chr$(13)
5979.     m$ = m$ + "2222...." + Chr$(13)
5980.     m$ = m$ + "2222...." + Chr$(13)
5981.     m$ = m$ + "2222...." + Chr$(13)
5982.     m$ = m$ + "2222...." + Chr$(13)
5983.     m$ = m$ + "2222...." + Chr$(13)
5984.     arrTileText(161) = m$
5985.  
5986.     m$ = ""
5987.     m$ = m$ + "........" + Chr$(13)
5988.     m$ = m$ + "........" + Chr$(13)
5989.     m$ = m$ + "........" + Chr$(13)
5990.     m$ = m$ + "........" + Chr$(13)
5991.     m$ = m$ + "22222222" + Chr$(13)
5992.     m$ = m$ + "22222222" + Chr$(13)
5993.     m$ = m$ + "22222222" + Chr$(13)
5994.     m$ = m$ + "22222222" + Chr$(13)
5995.     arrTileText(162) = m$
5996.  
5997.     m$ = ""
5998.     m$ = m$ + "22222222" + Chr$(13)
5999.     m$ = m$ + "........" + Chr$(13)
6000.     m$ = m$ + "........" + Chr$(13)
6001.     m$ = m$ + "........" + Chr$(13)
6002.     m$ = m$ + "........" + Chr$(13)
6003.     m$ = m$ + "........" + Chr$(13)
6004.     m$ = m$ + "........" + Chr$(13)
6005.     m$ = m$ + "........" + Chr$(13)
6006.     arrTileText(163) = m$
6007.  
6008.     m$ = ""
6009.     m$ = m$ + "........" + Chr$(13)
6010.     m$ = m$ + "........" + Chr$(13)
6011.     m$ = m$ + "........" + Chr$(13)
6012.     m$ = m$ + "........" + Chr$(13)
6013.     m$ = m$ + "........" + Chr$(13)
6014.     m$ = m$ + "........" + Chr$(13)
6015.     m$ = m$ + "........" + Chr$(13)
6016.     m$ = m$ + "22222222" + Chr$(13)
6017.     arrTileText(164) = m$
6018.  
6019.     m$ = ""
6020.     m$ = m$ + "22......" + Chr$(13)
6021.     m$ = m$ + "22......" + Chr$(13)
6022.     m$ = m$ + "22......" + Chr$(13)
6023.     m$ = m$ + "22......" + Chr$(13)
6024.     m$ = m$ + "22......" + Chr$(13)
6025.     m$ = m$ + "22......" + Chr$(13)
6026.     m$ = m$ + "22......" + Chr$(13)
6027.     m$ = m$ + "22......" + Chr$(13)
6028.     arrTileText(165) = m$
6029.  
6030.     m$ = ""
6031.     m$ = m$ + "22..22.." + Chr$(13)
6032.     m$ = m$ + "22..22.." + Chr$(13)
6033.     m$ = m$ + "..22..22" + Chr$(13)
6034.     m$ = m$ + "..22..22" + Chr$(13)
6035.     m$ = m$ + "22..22.." + Chr$(13)
6036.     m$ = m$ + "22..22.." + Chr$(13)
6037.     m$ = m$ + "..22..22" + Chr$(13)
6038.     m$ = m$ + "..22..22" + Chr$(13)
6039.     arrTileText(166) = m$
6040.  
6041.     m$ = ""
6042.     m$ = m$ + "......22" + Chr$(13)
6043.     m$ = m$ + "......22" + Chr$(13)
6044.     m$ = m$ + "......22" + Chr$(13)
6045.     m$ = m$ + "......22" + Chr$(13)
6046.     m$ = m$ + "......22" + Chr$(13)
6047.     m$ = m$ + "......22" + Chr$(13)
6048.     m$ = m$ + "......22" + Chr$(13)
6049.     m$ = m$ + "......22" + Chr$(13)
6050.     arrTileText(167) = m$
6051.  
6052.     m$ = ""
6053.     m$ = m$ + "........" + Chr$(13)
6054.     m$ = m$ + "........" + Chr$(13)
6055.     m$ = m$ + "........" + Chr$(13)
6056.     m$ = m$ + "........" + Chr$(13)
6057.     m$ = m$ + "22..22.." + Chr$(13)
6058.     m$ = m$ + "22..22.." + Chr$(13)
6059.     m$ = m$ + "..22..22" + Chr$(13)
6060.     m$ = m$ + "..22..22" + Chr$(13)
6061.     arrTileText(168) = m$
6062.  
6063.     m$ = ""
6064.     m$ = m$ + "22222222" + Chr$(13)
6065.     m$ = m$ + "2222222." + Chr$(13)
6066.     m$ = m$ + "222222.." + Chr$(13)
6067.     m$ = m$ + "22222..." + Chr$(13)
6068.     m$ = m$ + "2222...." + Chr$(13)
6069.     m$ = m$ + "222....." + Chr$(13)
6070.     m$ = m$ + "22......" + Chr$(13)
6071.     m$ = m$ + "2......." + Chr$(13)
6072.     arrTileText(169) = m$
6073.  
6074.     m$ = ""
6075.     m$ = m$ + "......22" + Chr$(13)
6076.     m$ = m$ + "......22" + Chr$(13)
6077.     m$ = m$ + "......22" + Chr$(13)
6078.     m$ = m$ + "......22" + Chr$(13)
6079.     m$ = m$ + "......22" + Chr$(13)
6080.     m$ = m$ + "......22" + Chr$(13)
6081.     m$ = m$ + "......22" + Chr$(13)
6082.     m$ = m$ + "......22" + Chr$(13)
6083.     arrTileText(170) = m$
6084.  
6085.     m$ = ""
6086.     m$ = m$ + "...22..." + Chr$(13)
6087.     m$ = m$ + "...22..." + Chr$(13)
6088.     m$ = m$ + "...22..." + Chr$(13)
6089.     m$ = m$ + "...22222" + Chr$(13)
6090.     m$ = m$ + "...22222" + Chr$(13)
6091.     m$ = m$ + "...22..." + Chr$(13)
6092.     m$ = m$ + "...22..." + Chr$(13)
6093.     m$ = m$ + "...22..." + Chr$(13)
6094.     arrTileText(171) = m$
6095.  
6096.     m$ = ""
6097.     m$ = m$ + "........" + Chr$(13)
6098.     m$ = m$ + "........" + Chr$(13)
6099.     m$ = m$ + "........" + Chr$(13)
6100.     m$ = m$ + "........" + Chr$(13)
6101.     m$ = m$ + "....2222" + Chr$(13)
6102.     m$ = m$ + "....2222" + Chr$(13)
6103.     m$ = m$ + "....2222" + Chr$(13)
6104.     m$ = m$ + "....2222" + Chr$(13)
6105.     arrTileText(172) = m$
6106.  
6107.     m$ = ""
6108.     m$ = m$ + "...22..." + Chr$(13)
6109.     m$ = m$ + "...22..." + Chr$(13)
6110.     m$ = m$ + "...22..." + Chr$(13)
6111.     m$ = m$ + "...22222" + Chr$(13)
6112.     m$ = m$ + "...22222" + Chr$(13)
6113.     m$ = m$ + "........" + Chr$(13)
6114.     m$ = m$ + "........" + Chr$(13)
6115.     m$ = m$ + "........" + Chr$(13)
6116.     arrTileText(173) = m$
6117.  
6118.     m$ = ""
6119.     m$ = m$ + "........" + Chr$(13)
6120.     m$ = m$ + "........" + Chr$(13)
6121.     m$ = m$ + "........" + Chr$(13)
6122.     m$ = m$ + "22222..." + Chr$(13)
6123.     m$ = m$ + "22222..." + Chr$(13)
6124.     m$ = m$ + "...22..." + Chr$(13)
6125.     m$ = m$ + "...22..." + Chr$(13)
6126.     m$ = m$ + "...22..." + Chr$(13)
6127.     arrTileText(174) = m$
6128.  
6129.     m$ = ""
6130.     m$ = m$ + "........" + Chr$(13)
6131.     m$ = m$ + "........" + Chr$(13)
6132.     m$ = m$ + "........" + Chr$(13)
6133.     m$ = m$ + "........" + Chr$(13)
6134.     m$ = m$ + "........" + Chr$(13)
6135.     m$ = m$ + "........" + Chr$(13)
6136.     m$ = m$ + "22222222" + Chr$(13)
6137.     m$ = m$ + "22222222" + Chr$(13)
6138.     arrTileText(175) = m$
6139.  
6140.     m$ = ""
6141.     m$ = m$ + "........" + Chr$(13)
6142.     m$ = m$ + "........" + Chr$(13)
6143.     m$ = m$ + "........" + Chr$(13)
6144.     m$ = m$ + "...22222" + Chr$(13)
6145.     m$ = m$ + "...22222" + Chr$(13)
6146.     m$ = m$ + "...22..." + Chr$(13)
6147.     m$ = m$ + "...22..." + Chr$(13)
6148.     m$ = m$ + "...22..." + Chr$(13)
6149.     arrTileText(176) = m$
6150.  
6151.     m$ = ""
6152.     m$ = m$ + "...22..." + Chr$(13)
6153.     m$ = m$ + "...22..." + Chr$(13)
6154.     m$ = m$ + "...22..." + Chr$(13)
6155.     m$ = m$ + "22222222" + Chr$(13)
6156.     m$ = m$ + "22222222" + Chr$(13)
6157.     m$ = m$ + "........" + Chr$(13)
6158.     m$ = m$ + "........" + Chr$(13)
6159.     m$ = m$ + "........" + Chr$(13)
6160.     arrTileText(177) = m$
6161.  
6162.     m$ = ""
6163.     m$ = m$ + "........" + Chr$(13)
6164.     m$ = m$ + "........" + Chr$(13)
6165.     m$ = m$ + "........" + Chr$(13)
6166.     m$ = m$ + "22222222" + Chr$(13)
6167.     m$ = m$ + "22222222" + Chr$(13)
6168.     m$ = m$ + "...22..." + Chr$(13)
6169.     m$ = m$ + "...22..." + Chr$(13)
6170.     m$ = m$ + "...22..." + Chr$(13)
6171.     arrTileText(178) = m$
6172.  
6173.     m$ = ""
6174.     m$ = m$ + "...22..." + Chr$(13)
6175.     m$ = m$ + "...22..." + Chr$(13)
6176.     m$ = m$ + "...22..." + Chr$(13)
6177.     m$ = m$ + "22222..." + Chr$(13)
6178.     m$ = m$ + "22222..." + Chr$(13)
6179.     m$ = m$ + "...22..." + Chr$(13)
6180.     m$ = m$ + "...22..." + Chr$(13)
6181.     m$ = m$ + "...22..." + Chr$(13)
6182.     arrTileText(179) = m$
6183.  
6184.     m$ = ""
6185.     m$ = m$ + "22......" + Chr$(13)
6186.     m$ = m$ + "22......" + Chr$(13)
6187.     m$ = m$ + "22......" + Chr$(13)
6188.     m$ = m$ + "22......" + Chr$(13)
6189.     m$ = m$ + "22......" + Chr$(13)
6190.     m$ = m$ + "22......" + Chr$(13)
6191.     m$ = m$ + "22......" + Chr$(13)
6192.     m$ = m$ + "22......" + Chr$(13)
6193.     arrTileText(180) = m$
6194.  
6195.     m$ = ""
6196.     m$ = m$ + "222....." + Chr$(13)
6197.     m$ = m$ + "222....." + Chr$(13)
6198.     m$ = m$ + "222....." + Chr$(13)
6199.     m$ = m$ + "222....." + Chr$(13)
6200.     m$ = m$ + "222....." + Chr$(13)
6201.     m$ = m$ + "222....." + Chr$(13)
6202.     m$ = m$ + "222....." + Chr$(13)
6203.     m$ = m$ + "222....." + Chr$(13)
6204.     arrTileText(181) = m$
6205.  
6206.     m$ = ""
6207.     m$ = m$ + ".....222" + Chr$(13)
6208.     m$ = m$ + ".....222" + Chr$(13)
6209.     m$ = m$ + ".....222" + Chr$(13)
6210.     m$ = m$ + ".....222" + Chr$(13)
6211.     m$ = m$ + ".....222" + Chr$(13)
6212.     m$ = m$ + ".....222" + Chr$(13)
6213.     m$ = m$ + ".....222" + Chr$(13)
6214.     m$ = m$ + ".....222" + Chr$(13)
6215.     arrTileText(182) = m$
6216.  
6217.     m$ = ""
6218.     m$ = m$ + "22222222" + Chr$(13)
6219.     m$ = m$ + "22222222" + Chr$(13)
6220.     m$ = m$ + "........" + Chr$(13)
6221.     m$ = m$ + "........" + Chr$(13)
6222.     m$ = m$ + "........" + Chr$(13)
6223.     m$ = m$ + "........" + Chr$(13)
6224.     m$ = m$ + "........" + Chr$(13)
6225.     m$ = m$ + "........" + Chr$(13)
6226.     arrTileText(183) = m$
6227.  
6228.     m$ = ""
6229.     m$ = m$ + "22222222" + Chr$(13)
6230.     m$ = m$ + "22222222" + Chr$(13)
6231.     m$ = m$ + "22222222" + Chr$(13)
6232.     m$ = m$ + "........" + Chr$(13)
6233.     m$ = m$ + "........" + Chr$(13)
6234.     m$ = m$ + "........" + Chr$(13)
6235.     m$ = m$ + "........" + Chr$(13)
6236.     m$ = m$ + "........" + Chr$(13)
6237.     arrTileText(184) = m$
6238.  
6239.     m$ = ""
6240.     m$ = m$ + "........" + Chr$(13)
6241.     m$ = m$ + "........" + Chr$(13)
6242.     m$ = m$ + "........" + Chr$(13)
6243.     m$ = m$ + "........" + Chr$(13)
6244.     m$ = m$ + "........" + Chr$(13)
6245.     m$ = m$ + "22222222" + Chr$(13)
6246.     m$ = m$ + "22222222" + Chr$(13)
6247.     m$ = m$ + "22222222" + Chr$(13)
6248.     arrTileText(185) = m$
6249.  
6250.     m$ = ""
6251.     m$ = m$ + "......22" + Chr$(13)
6252.     m$ = m$ + "......22" + Chr$(13)
6253.     m$ = m$ + "......22" + Chr$(13)
6254.     m$ = m$ + "......22" + Chr$(13)
6255.     m$ = m$ + "......22" + Chr$(13)
6256.     m$ = m$ + "......22" + Chr$(13)
6257.     m$ = m$ + "22222222" + Chr$(13)
6258.     m$ = m$ + "22222222" + Chr$(13)
6259.     arrTileText(186) = m$
6260.  
6261.     m$ = ""
6262.     m$ = m$ + "........" + Chr$(13)
6263.     m$ = m$ + "........" + Chr$(13)
6264.     m$ = m$ + "........" + Chr$(13)
6265.     m$ = m$ + "........" + Chr$(13)
6266.     m$ = m$ + "2222...." + Chr$(13)
6267.     m$ = m$ + "2222...." + Chr$(13)
6268.     m$ = m$ + "2222...." + Chr$(13)
6269.     m$ = m$ + "2222...." + Chr$(13)
6270.     arrTileText(187) = m$
6271.  
6272.     m$ = ""
6273.     m$ = m$ + "....2222" + Chr$(13)
6274.     m$ = m$ + "....2222" + Chr$(13)
6275.     m$ = m$ + "....2222" + Chr$(13)
6276.     m$ = m$ + "....2222" + Chr$(13)
6277.     m$ = m$ + "........" + Chr$(13)
6278.     m$ = m$ + "........" + Chr$(13)
6279.     m$ = m$ + "........" + Chr$(13)
6280.     m$ = m$ + "........" + Chr$(13)
6281.     arrTileText(188) = m$
6282.  
6283.     m$ = ""
6284.     m$ = m$ + "...22..." + Chr$(13)
6285.     m$ = m$ + "...22..." + Chr$(13)
6286.     m$ = m$ + "...22..." + Chr$(13)
6287.     m$ = m$ + "22222..." + Chr$(13)
6288.     m$ = m$ + "22222..." + Chr$(13)
6289.     m$ = m$ + "........" + Chr$(13)
6290.     m$ = m$ + "........" + Chr$(13)
6291.     m$ = m$ + "........" + Chr$(13)
6292.     arrTileText(189) = m$
6293.  
6294.     m$ = ""
6295.     m$ = m$ + "2222...." + Chr$(13)
6296.     m$ = m$ + "2222...." + Chr$(13)
6297.     m$ = m$ + "2222...." + Chr$(13)
6298.     m$ = m$ + "2222...." + Chr$(13)
6299.     m$ = m$ + "........" + Chr$(13)
6300.     m$ = m$ + "........" + Chr$(13)
6301.     m$ = m$ + "........" + Chr$(13)
6302.     m$ = m$ + "........" + Chr$(13)
6303.     arrTileText(190) = m$
6304.  
6305.     m$ = ""
6306.     m$ = m$ + "2222...." + Chr$(13)
6307.     m$ = m$ + "2222...." + Chr$(13)
6308.     m$ = m$ + "2222...." + Chr$(13)
6309.     m$ = m$ + "2222...." + Chr$(13)
6310.     m$ = m$ + "....2222" + Chr$(13)
6311.     m$ = m$ + "....2222" + Chr$(13)
6312.     m$ = m$ + "....2222" + Chr$(13)
6313.     m$ = m$ + "....2222" + Chr$(13)
6314.     arrTileText(191) = m$
6315.  
6316.     m$ = ""
6317.     m$ = m$ + "........" + Chr$(13)
6318.     m$ = m$ + ".2222222" + Chr$(13)
6319.     m$ = m$ + ".2.....2" + Chr$(13)
6320.     m$ = m$ + ".2.....2" + Chr$(13)
6321.     m$ = m$ + ".2.....2" + Chr$(13)
6322.     m$ = m$ + ".2.....2" + Chr$(13)
6323.     m$ = m$ + ".2.....2" + Chr$(13)
6324.     m$ = m$ + ".2222222" + Chr$(13)
6325.     arrTileText(192) = m$
6326.  
6327.     m$ = ""
6328.     m$ = m$ + "........" + Chr$(13)
6329.     m$ = m$ + ".2222222" + Chr$(13)
6330.     m$ = m$ + ".2222222" + Chr$(13)
6331.     m$ = m$ + ".2222222" + Chr$(13)
6332.     m$ = m$ + ".2222222" + Chr$(13)
6333.     m$ = m$ + ".2222222" + Chr$(13)
6334.     m$ = m$ + ".2222222" + Chr$(13)
6335.     m$ = m$ + ".2222222" + Chr$(13)
6336.     arrTileText(193) = m$
6337.  
6338.     m$ = ""
6339.     m$ = m$ + "........" + Chr$(13)
6340.     m$ = m$ + "...22..." + Chr$(13)
6341.     m$ = m$ + "..2222.." + Chr$(13)
6342.     m$ = m$ + ".222222." + Chr$(13)
6343.     m$ = m$ + "...22..." + Chr$(13)
6344.     m$ = m$ + "...22..." + Chr$(13)
6345.     m$ = m$ + "...22..." + Chr$(13)
6346.     m$ = m$ + "...22..." + Chr$(13)
6347.     arrTileText(194) = m$
6348.  
6349.     m$ = ""
6350.     m$ = m$ + "........" + Chr$(13)
6351.     m$ = m$ + "...22..." + Chr$(13)
6352.     m$ = m$ + "...22..." + Chr$(13)
6353.     m$ = m$ + "...22..." + Chr$(13)
6354.     m$ = m$ + "...22..." + Chr$(13)
6355.     m$ = m$ + ".222222." + Chr$(13)
6356.     m$ = m$ + "..2222.." + Chr$(13)
6357.     m$ = m$ + "...22..." + Chr$(13)
6358.     arrTileText(195) = m$
6359.  
6360.     m$ = ""
6361.     m$ = m$ + "........" + Chr$(13)
6362.     m$ = m$ + "...2...." + Chr$(13)
6363.     m$ = m$ + "..22...." + Chr$(13)
6364.     m$ = m$ + ".2222222" + Chr$(13)
6365.     m$ = m$ + ".2222222" + Chr$(13)
6366.     m$ = m$ + "..22...." + Chr$(13)
6367.     m$ = m$ + "...2...." + Chr$(13)
6368.     m$ = m$ + "........" + Chr$(13)
6369.     arrTileText(196) = m$
6370.  
6371.     m$ = ""
6372.     m$ = m$ + "........" + Chr$(13)
6373.     m$ = m$ + ".....2.." + Chr$(13)
6374.     m$ = m$ + ".....22." + Chr$(13)
6375.     m$ = m$ + ".2222222" + Chr$(13)
6376.     m$ = m$ + ".2222222" + Chr$(13)
6377.     m$ = m$ + ".....22." + Chr$(13)
6378.     m$ = m$ + ".....2.." + Chr$(13)
6379.     m$ = m$ + "........" + Chr$(13)
6380.     arrTileText(197) = m$
6381.  
6382.     m$ = ""
6383.     m$ = m$ + "........" + Chr$(13)
6384.     m$ = m$ + "........" + Chr$(13)
6385.     m$ = m$ + "........" + Chr$(13)
6386.     m$ = m$ + "........" + Chr$(13)
6387.     m$ = m$ + "........" + Chr$(13)
6388.     m$ = m$ + "........" + Chr$(13)
6389.     m$ = m$ + "........" + Chr$(13)
6390.     m$ = m$ + "........" + Chr$(13)
6391.     arrTileText(198) = m$
6392.  
6393.     m$ = ""
6394.     m$ = m$ + ".222222." + Chr$(13)
6395.     m$ = m$ + "2......2" + Chr$(13)
6396.     m$ = m$ + "2.2..2.2" + Chr$(13)
6397.     m$ = m$ + "2......2" + Chr$(13)
6398.     m$ = m$ + "2.2..2.2" + Chr$(13)
6399.     m$ = m$ + "2.2222.2" + Chr$(13)
6400.     m$ = m$ + "2......2" + Chr$(13)
6401.     m$ = m$ + ".222222." + Chr$(13)
6402.     arrTileText(199) = m$
6403.  
6404.     m$ = ""
6405.     m$ = m$ + ".222222." + Chr$(13)
6406.     m$ = m$ + "2......2" + Chr$(13)
6407.     m$ = m$ + "2.2..2.2" + Chr$(13)
6408.     m$ = m$ + "2......2" + Chr$(13)
6409.     m$ = m$ + "2.2222.2" + Chr$(13)
6410.     m$ = m$ + "2.2..2.2" + Chr$(13)
6411.     m$ = m$ + "2......2" + Chr$(13)
6412.     m$ = m$ + ".222222." + Chr$(13)
6413.     arrTileText(200) = m$
6414.  
6415.     m$ = ""
6416.     m$ = m$ + "........" + Chr$(13)
6417.     m$ = m$ + "........" + Chr$(13)
6418.     m$ = m$ + "........" + Chr$(13)
6419.     m$ = m$ + "........" + Chr$(13)
6420.     m$ = m$ + "........" + Chr$(13)
6421.     m$ = m$ + "........" + Chr$(13)
6422.     m$ = m$ + "........" + Chr$(13)
6423.     m$ = m$ + "........" + Chr$(13)
6424.     arrTileText(201) = m$
6425.  
6426.     m$ = ""
6427.     m$ = m$ + ".222222." + Chr$(13)
6428.     m$ = m$ + ".....22." + Chr$(13)
6429.     m$ = m$ + "....22.." + Chr$(13)
6430.     m$ = m$ + "...22..." + Chr$(13)
6431.     m$ = m$ + "..22...." + Chr$(13)
6432.     m$ = m$ + ".22....." + Chr$(13)
6433.     m$ = m$ + ".222222." + Chr$(13)
6434.     m$ = m$ + "........" + Chr$(13)
6435.     arrTileText(202) = m$
6436.  
6437.     m$ = ""
6438.     m$ = m$ + "...22..." + Chr$(13)
6439.     m$ = m$ + "...22..." + Chr$(13)
6440.     m$ = m$ + "...22..." + Chr$(13)
6441.     m$ = m$ + "22222222" + Chr$(13)
6442.     m$ = m$ + "22222222" + Chr$(13)
6443.     m$ = m$ + "...22..." + Chr$(13)
6444.     m$ = m$ + "...22..." + Chr$(13)
6445.     m$ = m$ + "...22..." + Chr$(13)
6446.     arrTileText(203) = m$
6447.  
6448.     m$ = ""
6449.     m$ = m$ + "22......" + Chr$(13)
6450.     m$ = m$ + "22......" + Chr$(13)
6451.     m$ = m$ + "..22...." + Chr$(13)
6452.     m$ = m$ + "..22...." + Chr$(13)
6453.     m$ = m$ + "22......" + Chr$(13)
6454.     m$ = m$ + "22......" + Chr$(13)
6455.     m$ = m$ + "..22...." + Chr$(13)
6456.     m$ = m$ + "..22...." + Chr$(13)
6457.     arrTileText(204) = m$
6458.  
6459.     m$ = ""
6460.     m$ = m$ + "...22..." + Chr$(13)
6461.     m$ = m$ + "...22..." + Chr$(13)
6462.     m$ = m$ + "...22..." + Chr$(13)
6463.     m$ = m$ + "...22..." + Chr$(13)
6464.     m$ = m$ + "...22..." + Chr$(13)
6465.     m$ = m$ + "...22..." + Chr$(13)
6466.     m$ = m$ + "...22..." + Chr$(13)
6467.     m$ = m$ + "...22..." + Chr$(13)
6468.     arrTileText(205) = m$
6469.  
6470.     m$ = ""
6471.     m$ = m$ + "..22..22" + Chr$(13)
6472.     m$ = m$ + "..22..22" + Chr$(13)
6473.     m$ = m$ + "22..22.." + Chr$(13)
6474.     m$ = m$ + "22..22.." + Chr$(13)
6475.     m$ = m$ + "..22..22" + Chr$(13)
6476.     m$ = m$ + "..22..22" + Chr$(13)
6477.     m$ = m$ + "22..22.." + Chr$(13)
6478.     m$ = m$ + "22..22.." + Chr$(13)
6479.     arrTileText(206) = m$
6480.  
6481.     m$ = ""
6482.     m$ = m$ + "..22..22" + Chr$(13)
6483.     m$ = m$ + "2..22..2" + Chr$(13)
6484.     m$ = m$ + "22..22.." + Chr$(13)
6485.     m$ = m$ + ".22..22." + Chr$(13)
6486.     m$ = m$ + "..22..22" + Chr$(13)
6487.     m$ = m$ + "2..22..2" + Chr$(13)
6488.     m$ = m$ + "22..22.." + Chr$(13)
6489.     m$ = m$ + ".22..22." + Chr$(13)
6490.     arrTileText(207) = m$
6491.  
6492.     m$ = ""
6493.     m$ = m$ + "........" + Chr$(13)
6494.     m$ = m$ + "........" + Chr$(13)
6495.     m$ = m$ + "........" + Chr$(13)
6496.     m$ = m$ + "........" + Chr$(13)
6497.     m$ = m$ + "........" + Chr$(13)
6498.     m$ = m$ + "........" + Chr$(13)
6499.     m$ = m$ + "........" + Chr$(13)
6500.     m$ = m$ + "........" + Chr$(13)
6501.     arrTileText(208) = m$
6502.  
6503.     m$ = ""
6504.     m$ = m$ + "2222...." + Chr$(13)
6505.     m$ = m$ + "2222...." + Chr$(13)
6506.     m$ = m$ + "2222...." + Chr$(13)
6507.     m$ = m$ + "2222...." + Chr$(13)
6508.     m$ = m$ + "2222...." + Chr$(13)
6509.     m$ = m$ + "2222...." + Chr$(13)
6510.     m$ = m$ + "2222...." + Chr$(13)
6511.     m$ = m$ + "2222...." + Chr$(13)
6512.     arrTileText(209) = m$
6513.  
6514.     m$ = ""
6515.     m$ = m$ + "........" + Chr$(13)
6516.     m$ = m$ + "........" + Chr$(13)
6517.     m$ = m$ + "........" + Chr$(13)
6518.     m$ = m$ + "........" + Chr$(13)
6519.     m$ = m$ + "22222222" + Chr$(13)
6520.     m$ = m$ + "22222222" + Chr$(13)
6521.     m$ = m$ + "22222222" + Chr$(13)
6522.     m$ = m$ + "22222222" + Chr$(13)
6523.     arrTileText(210) = m$
6524.  
6525.     m$ = ""
6526.     m$ = m$ + "22222222" + Chr$(13)
6527.     m$ = m$ + "........" + Chr$(13)
6528.     m$ = m$ + "........" + Chr$(13)
6529.     m$ = m$ + "........" + Chr$(13)
6530.     m$ = m$ + "........" + Chr$(13)
6531.     m$ = m$ + "........" + Chr$(13)
6532.     m$ = m$ + "........" + Chr$(13)
6533.     m$ = m$ + "........" + Chr$(13)
6534.     arrTileText(211) = m$
6535.  
6536.     m$ = ""
6537.     m$ = m$ + "........" + Chr$(13)
6538.     m$ = m$ + "........" + Chr$(13)
6539.     m$ = m$ + "........" + Chr$(13)
6540.     m$ = m$ + "........" + Chr$(13)
6541.     m$ = m$ + "........" + Chr$(13)
6542.     m$ = m$ + "........" + Chr$(13)
6543.     m$ = m$ + "........" + Chr$(13)
6544.     m$ = m$ + "22222222" + Chr$(13)
6545.     arrTileText(212) = m$
6546.  
6547.     m$ = ""
6548.     m$ = m$ + "22......" + Chr$(13)
6549.     m$ = m$ + "22......" + Chr$(13)
6550.     m$ = m$ + "22......" + Chr$(13)
6551.     m$ = m$ + "22......" + Chr$(13)
6552.     m$ = m$ + "22......" + Chr$(13)
6553.     m$ = m$ + "22......" + Chr$(13)
6554.     m$ = m$ + "22......" + Chr$(13)
6555.     m$ = m$ + "22......" + Chr$(13)
6556.     arrTileText(213) = m$
6557.  
6558.     m$ = ""
6559.     m$ = m$ + "22..22.." + Chr$(13)
6560.     m$ = m$ + "22..22.." + Chr$(13)
6561.     m$ = m$ + "..22..22" + Chr$(13)
6562.     m$ = m$ + "..22..22" + Chr$(13)
6563.     m$ = m$ + "22..22.." + Chr$(13)
6564.     m$ = m$ + "22..22.." + Chr$(13)
6565.     m$ = m$ + "..22..22" + Chr$(13)
6566.     m$ = m$ + "..22..22" + Chr$(13)
6567.     arrTileText(214) = m$
6568.  
6569.     m$ = ""
6570.     m$ = m$ + "......22" + Chr$(13)
6571.     m$ = m$ + "......22" + Chr$(13)
6572.     m$ = m$ + "......22" + Chr$(13)
6573.     m$ = m$ + "......22" + Chr$(13)
6574.     m$ = m$ + "......22" + Chr$(13)
6575.     m$ = m$ + "......22" + Chr$(13)
6576.     m$ = m$ + "......22" + Chr$(13)
6577.     m$ = m$ + "......22" + Chr$(13)
6578.     arrTileText(215) = m$
6579.  
6580.     m$ = ""
6581.     m$ = m$ + "........" + Chr$(13)
6582.     m$ = m$ + "........" + Chr$(13)
6583.     m$ = m$ + "........" + Chr$(13)
6584.     m$ = m$ + "........" + Chr$(13)
6585.     m$ = m$ + "22..22.." + Chr$(13)
6586.     m$ = m$ + "22..22.." + Chr$(13)
6587.     m$ = m$ + "..22..22" + Chr$(13)
6588.     m$ = m$ + "..22..22" + Chr$(13)
6589.     arrTileText(216) = m$
6590.  
6591.     m$ = ""
6592.     m$ = m$ + "22..22.." + Chr$(13)
6593.     m$ = m$ + "2..22..2" + Chr$(13)
6594.     m$ = m$ + "..22..22" + Chr$(13)
6595.     m$ = m$ + ".22..22." + Chr$(13)
6596.     m$ = m$ + "22..22.." + Chr$(13)
6597.     m$ = m$ + "2..22..2" + Chr$(13)
6598.     m$ = m$ + "..22..22" + Chr$(13)
6599.     m$ = m$ + ".22..22." + Chr$(13)
6600.     arrTileText(217) = m$
6601.  
6602.     m$ = ""
6603.     m$ = m$ + "......22" + Chr$(13)
6604.     m$ = m$ + "......22" + Chr$(13)
6605.     m$ = m$ + "......22" + Chr$(13)
6606.     m$ = m$ + "......22" + Chr$(13)
6607.     m$ = m$ + "......22" + Chr$(13)
6608.     m$ = m$ + "......22" + Chr$(13)
6609.     m$ = m$ + "......22" + Chr$(13)
6610.     m$ = m$ + "......22" + Chr$(13)
6611.     arrTileText(218) = m$
6612.  
6613.     m$ = ""
6614.     m$ = m$ + "...22..." + Chr$(13)
6615.     m$ = m$ + "...22..." + Chr$(13)
6616.     m$ = m$ + "...22..." + Chr$(13)
6617.     m$ = m$ + "...22222" + Chr$(13)
6618.     m$ = m$ + "...22222" + Chr$(13)
6619.     m$ = m$ + "...22..." + Chr$(13)
6620.     m$ = m$ + "...22..." + Chr$(13)
6621.     m$ = m$ + "...22..." + Chr$(13)
6622.     arrTileText(219) = m$
6623.  
6624.     m$ = ""
6625.     m$ = m$ + "........" + Chr$(13)
6626.     m$ = m$ + "........" + Chr$(13)
6627.     m$ = m$ + "........" + Chr$(13)
6628.     m$ = m$ + "........" + Chr$(13)
6629.     m$ = m$ + "....2222" + Chr$(13)
6630.     m$ = m$ + "....2222" + Chr$(13)
6631.     m$ = m$ + "....2222" + Chr$(13)
6632.     m$ = m$ + "....2222" + Chr$(13)
6633.     arrTileText(220) = m$
6634.  
6635.     m$ = ""
6636.     m$ = m$ + "...22..." + Chr$(13)
6637.     m$ = m$ + "...22..." + Chr$(13)
6638.     m$ = m$ + "...22..." + Chr$(13)
6639.     m$ = m$ + "...22222" + Chr$(13)
6640.     m$ = m$ + "...22222" + Chr$(13)
6641.     m$ = m$ + "........" + Chr$(13)
6642.     m$ = m$ + "........" + Chr$(13)
6643.     m$ = m$ + "........" + Chr$(13)
6644.     arrTileText(221) = m$
6645.  
6646.     m$ = ""
6647.     m$ = m$ + "........" + Chr$(13)
6648.     m$ = m$ + "........" + Chr$(13)
6649.     m$ = m$ + "........" + Chr$(13)
6650.     m$ = m$ + "22222..." + Chr$(13)
6651.     m$ = m$ + "22222..." + Chr$(13)
6652.     m$ = m$ + "...22..." + Chr$(13)
6653.     m$ = m$ + "...22..." + Chr$(13)
6654.     m$ = m$ + "...22..." + Chr$(13)
6655.     arrTileText(222) = m$
6656.  
6657.     m$ = ""
6658.     m$ = m$ + "........" + Chr$(13)
6659.     m$ = m$ + "........" + Chr$(13)
6660.     m$ = m$ + "........" + Chr$(13)
6661.     m$ = m$ + "........" + Chr$(13)
6662.     m$ = m$ + "........" + Chr$(13)
6663.     m$ = m$ + "........" + Chr$(13)
6664.     m$ = m$ + "22222222" + Chr$(13)
6665.     m$ = m$ + "22222222" + Chr$(13)
6666.     arrTileText(223) = m$
6667.  
6668.     m$ = ""
6669.     m$ = m$ + "........" + Chr$(13)
6670.     m$ = m$ + "........" + Chr$(13)
6671.     m$ = m$ + "........" + Chr$(13)
6672.     m$ = m$ + "...22222" + Chr$(13)
6673.     m$ = m$ + "...22222" + Chr$(13)
6674.     m$ = m$ + "...22..." + Chr$(13)
6675.     m$ = m$ + "...22..." + Chr$(13)
6676.     m$ = m$ + "...22..." + Chr$(13)
6677.     arrTileText(224) = m$
6678.  
6679.     m$ = ""
6680.     m$ = m$ + "...22..." + Chr$(13)
6681.     m$ = m$ + "...22..." + Chr$(13)
6682.     m$ = m$ + "...22..." + Chr$(13)
6683.     m$ = m$ + "22222222" + Chr$(13)
6684.     m$ = m$ + "22222222" + Chr$(13)
6685.     m$ = m$ + "........" + Chr$(13)
6686.     m$ = m$ + "........" + Chr$(13)
6687.     m$ = m$ + "........" + Chr$(13)
6688.     arrTileText(225) = m$
6689.  
6690.     m$ = ""
6691.     m$ = m$ + "........" + Chr$(13)
6692.     m$ = m$ + "........" + Chr$(13)
6693.     m$ = m$ + "........" + Chr$(13)
6694.     m$ = m$ + "22222222" + Chr$(13)
6695.     m$ = m$ + "22222222" + Chr$(13)
6696.     m$ = m$ + "...22..." + Chr$(13)
6697.     m$ = m$ + "...22..." + Chr$(13)
6698.     m$ = m$ + "...22..." + Chr$(13)
6699.     arrTileText(226) = m$
6700.  
6701.     m$ = ""
6702.     m$ = m$ + "...22..." + Chr$(13)
6703.     m$ = m$ + "...22..." + Chr$(13)
6704.     m$ = m$ + "...22..." + Chr$(13)
6705.     m$ = m$ + "22222..." + Chr$(13)
6706.     m$ = m$ + "22222..." + Chr$(13)
6707.     m$ = m$ + "...22..." + Chr$(13)
6708.     m$ = m$ + "...22..." + Chr$(13)
6709.     m$ = m$ + "...22..." + Chr$(13)
6710.     arrTileText(227) = m$
6711.  
6712.     m$ = ""
6713.     m$ = m$ + "22......" + Chr$(13)
6714.     m$ = m$ + "22......" + Chr$(13)
6715.     m$ = m$ + "22......" + Chr$(13)
6716.     m$ = m$ + "22......" + Chr$(13)
6717.     m$ = m$ + "22......" + Chr$(13)
6718.     m$ = m$ + "22......" + Chr$(13)
6719.     m$ = m$ + "22......" + Chr$(13)
6720.     m$ = m$ + "22......" + Chr$(13)
6721.     arrTileText(228) = m$
6722.  
6723.     m$ = ""
6724.     m$ = m$ + "222....." + Chr$(13)
6725.     m$ = m$ + "222....." + Chr$(13)
6726.     m$ = m$ + "222....." + Chr$(13)
6727.     m$ = m$ + "222....." + Chr$(13)
6728.     m$ = m$ + "222....." + Chr$(13)
6729.     m$ = m$ + "222....." + Chr$(13)
6730.     m$ = m$ + "222....." + Chr$(13)
6731.     m$ = m$ + "222....." + Chr$(13)
6732.     arrTileText(229) = m$
6733.  
6734.     m$ = ""
6735.     m$ = m$ + ".....222" + Chr$(13)
6736.     m$ = m$ + ".....222" + Chr$(13)
6737.     m$ = m$ + ".....222" + Chr$(13)
6738.     m$ = m$ + ".....222" + Chr$(13)
6739.     m$ = m$ + ".....222" + Chr$(13)
6740.     m$ = m$ + ".....222" + Chr$(13)
6741.     m$ = m$ + ".....222" + Chr$(13)
6742.     m$ = m$ + ".....222" + Chr$(13)
6743.     arrTileText(230) = m$
6744.  
6745.     m$ = ""
6746.     m$ = m$ + "22222222" + Chr$(13)
6747.     m$ = m$ + "22222222" + Chr$(13)
6748.     m$ = m$ + "........" + Chr$(13)
6749.     m$ = m$ + "........" + Chr$(13)
6750.     m$ = m$ + "........" + Chr$(13)
6751.     m$ = m$ + "........" + Chr$(13)
6752.     m$ = m$ + "........" + Chr$(13)
6753.     m$ = m$ + "........" + Chr$(13)
6754.     arrTileText(231) = m$
6755.  
6756.     m$ = ""
6757.     m$ = m$ + "22222222" + Chr$(13)
6758.     m$ = m$ + "22222222" + Chr$(13)
6759.     m$ = m$ + "22222222" + Chr$(13)
6760.     m$ = m$ + "........" + Chr$(13)
6761.     m$ = m$ + "........" + Chr$(13)
6762.     m$ = m$ + "........" + Chr$(13)
6763.     m$ = m$ + "........" + Chr$(13)
6764.     m$ = m$ + "........" + Chr$(13)
6765.     arrTileText(232) = m$
6766.  
6767.     m$ = ""
6768.     m$ = m$ + "........" + Chr$(13)
6769.     m$ = m$ + "........" + Chr$(13)
6770.     m$ = m$ + "........" + Chr$(13)
6771.     m$ = m$ + "........" + Chr$(13)
6772.     m$ = m$ + "........" + Chr$(13)
6773.     m$ = m$ + "22222222" + Chr$(13)
6774.     m$ = m$ + "22222222" + Chr$(13)
6775.     m$ = m$ + "22222222" + Chr$(13)
6776.     arrTileText(233) = m$
6777.  
6778.     m$ = ""
6779.     m$ = m$ + ".......2" + Chr$(13)
6780.     m$ = m$ + "......22" + Chr$(13)
6781.     m$ = m$ + ".....22." + Chr$(13)
6782.     m$ = m$ + ".22.22.." + Chr$(13)
6783.     m$ = m$ + ".2222..." + Chr$(13)
6784.     m$ = m$ + ".222...." + Chr$(13)
6785.     m$ = m$ + ".22....." + Chr$(13)
6786.     m$ = m$ + "........" + Chr$(13)
6787.     arrTileText(234) = m$
6788.  
6789.     m$ = ""
6790.     m$ = m$ + "........" + Chr$(13)
6791.     m$ = m$ + "........" + Chr$(13)
6792.     m$ = m$ + "........" + Chr$(13)
6793.     m$ = m$ + "........" + Chr$(13)
6794.     m$ = m$ + "2222...." + Chr$(13)
6795.     m$ = m$ + "2222...." + Chr$(13)
6796.     m$ = m$ + "2222...." + Chr$(13)
6797.     m$ = m$ + "2222...." + Chr$(13)
6798.     arrTileText(235) = m$
6799.  
6800.     m$ = ""
6801.     m$ = m$ + "....2222" + Chr$(13)
6802.     m$ = m$ + "....2222" + Chr$(13)
6803.     m$ = m$ + "....2222" + Chr$(13)
6804.     m$ = m$ + "....2222" + Chr$(13)
6805.     m$ = m$ + "........" + Chr$(13)
6806.     m$ = m$ + "........" + Chr$(13)
6807.     m$ = m$ + "........" + Chr$(13)
6808.     m$ = m$ + "........" + Chr$(13)
6809.     arrTileText(236) = m$
6810.  
6811.     m$ = ""
6812.     m$ = m$ + "...22..." + Chr$(13)
6813.     m$ = m$ + "...22..." + Chr$(13)
6814.     m$ = m$ + "...22..." + Chr$(13)
6815.     m$ = m$ + "22222..." + Chr$(13)
6816.     m$ = m$ + "22222..." + Chr$(13)
6817.     m$ = m$ + "........" + Chr$(13)
6818.     m$ = m$ + "........" + Chr$(13)
6819.     m$ = m$ + "........" + Chr$(13)
6820.     arrTileText(237) = m$
6821.  
6822.     m$ = ""
6823.     m$ = m$ + "2222...." + Chr$(13)
6824.     m$ = m$ + "2222...." + Chr$(13)
6825.     m$ = m$ + "2222...." + Chr$(13)
6826.     m$ = m$ + "2222...." + Chr$(13)
6827.     m$ = m$ + "........" + Chr$(13)
6828.     m$ = m$ + "........" + Chr$(13)
6829.     m$ = m$ + "........" + Chr$(13)
6830.     m$ = m$ + "........" + Chr$(13)
6831.     arrTileText(238) = m$
6832.  
6833.     m$ = ""
6834.     m$ = m$ + "2222...." + Chr$(13)
6835.     m$ = m$ + "2222...." + Chr$(13)
6836.     m$ = m$ + "2222...." + Chr$(13)
6837.     m$ = m$ + "2222...." + Chr$(13)
6838.     m$ = m$ + "....2222" + Chr$(13)
6839.     m$ = m$ + "....2222" + Chr$(13)
6840.     m$ = m$ + "....2222" + Chr$(13)
6841.     m$ = m$ + "....2222" + Chr$(13)
6842.     arrTileText(239) = m$
6843.  
6844.     m$ = ""
6845.     m$ = m$ + "........" + Chr$(13)
6846.     m$ = m$ + "........" + Chr$(13)
6847.     m$ = m$ + "........" + Chr$(13)
6848.     m$ = m$ + "........" + Chr$(13)
6849.     m$ = m$ + "........" + Chr$(13)
6850.     m$ = m$ + "........" + Chr$(13)
6851.     m$ = m$ + "........" + Chr$(13)
6852.     m$ = m$ + "........" + Chr$(13)
6853.     arrTileText(240) = m$
6854.  
6855.     m$ = ""
6856.     m$ = m$ + "22222.22" + Chr$(13)
6857.     m$ = m$ + "22222.22" + Chr$(13)
6858.     m$ = m$ + "22222.22" + Chr$(13)
6859.     m$ = m$ + "........" + Chr$(13)
6860.     m$ = m$ + "22.22222" + Chr$(13)
6861.     m$ = m$ + "22.22222" + Chr$(13)
6862.     m$ = m$ + "22.22222" + Chr$(13)
6863.     m$ = m$ + "........" + Chr$(13)
6864.     arrTileText(241) = m$
6865.  
6866.     m$ = ""
6867.     m$ = m$ + "........" + Chr$(13)
6868.     m$ = m$ + "........" + Chr$(13)
6869.     m$ = m$ + "........" + Chr$(13)
6870.     m$ = m$ + ".222222." + Chr$(13)
6871.     m$ = m$ + "........" + Chr$(13)
6872.     m$ = m$ + "........" + Chr$(13)
6873.     m$ = m$ + "........" + Chr$(13)
6874.     m$ = m$ + "........" + Chr$(13)
6875.     arrTileText(242) = m$
6876.  
6877.     m$ = ""
6878.     m$ = m$ + "........" + Chr$(13)
6879.     m$ = m$ + "...2...." + Chr$(13)
6880.     m$ = m$ + "...2...." + Chr$(13)
6881.     m$ = m$ + "...2...." + Chr$(13)
6882.     m$ = m$ + "...2...." + Chr$(13)
6883.     m$ = m$ + "...2...." + Chr$(13)
6884.     m$ = m$ + "...2...." + Chr$(13)
6885.     m$ = m$ + "........" + Chr$(13)
6886.     arrTileText(243) = m$
6887.  
6888.     m$ = ""
6889.     m$ = m$ + "........" + Chr$(13)
6890.     m$ = m$ + "........" + Chr$(13)
6891.     m$ = m$ + "........" + Chr$(13)
6892.     m$ = m$ + "...2222." + Chr$(13)
6893.     m$ = m$ + "...2...." + Chr$(13)
6894.     m$ = m$ + "...2...." + Chr$(13)
6895.     m$ = m$ + "...2...." + Chr$(13)
6896.     m$ = m$ + "........" + Chr$(13)
6897.     arrTileText(244) = m$
6898.  
6899.     m$ = ""
6900.     m$ = m$ + "........" + Chr$(13)
6901.     m$ = m$ + "........" + Chr$(13)
6902.     m$ = m$ + "........" + Chr$(13)
6903.     m$ = m$ + ".222...." + Chr$(13)
6904.     m$ = m$ + "...2...." + Chr$(13)
6905.     m$ = m$ + "...2...." + Chr$(13)
6906.     m$ = m$ + "...2...." + Chr$(13)
6907.     m$ = m$ + "........" + Chr$(13)
6908.     arrTileText(245) = m$
6909.  
6910.     m$ = ""
6911.     m$ = m$ + "........" + Chr$(13)
6912.     m$ = m$ + "...2...." + Chr$(13)
6913.     m$ = m$ + "...2...." + Chr$(13)
6914.     m$ = m$ + "...2222." + Chr$(13)
6915.     m$ = m$ + "........" + Chr$(13)
6916.     m$ = m$ + "........" + Chr$(13)
6917.     m$ = m$ + "........" + Chr$(13)
6918.     m$ = m$ + "........" + Chr$(13)
6919.     arrTileText(246) = m$
6920.  
6921.     m$ = ""
6922.     m$ = m$ + "........" + Chr$(13)
6923.     m$ = m$ + "...2...." + Chr$(13)
6924.     m$ = m$ + "...2...." + Chr$(13)
6925.     m$ = m$ + ".222...." + Chr$(13)
6926.     m$ = m$ + "........" + Chr$(13)
6927.     m$ = m$ + "........" + Chr$(13)
6928.     m$ = m$ + "........" + Chr$(13)
6929.     m$ = m$ + "........" + Chr$(13)
6930.     arrTileText(247) = m$
6931.  
6932.     m$ = ""
6933.     m$ = m$ + "........" + Chr$(13)
6934.     m$ = m$ + "........" + Chr$(13)
6935.     m$ = m$ + "........" + Chr$(13)
6936.     m$ = m$ + "........" + Chr$(13)
6937.     m$ = m$ + "........" + Chr$(13)
6938.     m$ = m$ + "........" + Chr$(13)
6939.     m$ = m$ + "........" + Chr$(13)
6940.     m$ = m$ + "........" + Chr$(13)
6941.     arrTileText(248) = m$
6942.  
6943.     m$ = ""
6944.     m$ = m$ + "........" + Chr$(13)
6945.     m$ = m$ + "........" + Chr$(13)
6946.     m$ = m$ + "........" + Chr$(13)
6947.     m$ = m$ + "........" + Chr$(13)
6948.     m$ = m$ + "........" + Chr$(13)
6949.     m$ = m$ + "........" + Chr$(13)
6950.     m$ = m$ + "........" + Chr$(13)
6951.     m$ = m$ + "........" + Chr$(13)
6952.     arrTileText(249) = m$
6953.  
6954.     m$ = ""
6955.     m$ = m$ + "........" + Chr$(13)
6956.     m$ = m$ + "........" + Chr$(13)
6957.     m$ = m$ + "........" + Chr$(13)
6958.     m$ = m$ + "........" + Chr$(13)
6959.     m$ = m$ + "........" + Chr$(13)
6960.     m$ = m$ + "........" + Chr$(13)
6961.     m$ = m$ + "........" + Chr$(13)
6962.     m$ = m$ + "........" + Chr$(13)
6963.     arrTileText(250) = m$
6964.  
6965.     m$ = ""
6966.     m$ = m$ + "........" + Chr$(13)
6967.     m$ = m$ + "........" + Chr$(13)
6968.     m$ = m$ + "........" + Chr$(13)
6969.     m$ = m$ + "........" + Chr$(13)
6970.     m$ = m$ + "........" + Chr$(13)
6971.     m$ = m$ + "........" + Chr$(13)
6972.     m$ = m$ + "........" + Chr$(13)
6973.     m$ = m$ + "........" + Chr$(13)
6974.     arrTileText(251) = m$
6975.  
6976.     m$ = ""
6977.     m$ = m$ + "2.2.2.2." + Chr$(13)
6978.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6979.     m$ = m$ + "2.2.2.2." + Chr$(13)
6980.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6981.     m$ = m$ + "2.2.2.2." + Chr$(13)
6982.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6983.     m$ = m$ + "2.2.2.2." + Chr$(13)
6984.     m$ = m$ + ".2.2.2.2" + Chr$(13)
6985.     arrTileText(252) = m$
6986.  
6987.     m$ = ""
6988.     m$ = m$ + "22222222" + Chr$(13)
6989.     m$ = m$ + "2......2" + Chr$(13)
6990.     m$ = m$ + "2......2" + Chr$(13)
6991.     m$ = m$ + "2......2" + Chr$(13)
6992.     m$ = m$ + "2......2" + Chr$(13)
6993.     m$ = m$ + "2......2" + Chr$(13)
6994.     m$ = m$ + "2......2" + Chr$(13)
6995.     m$ = m$ + "22222222" + Chr$(13)
6996.     arrTileText(253) = m$
6997.  
6998.     m$ = ""
6999.     m$ = m$ + "22222222" + Chr$(13)
7000.     m$ = m$ + "22222222" + Chr$(13)
7001.     m$ = m$ + "22222222" + Chr$(13)
7002.     m$ = m$ + "22222222" + Chr$(13)
7003.     m$ = m$ + "22222222" + Chr$(13)
7004.     m$ = m$ + "22222222" + Chr$(13)
7005.     m$ = m$ + "22222222" + Chr$(13)
7006.     m$ = m$ + "22222222" + Chr$(13)
7007.     arrTileText(254) = m$
7008.  
7009.     m$ = ""
7010.     m$ = ""
7011.     m$ = m$ + "22....22" + Chr$(13)
7012.     m$ = m$ + "2..22..2" + Chr$(13)
7013.     m$ = m$ + "2..22..2" + Chr$(13)
7014.     m$ = m$ + "22.....2" + Chr$(13)
7015.     m$ = m$ + "22222..2" + Chr$(13)
7016.     m$ = m$ + "2..22..2" + Chr$(13)
7017.     m$ = m$ + "22....22" + Chr$(13)
7018.     m$ = m$ + "22222222" + Chr$(13)
7019.     arrTileText(255) = m$
7020.  
7021. End Sub ' GetTileText
7022.  
7023. ' ################################################################################################################################################################
7024. ' END TILE DEFINITIONS
7025. ' ################################################################################################################################################################
7026.  
7027. ' ################################################################################################################################################################
7028. ' BEGIN COLOR FUNCTIONS
7029. ' ################################################################################################################################################################
7030. Function cWhite~& ()
7031.     cWhite = _RGB32(255, 255, 255)
7032. End Function ' cWhite~&
7033.  
7034. Function cEmpty~& ()
7035.     cEmpty = _RGB32(0, 0, 0, 0)
7036. End Function ' cEmpty~&
7037.  
7038. Function cBlack~& ()
7039.     cBlack = _RGB32(0, 0, 0)
7040. End Function ' cBlack~&
7041.  
7042. Function cRed~& ()
7043.     cRed = _RGB32(255, 0, 0)
7044. End Function
7045.  
7046. Function cYellow~& ()
7047.     cYellow = _RGB32(255, 255, 0)
7048. End Function ' cYellow~&
7049.  
7050. Function cLime~& ()
7051.     cLime = _RGB32(0, 255, 0)
7052. End Function ' cLime~&
7053.  
7054. Function cCyan~& ()
7055.     cCyan = _RGB32(0, 255, 255)
7056. End Function ' cCyan~&
7057.  
7058. Function cBlue~& ()
7059.     cBlue = _RGB32(0, 0, 255)
7060. End Function ' cBlue~&
7061.  
7062. Function cPurple~& ()
7063.     cPurple = _RGB32(128, 0, 255)
7064. End Function ' cPurple~&
7065.  
7066. Function cMagenta~& ()
7067.     cMagenta = _RGB32(255, 0, 255)
7068. End Function ' cMagenta~&
7069.  
7070. Function cOrange~& ()
7071.     cOrange = _RGB32(255, 165, 0)
7072. End Function ' cOrange~&
7073.  
7074. Function cGray~& ()
7075.     cGray = _RGB32(128, 128, 128)
7076. End Function ' cGray~&
7077. ' ################################################################################################################################################################
7078. ' END COLOR FUNCTIONS
7079. ' ################################################################################################################################################################
7080.  
7081. ' ################################################################################################################################################################
7082. ' BEGIN GENERAL PURPOSE ROUTINES
7083. ' ################################################################################################################################################################
7084.  
7085. ' /////////////////////////////////////////////////////////////////////////////
7086. ' See also StringTo2dArray
7087.  
7088. Function Array2dToString$ (MyArray() As String)
7089.     Dim MyString As String
7090.     Dim iY As Integer
7091.     Dim iX As Integer
7092.     Dim sLine As String
7093.     MyString = ""
7094.     For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
7095.         sLine = ""
7096.         For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
7097.             sLine = sLine + MyArray(iY, iX)
7098.         Next iX
7099.         MyString = MyString + sLine + Chr$(13)
7100.     Next iY
7101.     Array2dToString$ = MyString
7102. End Function ' Array2dToString$
7103.  
7104. ' /////////////////////////////////////////////////////////////////////////////
7105.  
7106. 'Function Array2dToStringTest$ (MyArray() As String)
7107. '    Dim MyString As String
7108. '    Dim iY As Integer
7109. '    Dim iX As Integer
7110. '    Dim sLine As String
7111. '    MyString = ""
7112. '    MyString = MyString + "           11111111112222222222333" + Chr$(13)
7113. '    MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
7114. '    For iY = LBound(MyArray, 1) To UBound(MyArray, 1)
7115. '        sLine = ""
7116. '        sLine = sLine + Right$("  " + cstr$(iY), 2)
7117. '        For iX = LBound(MyArray, 2) To UBound(MyArray, 2)
7118. '            sLine = sLine + MyArray(iY, iX)
7119. '        Next iX
7120. '        sLine = sLine + Right$("  " + cstr$(iY), 2)
7121. '        MyString = MyString + sLine + Chr$(13)
7122. '    Next iY
7123. '    MyString = MyString + "  12345678901234567890123456789012" + Chr$(13)
7124. '    MyString = MyString + "           11111111112222222222333" + Chr$(13)
7125. '    Array2dToStringTest$ = MyString
7126. 'End Function ' Array2dToStringTest$
7127.  
7128. ' /////////////////////////////////////////////////////////////////////////////
7129.  
7130. Function cstr$ (myValue)
7131.     'cstr$ = LTRIM$(RTRIM$(STR$(myValue)))
7132.     cstr$ = _Trim$(Str$(myValue))
7133. End Function ' cstr$
7134.  
7135. ' /////////////////////////////////////////////////////////////////////////////
7136. ' Simple timestamp function
7137.  
7138. Function CurrentDateTime$
7139.     CurrentDateTime$ = Mid$(Date$, 7, 4) + "-" + _
7140.         Mid$(Date$, 1, 5) + " " + _
7141.         Time$
7142. End Function ' CurrentDateTime$
7143.  
7144. ' /////////////////////////////////////////////////////////////////////////////
7145. ' Receives an {sDelim} delimited list {sInput}
7146. ' returns the list with all duplicate entries removed.
7147.  
7148. Function DedupeDelimList$ (sInput As String, sDelim As String)
7149.     ReDim arrLines(-1) As String
7150.     Dim sOutput As String
7151.     Dim iLoop As Integer
7152.  
7153.     split sInput, sDelim, arrLines()
7154.     sOutput = sDelim
7155.     For iLoop = LBound(arrLines) To UBound(arrLines)
7156.         If InStr(1, sOutput, sDelim + arrLines(iLoop) + sDelim) = 0 Then
7157.             sOutput = sOutput + arrLines(iLoop) + sDelim
7158.         End If
7159.     Next iLoop
7160.  
7161.     DedupeDelimList$ = sOutput
7162. End Function ' DedupeDelimList$
7163.  
7164. ' /////////////////////////////////////////////////////////////////////////////
7165. ' Use with timer functions to avoid "after midnight" bug.
7166.  
7167. ' Re: how to time something (ie do loop for n seconds)
7168. ' https://qb64forum.alephc.xyz/index.php?topic=4682.0
7169.  
7170. ' SMcNeill, QB64 Developer
7171. ' « Reply #1 on: Today at 11:26:52 am »
7172. '
7173. ' One caveat here:  You *can* experience bugs with this after midnight.
7174. '
7175. ' Program starts at 23:59:59.
7176. ' Add three seconds -- 24:00:02...  (In seconds, and not hours and minutes like this, though hours and minutes are easier to visualize.)
7177. ' Clock hits midnight:  0:00:00
7178. '
7179. ' At no point will you ever have TIMER become greater than t#.
7180. '
7181. ' If you're going to have a program which might run into this issue,
7182. ' I'd suggest just plugging in my ExtendedTimer and use it instead:
7183. '
7184. ' Most of us write time code to test little snippets for which method might
7185. ' be faster for us while we're coding.  The clock resetting on us isn't
7186. ' normally such a big deal.  When it is, however, all you have to do is
7187. ' swap to the ExtendedTimer function [below]
7188. '
7189. ' Returns a value for you based off DAY + TIME, rather than just time alone!
7190. ' No midnight clock issues with something like that in our programs.  ;)
7191.  
7192. ' Usage:
7193. '     ' DO SOMETHING FOR 3 SECONDS
7194. '     t# = ExtendedTimer + 3
7195. '     Do
7196. '         '(SOMETHING)
7197. '     Loop Until Timer > t#
7198.  
7199. Function ExtendedTimer##
7200.     d$ = Date$
7201.     l = InStr(d$, "-")
7202.     l1 = InStr(l + 1, d$, "-")
7203.     m = Val(Left$(d$, l))
7204.     d = Val(Mid$(d$, l + 1))
7205.     y = Val(Mid$(d$, l1 + 1)) - 1970
7206.     For i = 1 To m
7207.         Select Case i 'Add the number of days for each previous month passed
7208.             Case 1: d = d 'January doestn't have any carry over days.
7209.             Case 2, 4, 6, 8, 9, 11: d = d + 31
7210.             Case 3: d = d + 28
7211.             Case 5, 7, 10, 12: d = d + 30
7212.         End Select
7213.     Next
7214.     For i = 1 To y
7215.         d = d + 365
7216.     Next
7217.     For i = 2 To y Step 4
7218.         If m > 2 Then d = d + 1 'add an extra day for leap year every 4 years, starting in 1970
7219.     Next
7220.     d = d - 1 'for year 2000
7221.     s~&& = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
7222.     ExtendedTimer## = (s~&& + Timer)
7223. End Function ' ExtendedTimer##
7224.  
7225. ' /////////////////////////////////////////////////////////////////////////////
7226. ' Receives a {sDelimeter} delimited list of numbers {MyString}
7227. ' and splits it up into an integer array arrInteger()
7228. ' beginning at index {iMinIndex}.
7229.  
7230. Sub GetIntegerArrayFromDelimList (MyString As String, sDelimiter As String, iMinIndex As Integer, arrInteger() As Integer)
7231.     ReDim arrString(-1) As String
7232.     Dim CleanString As String
7233.     Dim iLoop As Integer
7234.     Dim iCount As Integer: iCount = iMinIndex - 1
7235.  
7236.     ReDim arrInteger(-1) As Integer
7237.  
7238.     'DebugPrint "GetIntegerArrayFromDelimList " + _
7239.     '    "MyString=" + chr$(34) + MyString + chr$(34) + ", " + _
7240.     '    "sDelimiter=" + chr$(34) + sDelimiter + chr$(34) + ", " + _
7241.     '    "iMinIndex=" + cstr$(iMinIndex) + ", " + _
7242.     '    "arrInteger()"
7243.  
7244.  
7245.     If Len(sDelimiter) > 0 Then
7246.         CleanString = MyString
7247.         If sDelimiter <> " " Then
7248.             CleanString = Replace$(CleanString, " ", "")
7249.         End If
7250.  
7251.         split CleanString, sDelimiter, arrString()
7252.         iCount = iMinIndex - 1
7253.         For iLoop = LBound(arrString) To UBound(arrString)
7254.             If IsNum%(arrString(iLoop)) = TRUE Then
7255.                 iCount = iCount + 1
7256.                 ReDim _Preserve arrInteger(iMinIndex To iCount) As Integer
7257.                 arrInteger(iCount) = Val(arrString(iLoop))
7258.                 'DebugPrint "5633 arrInteger(" + cstr$(iCount) + ") = VAL(arrString(" + cstr$(iLoop) + ")) = " + cstr$(arrInteger(iCount))
7259.  
7260.             End If
7261.         Next iLoop
7262.     Else
7263.         If IsNum%(MyString) = TRUE Then
7264.             ReDim _Preserve arrInteger(iMinIndex To iMinIndex) As Integer
7265.             arrInteger(iMinIndex) = Val(MyString)
7266.         End If
7267.     End If
7268.  
7269.     'CleanString=""
7270.     'for iLoop=lbound(arrInteger) to ubound(arrInteger)
7271.     'CleanString = CleanString + iifstr$(iLoop=lbound(arrInteger), "", ",") + cstr$(arrInteger(iLoop))
7272.     'next iLoop
7273.     'DebugPrint "arrInteger=(" + CleanString + ")"
7274.  
7275. End Sub ' GetIntegerArrayFromDelimList
7276.  
7277. ' /////////////////////////////////////////////////////////////////////////////
7278.  
7279. Function IIF (Condition, IfTrue, IfFalse)
7280.     If Condition Then IIF = IfTrue Else IIF = IfFalse
7281. End Function
7282.  
7283. ' /////////////////////////////////////////////////////////////////////////////
7284.  
7285. Function IIFSTR$ (Condition, IfTrue$, IfFalse$)
7286.     If Condition Then IIFSTR$ = IfTrue$ Else IIFSTR$ = IfFalse$
7287. End Function
7288.  
7289. ' /////////////////////////////////////////////////////////////////////////////
7290. ' By sMcNeill from https://www.qb64.org/forum/index.php?topic=896.0
7291.  
7292. Function IsNum% (text$)
7293.     Dim a$
7294.     Dim b$
7295.     a$ = _Trim$(text$)
7296.     b$ = _Trim$(Str$(Val(text$)))
7297.     If a$ = b$ Then
7298.         IsNum% = TRUE
7299.     Else
7300.         IsNum% = FALSE
7301.     End If
7302. End Function ' IsNum%
7303.  
7304. ' /////////////////////////////////////////////////////////////////////////////
7305. ' Does a _PrintString at the specified row+column.
7306.  
7307. ' iRow and iCol are 0-based.
7308.  
7309. Sub PrintString (iRow As Integer, iCol As Integer, MyString As String)
7310.     Dim iX As Integer
7311.     Dim iY As Integer
7312.     iX = _FontWidth * iCol
7313.     iY = _FontHeight * iRow ' (iRow + 1)
7314.     _PrintString (iX, iY), MyString
7315. End Sub ' PrintString
7316.  
7317. ' /////////////////////////////////////////////////////////////////////////////
7318. ' Does a _PrintString at the specified row+column.
7319.  
7320. ' iRow and iCol are 1-based.
7321.  
7322. Sub PrintString1 (iRow As Integer, iCol As Integer, MyString As String)
7323.     Dim iX As Integer
7324.     Dim iY As Integer
7325.     iX = _FontWidth * (iCol - 1)
7326.     iY = _FontHeight * (iRow - 1)
7327.     _PrintString (iX, iY), MyString
7328. End Sub ' PrintString1
7329.  
7330. ' /////////////////////////////////////////////////////////////////////////////
7331. ' FROM: String Manipulation
7332. ' found at abandoned, outdated and now likely malicious qb64 dot net website
7333. ' http://www.qb64.[net]/forum/index_topic_5964-0/
7334. '
7335. 'SUMMARY:
7336. '   Purpose:  A library of custom functions that transform strings.
7337. '   Author:   Dustinian Camburides (dustinian@gmail.com)
7338. '   Platform: QB64 (www.qb64.org)
7339. '   Revision: 1.6
7340. '   Updated:  5/28/2012
7341.  
7342. 'SUMMARY:
7343. '[Replace$] replaces all instances of the [Find] sub-string with the [Add] sub-string within the [Text] string.
7344. 'INPUT:
7345. 'Text: The input string; the text that's being manipulated.
7346. 'Find: The specified sub-string; the string sought within the [Text] string.
7347. 'Add: The sub-string that's being added to the [Text] string.
7348.  
7349. Function Replace$ (Text1 As String, Find1 As String, Add1 As String)
7350.     ' VARIABLES:
7351.     Dim Text2 As String
7352.     Dim Find2 As String
7353.     Dim Add2 As String
7354.     Dim lngLocation As Long ' The address of the [Find] substring within the [Text] string.
7355.     Dim strBefore As String ' The characters before the string to be replaced.
7356.     Dim strAfter As String ' The characters after the string to be replaced.
7357.  
7358.     ' INITIALIZE:
7359.     ' MAKE COPIESSO THE ORIGINAL IS NOT MODIFIED (LIKE ByVal IN VBA)
7360.     Text2 = Text1
7361.     Find2 = Find1
7362.     Add2 = Add1
7363.  
7364.     lngLocation = InStr(1, Text2, Find2)
7365.  
7366.     ' PROCESSING:
7367.     ' While [Find2] appears in [Text2]...
7368.     While lngLocation
7369.         ' Extract all Text2 before the [Find2] substring:
7370.         strBefore = Left$(Text2, lngLocation - 1)
7371.  
7372.         ' Extract all text after the [Find2] substring:
7373.         strAfter = Right$(Text2, ((Len(Text2) - (lngLocation + Len(Find2) - 1))))
7374.  
7375.         ' Return the substring:
7376.         Text2 = strBefore + Add2 + strAfter
7377.  
7378.         ' Locate the next instance of [Find2]:
7379.         lngLocation = InStr(1, Text2, Find2)
7380.  
7381.         ' Next instance of [Find2]...
7382.     Wend
7383.  
7384.     ' OUTPUT:
7385.     Replace$ = Text2
7386. End Function ' Replace$
7387.  
7388. ' /////////////////////////////////////////////////////////////////////////////
7389. ' Split and join strings
7390. ' https://www.qb64.org/forum/index.php?topic=1073.0
7391. '
7392. ' FROM luke, QB64 Developer
7393. ' Date: February 15, 2019, 04:11:07 AM
7394. '
7395. ' Given a string of words separated by spaces (or any other character),
7396. ' splits it into an array of the words. I've no doubt many people have
7397. ' written a version of this over the years and no doubt there's a million
7398. ' ways to do it, but I thought I'd put mine here so we have at least one
7399. ' version. There's also a join function that does the opposite
7400. ' array -> single string.
7401. '
7402. ' Code is hopefully reasonably self explanatory with comments and a little demo.
7403. ' Note, this is akin to Python/JavaScript split/join, PHP explode/implode.
7404.  
7405. 'Split in$ into pieces, chopping at every occurrence of delimiter$. Multiple consecutive occurrences
7406. 'of delimiter$ are treated as a single instance. The chopped pieces are stored in result$().
7407. '
7408. 'delimiter$ must be one character long.
7409. 'result$() must have been REDIMmed previously.
7410.  
7411. ' Modified to handle multi-character delimiters
7412.  
7413. Sub split (in$, delimiter$, result$())
7414.     Dim start As Integer
7415.     Dim finish As Integer
7416.     Dim iDelimLen As Integer
7417.     ReDim result$(-1)
7418.  
7419.     iDelimLen = Len(delimiter$)
7420.  
7421.     start = 1
7422.     Do
7423.         'While Mid$(in$, start, 1) = delimiter$
7424.         While Mid$(in$, start, iDelimLen) = delimiter$
7425.             'start = start + 1
7426.             start = start + iDelimLen
7427.             If start > Len(in$) Then
7428.                 Exit Sub
7429.             End If
7430.         Wend
7431.         finish = InStr(start, in$, delimiter$)
7432.         If finish = 0 Then
7433.             finish = Len(in$) + 1
7434.         End If
7435.  
7436.         ReDim _Preserve result$(0 To UBound(result$) + 1)
7437.  
7438.         result$(UBound(result$)) = Mid$(in$, start, finish - start)
7439.         start = finish + 1
7440.     Loop While start <= Len(in$)
7441. End Sub ' split
7442.  
7443. ' /////////////////////////////////////////////////////////////////////////////
7444. ' Converts a chr$(13) delimited string
7445. ' into a 2-dimensional array.
7446.  
7447. ' Usage:
7448. ' Dim StringArray(1 To 48, 1 To 128) As String
7449. ' StringTo2dArray StringArray(), GetMap$
7450.  
7451. ' Version 2 with indexed array(row, columm)
7452. ' Renamed StringToArray to StringTo2dArray.
7453.  
7454. ' See also: Array2dToString$
7455.  
7456. Sub StringTo2dArray (MyArray() As String, MyString As String)
7457.     Dim sDelim As String
7458.     ReDim arrLines(0) As String
7459.     Dim iRow As Integer
7460.     Dim iCol As Integer
7461.     Dim sChar As String
7462.     Dim iDim1 As Integer
7463.     Dim iDim2 As Integer
7464.     Dim iIndex1 As Integer
7465.     Dim iIndex2 As Integer
7466.  
7467.     iDim1 = LBound(MyArray, 1)
7468.     iDim2 = LBound(MyArray, 2)
7469.     sDelim = Chr$(13)
7470.     split MyString, sDelim, arrLines()
7471.     For iRow = LBound(arrLines) To UBound(arrLines)
7472.         If iRow <= UBound(MyArray, 1) Then
7473.             For iCol = 1 To Len(arrLines(iRow))
7474.                 If iCol <= UBound(MyArray, 2) Then
7475.                     sChar = Mid$(arrLines(iRow), iCol, 1)
7476.  
7477.                     If Len(sChar) > 1 Then
7478.                         sChar = Left$(sChar, 1)
7479.                     Else
7480.                         If Len(sChar) = 0 Then
7481.                             sChar = "."
7482.                         End If
7483.                     End If
7484.  
7485.                     iIndex1 = iRow + iDim1
7486.                     iIndex2 = (iCol - 1) + iDim2
7487.                     MyArray(iIndex1, iIndex2) = sChar
7488.                     'DebugPrint "MyArray(" + cstr$(iIndex1) + ", " + cstr$(iIndex2) + " = " + chr$(34) + sChar + chr$(34)
7489.                 Else
7490.                     ' Exit if out of bounds
7491.                     Exit For
7492.                 End If
7493.             Next iCol
7494.         Else
7495.             ' Exit if out of bounds
7496.             Exit For
7497.         End If
7498.     Next iRow
7499. End Sub ' StringTo2dArray
7500.  
7501. ' /////////////////////////////////////////////////////////////////////////////
7502.  
7503. Function TrueFalse$ (myValue)
7504.     If myValue = TRUE Then
7505.         TrueFalse$ = "TRUE"
7506.     Else
7507.         TrueFalse$ = "FALSE"
7508.     End If
7509. End Function ' TrueFalse$
7510.  
7511. ' ################################################################################################################################################################
7512. ' END GENERAL PURPOSE ROUTINES
7513. ' ################################################################################################################################################################
7514.  
7515. ' ################################################################################################################################################################
7516. ' BEGIN HARDWARE IMAGES DEMO #2 (WORKS)
7517. ' ################################################################################################################################################################
7518.  
7519. ' /////////////////////////////////////////////////////////////////////////////
7520. ' Re: fastest way to draw a 2-color 8x8 tile (with variable colors)?
7521. ' https://qb64forum.alephc.xyz/index.php?topic=4674.0
7522.  
7523. ' madscijr
7524. ' « Reply #5 on: Yesterday at 09:46:53 pm »
7525.  
7526. ' Quote from: SMcNeill on Yesterday at 07:56:57 pm:
7527. ' Hardware images basically get their speed by being a sort of "Write Only"
7528. ' method for images. You can make them, you can put them on the screen,
7529. ' but you can't edit them or read information back from them.
7530. ' ...
7531. ' 2) You don't have to specify where they show up as a destination with putimage.
7532. ' ...
7533. ' If you have any specific questions, feel free to ask them and I'll do my
7534. ' best to answer for you, if I can.  ;)
7535. '
7536. ' Thanks for taking the time to explain all that. When I'm back at the PC,
7537. ' I'll try out your example.
7538. '
7539. ' For now, just one question: if you can't read information from them or even
7540. ' specify where on the destination they go, how are they even useful?
7541. ' Maybe it will click when I run your example or read up on it, but I just
7542. ' don't see what the use of an image would be if you can't control where on
7543. ' the screen it is drawn? Or how it would help speed up drawing a map of
7544. ' colored tiles to the screen.
7545. '
7546. ' Thanks again...
7547.  
7548. ' SMcNeill, QB64 Developer
7549. ' « Reply #6 on: Today at 01:14:28 am »
7550. '
7551. ' Try this out and see if it doesn't help answer your questions:
7552.  
7553. Sub HardwareImageDemo2
7554.     $Color:32
7555.     Display = _NewImage(1024, 720, 32)
7556.     Software = _NewImage(1024, 720, 32)
7557.  
7558.     Screen Display
7559.     Print "First, let's create a normal sortware screen and fill it with 40x40 tiles of random colors."
7560.     Print "Press <ANY KEY> to view this screen."
7561.     Sleep
7562.  
7563.     _Dest Software
7564.     For y = 0 To 720 Step 40
7565.         For x = 0 To 1024 Step 40
7566.             Line (x, y)-Step(40, 40), &HFF000000 + Rnd * &HFFFFFF, BF
7567.         Next
7568.     Next
7569.  
7570.     _Dest Display
7571.     _PutImage , Software
7572.     Print
7573.     Print "As you can see, this is a simple software screen."
7574.     Print "Now, I'm going to copy that software screen and make it a hardware screen."
7575.     Print "Press <ANY KEY> for me to do so!"
7576.     Sleep
7577.  
7578.     Hardware = _CopyImage(Software, 33)
7579.     Cls
7580.     Print "Now, I'm back to my blank screen, but I now have a hardware screen to work with."
7581.     Print
7582.     Print "To keep things simple, let's showcase the differences between using _putimage with a software screen, and then with the hardware screen."
7583.     Print
7584.     Print "First, the software screen!  Press <ANY KEY> to continue."
7585.     Sleep
7586.  
7587.     _PutImage (0, 100)-Step(100, 100), Software, Display, (0, 0)-(40, 40)
7588.     Print: Print: Print: Print: Print: Print: Print
7589.     Print "As you can see, all I did here was copy a single tile from the software screen and then scale it to fit upon the current screen."
7590.     Print
7591.     Print "Press <ANY KEY> to continue, as I'll now do the same with a hardware image."
7592.     Sleep: _KeyClear
7593.  
7594.     _PutImage (200, 100)-Step(100, 100), Hardware, , (0, 0)-(40, 40)
7595.     Print
7596.     Print "As you can see from the above, we have the same tile copied and scaled onto the screen, just to the right of the software image."
7597.     Print
7598.     Print "Doesn't really seem to be very different at all, now does it?"
7599.     Print
7600.     Print "Press <ANY KEY> to continue."
7601.     _Display
7602.     Sleep
7603.  
7604.     _AutoDisplay
7605.     Print
7606.     Color Red
7607.     Print "BUT WAIT A MOMENT!!  What the heck happened to our hardware tile??!!??"
7608.     Color White
7609.     Print
7610.     Print "It's no longer on the screen, as it was previously.  Why??"
7611.     Print
7612.     Print "Because it was never on the software screen at all, but was instead on it's own hardware layer ABOVE the software screen."
7613.     Print
7614.     Print "Hardware images only display ONCE, once _DISPLAY is called, and then they flush from the graphics buffer."
7615.     Print "Draw.  Display.  Flush.  <-- that's the basic process of how a hardware image works."
7616.     Print
7617.     Print "If we want one to remain on the screen, we have to do it either by:"
7618.     Print "1) Not updating the screen after we draw and display the image, as I did above with the tile I displayed."
7619.     Print "2) Refresh displaying the image in our main loop (which is what we do even with software images for most games and such)."
7620.     Print
7621.     Print "Press <ANY KEY> to continue."
7622.     Sleep
7623.  
7624.     Cls
7625.     Print
7626.     Print "So, as you can see, hardware images have a few drawbacks to them, with the most obvious being they only display once,"
7627.     Print "then flush from memory.  If you want persistant hardware images, they're best used in a loop."
7628.     Print
7629.     Print "But, if they've got drawbacks, then one has to ask, 'What's the advantages to using them?'"
7630.     Print "Press <ANY KEY> to find out!"
7631.     Sleep
7632.  
7633.     't# = ExtendedTimer + 3
7634.     t# = Timer + 3
7635.     Do
7636.         count = count + 1
7637.         _PutImage (0, 100)-Step(100, 100), Software, Display, (x, y)-Step(40, 40)
7638.         x = x + 40
7639.         If x > 1024 Then x = 0: y = y + 40
7640.         If y > 720 Then x = 0: y = 0
7641.         _Display
7642.     Loop Until Timer > t#
7643.     _AutoDisplay
7644.  
7645.     Print: Print: Print: Print: Print: Print: Print: Print
7646.     Print "See lots of flashing tiles on the screen for the last three seconds?"
7647.     Print "That was us using _PUTIMAGE with the software screen, and we put"; count; "tiles on the screen in those 3 seconds."
7648.     Print
7649.     Print "Now press <ANY KEY> and we'll do the exact same thing with hardware images."
7650.     Sleep
7651.  
7652.     count = 0: x = 0: y = 0
7653.     t# = Timer + 3
7654.     tempScreen = _CopyImage(Display, 33)
7655.     _DisplayOrder _Hardware
7656.     Do
7657.         count = count + 1
7658.         _PutImage , tempScreen
7659.         _PutImage (300, 100)-Step(100, 100), Hardware, , (x, y)-Step(40, 40)
7660.         x = x + 40
7661.         If x > 1024 Then x = 0: y = y + 40
7662.         If y > 720 Then x = 0: y = 0
7663.         _Display
7664.     Loop Until Timer > t#
7665.  
7666.     _FreeImage tempScreen
7667.     _AutoDisplay
7668.     _DisplayOrder _Hardware , _Software
7669.     Print
7670.     Print "Didn't seem very different at the rate of which we were running things, now did it?"
7671.     Print "Would you be surprised to find out that we put"; count * 2; "hardware images on the screen in those same 3 seconds?"
7672.     Print
7673.     Print "And if you look close, I counted each loop twice, as we didn't just put the hardware image to the screen, but also a"
7674.     Print "complete copy of the original software screen as well!"
7675.     Print
7676.     Print "The reason why I did this?"
7677.     Print
7678.     Print "So I could completely elimimate all software iamges and JUST work with the much faster hardware layer!"
7679.     Print
7680.     Print "Press <ANY KEY> to continue"
7681.     Sleep
7682.  
7683.     Cls
7684.     Print "So, as you can see, hardware images are multiple times faster to display and render than software images."
7685.     Print
7686.     Print "But here's something else for you to notice -- I'm going to update the screen with constant, limitless tile refeshes."
7687.     Print "To start with, I'm going to do this in a LOOP with the software images."
7688.     Print "CTRL-TAB out of this demo program, open your task manager, and see how much memory and CPU processing power the program uses."
7689.     Print "Then TAB back to this program and hit <ESC> to do the same with the hardware images."
7690.  
7691.     Do
7692.         _PutImage (0, 100)-(1024, 720), Software, Display, (x, y)-Step(40, 40)
7693.         x = x + 40
7694.         If x > 1024 Then x = 0: y = y + 40
7695.         If y > 720 Then x = 0: y = 0
7696.         _Limit 60
7697.         _Display
7698.     Loop Until _KeyDown(27)
7699.  
7700.     Cls , 0
7701.     Print "PRESS <SPACE BAR> to stop the hardware iamges!!"
7702.     tempImage = _CopyImage(Display, 33)
7703.     x = 0: y = 0
7704.     _DisplayOrder _Hardware
7705.     Do
7706.         _PutImage , tempImage
7707.         _PutImage (0, 100)-(1023, 719), Hardware, , (x, y)-Step(40, 40)
7708.         x = x + 40
7709.         If x > 1024 Then x = 0: y = y + 40
7710.         If y > 720 Then x = 0: y = 0
7711.         _Limit 60
7712.         _Display
7713.     Loop Until _KeyDown(32)
7714.  
7715.     _DisplayOrder _Software , _Hardware
7716.     _AutoDisplay
7717.     Cls
7718.     Print "On my laptop, these two methods use the following amounts of CPU power:"
7719.     Print "Software, 60 FPS -- 3% CPU"
7720.     Print "Hardware, 60 FPS -- 0.1% CPU"
7721.     Print
7722.     Print "If I go in and change the limits to something much higher, these are the results (test them for yourselves, please):"
7723.     Print "Software, 600 FPS -- 10.3% CPU"
7724.     Print "Hardware, 600 FPS -- 0.1% CPU"
7725.     Print
7726.     Print
7727.     Print "So, as you can see, the disadvantage to hardware images are they display once, then flush from memory."
7728.     Print
7729.     Print "While the advantages to their usage is MUCH faster processing times, and an immense reduction on CPU usage.  (The GPU picks up the work for us!)"
7730.     Print
7731.     Print
7732.     Print "You basically use them just like you would any other normal image, though you have to keep in mind that they render"
7733.     Print "to their own hardware layer, which you can specify to go on below or above your software screen."
7734.     Print
7735.     Print "(Or, you can _DISPLAYORDER _HARDWARE and *only* display the hardware layer, removing software rendering completely!)"
7736.     Print
7737.     Print "And THAT, my friends, is basically the lowdown on hardware vs software images.  ;)"
7738.     Print
7739.     Print
7740.     Print "And this was another Steve(tm) Tutorial!  Enjoy!!"
7741. End Sub ' HardwareImageDemo2
7742.  
7743. ' ################################################################################################################################################################
7744. ' END HARDWARE IMAGES DEMO #2 (WORKS)
7745. ' ################################################################################################################################################################
7746.  
7747. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7748. ' BEGIN DEBUGGING ROUTINES #DEBUGGING
7749. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7750.  
7751. Sub DebugPrint (MyString As String)
7752.     If m_bDebug = TRUE Then
7753.         '_Echo MyString
7754.  
7755.         ReDim arrLines(-1) As String
7756.         Dim iLoop As Integer
7757.         split MyString, Chr$(13), arrLines()
7758.         For iLoop = LBound(arrLines) To UBound(arrLines)
7759.             _Echo arrLines(iLoop)
7760.         Next iLoop
7761.     End If
7762. End Sub ' DebugPrint
7763.  
7764. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7765. ' END DEBUGGING ROUTINES @DEBUGGING
7766. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7767.  
7768. ' ################################################################################################################################################################
7769. ' BEGIN MENU HELPER ROUTINES
7770. ' ################################################################################################################################################################
7771.  
7772. ' /////////////////////////////////////////////////////////////////////////////
7773.  
7774. Sub ShowInstructions (in$)
7775.     Dim iLoop As Integer
7776.     Dim iCount As Integer: iCount = 0
7777.     Dim iRows As Integer: iRows = _Height(0) '\ _FontHeight ' GET # OF AVAILABLE TEXT ROWS
7778.     ReDim arrLines(-1) As String
7779.     Cls
7780.     split in$, Chr$(13), arrLines() ' SPLIT OUTPUT INTO LINES
7781.     For iLoop = LBound(arrLines) To UBound(arrLines)
7782.         Print arrLines(iLoop)
7783.         iCount = iCount + 1
7784.         If iCount > (iRows - 5) Then
7785.             'INPUT "PRESS <ENTER> TO CONTINUE"; in$
7786.             Sleep
7787.             iCount = 0
7788.         End If
7789.     Next iLoop
7790.     Print
7791.     Input "PRESS <ENTER> TO CONTINUE"; in$
7792. End Sub ' ShowInstructions
7793.  
7794. ' ################################################################################################################################################################
7795. ' END MENU HELPER ROUTINES
7796. ' ################################################################################################################################################################
7797.  
7798.  
7799. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7800. ' #REFERENCE
7801.  
7802. ' =============================================================================
7803. ' SOME USEFUL STUFF FOR REFERENCE:
7804.  
7805. ' Type Name               Type suffix symbol   Minimum value                  Maximum value                Size in Bytes
7806. ' ---------------------   ------------------   ----------------------------   --------------------------   -------------
7807. ' _BIT                    `                    -1                             0                            1/8
7808. ' _BIT * n                `n                   -128                           127                          n/8
7809. ' _UNSIGNED _BIT          ~`                   0                              1                            1/8
7810. ' _BYTE                   %%                   -128                           127                          1
7811. ' _UNSIGNED _BYTE         ~%%                  0                              255                          1
7812. ' INTEGER                 %                    -32,768                        32,767                       2
7813. ' _UNSIGNED INTEGER       ~%                   0                              65,535                       2
7814. ' LONG                    &                    -2,147,483,648                 2,147,483,647                4
7815. ' _UNSIGNED LONG          ~&                   0                              4,294,967,295                4
7816. ' _INTEGER64              &&                   -9,223,372,036,854,775,808     9,223,372,036,854,775,807    8
7817. ' _UNSIGNED _INTEGER64    ~&&                  0                              18,446,744,073,709,551,615   8
7818. ' SINGLE                  ! or none            -2.802597E-45                  +3.402823E+38                4
7819. ' DOUBLE                  #                    -4.490656458412465E-324        +1.797693134862310E+308      8
7820. ' _FLOAT                  ##                   -1.18E-4932                    +1.18E+4932                  32(10 used)
7821. ' _OFFSET                 %&                   -9,223,372,036,854,775,808     9,223,372,036,854,775,807    Use LEN
7822. ' _UNSIGNED _OFFSET       ~%&                  0                              18,446,744,073,709,551,615   Use LEN
7823. ' _MEM                    none                 combined memory variable type  N/A                          Use LEN
7824.  
7825. ' div: int1% = num1% \ den1%
7826. ' mod: rem1% = num1% MOD den1%
7827.  
7828. ' @REFERENCE
7829. ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
7830.