Sprites Bug

Device = 18F67K22

Declare Xtal = 64

Declare Auto_Heap_Arrays = On

Declare Auto_Heap_Strings = On

Declare Auto_Variable_Bank_Cross = On

Declare Watchdog = OFF

Declare Warnings = Off

Declare Optimiser_Level = 3

'================ MCU =======================

$define McuType              0

'================ TFT SCREEN ================

$define TFT_IC               ST7789V

$define TftScreenWidth       320

$define TftScreenHeight      240

$define TftWidthOffset       0

$define TftHeightOffset      0

$define TftPixelCheck        0

$define TFT_COM              SPI_1

$define TFT_COM_Slow         SSP1CON1 = %00101010

$define TFT_COM_Fast         SSP1CON1 = %00100000

$define TFT_RESET            PORTC.7

$define TFT_CS               PORTF.7

$define TFT_DC               PORTC.2

$define TFT_MOSI             PORTC.5

$define _TFT_MOSI            _PORTC.5

$define TFT_MISO             PORTC.4

$define _TFT_MISO            _PORTC.4

$define TFT_SCLK             PORTC.3

$define _TFT_SCLK            _PORTC.3

Include                      "TftLib\TFT_Graphic_Lib.inc"

Include                      "TftLib\Colors\Colors.inc"

Include                      "TftLib\Drivers\Drivers.inc"

Include                      "TftLib\Drivers\ST7789V.inc"

Include                      "TftLib\System\System.inc"

Include                      "TftLib\System\System_SPI_V4.inc"

Include                      "TftLib\Shapes\Shapes.inc"

Include                      "TftLib\Shapes\Shapes_SPI_V1.inc"

'================ SD CARD ===================

$define SDCardUsed           1

$define SDCardFatUsed        1

$define SD_COM               SPI_2

$define SD_CS                PORTG.3

$define SD_SDO               PORTD.4

$define _SD_SDO              _PORTD.4

$define SD_SDI               PORTD.5

$define _SD_SDI              _PORTD.5

$define SD_CLK               PORTD.6

$define _SD_CLK              _PORTD.6

Include                      "TftLib\SdCard\SdCard.inc"

Include                      "TftLib\SdCard\Fat.inc"

Include                      "TftLib\SdCard\SdCard_SPI_V4.inc"

'================ MEMORY ====================

$define MemoryType           0

'================ TFT TOUCH =================

$define TOUCH_IC             0

'================ SPRITES ===================

$define SpritesUsed          1

$define SpriteBufferSize     930

$define SpriteBufferNumber   2

Include                      "TftLib\Sprites\Sprites.inc"

Include                      "TftLib\Sprites\Sprites_SPI_V2.inc"

'=============== SND FONT ===================

$define FontSNDUsed          1

Include                      "TftLib\Fonts\SND\F18_SND_16x16_Basic_Swiss_Outline.inc"

$define FontSmooth           0

$define FontMaxSpace         8

$define FontMaxPixels        8

Include                      "TftLib\Fonts\SND.inc"

Include                      "TftLib\Fonts\SND_SPI_V1.inc"

'=============== BDF FONT ===================

$define FontBDFUsed          0

$define BufferBug            0

$define BufferIn             1

Dim wTempX As Word

Dim wTempY As Word

Dim wOldPositionW As Word

Dim wOldPositionH  As Word

Dim wNewPositionW As Word

Dim wNewPositionH  As Word

Dim bOrientation As Byte

Dim pDirection As Bit

Dim bSpriteWidth As Byte

Dim bSpriteHeight As Byte

Dim wPixels As Word

Main:

Clear

SetCrystal()

SetPins()

TftSetUp(0,0)

TftSetSndFont(18,0)

TftResetScreen(BLACK)

'Initiate SD card and print background

If File_Init() <> cErrOK Then

TftPrintSndString("SD Card Fail", 1,1,8,1, RED,BLACK,0)

EndIf

'Load dog.bmp from Src folder

File_ChDir("Src")

TftBmpFromSd("dog.bmp", 0,0)

'Print Positron header

TftPrintSndString("++++++++++++++++++", 1,1,13,1, UA_BLUE,BLACK,1)

TftPrintSndString("Positron PIC BASIC", 1,1,12,1, UA_BLUE,BLACK,1)

TftPrintSndString("Sprite Engine Demo", 1,1,11,1, UA_BLUE,BLACK,1)

TftPrintSndString("++++++++++++++++++", 1,1,10,1, UA_BLUE,BLACK,1)

'Initialize Sprite buffers

bSpriteWidth = TftBmpFromCodeWidth(Bug)

bSpriteHeight = TftBmpFromCodeHeight(Bug)

wPixels = bSpriteWidth

wPixels = wPixels * bSpriteHeight

SptDimBuffer(BufferBug, wPixels)

If bSpriteWidth >= bSpriteHeight Then

SptDimBuffer(BufferIn, bSpriteWidth)

Else

SptDimBuffer(BufferIn, bSpriteHeight)

EndIf

'Read area under and print Bug.bmp at random position and convert to Gray scale

wOldPositionW = RandomWidth()

wOldPositionH = RandomHeight()

SptReadTft(wOldPositionW,wOldPositionH, bSpriteWidth,bSpriteHeight, BufferBug,0,0,0)

SetNewDestination()

'Bug loop around

While 1 = 1

MoveToNewPosition()

SetNewDestination()

Wend

End

Proc MoveToNewPosition()

If pDirection = 0 Then

LoopVertical()

LoopHorizontal()

Else

LoopHorizontal()

LoopVertical()

EndIf

EndProc

Proc LoopVertical()

wTempX = wOldPositionW

wTempY = wOldPositionH

Select bOrientation

Case 0,1,7

While wTempY < wNewPositionH

SptBmpOverSpt(Bug,BufferBug, wTempX,wTempY, 1,BLACK,0,9)                    'Print bug

SptReadTft(wTempX,wTempY + bSpriteHeight, bSpriteWidth,1, BufferIn,0,0,0)   'Copy next line to Spt BufferIn

SptShiftOut(BufferBug, 0,0,1,1, BLACK)                                      'Shift out lower line in BufferBug

SptMergeOver(BufferIn,BufferBug, 0,bSpriteHeight - 1, 0,0,0)                'Copy over first line from BufferIn to BufferBug

Inc wTempY                                                                  'Increment Y coordinate

Wend

Case 3,4,5

While wTempY > wNewPositionH

SptBmpOverSpt180(Bug,BufferBug, wTempX,wTempY, 1,BLACK,0,9)                 'Print bug

SptReadTft(wTempX,wTempY - 1, bSpriteWidth,1, BufferIn,0,0,0)               'Copy next line to Spt BufferIn

SptShiftOut(BufferBug, 0,0,0,1, BLACK)                                      'Shift out lower line in BufferBug

SptMergeOver(BufferIn,BufferBug, 0,0, 0,0,0)                                'Copy over first line from BufferIn to BufferBug

Dec wTempY                                                                  'Increment Y coordinate

Wend

EndSelect

wOldPositionH = wNewPositionH

EndProc

Proc LoopHorizontal()

wTempX = wOldPositionW

wTempY = wOldPositionH

Select bOrientation

Case 1,2,3

While wTempX < wNewPositionW

SptBmpOverSpt270(Bug,BufferBug, wTempX,wTempY, 1,BLACK,0,9)                 'Print bug

SptReadTft(wTempX + bSpriteWidth,wTempY, 1,bSpriteHeight, BufferIn,0,0,0)   'Copy next line to Spt BufferIn

SptShiftOut(BufferBug, 1,1,0,0, BLACK)                                      'Shift out lower line in BufferBug

SptMergeOver(BufferIn,BufferBug, bSpriteWidth - 1,0, 0,0,0)                 'Copy over first line from BufferIn to BufferBug

Inc wTempX                                                                  'Increment Y coordinate

Wend

Case 5,6,7

While wTempX > wNewPositionW

SptBmpOverSpt90(Bug,BufferBug, wTempX,wTempY, 1,BLACK,0,9)                  'Print bug

SptReadTft(wTempX - 1,wTempY, 1,bSpriteHeight, BufferIn,0,0,0)              'Copy next line to Spt BufferIn

SptShiftOut(BufferBug, 0,1,0,0, BLACK)                                      'Shift out lower line in BufferBug

SptMergeOver(BufferIn,BufferBug, 0,0, 0,0,0)                                'Copy over first line from BufferIn to BufferBug

Dec wTempX                                                                  'Increment Y coordinate

Wend

EndSelect

wOldPositionW = wNewPositionW

EndProc

Proc SetNewDestination()

Dim sdX As SWord

Dim sdY As SWord

'Get new random position coordinates different from old coordinates

Do

wNewPositionW = RandomWidth()

wNewPositionH = RandomHeight()

sdX = wNewPositionW - wOldPositionW

sdY = wNewPositionH - wOldPositionH

Loop Until sdX <> 0 Or sdY <> 0

If sdX > sdY Then

pDirection = 1  'Horizontal first

Else

pDirection = 0  'Vertical first

EndIf

'Determine orientation

If sdX = 0 And sdY > 0 Then

bOrientation = 0    'Up

ExitProc

ElseIf sdX > 0 And sdY > 0 Then

bOrientation = 1    'Up/Right

ExitProc

ElseIf sdX > 0 And sdY = 0 Then

bOrientation = 2    'Right

ExitProc

ElseIf sdX > 0 And sdY < 0 Then

bOrientation = 3    'Down/Right

ExitProc

ElseIf sdX = 0 And sdY < 0 Then

bOrientation = 4    'Down

ExitProc

ElseIf sdX < 0 And sdY < 0 Then

bOrientation = 5    'Down/Left

ExitProc

ElseIf sdX < 0 And sdY = 0 Then

bOrientation = 6    'Left

ExitProc

ElseIf sdX < 0 And sdY > 0 Then

bOrientation = 7    'Left/Up

ExitProc

EndIf

EndProc

Proc RandomWidth(), Word

'Return random width position within TFT width 1 to 288

Result = Random

Result = (Result >> 8) + (Result >> 9)

If Result = 0 Then Result = 1

If Result > 288 Then Result = 288

EndProc

Proc RandomHeight(), Word

'Return random height position within TFT width 1 to 208

Result = Random

Result = (Result >> 8) + (Result >> 9)

If Result = 0 Then Result = 1

If Result > 208 Then Result = 208

EndProc

Proc PrintInitialPosition()

SptReadTft(wOldPositionW,wOldPositionH, 30,30, BufferBug,0,0,0)

Select bOrientation

Case 0

TftBmpFromCode(Bug, wOldPositionW,wOldPositionH, 1,BLACK,0,0)

Case 1

If pDirection = 1 Then

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 270,BLACK, 1,BLACK,0,0)

Else

TftBmpFromCode(Bug, wOldPositionW,wOldPositionH, 1,BLACK,0,0)

EndIf

Case 2

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 270,BLACK, 1,BLACK,0,0)

Case 3

If pDirection = 1 Then

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 270,BLACK, 1,BLACK,0,0)

Else

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 180,BLACK, 1,BLACK,0,0)

EndIf

Case 4

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 180,BLACK, 1,BLACK,0,0)

Case 5

If pDirection = 1 Then

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 90,BLACK, 1,BLACK,0,0)

Else

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 180,BLACK, 1,BLACK,0,0)

EndIf

Case 6

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 90,BLACK, 1,BLACK,0,0)

Case 7

If pDirection = 1 Then

TftBmpFromCodeRotate(Bug, wOldPositionW,wOldPositionH, 90,BLACK, 1,BLACK,0,0)

Else

TftBmpFromCode(Bug, wOldPositionW,wOldPositionH, 1,BLACK,0,0)

EndIf

EndSelect

EndProc

'Set Fosc

Proc SetCrystal()

Clear

OSCTUNE.6 = 1

DelayMS 100

EndProc

Proc SetPins()

'Set all digital

ANCON0 = 0

ANCON1 = 0

ANCON2 = 0

SSP1STAT.6 = 1

SSP1CON1 = %00100000

SSP2STAT.6 = 1

SSP2CON1 = %00100000

EndProc

Config_Start

RETEN = On        ;Enabled

INTOSCSEL = Low        ;LF-INTOSC in Low-power mode during Sleep

SOSCSEL = Dig        ;digital

XINST = OFF        ;Disabled

FOSC = EC2        ;HS oscillator (High power, 16 MHz - 25 MHz)

PLLCFG = On        ;Enabled

FCMEN = OFF        ;Disabled

IESO = OFF        ;Disabled

PWRTEN = OFF        ;Disabled

BOREN = OFF        ;Disabled in hardware, SBOREN disabled

BORV = 0        ;3.0V

BORPWR = High        ;BORMV set to high power level

WDTEN = OFF        ;WDT disabled in hardware; SWDTEN bit disabled

WDTPS = 1048576        ;1:1048576

RTCOSC = SOSCREF        ;RTCC uses SOSC

CCP2MX = PORTBE        ;RC1

MSSPMSK = MSK7        ;7 Bit address masking mode

MCLRE = On        ;MCLR Enabled, RG5 Disabled

STVREN = On        ;Enabled

BBSIZ = BB2K        ;2K word Boot Block size

Debug = OFF        ;Disabled

Cp0 = OFF        ;Disabled

CP1 = OFF        ;Disabled

CP2 = OFF        ;Disabled

CP3 = OFF        ;Disabled

CP4 = OFF        ;Disabled

CP5 = OFF        ;Disabled

CP6 = OFF        ;Disabled

CP7 = OFF        ;Disabled

CPB = OFF        ;Disabled

CPD = OFF        ;Disabled

WRT0 = OFF        ;Disabled

WRT1 = OFF        ;Disabled

WRT2 = OFF        ;Disabled

WRT3 = OFF        ;Disabled

WRT4 = OFF        ;Disabled

WRT5 = OFF        ;Disabled

WRT6 = OFF        ;Disabled

WRT7 = OFF        ;Disabled

WRTC = OFF        ;Disabled

WRTB = OFF        ;Disabled

WRTD = OFF        ;Disabled

EBRT0 = OFF        ;Disabled

EBRT1 = OFF        ;Disabled

EBRT2 = OFF        ;Disabled

EBRT3 = OFF        ;Disabled

EBRT4 = OFF        ;Disabled

EBRT5 = OFF        ;Disabled

EBRT6 = OFF        ;Disabled

EBRT7 = OFF        ;Disabled

EBRTB = OFF        ;Disabled

Config_End

Dim Bug As Flash16 = 30,30,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,_

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x1000,0x1000,_

0x4801,0x91E9,0xB2CD,0xBAED,0x91C9,0x5001,0x1000,0x1000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,0x9451,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x30E4,0xB515,0xDC12,0xBB4F,0xE432,0xDC13,0xC36F,0xD3F2,_

0xBD14,0x28C4,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x8C52,0x0000,0x0000,0x0000,0x0000,0xCCF3,0x8AEB,0x0000,0x0000,0x0000,0x0000,0x2800,0x8ACB,0xFA8F,0xF1AB,0xF8C9,0xF8C8,0xFAEF,0xFAEF,0xF8A8,0xF8C8,0xF18B,0xFA8E,0x8AAC,0x3000,0x0000,0x0000,_

0x0000,0x0000,0x82EB,0xCD33,0x0000,0x0000,0x0000,0x0000,0xCD33,0xBCB2,0x0000,0x0000,0x0000,0x0000,0x930C,0xB411,0xE96A,0xD909,0xF8C8,0xF8A9,0xFAEF,0xFACF,0xF8C8,0xF8A8,0xE129,0xE14A,0xBC11,0x930E,0x0000,0x0000,0x0000,0x0000,0xBCD2,0xC514,0x0000,0x0000,_

0x0000,0x0000,0x7B0C,0xA450,0x830C,0x1800,0x1800,0x61C8,0xFA6E,0xE948,0xF8A7,0xF8C7,0xF8A7,0xF8C7,0xFA8D,0xFAAD,0xF8A7,0xF8C7,0xF8A7,0xF8C7,0xE949,0xFA6D,0x59C8,0x2000,0x1800,0x830B,0x9C10,0x834C,0x0000,0x0000,0x0000,0x0000,0x1800,0xA451,0x8B6D,0x93CF,_

0x6A29,0xBCF5,0xF1AA,0xE149,0xF8E7,0xF8C8,0xF8E7,0xF8C8,0xFA8D,0xFA6D,0xF8E8,0xF8C8,0xF8E8,0xF8C8,0xE969,0xF1AB,0xC514,0x6209,0x93AE,0x832D,0xA471,0x1000,0x0000,0x0000,0x0000,0x0000,0x0000,0x1081,0x9C31,0x730C,0xFB8F,0xEB0C,0xF946,0xF966,0xF946,0xF966,_

0xF946,0xF966,0xFA8B,0xFA8A,0xF966,0xF986,0xF966,0xF986,0xF946,0xF966,0xE30C,0xFBAE,0x728B,0xA410,0x0841,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x1000,0x0800,0xFC31,0xD28B,0xF987,0xF967,0xF987,0xF987,0xF987,0xF987,0xFAAB,0xFAAB,0xF9A7,0xF987,_

0xF9A7,0xF987,0xF986,0xF987,0xDAAA,0xFC11,0x1800,0x1000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0800,0x5207,0xFB4A,0xF286,0xFA25,0xFA45,0xFA25,0xFA45,0xFA25,0xFA45,0xFAC8,0xFAE8,0xFA25,0xFA45,0xFA25,0xFA45,0xFA25,0xFA25,0xF246,0xFB49,_

0x5228,0x1000,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x1000,0xACD3,0xFB29,0xF2A7,0xFA86,0xFA66,0xFA86,0xFA66,0xFA86,0xFA66,0xFB08,0xFAE9,0xFA86,0xFA66,0xFA86,0xFA66,0xFA66,0xFA46,0xFAA7,0xFAE9,0xACD2,0x0800,0x0000,0x0000,0x0000,0x0000,_

0x0000,0x0000,0xA38E,0x930B,0x9248,0xFD94,0xFB25,0xFB24,0xFAE4,0xFB04,0xFAE4,0xFB04,0xFAE4,0xFB04,0xFB46,0xFB45,0xFAE5,0xFB04,0xFAE4,0xFAE4,0xFAC4,0xFAE4,0xFAE5,0xFB05,0xED34,0x9AA9,0x930C,0xA3AE,0x0000,0x0000,0x0000,0x0000,0xB430,0xA3CF,0xA2C9,0xF554,_

0xFB65,0xFB45,0xFB45,0xFB05,0xFB45,0xFB05,0xFB45,0xFB05,0xFB66,0xFB66,0xFB25,0xFB05,0xFB25,0xFB05,0xFB25,0xFB05,0xFB25,0xFB06,0xF574,0x9ACA,0xABEF,0xABF0,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x1800,0xDDD6,0xFBC3,0xFBC3,0xFBC3,0xFBC2,0xFBC3,0xFBC2,_

0xFBC3,0xFBC2,0xFBE4,0xFBE3,0xFBA3,0xFBA2,0xFB83,0xFBA3,0xFB83,0xFBA2,0xFB83,0xFBC3,0xD596,0x1800,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x1800,0xD5D7,0xFC24,0xFC04,0xFC04,0xFC04,0xFC04,0xFC04,0xFC03,0xFC04,0xFC24,0xFC04,0xFBE3,0xFBC4,_

0xFBE4,0xFBC4,0xFBE3,0xFBC4,0xFBE4,0xFBE4,0xDDD6,0x1800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0800,0x6163,0xF5F4,0xFC84,0xFCA3,0xFC64,0xFC83,0xFC64,0xFC83,0xFC64,0xFC83,0xFC64,0xFC63,0xFC43,0xFC42,0xFC43,0xFC42,0xFC43,0xFC42,0xFC43,0xFC63,_

0xEDD4,0x69A3,0x0800,0x0800,0x0000,0x0000,0x0000,0x0000,0x62AA,0x734D,0x7A26,0xF616,0xFCE5,0xFCC5,0xFCC4,0xFCA5,0xFCC4,0xFCA5,0xFCC4,0xFCA5,0xFCC4,0xFC84,0xFC83,0xFC84,0xFC83,0xFC84,0xFC83,0xFC84,0xFC84,0xFC84,0xF635,0x8287,0x7B8E,0x62AB,0x0000,0x0000,_

0x0000,0x0000,0xABCF,0xA36D,0x6AA9,0xE657,0xFD49,0xFD28,0xF508,0xFD48,0xF54A,0xF54A,0xF54C,0xF56C,0xF54C,0xF54B,0xF54C,0xF54B,0xF4E9,0xF509,0xF4E7,0xFD07,0xF4E8,0xFD28,0xDE17,0x6AA9,0x9B6D,0xABEE,0x0000,0x0000,0x0000,0x0000,0xB410,0x7208,0x1000,0x9C71,_

0xFDCA,0xFD6A,0xFD89,0xFD8A,0xFE0D,0xFE0E,0xFE2F,0xFE30,0xFE4F,0xFE2F,0xFE2F,0xFE0F,0xFDCC,0xFDAC,0xFD89,0xFD49,0xFD49,0xFD8A,0xAC91,0x1000,0x69E7,0xA3AF,0x0000,0x0000,0x0000,0x0000,0xB534,0x0800,0x0000,0x1061,0xF657,0xFEB8,0xFE56,0xFE34,0xE4B1,0xBB8C,_

0xAB0B,0xAB0A,0x9AA9,0xA2C9,0xA2EA,0xAB2A,0xB36C,0xECF1,0xFDF5,0xFE55,0xFE57,0xFE56,0x0841,0x0000,0x0800,0xA4B2,0x0000,0x0000,0x0000,0x0000,0x5248,0x0000,0x0000,0x0000,0x2800,0xCD12,0xB3CB,0x8A67,0x9268,0x9289,0xA2E9,0xA2EA,0xAB2B,0xA30B,0xAB0A,0x9ACA,_

0x9AA8,0x8A47,0x8A87,0xAB8B,0xD511,0x2800,0x0000,0x0000,0x0800,0x49E8,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x3165,0xCD15,0xABEF,0x9AEB,0xA30B,0xAB2C,0xBB6D,0xB36D,0xB38D,0xAB4C,0xAB4C,0xA30C,0xA30B,0xA3D0,0xD535,0x2925,0x0000,_

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x61C7,0xD556,0xCC91,0xB3CF,0xC3CE,0xBBAF,0xC3EF,0xBBEF,0xBBEE,0xB3AE,0xBC0F,0xCC71,0xDD96,0x59A7,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,_

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x2103,0xCD76,0xDDB6,0xD535,0xD514,0xCD14,0xCD34,0xCD14,0xDD55,0xE596,0xE554,0x20E4,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,_

0x0000,0x0000,0x0000,0x0000,0x2000,0x7AED,0xDD75,0xE5D8,0xF658,0xEE39,0xEDF7,0xD556,0x930B,0x2800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0xA34D,0x8248,_

0x2925,0x0000,0x0000,0x0000,0x0000,0x2924,0x8209,0xAB4C,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0xB3CF,0xAB8F,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,_

0xB3AE,0xB3CF,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0800,0x0000,0x0000,0x0000,0x0000,_

0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000