PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

amiga led,guru et decrunching

http://forums.purebasic.com/french/viewtopic.php?t=16352

Page 1 sur 2

amiga led,guru et decrunching

Publié : ven. 28/oct./2016 20:30
par raven
bonjour,
n'ayant plus mes sources finale et toute les images de ce que j'avais fait.
j'ai modifé ce code hier soir,il manque la disquette et son animation.

les images sont inclus dans le code,y'a juste a copier coller dans l'editeur.
c'est bordelique mais fonctionnel.

Code : Tout sélectionner

;***********************************************
;Titre  :*pure miga
;Auteur  : Raven
;Date  :06/11/2016
;Heure  :11:02:44
;Version Purebasic :  PureBasic 5.50 (Windows - x86)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************

EnableExplicit

;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or InitMouse()=0 Or InitSound()=0 Or UseOGGSoundDecoder()=0 or UsePNGImageDecoder()=0
MessageRequester("Probleme","Initialisations impossibles",0)
End
EndIf
;-----------------------------------------
declare affiche_menu()
declare amiga()
declare guru()
declare led_rouge()
declare led_verte()
declare disquette()
declare lecteur()
declare guru()
declare init()
declare init2()
declare init3()
declare decrunching()

enumeration fenetre
#fenetre
EndEnumeration

Enumeration
#font
EndEnumeration

Enumeration
#Amiga 
#ecran
#guru 
#guru2
#disquette
#init
#init2 
#init3
#boot
EndEnumeration

enumeration
#led_rouge=215
#led_rouge_init=215
#led_verte=215
#led_verte_init=215
endenumeration

Enumeration
#lecteur
EndEnumeration

#largeur_ecran = 1024
#hauteur_ecran = 768

OpenWindow(#fenetre,0,0,#largeur_ecran,#hauteur_ecran,"Pure miga",#PB_Window_borderless|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(#fenetre),0,0,#largeur_ecran,#hauteur_ecran)

; - charge les data du fichier pure_miga_data.pb
IncludeFile "pure_miga_data.pb"

;-charge la fonte
LoadFont(#font,"Cooper Black",12,#PB_Font_HighQuality )

;-variables global
global event
global amiga_posx,amiga_posy,amiga_image,affiche_menu,Ecran,image_guru,tempo_guru,ecran_posx,ecran_posy,ecran_image
global image_led_rouge,image_led_verte,tempo_led_rouge,tempo_led_verte
global disk_posx,disk_posy,disquette_data,disquette_load,anim_disquette,image_disquette
global guru_load,guru_load2,image_guru,guru_posx,guru_posy,guru_anim,init
global Ybox,Hbox,couleur,ecran_decrunch_x,ecran_decrunch_y
;global image_boot,boot_posx,boot_posy
;global lecteur,lecteurfin
;---- position des variables amiga,ecran,disquette,guru ------
amiga_posx=-150
amiga_posy =320
ecran_posx= 512
ecran_posy= 50
disk_posx =253
disk_posy =470
guru_posx =290
guru_posy = 60
ecran_decrunch_x =460
ecran_decrunch_y =-80
;boot_posx = 290
;boot_posy = 60
;--------------------------------------------------------------
;------------   affichage du menu     ---------------------
;--------------------------------------------------------------
Procedure affiche_menu()

If StartDrawing(ScreenOutput())
If KeyboardReleased( #PB_Key_Tab)
If affiche_menu = #True
affiche_menu = #False
Else
affiche_menu = #True
EndIf
EndIf

DrawingMode(#PB_2DDrawing_Transparent)
If affiche_menu = #False
DrawingFont(FontID(#font))
DrawText(455,490,"Pure Miga: ",RGB(255,255,255))
DrawText(450,520,"-Amiga Led ",RGB(255,255,255))
DrawText(450,550,"-initialisation de l amiga ",RGB(255,255,255))
DrawText(450,580,"-Guru  meditation",RGB(255,255,255))
DrawText(450,610,"- insert la disquette : espace",RGB(255,255,255))
DrawText(450,640,"- decrunching : en test",RGB(255,255,255))
DrawText(450,670,"- workbench + souris : en cours",RGB(255,255,255))
Else
EndIf
StopDrawing()
EndIf
EndProcedure
;------------- Procedure Amiga -----------------------------------
Procedure amiga()
amiga_image=catchsprite(#Amiga,?amiga,#PB_Sprite_AlphaBlending)

ZoomSprite(#Amiga,550,550)
DisplayTransparentSprite(#Amiga,amiga_posx,amiga_posy)

EndProcedure
;-------------- procedure tv ---------------------------
Procedure tv()
ecran_image=catchsprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)

ZoomSprite(#ecran,550,400)
DisplayTransparentSprite(#ecran,ecran_posx/2,ecran_posy/2)

EndProcedure
;---------------- son lecteur----------------------------
;Procedure lecteur()   
;lecteur=Catchsound(#lecteur,?lecteur,?lecteurfin-?lecteur)
;EndProcedure
;----------------- procedure disquette -----------------------------
procedure disquette()

disquette_load =catchsprite(#disquette,?disquette_data,#PB_Sprite_AlphaBlending)
If image_disquette=4:image_disquette=4:EndIf
transparentSpriteColor(#disquette,RGB(0,0,0))
ClipSprite(#disquette,image_disquette*198,0,198,250)
zoomsprite(#disquette,120,90)
DisplayTransparentSprite(#disquette,disk_posx,disk_posy)

EndProcedure
;----------- procedure led rouge -----------
procedure led_rouge()
StartDrawing(ScreenOutput())
If image_led_rouge=2:image_led_rouge=0:EndIf
Box(#led_rouge_init,605,24,5,rgb(155,0,0))
Box(#led_rouge,605,24*image_led_rouge,5,rgb(255,0,0))
tempo_led_rouge + 1
If tempo_led_rouge = 60
image_led_rouge + 1
tempo_led_rouge = 0
EndIf
StopDrawing()
EndProcedure
;---------- procedure led verte ---------
procedure led_verte()
StartDrawing(ScreenOutput())
If image_led_verte=2:image_led_verte=0:EndIf
Box(#led_verte_init,612,25,5,RGB(50,155,50))
Box(#led_verte,612,25*image_led_verte,5,RGB(0,255,0))


StopDrawing()
endprocedure
;-------- procedure guru -----------------------------
procedure guru()
guru_load=CatchSprite(#guru,?guru_meditation,#PB_Sprite_AlphaBlending)
guru_load2=CatchSprite(#guru2,?guru_meditation2,#PB_Sprite_AlphaBlending)
TransparentSpriteColor(#guru,rgb(0,0,0))
TransparentSpriteColor(#guru2,rgb(0,0,0))
If image_guru=2:image_guru=0:EndIf
ClipSprite(#guru2,image_guru*1024,0,1024,430)
ZoomSprite(#guru,480,90)
ZoomSprite(#guru2,480,90) 
DisplayTransparentSprite(#guru,guru_posx+0,guru_posy)
DisplayTransparentSprite(#guru2,guru_posx+0,guru_posy)
guru_anim + 1
If guru_anim= 80
image_guru + 1
guru_anim =0
endif
endprocedure

;-------------- procedure insertdisk ----------------------------------
procedure insert_disk()
if KeyboardReleased(#pb_key_space)

if image_disquette =#false

image_disquette = #true 
else 
image_disquette = #false
endif
endif
;----------------------------------------

if image_disquette = #false
;  If image_disquette=4:image_disquette=4:EndIf
;  anim_disquette + 1

else
anim_disquette + 1
If  anim_disquette =5
image_disquette + 1 
anim_disquette = -5
;on joue le son de l insertion de la disquette et le bruit du lecteur
;if image_disquette = 2:playsound(#lecteur):endif
;on active la led verte pour l activite du lecteur
tempo_led_verte + 1
If tempo_led_verte = 1
image_led_verte + 1
tempo_led_verte = 0
endif
EndIf
endif
endprocedure
;----------------------------------------------------------------------------

;---- procedure init simulation de l initialisation de l amiga ---------
procedure init()
createsprite(#init,530,330)
startdrawing(SpriteOutput(#init))
box(0,0,479,325,rgb(60,60,60))
StopDrawing()
EndProcedure

procedure init2()
createsprite(#init2,530,380)
startdrawing(SpriteOutput(#init2))
box(0,0,479,325,rgb(100,100,100))
StopDrawing()
EndProcedure

procedure init3()
createsprite(#init3,530,380)
startdrawing(SpriteOutput(#init3))
box(0,0,479,325,rgb(255,255,255))
StopDrawing()
EndProcedure
;--------------- procedure decrunching --------------------
procedure decrunching()
Protected Ybox,Hbox,couleur
Ybox =65
repeat
couleur = rgb(random(255),random(255),random(255))
Hbox = random(15); hauteur box de 15 pixel
StartDrawing(ScreenOutput())
box(290,Ybox,ecran_decrunch_x+20,Hbox,couleur)
StopDrawing()
Ybox +Hbox
if Ybox >ecran_decrunch_y + ecran_decrunch_x
break
endif
ForEver
endprocedure
;----------- procedure boot image -------------------------------
; procedure  boot()
; image_boot=catchsprite(#boot,?boot_disk,#pb_sprite_alphablending)
; TransparentSpriteColor(#boot,rgb(0,0,0))
; zoomsprite(#boot,479,325)
; DisplayTransparentSprite(#boot,boot_posx,boot_posy)
; endprocedure
;----------------------------------------------------------------------
;lecteur()
init()
init2()
init3()
SpriteQuality(1)

repeat
repeat 
Event = WindowEvent()

Select Event    
Case #PB_Event_CloseWindow
End
EndSelect  
Until Event=0
;----- lance l initialisation de l amiga --------
init +1
select init

case 50 to 100
DisplayTransparentSprite(#init,290,60)
case 100 to 150
DisplayTransparentSprite(#init2,290,60)
case 150 to 200
DisplayTransparentSprite(#init3,290,60)
case 200 to 250
decrunching()
;boot()
case 300 to 550
guru()
FreeSprite(#guru)
freeSprite(#guru2)
endselect


FlipBuffers()
ClearScreen(rgb(0,0,0))
ExamineKeyboard()

;-------- on appelle les procedures ---------------

amiga()
tv()
led_rouge()
led_verte()
insert_disk()
disquette()
affiche_menu()
debug init

until  KeyboardPushed(#pb_key_escape) or event = #PB_Event_CloseWindow
FreeSprite(#amiga)
FreeSprite(#ecran)
FreeSprite(#disquette)
End

; Epb

Re: amiga led,guru et decrunching

Publié : ven. 28/oct./2016 20:32
par raven
les datas,à sauvegarder en pure_miga_data.

Code : Tout sélectionner

;-Data
DataSection
;lecteur:
;IncludeBinary "media\lecteur_amiga.ogg"
;lecteurfin:
amiga:
; size : 11185 bytes
Data.q $0A1A0A0D474E5089,$524448490D000000,$0003000000040000,$15BABA0000000608,$524863200000000D
Data.q $800000257A00004D,$800000FFF9000083,$EA000030750000E9,$170000983A000060,$00000046C55F926F
Data.q $0B00007359487009,$9A0001130B000013,$4449372B0000189C,$8C3FDDED5E785441,$E07FD2601FB6475C
Data.q $332C04304606D635,$391300B91980C076,$52250BB8602F431B,$06D1B49432C1C328,$0626D42F9689D60E
Data.q $4C044C8620897DC3,$7010199192C084A8,$C13580803E603013,$25896656FB06C3C3,$DBA9C53514FB2E8C
Data.q $70298501F7CFBB7D,$0FC5AD33FEDF54EF,$77D2E974BE5D4E75,$FEC070000000072F,$301C00000009FD55
Data.q $0020240000000001,$0000040480000000,$0000000080900000,$4000000000101200,$4048000000000202
Data.q $0008090000000000,$0000010120000000,$0000000020240000,$9000000000040480,$1012000000000080
Data.q $0002024000000000,$0000004048000000,$0000000008090000,$2400000000010120,$0404800000000020
Data.q $0000809000000000,$0000001012000000,$0000000002024000,$0900000000004048,$0101200000000008
Data.q $0000202400000000,$0000000404800000,$0000000000809000,$0240000000001012,$0040480000000002
Data.q $0000080900000000,$0000000101200000,$8000000000202400,$8090000000000404,$0010120000000000
Data.q $0000020240000000,$0000000040480000,$2000000000080900,$2024000000000101,$0004048000000000
Data.q $0000008090000000,$0000000010120000,$4800000000020240,$0809000000000040,$0001012000000000
Data.q $0000002024000000,$0000000004048000,$1200000000008090,$0202400000000010,$0000404800000000
Data.q $0000000809000000,$0000000001012000,$0480000000002024,$0080900000000004,$0000101200000000
Data.q $0000000202400000,$0000000000404800,$0120000000000809,$0020240000000001,$0000040480000000
Data.q $0000000080900000,$4000000000101200,$4048000000000202,$0008090000000000,$0000010120000000
Data.q $0000000020240000,$9000000000040480,$1012000000000080,$0002024000000000,$0000004048000000
Data.q $0000000008090000,$2400000000010120,$0404800000000020,$0000809000000000,$0000001012000000
Data.q $0000000002024000,$0900000000004048,$0101200000000008,$0000202400000000,$0000000404800000
Data.q $0000000000809000,$0240000000001012,$0040480000000002,$0000080900000000,$0000000101200000
Data.q $8000000000202400,$8090000000000404,$0010120000000000,$0000020240000000,$0000000040480000
Data.q $2000000000080900,$2024000000000101,$0004048000000000,$0000008090000000,$0000000010120000
Data.q $4800000000020240,$0809000000000040,$0001012000000000,$0000002024000000,$0000000004048000
Data.q $1200000000008090,$0202400000000010,$0000404800000000,$0000000809000000,$0000000001012000
Data.q $0480000000002024,$0080900000000004,$0000101200000000,$0000000202400000,$0000000000404800
Data.q $0120000000000809,$0020240000000001,$0000040480000000,$0000000080900000,$4000000000101200
Data.q $4048000000000202,$0008090000000000,$0000010120000000,$0000000020240000,$9000000000040480
Data.q $1012000000000080,$0002024000000000,$0000004048000000,$0000000008090000,$2400000000010120
Data.q $0404800000000020,$0000809000000000,$0000001012000000,$0000000002024000,$0900000000004048
Data.q $0101200000000008,$0000202400000000,$0000000404800000,$0000000000809000,$0240000000001012
Data.q $0040480000000002,$0000080900000000,$0000000101200000,$8000000000202400,$8090000000000404
Data.q $0010120000000000,$0000020240000000,$0000000040480000,$2000000000080900,$2024000000000101
Data.q $0004048000000000,$0000008090000000,$0000000010120000,$4800000000020240,$0809000000000040
Data.q $0001012000000000,$0000002024000000,$BDDF1CBF2E048000,$AF9FD51DB6C0029A,$73DF5D175F3FAD3B
Data.q $AB623EE23F5D116D,$FCE8EAD4D9D4EFAB,$9DEFE34FAC79006B,$3B3DBC019D75B3F5,$0001012000000000
Data.q $0000002024000000,$0B600000F4048000,$BEC6AF9847EC6B7A,$F7ABFBCF55BFAEA7,$7527D7FEEA6CEB8F
Data.q $A9B3AABF07CEE676,$D73D53675FBCBE2F,$AD73147DC47B588F,$711ED6B98A3EE23D,$628FB88F6B5CC51F
Data.q $DAD73147DC47B5AE,$4D9D66EB7C71F7BD,$05F46767547C3C9D,$0000000001D97A00,$0120000000000809
Data.q $FE6DB448FC000025,$D688A3598DE147E2,$556D7562FF56C659,$37BA2DE34FD66767,$FC3D1EA6CEB2FD6F
Data.q $7547E1F3B99D9D73,$A6CEA9FC3FC5F536,$28FB88F6B11FAE7A,$AD73147DC47B5AE6,$711ED6B98A3EE23D
Data.q $628FB88F6B5CC51F,$291EFA23EF7BB5AE,$01659BC79392EFA2,$0000000007626F00,$0480000000002024
Data.q $0080900000000004,$C7D7F3FA94EF6000,$CF7447D7FD3A9492,$C6B3D1946B44B465,$B8E39468FF5A95F9
Data.q $68C6CEF47472D1A2,$B980000E147472B9,$0101200000000008,$0000202400000000,$6240000404800000
Data.q $AA2E9630FF92D7AF,$D2D1951AF4539F8D,$17171946B44B6D73,$ABD1A3FD7397FAD5,$007095EEF57FA6A7
Data.q $000000000045CC00,$0120000000000809,$0020240000000001,$461FF39AE3F0D800,$B6BD172D196D744B
Data.q $44B98CDBDD74488C,$5FEB584F98CA0B7D,$F60001FD6BC5D1C6,$1012000000000091,$0002024000000000
Data.q $2400004048000000,$F2B5EBC6B7A4D516,$AE7A5A32DAE88C3F,$73DD16DB1F71196D,$2D1CBFF9D6171719
Data.q $0D3D3EB18DAB6BAB,$96D74470ABABF5C7,$D7A2E5A32BAE8911,$4488CB6BD172D196,$24465B5D12D195D7
Data.q $465B5E8B968CAEBA,$575D12232DAF45CB,$BAE891196D744B46,$172D196D7A2E5A32,$2D195D74488CB6BD
Data.q $68CAEBA24465B5D1,$0049CC0065B5E8B9,$0000080900000000,$77C72FCB81200000,$EF636D6BF400A6AF
Data.q $B5F6FC2B6639C6D9,$DFDADA27CF7CE39E,$ECEB8FF7EDDF8C7B,$BA2A6CEA4FAF83CC,$EE23DAC47EB9E8B6
Data.q $CC51F711ED6B98A3,$7B5AE628FB88F6B5,$3EE23DAD73147DC4,$5CC51F711ED6B98A,$ACBF5BCDC7DEF76B
Data.q $67675CFF0F47A9B3,$B1F38033AA3F1E4E,$0010120000000003,$0000020240000000,$C0E0000F40480000
Data.q $1E73EAB5BDE0F544,$7EC6A23EAF53D4C3,$8BF18EB423FA75FB,$A3A3917E31CBFDEA,$5E6E033D1D2B8D78
Data.q $71B4E76F00675EBB,$6A9B3AF3C5FADFB4,$67517E3F8FFCEF7D,$0001D97A0000F467,$0000000809000000
Data.q $0000000001012000,$0D5103B00007A024,$59CF6B11FBBAA8F6,$6CB78F9CCBDD1F1F,$5BDFEF5445FEB53D
Data.q $2C019D4AF77ABFEB,$EA4FAF83C037AB4F,$003B2F40001E8CEC,$0000010120000000,$0000000020240000
Data.q $AAD4660000F40480,$CFEFD56F83A9EF6D,$A231E706B5A476B9,$03FAD5FDEA88BFD6,$FE34FAC007A7A487
Data.q $C000CF55BBEB58EF,$004048000000000E,$0001280900000000,$FD36CF7D3B67A076,$5AD1808CB7BB5A22
Data.q $7F4ADAD64B000025,$2511BC6CEA8FC3E7,$BDD4D9D66EB7C700,$001D959019D7EF2F,$0000008090000000
Data.q $0000000010120000,$AAD70B00007A0240,$6003D1100DEDEFD3,$8AFEE388FFBD510E,$697301FDC73FC8E8
Data.q $0007A3BDF9CFE3D5,$20000000003B2730,$2024000000000101,$00F4048000000000,$35CE7F7EA2346600
Data.q $D5AE8703FB6708B8,$78D9D51F87CEE4BF,$F1E4FBEEB4007A23,$000003B2B2033AA3,$0000000010120000
Data.q $4800000000020240,$7E3EB7AF48000F40,$DAFA5BC7ADF7B5DB,$1D3DAA2003D5AF87,$9B607FCCE17FDE71
Data.q $E88D177E73F8F55A,$2033AEB67EB2D001,$0120000000003B2B,$0020240000000001,$0000F40480000000
Data.q $CF61BD51F0755A1A,$FF79CA97EEEA2DB5,$F87CEFF4F3AD5640,$B9C003D3D78D9D51,$000000003B2F40FE
Data.q $2400000000010120,$B165B4520E0004A0,$6C47B59EB6A0A8EF,$D78144A7BB5DEFEB,$8E7B605B5BFDDB45
Data.q $7E968FB01FAC73F6,$001D97A00012A00C,$0000008090000000,$0000000010120000,$EA8A41C0007A0240
Data.q $B7D8D4F4007B7BAD,$F38047D9CFDED4F4,$0200C719C01FE472,$48000000000EC687,$0809000000000040
Data.q $003D012000000000,$D2D6F7E9D4F5AF60,$EDEFEBA9EFF5A88F,$FD6AB445C067A001,$E88BFEF39ED77AA3
Data.q $55A8FB03FDE77FCC,$F3F6B5AD3BE23F8F,$B9FE1E8F6FBFF8D3,$03B2F40001E8CECE,$0000101200000000
Data.q $0000000202400000,$9E9C58000F404800,$4EA5E8D6B996F8FA,$A2F6F00FEB9CD77F,$B3AA3F0F9DC528BE
Data.q $7A0EB17FDE73D7B7,$7CE00CEBAD9FAC03,$04048000000000EC,$0012809000000000,$EC5B3DF32DAD0BD8
Data.q $7AA97FD5B0012CE7,$8E7AFF23A22BFB8E,$5D8A1C07F91C2BFB,$ECEBF797C5F8031C,$0001D97A000129A7
Data.q $0000000809000000,$0000000001012000,$FF4EA7A40007A024,$1C5DBC600FEE3810,$C9CBDD1001EAD803
Data.q $00763E70067547E3,$0000020240000000,$0000000040480000,$AAD33B0001E80900,$D753D23FAF3DEFBD
Data.q $E3CF7D747F867BDF,$99D117FDE7118731,$E9D56AB207FBCEFF,$7C7001EDEBFEF88F,$16B8D7B99D9D66EB
Data.q $48000000000EC5A0,$0809000000000040,$003D012000000000,$E9D525EB7AA27160,$D807FCCE6BB001EB
Data.q $547E1F3B951F568E,$EC1760000F4F6F67,$0004048000000000,$0000008090000000,$D7660003D0120000
Data.q $92FE4D4F4A3FA753,$11800F511E700BFA,$FBCEFF99D117FDE7,$5EF88FE9D56AB207,$00003B05D80003D4
Data.q $0000000101200000,$B3D7660004A02400,$E8172DEFAE88BE95,$E3845CDAE73F92D9,$A1C08031CB7600FE
Data.q $10120000000003B1,$0002024000000000,$58000F4048000000,$9EFC7AAD001E9E9C,$3D5A5B66D77AFAA3
Data.q $15FDC711D49AA200,$E04018E33803FC8E,$090000000001D8D0,$0101200000000008,$0007A02400000000
Data.q $000F673D9B544E2C,$88ED800003D5AA96,$CEA8FC3E7714AE7A,$4E5EE8800F6F5EDE,$03B1F38033AA3F1E
Data.q $0000101200000000,$0000000202400000,$3D2B78000F404800,$EA17FAD4F423FA75,$7445FF79CF49F7FD
Data.q $6F4BF601FEF3BFE6,$00CEBAD9FAC8800F,$48000000000EC7CE,$0809000000000040,$0001012000000000
Data.q $B528FAFF7B5295BC,$B46578F447A33DD6,$2B6D800032DAF45C,$0000823001A25FFD,$0000001012000000
Data.q $89C584018E024000,$7055B7C96EF5F9B6,$A33B5B5AFF23A2A9,$FDC73FC8E88AFEE3,$4FCF8031D697EC01
Data.q $3AE7F87A3FE6FFE3,$9C019D51F8F2733B,$8090000000001D8F,$0010120000000000,$C0007A0240000000
Data.q $A3F7B53DF3355AF7,$287FD354C7A3EEEA,$01BD5A4DE00000F4,$00F46767527D7C1E,$0000000001D97A00
Data.q $0120000000000809,$07A0240000000001,$679CFDED4F51BC00,$E8DF601BD6D6B7F5,$9D49F4F37D2EC001
Data.q $6EA6CEB6FD3D399D,$78F45EDECEAF7ADF,$D77BF6CFA331EB45,$B7B0E7BD78D9D7AE,$8D67A2973D123BEE
Data.q $BF9E86EFE357EB96,$E7ADCF7BDEE79EF7,$8DFCFDEDFDF3991E,$27300007A08FCCF8,$010120000000003B
Data.q $0000202400000000,$D98000F404800000,$A8B21FF5D5F4EAB5,$FD6A7BFDEA88BFD6,$D63F3FAD5FDEA88B
Data.q $C9FCCEB3991CFB5B,$D1F711B4FD9D75B3,$537E1E0F051E8BB2,$77AF47B9F7AD3F67,$8C7AB639E8833F6F
Data.q $8FBC5D9F3D1DAEF4,$80003D2F5FDD732D,$090000000001D939,$2501200000000008,$D75BF4DB11BDF000
Data.q $000944FB0BDD6AF6,$25296473EB6A30DB,$23F7AD9E83BFAD00,$98F3DE22D9E8A3EE,$FEF119F3C471CFBD
Data.q $8BFC8E23973EB4B6,$0000942F79F11ED6,$090000000001D819,$0101200000000008,$0007A02400000000
Data.q $76B7A44007B7AF7C,$5B64C7DE817F447F,$56FF5ADEA46000F4,$3D1AEF5B6C74777D,$00F4460A3D11B59F
Data.q $D7B7F118AF7A39E8,$33E79EEB5F7BDCF3,$52DFAF1185DBF5E2,$27300007A5EC298E,$010120000000003B
Data.q $0000202400000000,$D98000F404800000,$45FEB53D643FD3A9,$F7A85C6F53DFEF54,$F77CEB6FFD516C3F
Data.q $ECE7D4339EF1DADE,$3EC7388F6CFAD001,$077DDB62DAE7A35A,$D1FF79E732D7F75A,$FD7A2BDF4B55AFE7
Data.q $CF9EF99F3DEEF55A,$001D99900007A17B,$0000008090000000,$0000000010120000,$EA895BC0007A0240
Data.q $A201BD5B246B7B57,$F0007A6BB2D75A75,$76A7ADB79F6B7AB6,$9D5EF5BEDCB9F7BC,$A7A9E96828F4F54D
Data.q $E8F73C462F33A9EF,$A467C4605BD5BDEF,$7CF7D2D6F4B4B9E7,$0001E85EF3E52DA7,$2400000000076064
Data.q $0404800000000020,$001E809000000000,$FBF511F9BA9EB01C,$07A37D83EE7A35AD,$EF51FC8CE7AB6F00
Data.q $3D697BA3E9B388F9,$FA5A9EF79A9E9697,$CF45F079C47B5A22,$ECC79EF9ACF39F73,$BA2283DEB98A9D79
Data.q $85EF3E7AE7BF39EF,$000000760640001E,$0000000002024000,$0DDB450900094048,$4B200C751FDF6C47
Data.q $B5996D117FAB6234,$3E8F116EF5B0FFD5,$D98FBD2DD52DAD23,$00C75B75DEBFBA23,$5EF616C465CF5A46
Data.q $4DE0E4A7A47B9E23,$D9E8BCF7AE6AD7A2,$6476BBD2F7445FEA,$47B26FF7A2F79FDB,$F2FBDF1CFA2004AB
Data.q $00001D8F9C019D7E,$0000000080900000,$4000000000101200,$F4EAB51BC0007A02,$601BD0D77BFDEA7B
Data.q $3D5A1B600000F489,$BF86FFFE6E9F9E00,$EC7CE00CEAF79FFF,$0004048000000000,$0000008090000000
Data.q $4A00700010120000,$A2F1E234E63474FD,$000FAF7E3528CA35,$D001F5E62FD2B320,$080900000000004B
Data.q $0001012000000000,$B780002024000000,$BBD59ED8001F4EA2,$0000012F40063657,$0000000020240000
Data.q $9ABDDF1CBF2E0480,$76D7338F1D69A1C2,$393ECF7C73C7DEFD,$F8B5D5A9B3AAB1BE,$E8A9B3A9DE8E8FDF
Data.q $3C4723CE36D6A6D8,$D7FDBFE5FF06F001,$0000003B1F38033A,$0000000001012000,$0480000000002024
Data.q $11EABA9EA12000F4,$003D021F71D402FD,$D9D49F4F47A5D800,$700675F7F0FF4F99,$024000000000763E
Data.q $0040480000000002,$C001E80900000000,$BDFD75474FD56B01,$A808FAB46B3DD6B5,$FDFACDD5D5AA5EEF
Data.q $FAE003D5BF1EA355,$003FBD4680CF46D5,$A33B3AF3C5FAC9BC,$0000000ECBD00007,$0000000000404800
Data.q $0120000000000809,$F4007A237BE0003D,$3800F446A96003D2,$A3AC12B8A35CDA3A,$3C5EEF5454C0002F
Data.q $3F5258EDB3AEB679,$0000EC1180003D17,$0000000404800000,$0000000000809000,$9D67323D8003D012
Data.q $A23467F8676D6B7E,$CDF60146EA92C007,$DDF454D9D4DF8783,$B76F7C6A3D5EFADA,$CDDA7ECEA4FA7A3C
Data.q $4474F4EA6CEBD76B,$7608C0001E98A08F,$0002024000000000,$BC00094048000000,$4B04650F40696F51
Data.q $00956ADD804018E5,$6D178D9D5EF5BEDC,$2C0002502F2DEFB1,$8090000000001D9D,$0010120000000000
Data.q $70007A0240000000,$A7CB57CFD8D446C0,$B76010063972C007,$9D76FF7C3E003D5A,$6FF33547DDD5699D
Data.q $C0001E87AFDA3AD2,$090000000001D9D2,$0101200000000008,$0007A02400000000,$D79F547CCD54647B
Data.q $017F6737CB55BB5A,$A3800F446D7601BD,$FA3AC12B8A35CDA3,$BEDC007AB54C0002,$BFE351D6ED9D5EF5
Data.q $0007674B00007A09,$0000002024000000,$0000000004048000,$2D56B01C001E8090,$AA5FF5A8007BB6FD
Data.q $D447FDEA88BFD6A8,$88DA7E01FDEA17FA,$7D8D51FA75BD001E,$0F4A6CEBD76BCDCB,$00000000ECE96000
Data.q $9000000000040480,$D012000000000080,$3ADEC09AA2848003,$88D52CB5D6FAE8FD,$D6AEFFC6AFD7001E
Data.q $E2EFE3D4F5EDE01F,$007A08C0BFB7B6FB,$0000000001D82300,$0120000000000809,$7E397DBFC42C0025
Data.q $C5D0B6F9BDFA6AFE,$D760232DEFDF6C46,$EF5B5A5FB008031C,$004A2DFEADCE6DB7,$164A216000EC1180
Data.q $2C00045CC0000005,$024E600000000084,$000F404800000000,$BF08E7B04EAB580E,$7E7225D465BF1A9E
Data.q $408E7A696004018E,$00000765E80003D4,$0000000020240000,$9000000000040480,$08FA2346F0001E80
Data.q $9EAD1405FA7A0870,$D7EF2FBDCA300001,$00000001D8F9C019,$2000000000080900,$2024000000000101
Data.q $B468EC1A9400E000,$068FF5A946B6D744,$000000117EC00000,$0000000002024000,$EACFC42C8031C048
Data.q $3F55B2FB36CF41F8,$6BADDACF7EAB6232,$FAC75AFDA39EAA59,$0F1D695C6BC51D1D,$EB4D80033A95EEF8
Data.q $75B3C9EA6CEBCF17,$0ECBD0200C719D9D,$0000404800000000,$0000000809000000,$44ADE0003D012000
Data.q $2C037A039EADDDF5,$FFC6AFD7001E88D5,$799D56B2581FD6AE,$3EBAD16D73D5DDF4,$CEB4FDBFD7E35AD2
Data.q $F1B3ADDF9F57CBF6,$01E8CECEA6FC3C1E,$0000000003B2F400,$0240000000001012,$0F40480000000002
Data.q $52D7BEC6A7AA1600,$3D11B5D80CF5F7EA,$6B04AE35E28E8E00,$3E9EB4FC00037A14,$001EBC77E7324B02
Data.q $40000000007608C0,$4048000000000202,$01E8090000000000,$D2D6F7C1D4F542C0,$BFD357BBA88FD747
Data.q $FE357EB800F4466F,$0007A48C00FEB577,$90000000001D8230,$5012000000000080,$4A7E60012942C002
Data.q $B4FDBFD7E9960000,$B3ADDF9F57CBF6CE,$38000823000094F1,$7A3588CB40013D60,$7470004465B60C09
Data.q $0C10A3582571AF14,$DEFADFBF9D164B00,$5AEB7D73DFD59D6A,$128230000126C001,$0000404800000000
Data.q $00E0012809000000,$A23001E9EF996EF4,$07A0E605FD04605C,$DB6C1D95697EC000,$D823000095E3BE2E
Data.q $0008090000000001,$0000010120000000,$A47B0007A0240000,$FA5ADEFAE7BF4EB7,$8E0E6003D0F46B11
Data.q $8C0001E85F600401,$2024000000000760,$0004048000000000,$3D80008090000000,$A3AD6A51A3E0EA52
Data.q $CDE3D108C65B5D11,$EB52B5D832BC7A29,$00011A5800000D1F,$0000002024000000,$0000000004048000
Data.q $5357BBE397E5C090,$BFAEAB755D56BA58,$C1F7BDDAD11EFAF7,$7C7FED9E6EAEAD52,$ABABF5D32D9D66EB
Data.q $CECEA57BBD5A9B3A,$F2799D9D79E2FD67,$EC73E8AF30675D6C,$B4B73F7D6BBECC33,$6767537E1E0FF33E
Data.q $C7CE00CEBF797DEE,$004048000000000E,$0000080900000000,$9858003D01200000,$AE639787FC72F37F
Data.q $C7CF0E000F42FD3A,$EF5BEDD4D9D71C1F,$345FD3F544F9D9D5,$E833ADBECFD74C6A,$ABF07CEE28D9F513
Data.q $93AA2003DBD33B3A,$7AD6A6CEA8F8793E,$E8800F46AB05B003,$0EC9CC0001E85EF3,$00004FEA5FE61600
Data.q $436530B000124600,$180000014D5EDFCA,$BE6DB3D50B000946,$FD36EF7D747DEB77,$B5A336B9CCB46B11
Data.q $AD9EFE2E8EAF32B6,$CE7EF5B476CFE34F,$A6CEAF70FF4F8012,$18F7B1323A3DCF5A,$52DED71F1D68A5AC
Data.q $3EC54EBCF4DEF9BE,$67EEE2A75E2356BE,$F700251199D9D71F,$8AF1E8A9B3A93CBE,$40C978BD3F59F3D6
Data.q $D9FBB8452ADD77F4,$ED0EA6FEE5367527,$0003B273000094FE,$0000001012000000,$334A160002024000
Data.q $6000F49180000040,$CC7AD5EFD3A88C8F,$4B001EB7DC47B59E,$7A8F55A3DDDF5BD5,$E003D177DFF378F2
Data.q $9FB6BABEAB5C46F8,$D3AF1BDE7A3DFEF5,$6003DDB62A75E8A6,$8E3C9C9AF44DEF17,$DC47BF88DF1C257B
Data.q $C0001E9FDEBED4DF,$090000000001D82E,$0101200000000008,$6000202400000000,$B442319EF8DA948F
Data.q $D7A3BCFF26A5196E,$0004A60000003588,$0000008090000000,$0000000010120000,$8D76DA1200020240
Data.q $00000077A043D47D,$1200000000008C5C,$0202400000000010,$6E46397BBFC0F600,$F0125EBFD8B68FD3
Data.q $DD11AD78F45398C3,$0023E70000001973,$000004FEADFC0F60,$000203D800096DE0,$07B000128B800000
Data.q $0029ABEBF8E5E5FE,$DDF1CBF2E56F0000,$D79FDFD4A9B029AB,$56D764C79EFC9AA8,$FB3F59EDB3A9DF57
Data.q $9D71C1FC7CCECEB6,$CF9D9D5EF5BEDD4D,$1FE9F33B3AF3C5FA,$8EAFB9EB54D9D5EE,$DB3AAB6BABC33F36
Data.q $9F5A9B3AEBA7EB2F,$3AF3D37BD1EF7FC6,$8A9D788D5AF8FB15,$EF5667675C7D9FBB,$9BF0F079F3B3A95E
Data.q $9B3A93CBEF733B3A,$7E2CFD646FDFC5DA,$7F7059F1975756FD,$527D9FBBBFBAD317,$BED9FC7CCFAD5367
Data.q $00000763E700675F,$0000000020240000,$9000000000040480,$FCCD56801C001E80,$96FCCFD357C9CE52
Data.q $99001E9EB32003D4,$413BFE72C007A52D,$000760BB00007A46,$0000002024000000,$0000000004048000
Data.q $7D11BDF0001E8090,$7BC67BD467FAD404,$F001ECE7D4339E8F,$3F0DC755B4C6A345,$D55F83E77377F5A5
Data.q $F9F57C007B3999D9,$9E283BFA2A6CEAEF,$D7C69FAC8F73CE34,$FABFE273ADD77F46,$DEA9BFB94D9D6EFC
Data.q $1ECC7AD1F75BF673,$764E60000F4FEE23,$0002024000000000,$0000004048000000,$F4C30001E8090000
Data.q $6AB410E077D011F6,$D7B7B3ACDD6F8F99,$73EFF9BC793D47AA,$B88B85DBA9E800F6,$01ECE6676755757E
Data.q $EFDB8AF1F3637C70,$83AAD2F73D4F7FC7,$7E3C9CBDE6F5F07F,$11EFE237C7536754,$F16BAB7F7BD537F7
Data.q $3FBADDBDF4423EFB,$000003B05D80003D,$0000000010120000,$6C468DE0004A0240,$01196F663D15EFD3
Data.q $B6B42300256872DB,$191FEEDDE94FC2EE,$6CEA8FC3E7700251,$A676754FE1FE2FBC,$0002529BFBBB0B77
Data.q $4000000000767E70,$4048000000000202,$0008090000000000,$D4A3EBFFBD4A7160,$A3B6035A25A347FA
Data.q $5CF455F63EBEAFD4,$336F1E7A28FB1EE6,$0000000009798000,$2400000000010120,$2E04800000000020
Data.q $D317029ABDDF1CBF,$FF5CF7DFD56FC9AA,$9DF57569767F7AA6,$DD3F9F15BE3A9B3A,$F9BC7938BA4F3A23
Data.q $B753675C707F1FEF,$567C43906757BD6F,$CF88DF1D4D9D49FA,$D3D4F7FC7EFDBF83,$3D4D9D79E2FD60A7
Data.q $77B1CF7A5EF37AF8,$BF16BAB7F7BD537F,$BBFBADDBDF4423EF,$9D7AD5367527D9FB,$1F38033AFDF6CFE2
Data.q $010120000000003B,$0000202400000000,$378000F404800000,$7601BD36DFEBADEA,$5E37AAD0C3800F4D
Data.q $D001E9EA6FE7673A,$6FF8B3F5B6DDFBFA,$EE1EF55ABE75757D,$B00007A7F75A62EF,$024000000000760B
Data.q $0940480000000002,$A3DEFD36C46ECC00,$D3E187002516D904,$DF67EB5367517E3F,$7F77673EB56ED9D6
Data.q $C0094F41F8CEA773,$B0000948C8B9CA72,$024000000000760B,$0040480000000002,$0001E80900000000
Data.q $7B526A8FC7AA8CC3,$CDAAD1E706B11ED7,$F9DAEAF7AFC51D5E,$FD7E7B6003D2A58F,$FF9F57D4D9D7DFDB
Data.q $693E06C75AA6CEAE,$D3EBBFBD6915F71C,$FDD6822F56DFBFCD,$6FEF396003D3D665,$29B3ADDF9F57ED7C
Data.q $3EEB5ECC7BD537F7,$01E9FDC463D98F5A,$000000000EC9CC00,$0900000000004048,$3D01200000000008
Data.q $5ACDF8FAAD7BE000,$52FEFD531E7A71BE,$8E003D5A187001E9,$D7E3F7EDD7EFC46F,$3F49D5691BBB55BB
Data.q $0BCF7A3D5EB37AF8,$CE5800F4F536003D,$DC6F8EA6CEA8FBFB,$7F7BD537F729B3AC,$D6EDEFA2BDC3DF3D
Data.q $001D82EC0001E9FD,$0000008090000000,$0000000010120000,$BBA95EF800020240,$D4A32BC7A29CC68F
Data.q $E968CAEBA23EBF8E,$D1A3746A55E816B9,$7DE8BDD832FDFA23,$108C65FBF447A329,$18CBF7E88F465BAD
Data.q $97EFD11E8CB75A21,$0000000008C5C001,$2400000000010120,$0404800000000020,$A251FD3AA256F000
Data.q $B9E968CAF1E8FDFA,$B3F58F3832BC7A36,$EBA78F1A7A71E36F,$000020DB0000018D,$0000000404800000
Data.q $9CCADE0000809000,$95E3D1FBEDA3E65B,$EB2D006578F44231,$32FDFA23D1C3CF17,$F447A3297DE8BDD8
Data.q $8F465BAD108C65FB,$8CB75A2118CBF7E8,$08C5C00197EFD11E,$0001012000000000,$0000002024000000
Data.q $BDDF1CBF2E048000,$F51FAB55A7FB029A,$EFABAB4DBFD75007,$C3EFE2E8EAD4D9D4,$E0FE3F03A3CDE3C9
Data.q $CEAF7ADF6EA6CEB8,$6D9E4FBBB5496B76,$A9B3A93CBEF77EBE,$48C968E56DB8FBD6,$BB6755757EBF7DEB
Data.q $83CF6D9D4AF77AB5,$BFBFE599D9D4DF87,$FB8FBC85ABA071F1,$D4D9D66E37C77F7A,$7AED1D1DF77CDAEA
Data.q $ECFDDD4D9D51F8F2,$9FC4DDFD6A9B3A93,$00763E700675FBED,$0000020240000000,$0000000040480000
Data.q $AA256F0001E80900,$D77AEBFF2E791EE3,$7C007BD2CD9FEF56,$DB55AA6CEA2FC7FA,$CDFDDFD2D5697ECE
Data.q $E3001E9E9EDB3A9D,$2EC0001E9FA1B7BE,$08090000000001D8,$0001012000000000,$CC0007A024000000
Data.q $B5B526A7BF1EB7AE,$023E85B5CF46B476,$AF7D4757A56A8873,$DE97A673CDE3C9F5,$4D9D7DFDBFD7E003
Data.q $FD6A6CEAEFF9F57D,$B7F867454D9D79E2,$CFCDD3EB1771E744,$E234DBFB8117AB7C,$AF396003D3D4E6FE
Data.q $B3ADDF9F57ED7C5F,$8D56BFBAD537F729,$C463D98F5A3EEB7D,$000EC9CC0001E9FD,$0000004048000000
Data.q $0000000008090000,$FEB53D20003D0120,$558DF1D4C007A4DB,$AD3E7E3F7EDD4D9D,$D7C1F90EAB48D8DA
Data.q $BFB85A6BD1E0F59B,$CB001EF4B7F73D4D,$8DF1D4D9D51EFD79,$EF7AA6FEE536759B,$FA8847DF7E2D756F
Data.q $1760000F4FEEB408,$04048000000000EC,$0000809000000000,$BA25A34777B65766,$9B60CAEBA24477B6
Data.q $1C34F4E31B6971CA,$FD11E8D1B02D9599,$23D196EB4423197E,$A32DD6884632FDFA,$EF3D106465FBF447
Data.q $D108C65FBF447A32,$118CBF7E88F465BA,$197EFD11E8CB75A2,$00000000008C5C00,$0240000000001012
Data.q $0040480000000002,$291197E3D5133B00,$0002EBBCE33DE0F5,$2000000000085900,$2024000000000101
Data.q $0004048000000000,$EAF477BF46A8BB30,$D6D1834DF6BA2359,$323869E9C78DBECF,$EFD11E8E1E78BF58
Data.q $A23D196EB4423197,$7A32DD6884632FDF,$2EF3D106465FBF44,$AD108C65FBF447A3,$2118CBF7E88F465B
Data.q $0197EFD11E8CB75A,$200000000008C5C0,$2024000000000101,$BF2E048000000000,$A8ED87029ABDDF1C
Data.q $6753BEAEAC5F64FE,$E0FE3EEBC03FA553,$CEAF7ADF6EA6CEB8,$4D9D7DFDBFD7EB76,$E169AF45B6E39EB5
Data.q $FE7D5F7F75A7CEFE,$A9BF0F079EDB3ABB,$A9B3A93CBEF733B3,$5D5A9B3AEB7EBCE5,$1DFDEBED6ED9D55D
Data.q $F36BAB536759B8DF,$3C9CBDE6E9FAF7DD,$A4FB3F775367547E,$A9B3A95EEF56A6CE,$C7CE00CEBF7DB3F8
Data.q $004048000000000E,$8001280900000000,$9C7C75BFADB3D6BD,$4F8012A43AA580D2,$8EB6B54D9D45F8FF
Data.q $B9BFBBD59F5A5FB3,$68E00253D3DB6753,$1D93600004A6C3D3,$0000809000000000,$0000001012000000
Data.q $AD7A40007A024000,$EC08FAB1B53D001E,$5D31C6F5C007AB5A,$AF3C5FACB9D31AAD,$D26F4F3FB6D10E33
Data.q $F3EB614C75A003D3,$6A8A3EDCDC71A4FA,$EB7F77E6E9F58BD5,$53675BBF3EAFBD98,$0007A7F711BF5E23
Data.q $20000000003B26C0,$2024000000000101,$00F4048000000000,$3D5AD76003D00600,$1CAFD9F3E28E8E00
Data.q $ECE7B96A52D9EFC5,$EAE5BFBA39E23019,$BF05AE237C7001E9,$DEE7F4B4F7FC7EFD,$6BE6F5F07919F5A3
Data.q $788FD8D56F61AAD5,$CC80003D3FBCE6FD,$04048000000000EC,$0000809000000000,$680003D012000000
Data.q $77DCC19E6FF5D568,$65AAD117023E8B6D,$A43806F4F6BAD56E,$77001E88DF0E67BA,$1FE2F9F2CEA8FC3E
Data.q $E7EC6B7A676754FE,$40001E9FDC46FD7C,$0240000000007666,$0040480000000002,$8000080900000000
Data.q $622E0FAFE675281D,$9C70EBA78F1A7A7D,$E77F2FE78E1B7E9E,$0000068EE3CE51F5,$09000000000045FB
Data.q $7F81200000000008,$1F805357F7FC72FD,$68CAEBA244634BFB,$C0C8E563F9FD59F9,$FA7A775E5AE88D68
Data.q $A74BE5D9FA5C7097,$E7FA5C6D7F39797F,$F7F8C6E9DFFF3F97,$DFFCBCBFA5D9FF3F,$7FA5F2E97AFE3C7F
Data.q $FDBFD7F1F5F3F97A,$78C6D3FF3FE9D2F5,$DF6C15DEB1FFE7E7,$A3CCECEA7FFBFFD3,$45FAB15B3479B5FF
Data.q $E0F778BFBBE61C7C,$4F8E7A278CA5DB3F,$7FC7FEB56BE6F7FF,$EAE3E22FD5A9B3AC,$FF3BDFDE737EBC46
Data.q $AFA3DF2847DF7E29,$EAF7E7FDDFDFDD6B,$27ED9FC53AF5AA6C,$000000763E700675,$0000000002024000
Data.q $0900000000004048,$7805357BBE397E5C,$5F216B36FC63AD5B,$8E1F6B9CDFEC7119,$BF147575D6B8D5D5
Data.q $74733B3AAB6BAB4E,$71BBC6B5A571AF14,$D4DF8783C36C2DDD,$54D9D49E5F7B99D9,$0F46B3F5A983EFEB
Data.q $AFB0BB17DF9BAB85,$AA6CEA4FB3F777F7,$19D7EFB67F1A1DF5,$0000000001D8F9C0,$0120000000000809
Data.q $07A0240000000001,$17E80BFA2370B000,$805F5100DE9EBAF0,$4B6C00BE8037A7A2,$4D9D51F0F27D2754
Data.q $822F56A461B36AB5,$00F4A6CEAAFC1F3B,$000000000764E600,$0480000000002024,$1E80900000000004
Data.q $F547E9D6F5C2C000,$D45D7811F435ADFE,$06F4F4500BEA201B,$0DB0037A1402FA88,$F7A3960CEBCF17EB
Data.q $003B0460000F4FFB,$0000010120000000,$43600004A0240000,$29CB01A511FEB6CF,$46064BB90002502F
Data.q $BFB865FAF9CE4DFC,$00007608C0002516,$0000000202400000,$0000000000404800,$D7A5981C0001E809
Data.q $D62378FBD98F47DE,$1BD3D1402FA8BF38,$70000DE8500BEA20,$0001D82300007A3E,$0000000809000000
Data.q $0000000001012000,$DD4F58900007A024,$9FDFADDB017EA8FC,$2FA8806F4F41CFB3,$01E8F9C00037A140
Data.q $0000000007608C00,$0480000000002024,$1E80900000000004,$61FE9D6732E70000,$9B8A017D44037A89
Data.q $00007A5367597EB7,$27A9B3AF3C5FAD59,$A0000F467675D6CF,$8090000000001D97,$0010120000000000
Data.q $00007A0240000000,$7F567DB7FAEAB589,$402FA8A6DFDFA5AF,$3AE3FDFB700DEAD1,$0EC1180003D0A003
Data.q $0000404800000000,$B800012809000000,$E7BEBA2282329E90,$C8ED77A004A7A2DA,$A89680D2AD623588
Data.q $870067556D756064,$00003B04607F76CB,$0000000101200000,$8000000000202400,$048000000000F404
Data.q $04048000000000EC,$0000809000000000,$0000001012000000,$0000000002024000,$0900000000004048
Data.q $0101200000000008,$0000202400000000,$0000000404800000,$0000000000809000,$0240000000001012
Data.q $0040480000000002,$0000080900000000,$0000000101200000,$8000000000202400,$8090000000000404
Data.q $0010120000000000,$0000020240000000,$0000000040480000,$2000000000080900,$2024000000000101
Data.q $0004048000000000,$0000008090000000,$0000000010120000,$4800000000020240,$0809000000000040
Data.q $0001012000000000,$0000002024000000,$0000000004048000,$1200000000008090,$0202400000000010
Data.q $0000404800000000,$0000000809000000,$0000000001012000,$0480000000002024,$0080900000000004
Data.q $0000101200000000,$0000000202400000,$0000000000404800,$0120000000000809,$0020240000000001
Data.q $0000040480000000,$0000000080900000,$4000000000101200,$4048000000000202,$0008090000000000
Data.q $0000010120000000,$0000000020240000,$9000000000040480,$1012000000000080,$0002024000000000
Data.q $0000004048000000,$0000000008090000,$2400000000010120,$0404800000000020,$0000809000000000
Data.q $0000001012000000,$0000000002024000,$0900000000004048,$0101200000000008,$0000202400000000
Data.q $0000000404800000,$0000000000809000,$0240000000001012,$0040480000000002,$0000080900000000
Data.q $0000000101200000,$8000000000202400,$8090000000000404,$0010120000000000,$0000020240000000
Data.q $0000000040480000,$2000000000080900,$2024000000000101,$0004048000000000,$0000008090000000
Data.q $0000000010120000,$4800000000020240,$0809000000000040,$0001012000000000,$0000002024000000
Data.q $0000000004048000,$1200000000008090,$0202400000000010,$0000404800000000,$0000000809000000
Data.q $0000000001012000,$0480000000002024,$0080900000000004,$0000101200000000,$0000000202400000
Data.q $0000000000404800,$0120000000000809,$0020240000000001,$0000040480000000,$0000000080900000
Data.q $4000000000101200,$4048000000000202,$0008090000000000,$0000010120000000,$0000000020240000
Data.q $9000000000040480,$1012000000000080,$0002024000000000,$0000004048000000,$0000000008090000
Data.q $2400000000010120,$0404800000000020,$0000809000000000,$0000001012000000,$0000000002024000
Data.q $0900000000004048,$0101200000000008,$0000202400000000,$0000000404800000,$0000000000809000
Data.q $0240000000001012,$0040480000000002,$0000080900000000,$0000000101200000,$8000000000202400
Data.q $8090000000000404,$0010120000000000,$0000020240000000,$0000000040480000,$2000000000080900
Data.q $2024000000000101,$0004048000000000,$0000008090000000,$0000000010120000,$4800000000020240
Data.q $0809000000000040,$0001012000000000,$0000002024000000,$0000000004048000,$1200000000008090
Data.q $0202400000000010,$0000404800000000,$0000000809000000,$0000000001012000,$0480000000002024
Data.q $0080900000000004,$0000101200000000,$0000000202400000,$0000000000404800,$E0E0000000000809
Data.q $40715101FFF4BA5D,$00000096F82F085F,$6042AE444E454900
Data.b $82
amigaend:
;-------------------------------------------------------------------------------------------------------------------------------------------------------------
ecran:
; size : 12057 bytes
Data.q $0A1A0A0D474E5089,$524448490D000000,$3B01000000020000,$AE4F240000000208,$475273010000005E
Data.q $0000E91CCEAE0042,$0000414D41670400,$00000561FC0B8FB1,$0000735948700900,$C701C30E0000C30E
Data.q $49AE2E000064A86F,$FBDDED5E78544144,$4A5D7DA57547A4B6,$0E64E6C08D8106CB,$74A84964846580C6
Data.q $F7FF741849092542,$E466641199F315E0,$F3948DC3323BDACE,$2A2A037C7A37C7F7,$DDBAB3B327AD77DE
Data.q $FF20FFCBF2FCBD2F,$BE45796DF25BE078,$F03E7F927F95DF23,$7F903F2FBE55793D,$FC91F81E1F957F91
Data.q $9F937F953F227E58,$FF297E42FC0FCFC9,$6FCB5F90FF92BF2E,$ED7B5E53FE56FC0E,$FEBFAF277EEAFFB5
Data.q $6F1BC6F1BD8FEFFA,$DBD6F5BD6F2DFF76,$B3CAEF0387F23BDD,$3E0F97DEEBDECF67,$DD8FEEA3EEC3E0F8
Data.q $4FBA4FF3F9FCF2C7,$CFB1D3FB3ECFB3E5,$F3F94BEE8BFCFF3F,$AFE45FDD3FFCFF9F,$84D5FFE57D5F57DD
Data.q $6D3FABB37FF164FF,$C3BFABAF3E2FCFE0,$7703E6FEA4D6BFE0,$02781DF7575BBE29,$E7E63A93F3A44FC5
Data.q $4FC5DA781DB3D5D8,$DF8A8EF03237ABBF,$D5DD37E2D9BC39D9,$6AE8F9E287981FDB,$606D26A4D18F0666
Data.q $981CF9ABB1678AF6,$EC613D33C300C2D8,$C05961476C0C22C1,$C39D8EF154EC0CFA,$FEC0EAAC13161626
Data.q $3FB5E0F82C19D616,$880748515A061646,$341B81C10A6140C9,$C42B35035C205321,$3C4DC581A06EE40D
Data.q $BEFFF0E8AA967287,$846DF7B7F52A5E3E,$1E293C2E7808F33B,$BC0778580FD34F1C,$ABC9778E6F125E15
Data.q $6E61298206170BF5,$09F4F3698B662318,$83364CC732C8CA33,$8B619D84217BF4CE,$BD1563DD8CD62A58
Data.q $6B39ECD2B302C29D,$8534216B83A8084F,$954898444A1D10C4,$B24111EA8E042603,$97042A6BA7492B48
Data.q $B9A9B84D3265D304,$F824FF9FD50F2EEB,$44E0F9FC0D3F82EF,$E6FE135AFF8077F0,$09E0BEE076E02EE0
Data.q $124F09A63F026780,$6F07F3C1B4F05B3C,$B3784DB5F823BC04,$4C01E60FB7835DE0,$1A4C268C78199808
Data.q $C4C13E608D303D98,$FC9873E99E2E1982,$C297D8076C0C22C2,$361366BC14EC0CFA,$17F607556166EC11
Data.q $31FDAF07C161746C,$4C428F500AD030B2,$73A0DC539A030A06,$7D0335035C215528,$27167081A06EE42B
Data.q $68FD2AD7FF0E1F74,$0CFD85D490BE001F,$7EFEB17727EFEA0E,$BFA83DBBF7F5074B,$FA83A39EFEA0E227
Data.q $41ECCF501ABAFA7B,$7952CFEB17E93DFD,$2C29DBD1567F54CF,$025DED67F55A77B0,$C624282AE8B5DFD5
Data.q $C0F55B9309FD51D5,$A4FEAA2EE8227F17,$FEAB06EB821535D3,$79775DFD56E5DA64,$F0FA21607F0BFA6A
Data.q $39D6BFE28D7F1D79,$71D6EF87D10BE5FC,$49F9D227E1F442E5,$E885BC78EC73F31D,$0FA214A5E3BF4FC3
Data.q $C774DF87D109B3BF,$D8C747CF0FA21400,$FA215B0C39D18F14,$60FA21688C762CF0,$26F0F6309E99E180
Data.q $108FEF02CB07D108,$262C1F4426C7787D,$1BC33AC1F442ABBC,$1F4420BB89FB5E2E,$1C107D1089AE03A4
Data.q $884B9705321341B8,$70FA213BDC1B883E,$A6E2FC38BEAE2713,$F33B8003EDFCAD7E,$4F1D9E293C2E7814
Data.q $DE15BC0778580FD3,$0BF5DBC9778E6F13,$24986E6129826617,$CA330A00F3698B66,$F4CEB3364CC732D4
Data.q $2BD88B619D84217B,$C29DBD1B63DD8CD6,$084F9B39ECD2B30E,$10CA8534218383A8,$260395489B444A1D
Data.q $2B48B241D1EA8E04,$D30497342A6BA7A9,$AF03B9A9B84D4A65,$FE0717FCFEB0BFF4,$3BF81B8E17E7F034
Data.q $9770737F09AD7FC0,$E1409E0BEE06D5C2,$038C78C74C7E0C81,$781FC3C2ED3C16CF,$7873B3BF151DE023
Data.q $3CC1F6F03D1785B3,$9A31E0666063C614,$3038A30AF6606930,$F4CF0C030B62609F,$851DB0308B07B184
Data.q $3BC553B033EB0165,$AAB04C58589B0E76,$83E0B067585BFB03,$214568185918FED7,$070429850326201D
Data.q $D40D70814C84D06E,$160681BB903710AC,$3F4FF5FFC3967892,$FD5033F6770007DA,$701FBFAA727E5279
Data.q $FAA4B7E2B780EF57,$CFE2F81F6EFD2EF3,$E9E6D316CC4630DC,$6C998E6591946613,$C33B0842F7E99D06
Data.q $2AC7BB19AC54B116,$73D9A56605853B7A,$6842D70750109ED6,$913088943A21890A,$8223D51C084C072A
Data.q $0854D74E92569164,$53709A64CBA6092E,$A5E07FC5F25DD773,$59BC26DAFC11DE14,$600F30A00607AEF0
Data.q $61CE8C78A6C60642,$446071A607B30AD8,$CFA678B8660B130B,$601DB0308B0BF261,$9AF053B033EB0A5F
Data.q $1D55859BB044D84D,$BCEEF5E2FDD05FD8,$EE80568E851CC7F6,$C5FBA030A3A4A717,$A3AB6717EE873A01
Data.q $2068EBB1C5FBA066,$D7FF0E2FC389FA5C,$F9067E001F68FD39,$FBA14F9BFD1BE7CD,$D9BFE035FC75E7C5
Data.q $3ADDF17EE83CBF84,$3F3A44FC5FBA0CAE,$74178F1D8E7E63A9,$FDD014BC77E9F8BF,$D37E2FDD0E7677E2
Data.q $1D1F3C5FBA00031D,$DD036184D24F0363,$2FDD05118EC59E2F,$DE1EC613D33C300C,$9FDE059617EE8E84
Data.q $BF7439D8EF17EE8E,$B0BF7476AEF098B0,$EE63FCDE7786F0CE,$D26B80E90BF74742,$C84D06E07042FDD1
Data.q $06E217EE8EAE5C14,$FF8BE9EFF873AEF7,$078A4F0B9E000FE0,$6F01DE1603F4D3C7,$6AF25DE39BC49785
Data.q $1B984A608185C2FD,$C27D3CDA62D988C6,$A0CD9331CCB2328C,$22D86761085EFD33,$6F4558F763358A96
Data.q $DACE7B34ACC0B0A7,$214D085AE0EA0213,$E552261112874431,$2C90447AA3810980,$25C10A9AE9D24AD2
Data.q $EE6A6E134C9974C1,$0FE7853E6FF7DFC0,$F09B6BF0477808DE,$03CC1F6F06BBC166,$984D18F033301098
Data.q $827CC11A607B3034,$30E7D33C5C330589,$2FB00ED8184585F9,$26CD7829D819F585,$EC0EAAC2CDD8226C
Data.q $FB5E0F82C2E8D82F,$851EA015A0616463,$41B8A73406140C98,$066A06B842AA50E7,$4B8BF0E0FE2856FA
Data.q $A446FFE1C5F8713F,$C98F0B9EA003ED1F,$8B66A53E6FDB6E4F,$5599EA0309F4F351,$6DEFEABA4F6B19FD
Data.q $358A962158676AE8,$C0B0A76F4558F163,$D20213DACE4B34AC,$8744312141085AE0,$810980E55226110C
Data.q $D24AD22C90447AA3,$9974C125C10A9AE9,$35CBBAEE6A6E134C,$7F0389C1F3F9FC5F,$0BE5FC39D6BFE28D
Data.q $09E172B81BB70177,$49E31D49F8326780,$7FCF06D3C2DE3C0E,$26DAFC11DE14A5E0,$30A00607AEF059BC
Data.q $8C78A6C60642600F,$71A607B30AD861CE,$CF0FBA0B130B4460,$076C209BC3EE84F4,$6BC14EC23FBC3EE8
Data.q $155DE1F741136136,$DAF170DE1F7417F6,$70FBA015A105DC4F,$9A0DC3EE80C2844D,$F740CD425CB87DD0
Data.q $C4FD2E2FAB8BEAE1,$846FCEDC5F8717D5,$34F1D9E293C001F6,$3DE15BC0778580FD,$70BF5DBC9778E6F1
Data.q $624986E612982661,$4CA330A00F3698B6,$BF4CEB3364CC732D,$CA96A8B619D84217,$0B5766AF7F50764B
Data.q $B17033BFA83E85EC,$07AA1DFD41CE4EFE,$A0F147411529F37E,$0F8075C157694EFE,$FFEFE2FB9F6CEFEA
Data.q $A3B37FF164FF84D5,$FBA3AF3E2FCFE0FB,$8A5DC1F7426B5FF0,$9F8A04F07DD1D6EF,$A3B1CFCC7527E748
Data.q $EE8EFD3F1769E0FB,$CDE1CECEFC547783,$287983EE8EE9BF16,$A13463C3EE8E8F9E,$FBA3B1678AF660FB
Data.q $84F4CF0C030B6260,$65851DB0308B07B1,$763BC553B033EB01,$03AAB04C58589B0E,$D783E0B067585BFB
Data.q $1D214568185918FE,$6E07042985032620,$ACD40D70814C84D0,$5DFF0E77EAE2FAB8,$E0F0007DA273E6FE
Data.q $ADE03BC2C07E9A78,$AD5E4BBC737892F0,$C373094C1030B85F,$984FA79B4C5B3118,$7419B26639964651
Data.q $C45B0CEC210BDFA6,$EDE8AB1EEC66B152,$7B59CF6695981614,$2429A10B5C1D4042,$1CAA44C22250E886
Data.q $4592088F54702130,$24B821535D3A495A,$5DCD4DC269932E98,$F034FE7F17EA7977,$6BFE01DFC11383E7
Data.q $81DB80BB839BF84D,$98FC099E002782FB,$06D3C16CF0493C26,$D7E08EF011BC1FCF,$3EDE0D7782CDE136
Data.q $31E0666021300798,$8234C0F66069309A,$A678B8660B1304F9,$1DB0308B0BF261CF,$F053B033EB0A5F60
Data.q $55859BB044D84D9A,$1F0585D1B05FD81D,$402B40C2C8C7F6BC,$4E680C2819310A3D,$0D708554A1CE8371
Data.q $45E7CDF9FC38BF0E,$5E1603F503C001FC,$EF63FCA5BF12BD43,$5E7C3E897B1FE4D7,$7F0E75AFF8A35FC7
Data.q $B95C75BBE1F442F9,$C7527E7489F87D10,$F0FA216F1E3B1CFC,$EFC3E8852978EFD3,$0031DD37E1F4426C
Data.q $C53631D1F3C3E885,$3C3E8856C30E7463,$60183E885A231D8B,$4209BC3D8C27A678,$1F4423FBC0B2C1F4
Data.q $EF098B07D109B1DE,$8B86F0CEB07D10AA,$E907D1082EE27ED7,$6E07041F44226B80,$7F0E0FE8814C84D0
Data.q $A7A800FB513FF8BE,$EF0ADE03BC2C07E9,$85FAEDE4BBC73789,$124C373094C1330B,$6519850079B4C5B3
Data.q $FA67599B2663996A,$15EC45B0CEC210BD,$614EDE8DB1EEC66B,$0427CD9CF6695987,$8865429A10C1C1D4
Data.q $1301CAA44DA2250E,$95A45920E8F54702,$E9824B9A1535D3D4,$BF81DCD4DC26A532,$11BC0FE1E5EC7FEF
Data.q $D9BC39D9DF8A8EF0,$0A1E60FB781E8BC2,$984D18F0333031E3,$4F981C51857B3034,$C27A67860185B130
Data.q $B2C28ED8184583D8,$3B1DE2A9D819F580,$81D558262C2C4D87,$6BC1F05833AC2DFD,$0E90A2B40C2C8C7F
Data.q $37038214C2819310,$FF0E77E4E1F44268,$2FC389FA5C5FD2E3,$001F68FD3A37FF0E,$B7E2B780EF52C67E
Data.q $1EA8E0403DEC7F94,$A6BA7492B48B2411,$84D3265D30497042,$03FE2F92EEBB9A9B,$E136D7E08EF0A52F
Data.q $798500303D7782CD,$7463C53630321300,$038D303D9856C30E,$81E2FDD058985A23,$76C741AF17EE873E
Data.q $C14EC74F2F17EE80,$178BF7411361366B,$BBD78BF7417F63B5,$015A3A14731FDAF3,$EE80C28E929C5FBA
Data.q $F9BF3F871CE80717,$6F035E000FB7F06C,$76F25DE3CBC4F785,$1B9850609985CEFD,$C2803CDA62F18926
Data.q $ACCD93328CB5328C,$A2D86D61085E00B3,$A3B7B1FE592F2A5A,$FBA3AF3E2FCFE0FB,$8A5DC1F7426B5FF0
Data.q $9F8A04F07DD1D6EF,$A3B1CFCC7527E748,$EE8EFD3F1769E0FB,$CDE1CECEFC547783,$287983EE8EE9BF16
Data.q $A13463C3EE8E8F9E,$FBA3B1678AF660FB,$84F4CF0C030B6260,$65851DB0308B07B1,$763BC553B033EB01
Data.q $03AAB04C58589B0E,$D783E0B067585BFB,$1D214568185918FE,$2407042985032620,$FC39DFAB8BF0E668
Data.q $778003ED3AE7CDF9,$9778E6F125E15BC0,$1298206170BF5ABC,$4F3698B6623186E6,$64CC732C8CA3309F
Data.q $19D84217BF4CE833,$563DD8CD62A588B6,$9ECD2B302C29DBD1,$4216B83A8084F6B3,$898444A1D10C4853
Data.q $111EA8E042603954,$42A6BA7492B48B24,$9B84D3265D304970,$FCFE2FD4F2EEBB9A,$03BF822707CFE069
Data.q $01770737F09AD7FC,$133C004F05F703B7,$82D9E092784D31F8,$1DE023783F9E0DA7,$1AEF059BC26DAFC1
Data.q $CCC042600F307DBC,$81ECC0D2613463C0,$70CC162609F30469,$611617E4C39F4CF1,$6067D614BEC03B60
Data.q $376089B09B35E0A7,$0BA360BFB03AAB0B,$8185918FED783E0B,$18503262147A8056,$E7F0E39FD2E29CD0
Data.q $E257A800FE4EFF8B,$BD8FF6DDEC7F94B7,$F033E6FC9775DCA4,$E884D9DF87D10A52,$87D10A0063BA6FC3
Data.q $1CE8C78A6C63A3E7,$463B16787D10AD86,$4F4CF0C0307D10B4,$6583E88413787B18,$1363BC3E8847F781
Data.q $FA2155DE13160FA2,$C4FDAF170DE19D60,$44D701D20FA2105D,$C389FA5C3EE83E88,$8BF0E2FAB8BEAE2F
Data.q $5713F4B8BEAE2FAB,$FB49EF14717E1C5F,$F1CDE27BC2B7A800,$304CC2E17EBB792E,$6D316CC4930DCC25
Data.q $98E65A994661401E,$B0842F7E99D666C9,$BF2C97952D516C33,$E7C5F9FC1F7474F9,$3EE84D6BFE1F7475
Data.q $9E0FBA3ADDF14BB8,$F98EA4FCE913F140,$A7E2ED3C1F747639,$D9DF8A8EF07DD1DF,$7DD1DD37E2D9BC39
Data.q $787DD1D1F3C50F30,$2CF15ECC1F74268C,$E180616C4C1F7476,$B6061160F6309E99,$AA76067D602CB0A3
Data.q $098B0B1361CEC778,$160CEB0B7F607556,$AD030B231FDAF07C,$C5FBA064C403A428,$AB8BEAE27E9717D5
Data.q $DAA6E7CDF9FC39DF,$92EF1CDE24BD4007,$C253040C2E17EB57,$E9E6D316CC4630DC,$6C998E6591946613
Data.q $C33B0842F7E99D06,$2AC7BB19AC54B116,$73D9A56605853B7A,$6842D70750109ED6,$913088943A21890A
Data.q $8223D51C084C072A,$0854D74E92569164,$53709A64CBA6092E,$53E6FD7FFE5DD773,$70376E02EE17CBF8
Data.q $93F064CF0013C2E5,$A785BC781C93C63A,$23BC294BC0FF9E0D,$0F5DE0B3784DB5F8,$8C0C84C01E61400C
Data.q $6615B0C39D18F14D,$16261688C0E34C0F,$17E4C39F4CF170CC,$D614BEC03B606116,$89B09B35E0A76067
Data.q $60BFB03AAB0B3760,$918FED783E0B0BA3,$3F8A147A80568185,$BF9F37E7F0E2FC38,$D22F57978003ED33
Data.q $9F37E8DCF9BF36EF,$0CF9BF25DD772952,$0E7677E1F44294BC,$BA00031DD37E2FDD,$D24F03631D1F3C5F
Data.q $8EC59E2FDD036184,$D33C300C2FDD0511,$17EE8E84DE1EC613,$EF17EE8E9FDE0596,$AEF098B0BF7439D8
Data.q $7786F0CEB0BF7476,$0BF74742EE63FCDE,$E2F9FC39DFAB80E9,$792EF0007DADF7FF,$CC253040C2E17EB5
Data.q $3E9E6D316CC4630D,$66C998E659194661,$6C33B0842F7E99D0,$A2AC7BB19AC54B11,$673D9A56605853B7
Data.q $A6842D70750109ED,$A913688943A21950,$483A3D51C084C072,$E6854D74F5256916,$353709A94CBA6092
Data.q $FF9FD617FE95E077,$71C2FCFE069FC0E2,$6FE135AFF8077F03,$C17DC0DAB852EE0E,$18E98FC1903C2813
Data.q $785DA782D9E0718F,$77E2A3BC046F03F8,$DE07A2F0B66F0E76,$E06660213007983E,$34C0F66069309A31
Data.q $78B8660B1304F982,$B0308B0BF261CFA6,$53B033EB0A5F601D,$859BB044D84D9AF0,$0585D1B05FD81D55
Data.q $2B40C2C8C7F6BC1F,$FB59D7FF8BE7F0E0,$433F8BE07DBBF000,$9F4F3519FD5239E3,$F6B19FD5599EA030
Data.q $8676AE86DEFEABA4,$558F163358A96215,$E4B34ACC0B0A76F4,$D085AE0EA0213DAC,$2261112874431214
Data.q $0447AA3810980E55,$10A9AE9D24AD22C9,$A6E134C9974C125C,$4BC0FF8BE4BBAEE6,$B3784DB5F823BC29
Data.q $C01E61400C0F5DE0,$C39D18F14D8C0C84,$88C0E34C0F6615B0,$CFA078BF74162616,$A01DB1D06BC5FBA1
Data.q $9AF053B1D3CBC5FB,$8557787DD044D84D,$F6BC5C3787DD05FD,$C5F8717D5C417713,$E9717E1C5F5717D5
Data.q $8BEAE2FAB8BF0E27,$D2E2FAB8BEAE2FC3,$8BF1C5F8717D5C4F,$5304CC2E17E001F1,$E6D316CC4930DCC2
Data.q $999465A994661401,$6B0842F0059D666C,$8FF2C97952D516C3,$79F17E7F07DD1DBD,$0FBA135AFF87DD1D
Data.q $2783EE8EB77C52EE,$7E63A93F3A44FC50,$E9F8BB4F07DD1D8E,$7677E2A3BC1F7477,$1F74774DF8B66F0E
Data.q $1E1F74747CF143CC,$8B3C57B307DD09A3,$7860185B1307DD1D,$ED8184583D8C27A6,$2A9D819F580B2C28
Data.q $8262C2C4D873B1DE,$05833AC2DFD81D55,$F0E0FE88C7F6BC1F,$E001F69C6F9F37E7,$D8FF29BE7CDF9E77
Data.q $DC0EDC05DC1CDFCB,$34C7E04CF0013C17,$78369E0B678249E1,$B6BF0477808DE0FE,$C1F6F06BBC166F09
Data.q $D18F03330109803C,$CC11A607B3034984,$7D33C5C330589827,$00ED8184585F930E,$D7829D819F5852FB
Data.q $EAAC2CDD8226C26C,$E0F82C2E8D82FEC0,$38BF0E77E4E63FB5,$001FC41BE7CDF9FC,$B7B1FE6F63FC889E
Data.q $78F1D8E7E63A93F3,$294BC77E9F87D10B,$BF0FA213677E1F44,$8F9E1F4428018EE9,$B61873A31E29B18E
Data.q $42D118EC59E1F442,$EC613D33C300C1F4,$DE05960FA2104DE1,$3E884D8EF0FA211F,$7583E88557784C58
Data.q $17D5CCFD685C3786,$D5C5F5717E1C5F57,$2FC389FA5C5F8717,$AB8BF0E2FAB8BEAE,$FC38E7F4B8BEAE2F
Data.q $998003ED38FFE2F9,$62D989261B984A60,$CCB5328CC2803CDA,$085EFD33ACCD9331,$63358AF622D86761
Data.q $ACC3B0A76F46D8F7,$E0EA0213E6CE7B34,$12874432A14D0860,$A3810980E55226D1,$E9EA4AD22C90747A
Data.q $529974C125CD0A9A,$7B1FE7C0EE6A6E13,$677E2A3BC046F00F,$EDE07A2F0B66F0E7,$C0CCC0C78C287983
Data.q $4615ECC0D2613463,$180616C4C13E6071,$6061160F6309E99E,$A76067D602CB0A3B,$98B0B1361CEC778A
Data.q $60CEB0B7F6075560,$39DFAB98FEC707C1,$001FCE9BE7CDF9FC,$D8FF28E78DCC2535,$4D3265D30497042B
Data.q $3FE2F92EEBB9A9B8,$136D7E08EF0A52F0,$98500303D7782CDE,$463C536303213007,$38D303D9856C30E7
Data.q $1E2FDD058985A230,$6C741AF17EE873E8,$14EC74F2F17EE807,$78BF7411361366BC,$FC50BF7417F63B51
Data.q $BF0E77E4E63FB1C1,$7DAB9BE7CDF9FC38,$E3124C3730A0D400,$6A6519850079B4C5,$BC0167599B266519
Data.q $5E54B545B0DAC210,$9FC1F7476F63FCB2,$D6BFE1F7475E7C5F,$A3ADDF14BB83EE84,$4FCE913F1409E0FB
Data.q $D3C1F747639F98EA,$A8EF07DD1DFA7E2E,$D37E2D9BC39D9DF8,$1D1F3C50F307DD1D,$ECC1F74268C787DD
Data.q $16C4C1F74762CF15,$160F6309E99E1806,$67D602CB0A3B6061,$B1361CEC778AA760,$D0B7F607556098B0
Data.q $D5CC7F7B9DFAB87D,$ED1BBFF17CFE1CEF,$98B6623186E6A003,$732C8CA3309F4F36,$4217BF4CE83364CC
Data.q $D8CD62A588B619D8,$2B302C29DBD1563D,$B83A8084F6B39ECD,$44A1D10C48534216,$A8E0426039548984
Data.q $BA7492B48B24111E,$D3265D30497042A6,$CDFB8FEEBB9A9B84,$F3F81A7F05DFF0A7,$26B5FF00EFE089C1
Data.q $7DC0EDC05DC1CDFC,$134C7E04CF0013C1,$E78369E0B678249E,$9B6BF0477808DE0F,$CC1F6F06BBC166F0
Data.q $4D18F03330109803,$7CC11A607B303498,$E7D33C5C33058982,$B00ED8184585F930,$CD7829D819F5852F
Data.q $0EAAC2CDD8226C26,$A3C7F8BE7F0E1F74,$518B66A926000FB5,$6FCD99EA0309F4F3,$F85FD353CBBAE23E
Data.q $AFE071383E7F0B03,$E17CBF873AD7FC51,$013C2E570376E02E,$C93C63A93F064CF0,$0FF9E0DA785BC781
Data.q $84DB5F823BC294BC,$E61400C0F5DE0B37,$D18F14D8C0C84C01,$0E34C0F6615B0C39,$99E1F7416261688C
Data.q $00ED8413787DD09E,$CD7829D847F787DD,$B855583EE8226C26,$FD8E2FAB8BF0E2FA,$717E1C5F5717D5C4
Data.q $FA5C5F8717D5C5F5,$E2FAB8BEAE2FC389,$F4B8BEAE2FAB8BF0,$E2D5717E1C5F5713,$79B4C5B30007DAD1
Data.q $2663996A65198500,$CEC210BDFA67599B,$E6FCB25E54B545B0,$D79F17E7F07DD1D3,$E0FBA135AFF87DD1
Data.q $02783EE8EB77C52E,$E7E63A93F3A44FC5,$7E9F8BB4F07DD1D8,$E7677E2A3BC1F747,$C1F74774DF8B66F0
Data.q $31E1F74747CF143C,$D8B3C57B307DD09A,$67860185B1307DD1,$8ED8184583D8C27A,$E2A9D819F580B2C2
Data.q $5C262C2C4D873B1D,$7B9D3E6FCFE1CEFD,$4F3698003ED44F16,$64CC732C8CA3309F,$19D84217BF4CE833
Data.q $563DD8CD62A588B6,$9ECD2B302C29DBD1,$4216B83A8084F6B3,$898444A1D10C4853,$111EA8E042603954
Data.q $42A6BA7492B48B24,$9B84D3265D304970,$1BC07CDF92EEBB9A,$2CDE136D7E08EF01,$300798500303D778
Data.q $30E7463C53630321,$A23038D303D9856C,$E7D33C5C33058985,$B00ED8184585F930,$CD7829D819F5852F
Data.q $73E6FCFE1C226C26,$4EBFE93F8717E1C0,$9EA03575F4F000FB,$9FD62FD27BFA83D9,$ED87B5FEA992F2A5
Data.q $D1EF54E258888880,$15D7F17CF7F8700E,$3B47BD5385622222,$24E5FD24E5FD24E0,$AE4B7FE7E985E5FD
Data.q $8F7AA70AC444442B,$93F8BE17FD61C076,$442BA1FA4FEA32FE,$C0768F7AA70AC444,$6F1BC7F17C2FFA72
Data.q $A70AC444442BA1BC,$7F49FD61C0768F7A,$D28797F4C3FF50B9,$22215D4DF37CDE5F,$7603B47BD5385622
Data.q $888800F9FEA7F17C,$E4E03B47BD5386B8,$FF9FA72DDFABBF8B,$70AC444442BADCA3,$FE5FF48C0768F7AA
Data.q $2A5FD30BCBFA4FE2,$222215D1EBDFFCFD,$85E03B47BD538562,$7EDFFD4FE2F85FE9,$38562222215D6DFB
Data.q $56EEFD5C03B47BD5,$10AE8EF3BCEF2FE9,$01DA3DEA9C2B1111,$ABBFA87CDFC5FF0E,$5FD27F5197F48DDF
Data.q $C444442BA2F91FF8,$FE9CC0768F7AA70A,$E97FE7FE17F8BFEB,$A3DEA9C2B111110A,$C2F2FE987FEA301D
Data.q $E87E9197F49397F4,$A3DEA9C2B111110A,$F77DDE3F8BE3B01D,$D538562222215D5D,$7B3CBFA53603B47B
Data.q $4E15888888574CF6,$FD465FD200ED1EF5,$93FA8CBFA46EFD5D,$9EF7BDEFFEA172FE,$3DEA9C2B111110AE
Data.q $7F17D5BFE98701DA,$386B8888800F9FEA,$72FE985E03B47BD5,$FE9272FE9272FE92,$11110AEBEFFBFEF2
Data.q $B9701DA3DEA9C2B1,$DFA2FFC3BF8BE3FE,$F07C1FB1FBFFC07C,$EA9C2B111110AE81,$FF4D9CBEAE01DA3D
Data.q $F48FFA8FF485FFA8,$88885750FC3F0F97,$3980ED1EF54E1588,$E5FD24E5FD24E5FD,$2215D0FD30E5FD24
Data.q $603B47BD53856222,$110AE891F2FF17C7,$B01DA3DEA9C2B111,$8562222215D0FD29,$A4FEA4E03B47BD53
Data.q $FEA32FE93FA85CBF,$47F47D1FFC38BFA4,$BD538562222215D1,$FC5F86FFA4603B47,$442BAC7F1FC7FFA9
Data.q $C0768F7AA70AC444,$FA49CBFA49CBFA61,$5FD3DFC38BFA49CB,$2215D73F9FCFFEAA,$603B47BD53856222
Data.q $88800F9FEA7F17C7,$3603B47BD5386B88,$62222215D113FFA5,$FD42E03B47BD5385,$E1C5FD27F5197F49
Data.q $F2FE93FA87CDFE3F,$B111110AEA9FA7E9,$CBEAE01DA3DEA9C2,$E5FD2BFC5F95FF48,$62222215D33ECFB3
Data.q $FA53603B47BD5385,$22215D27F4FE9FCB,$0E03B47BD5385622,$2FE93FA8CBFA4FEB,$95FEA1F37E8BFF0E
Data.q $A9C2B111110AE87E,$A0FF8BE3B01DA3DE,$8F7AA70AC444442B,$17F4C3FF17C9C076,$CBFA61FF8BF8FF87
Data.q $444442BA2E7FF4D9,$F48C0768F7AA70AC,$8BE2FFF53F8BF0DF,$54E158888885742F,$E5F2FE94D80ED1EF
Data.q $C2B111110AEA5F97,$7F49FD401DA3DEA9,$E918BD8FF89FF871,$5C4444007CFF552F,$8BE3B01DA3DEA9C3
Data.q $B111110AE8B3F97F,$7F52701DA3DEA9C2,$FE985E5FD24E5FD2,$44442BA23FFFD232,$C380768F7AA70AC4
Data.q $FEA7F17E57FD232F,$888885745FCBF97F,$94D80ED1EF54E158,$885755FEBFD7F2FE,$00ED1EF54E158888
Data.q $F5197F49FD465FD2,$4FEA32FE91BBF577,$2222003E7FA8CBFA,$4C380ED1EF54E1AE,$BEAFABE3F8BEADFF
Data.q $BD538562222215D2,$BFD54BFA47603B47,$70AC444442BABFFE,$5197F48C0768F7AA,$FEA32FE91BBF577F
Data.q $5743F49FD49CBFA4,$ED1EF54E15888888,$A0FF8BE4DFF49380,$8F7AA70AC444442B,$9272FE9CBFF50076
Data.q $222215D0FD3972FE,$FAE03B47BD538562,$BA2FF5B3FE95FE2F,$68F7AA70AC444442,$F9FA50F2FE935C07
Data.q $A9C2B111110AEA4F,$7F48CBF0E01DA3DE,$F03BA685FD27F519,$42BA2C9FF0BFA70F,$0768F7AA70AC4444
Data.q $BFEA3F8BF0DFF48C,$7AA70AC444442BA8,$FA49CBFA61C0768F,$1FA6479775DCA54B,$F7AA70AC444442BA
Data.q $FFA57F8BFE3C0768,$110AE838BFE7F585,$F01DA3DEA9C2B111,$FD47F17D2797F498,$AA70AC444442BA69
Data.q $CA54BFA49C0768F7,$8885743F4B59775D,$A00ED1EF54E15888,$BF4BF03B9A9B84D4,$85745A3EA1A7F0F9
Data.q $0ED1EF54E1588888,$BE6B9775DCD4DC20,$88885746A527EBF8,$0A80ED1EF54E1588,$E17F4E1FE0773537
Data.q $DB8BF0E0FE28593F,$AE85F17C5F97E5FF,$DA3DEA9C2B111110,$C5FA9E5DD7735501,$B07FF45F8717D5DF
Data.q $EA9CEB1111001F28,$F37E8DFC0E01DA3D,$AC444442BA1FA429,$2BE2540768F7AA70,$FC39DF93BFAC2FFD
Data.q $F9FE7CBFA71FF0E2,$AA70AC444442BAE7,$F45FE2F8EC0768F7,$EB1111001F38BF7F,$31FDEE01DA3DEA9C
Data.q $442BA0FF8BF57F87,$80768F7AA70AC444,$AB8BEAE2FC39DF93,$0BEAE2FAB8BF0E2F,$5888888574E633FF
Data.q $6FF8700ED1EF54E1,$2215D0FD214F9BF4,$E03B47BD53856222,$C38BF0E77E4EFEA4,$15D3BF871F37F17F
Data.q $3B47BD5385622222,$717D5C5F5717E1C0,$FC9C5F5717D5C5F8,$AA70AC444442BA63,$FF0E2FE9CC0768F7
Data.q $44442BA139F37FD3,$9380768F7AA70AC4,$37E53FF0E2FC39DF,$888575E687FF819F,$700ED1EF54E15888
Data.q $F53F8BFABFE1C5F8,$AA70AC444442BA2F,$FC38BFA49C0768F7,$AA7E9FA7C7F17C57,$8F7AA70AC444442B
Data.q $FAB8BF0E2FAB8076,$A5F5713F4B8BEAE2,$38562222215D0FD2,$38BFA72E03B47BD5,$4F97E1C7CDFB8FFC
Data.q $158888885744F93E,$3BFAC380ED1EF54E,$E1C4FD2E2FC39DF9,$1110AE87E95F8717,$6E01DA3DEA9C2B11
Data.q $4442BA0FF8BF4DFF,$5C0768F7AA70AC44,$38BF0E27E9717F48,$D73F9FCF2FE9C7FC,$47BD538562222215
Data.q $FA5C5F5717D5C03B,$52FAB8BF0E2FAB89,$9C2B111110AE87E9,$7E8DFF6E01DA3DEA,$7F1FE7F3FF6E29F3
Data.q $9C2B111110AEB1FC,$2E2FE98701DA3DEA,$F4E1FF8717E1C4FD,$AE2222003E7FAA97,$6FF8700ED1EF54E1
Data.q $2215D0FD214F9BF4,$E03B47BD53856222,$7CDFE8FFC38BFA42,$2B111110AE8A3F86,$C4FD2E01DA3DEA9C
Data.q $14F9BF11FF8717E1,$38562222215D0FD2,$0E63FBDC03B47BD5,$88885741FF17EAFF,$2700ED1EF54E1588
Data.q $17FA7FE1C5F873BF,$B111110AE891F2FF,$5FF0E01DA3DEA9C2,$E87E90BEAEBD8FF7,$A3DEA9C2B111110A
Data.q $FD5C5F577F52701D,$DFC38F9BF8BFE1CE,$DEA9C2B111110AE9,$C57FC38BF0E01DA3,$5888888574273E6F
Data.q $7F49380ED1EF54E1,$FC5F29FF873BF571,$11110AEA1F87E1F1,$E3B01DA3DEA9C2B1,$444442BA1FA57F8B
Data.q $FDB80768F7AA70AC,$745FB721EF63FDD7,$D1EF54E158888885,$7E97F8717F49380E,$0AE81F07C1F439F3
Data.q $1DA3DEA9C2B11111,$6AFF0E2FC38BEAE0,$A70AC444442BA1FA,$5717F485C0768F7A,$BF0E2FAB89FB1C5F
Data.q $444442BAFBFEFFBC,$D61C0768F7AA70AC,$8FEC73BF5717D5DF,$5743F4AFC39DFAB9,$ED1EF54E15888888
Data.q $B714F9BF46FFB700,$5D3DEF7BDFF7FDFF,$B47BD53856222221,$BDCEFD5C5FD30E03,$FA41FF0E77EAE63F
Data.q $D71111001F3FD54B,$37FC380768F7AA70,$B111110AE83FE2FD,$DFD7301DA3DEA9C2,$C38BEAE2FAB89FB1
Data.q $574CF67B3CBF0E2F,$ED1EF54E15888888,$FAB98FEC73BF5700,$3FD54BFA70FFC39D,$F7AA70D71111001F
Data.q $A7CDFA37FC380768,$C2B111110AE87E90,$877F50B01DA3DEA9,$ECF67FE1CEFD5C5F,$538562222215D15D
Data.q $E4E63FB1C03B47BD,$F8BF17FC38BF0E77,$0AC444442BA2FF53,$39DF9380768F7AA7,$FAB8BF0E2FAB9DF9
Data.q $C3F87F2FC38BEAE2,$54E158888885741F,$EFD5C5F8700ED1EF,$3F4A83E6FCA7FE1C,$EF54E15888888574
Data.q $3FF0E2FE9CB80ED1,$2215D3BF871F37EE,$E03B47BD53856222,$EAE2FC38BEAEFEA4,$07FAB8BF0E2FAB8B
Data.q $EF54E15888888574,$E2BFE1C5F8700ED1,$AC444442BA139F37,$BFA49C0768F7AA70,$E77A1CF9BF4BFC38
Data.q $E15888888574779D,$BFC5F1D80ED1EF54,$38562222215D0FD2,$7E9BFEDC03B47BD5,$442BADBF6FDBC7F1
Data.q $C0768F7AA70AC444,$38BEAE2FAB8BFA61,$FAA97E1C4FD2E2FC,$F54E1AE2222003E7,$F9BF46FF8700ED1E
Data.q $562222215D0FD214,$BFA42E03B47BD538,$5BD0E7CDFE8FFC38,$0AC444442BA5BD6F,$39DFAB80768F7AA7
Data.q $7CFF552FF17DD7FC,$A3DEA9C35C444400,$E1C5FD313FF0E01D,$62222215D0FD207F,$FD30E03B47BD5385
Data.q $BA2DFFFD3ABFE1C5,$68F7AA70AC444442,$90A7CDFA37FC3807,$A9C2B111110AE87E,$FE977F52701DA3DE
Data.q $9BCBFC5F11FF871C,$7AA70AC444442BA2,$C4FD2E2FC380768F,$F8717D5C5F5717E1,$562222215D17FA85
Data.q $5FD2D603B47BD538,$22215D0FD207FE1C,$5C03B47BD5385622,$33E6FCA7FE1C73FA,$70AC444442BA21BC
Data.q $1CC7F6380768F7AA,$17E2FF873BF5717E,$58888885745FEA7F,$0FF2700ED1EF54E1,$7FEFC7F17C57FC38
Data.q $38562222215D7BFF,$F8717D5C03B47BD5,$717E1C5F5717D5C5,$85743F4A97D5C5F5,$0ED1EF54E1588888
Data.q $37EE3FF0E2FE9CB8,$62222215D3BF871F,$FEB0E03B47BD5385,$A2FFC38BF0E77E4E,$B111110AE84E7CDF
Data.q $DFF6E01DA3DEA9C2,$C444442BA0FF8BF4,$F4A6C0768F7AA70A,$8888575D7F5FD797,$5700ED1EF54E1588
Data.q $9BF89FF8717E1C5F,$62222215D0FD2A0F,$BFEDC03B47BD5385,$D3BF77EEFC7F17E9,$47BD538562222215
Data.q $EEBFE1C5FD30E03B,$222003E7FAA97F8B,$8700ED1EF54E1AE2,$F4B8BEAEFE2FE1FF,$8885743F485F5713
Data.q $B80ED1EF54E15888,$9F37FA3FF0E2FE90,$158888885744BFE1,$46FF8700ED1EF54E,$22215D0FD214F9BF
Data.q $2E03B47BD5385622,$F73FE1C73FA5DFD7,$8562222215D07FC5,$1CEFC9C03B47BD53,$FC38BF0E27E9717E
Data.q $2222215D135FFA53,$FE1C03B47BD53856,$0FD217D5D7B1FEEB,$7BD538562222215D,$E39FD2EFEA4E03B4
Data.q $ED7FE1C7CDFC5FF0,$562222215D14FFB5,$717E1C03B47BD538,$A70FFC38BF0E27E9,$C444442BA2FF50BF
Data.q $FA42C0768F7AA70A,$F2FC38BEAE2FAB8B,$8888885756FEDFDB,$FE9700ED1EF54E15,$D2A0F9BF29FF871C
Data.q $D538562222215D0F,$BF0E63FB1C03B47B,$97E1C7CDFB8FFC38,$444442BA37E6FCDF,$F9380768F7AA70AC
Data.q $FA57F8BE2BFE1C07,$7AA70AC444442BA1,$38BF0E2FAB80768F,$22215D07FC5F4BFC,$2E03B47BD5385622
Data.q $C38BEAE2FAB8BFA4,$442BA1FA71FF0E2F,$C0768F7AA70AC444,$873BF5717D5DFD61,$AE98FF2717F481FF
Data.q $DA3DEA9C2B111110,$F439F37E8DFF6E01,$888888575AFF5FEB,$F4C380ED1EF54E15,$9BFD1FF873BF5717
Data.q $C4444007CFF550CF,$FF0E01DA3DEA9C35,$444442BA0FF8BF4D,$F5CC0768F7AA70AC,$11FF8717E1C5F577
Data.q $1110AE887FCBFC5F,$AE01DA3DEA9C2B11,$8B7B1FF13FF0E77E,$11110AE8BFD42FC3,$F0E01DA3DEA9C2B1
Data.q $15D3BF871F37E8DF,$3B47BD5385622222,$BF29FF8717F4A1E0,$2222215D12BF0CF9,$FE1C03B47BD53856
Data.q $85743F4853E6FD1B,$0ED1EF54E1588888,$C4FD2E2FABBFA938,$F57FF873BF5717D5,$562222215D177FAB
Data.q $717E1C03B47BD538,$E8BFD407CDF8AFF8,$A3DEA9C2B111110A,$1C4FD2E2FE92701D,$FD20FF873BF5717E
Data.q $1110AEA5FCBF97E5,$3B01DA3DEA9C2B11,$44442BA1FA57F8BE,$DB80768F7AA70AC4,$F6E2FC3AF63FDD7F
Data.q $EA9C2B111110AE8B,$FF0E2FE90B01DA3D,$742FC5F8BF2FE9C3,$D1EF54E158888885,$7F13FF0E27EC700E
Data.q $444442BA1FA541F3,$F7B80768F7AA70AC,$FF873BF5717E1C07,$5CFF9FF3F1FC5F45,$1EF54E1588888857
Data.q $FBAFF873BF5700ED,$888800F9FEAA5FE2,$E1C03B47BD5386B8,$C444442BA1FA75BF,$FA61C0768F7AA70A
Data.q $CDFE8FFC39DFAB8B,$9C2B111110AE84E7,$BF4DFF0E01DA3DEA,$70AC444442BA0FF8,$F577F5CC0768F7AA
Data.q $717D5C5F5717E1C5,$8574CFD9FB3F27EC,$0ED1EF54E1588888,$9F37F57F873BF570,$6B8888800F9FEAA1
Data.q $1BFE1C03B47BD538,$8885743F4853E6FD,$380ED1EF54E15888,$F0E77EAE2FC3BFA9,$15D137F97F8BE23F
Data.q $3B47BD5385622222,$FE2FEAFF8717E1C0,$C2B111110AE8BFD4,$E2FE92701DA3DEA9,$D5C4FD2E2FAB8BEA
Data.q $EA9FD3FA7E5F8717,$A3DEA9C2B111110A,$FC39DFAB8BEAE01D,$0AE87E9507CDF94F,$1DA3DEA9C2B11111
Data.q $FC389FA5C5FD3970,$4442BA1FA41FF0E2,$EC0768F7AA70AC44,$BA27E4FC9F8FE2F8,$68F7AA70AC444442
Data.q $FD2E3FF0E2FAB807,$110AE87E973FE1C5,$701DA3DEA9C2B111,$717D5C4FD2E2FE92,$7F8FF1F97F4E1FF8
Data.q $7AA70AC444442BAC,$FC3BF8BF53C0768F,$5D0FD2BF0E77EAE2,$B47BD53856222221,$8FC7F17E9BFEDC03
Data.q $562222215D23F47E,$FE9A9E03B47BD538,$54BF0E2FAB8BEAE2,$A70D71111001F3FD,$F8713F6380768F7A
Data.q $15D0FD214F9BF89F,$3B47BD5385622222,$FFC38BF0E03FBDC0,$3F87F0FD0E7CDFE8,$BD538562222215D4
Data.q $EBFE1CEFD5C03B47,$22003E7FAA97F8BE,$700ED1EF54E1AE22,$2215D07FC5FA6FF8,$E03B47BD53856222
Data.q $717D5C5F5717F4A1,$AE80FF5717D5C5F8,$DA3DEA9C2B111110,$A139F37E8DFF0E01,$8F7AA70AC444442B
Data.q $E1CEFC9DFD49C076,$D157FFE971FF8717,$47BD538562222215,$7D5C5F5717E1C03B,$63FBDCEFD5C5F871
Data.q $C2B111110AE8BFD4,$38BFA7301DA3DEA9,$444442BA1FA457FC,$F9380768F7AA70AC,$FFFA52FF0E2FC39D
Data.q $54E1588888857445,$BFE1C5F8700ED1EF,$4442BA2FF53F8BFA,$9C0768F7AA70AC44,$FCBFA5D7FC38BFA4
Data.q $62222215D03F07E0,$17D5C03B47BD5385,$AE27EC717D5C5F87,$10AE87E952FAB8BE,$01DA3DEA9C2B1111
Data.q $7EAE63FB1C5FD397,$FBFF7CBFA41FF0E7,$538562222215D7DF,$7E4EFEB0E03B47BD,$5F873BF2731FD8E7
Data.q $444442BA1FA57E1C,$FDB80768F7AA70AC,$11110AE83FE2FD37,$65701DA3DEA9C2B1,$EAF2FE9C7FC38BFA
Data.q $C2B111110AEAAFAB,$638BEAE01DA3DEA9,$5F8717D5C5F5713F,$88885743F4A97D5C,$B700ED1EF54E1588
Data.q $D5FFB714F9BF46FF,$110AE9EFBDF7BF57,$F01DA3DEA9C2B111,$97F4E1FF8717F4D4,$E1AE2222003E7FAA
Data.q $B98FEF700ED1EF54,$BEAE2FC38BEAE2FA,$44442BA1FA42FAB8,$9380768F7AA70AC4,$DFE8FFC39DFAB9DF
Data.q $2222215D167F867C,$FE1C03B47BD53856,$85743F4853E6FD1B,$0ED1EF54E1588888,$CEFD5C5F877F5CB8
Data.q $2215D07FC5F73FE1,$C03B47BD53856222,$FE9FF8717E1CEFC9,$8562222215D07FC5,$EEBFE1C03B47BD53
Data.q $1110AE89FBDD7B1F,$2701DA3DEA9C2B11,$FE1CEFD5C5F577F5,$888857449FFFA5C7,$8700ED1EF54E1588
Data.q $F501F37E2BFE1C5F,$AA70AC444442BA2F,$FAB8BFA49C0768F7,$EEF8FE2F94FFC39D,$0AC444442BABBF77
Data.q $FE2F8EC0768F7AA7,$C2B111110AE87E95,$F75FF6E01DA3DEA9,$2BA2FDB8BF0EBD8F,$768F7AA70AC44444
Data.q $FA5D7FC38BFA49C0,$22215D1DF3BE77CB,$5C03B47BD5385622,$6FE27FE1C5F8717D,$8888885743F4A83E
Data.q $E90B80ED1EF54E15,$5F5717E1C4FD2E2F,$85745795E5797E1C,$0ED1EF54E1588888,$C4FD2E2FABBFAC38
Data.q $7E95F873BF5717D5,$DEA9C2B111110AE8,$9F37E8DFF6E01DA3,$FDBFB7CAF2BFF6E2,$D538562222215D6D
Data.q $FA5C5FD30E03B47B,$1FF0E77EAE2FC389,$111001F3FD54BFA4,$C380768F7AA70D71,$1110AE83FE2FD37F
Data.q $9701DA3DEA9C2B11,$BEAE2FAB8BF0EFEB,$F5BEB7CBF0E2FC38,$D538562222215D2D,$2FAB89FA5C03B47B
Data.q $52FE9C3FF0E77EAE,$9C35C4444007CFF5,$8731FDEE01DA3DEA,$5D0FD214F9BFE9FF,$B47BD53856222221
Data.q $BF5717E1CEFC9C03,$A3FCBFC5F11FF873,$DEA9C2B111110AE8,$F57FC38BF0E01DA3,$888885745FEA7F17
Data.q $49380ED1EF54E158,$5F8717D5C5F5717F,$74EFE1C5F5717D5C,$D1EF54E158888885,$FE1CEFD5C5F5700E
Data.q $8888574273E6FCA7,$CB80ED1EF54E1588,$39F37EE3FF0E2FE9,$7AA70AC444442BA1,$717D5DFD49C0768F
Data.q $FA5C5F5717D5C5F8,$2B111110AE883FC9,$38BF0E01DA3DEA9C,$745FEA03E6FC57FC,$D1EF54E158888885
Data.q $7E97F8717F49380E,$D65F97E5E5F871F3,$47BD538562222215,$743F4AFF17C7603B,$D1EF54E158888885
Data.q $3E1FC5FA6FFB700E,$DA4DEA5096222220,$FAB8BEAE2FE98701,$E5F8717D5C4FD2E2,$BA4212C44444076F
Data.q $3E6FD1BFE1C03B49,$B111110AE8B67FC5,$FD21701DA3DD25C2,$1FF0E2FC389FA5C5,$70AC444442BA1FA7
Data.q $C39DFAB80768F749,$88885741FF17DD7F,$8700ED1EE92E1588,$22215D07FC5FA6FF,$3603B47BA4B85622
Data.q $70AC444442BA1FA5,$FA37FC380768F749,$2B111110AE84E7CD,$EFEB9701DA3DD25C,$5743F4B8FFC38BF0
Data.q $ED1EE92E15888888,$2FC38BEAE27E9700,$111110AE8E3EAFFE,$FDEE01DA3DD25C2B,$885743F48AFF8731
Data.q $00ED1EE92E158888,$4A5FE1C5F873BF27,$92E158888885743F,$BFE1C5F8700ED1EE,$C444442BA0FF8BFA
Data.q $FA49C0768F74970A,$442BA1FA5D7FC38B,$80768F74970AC444,$1D723FF8BF0E2FAB,$7BA4B8562222215D
Data.q $4442BA1FA53603B4,$1C0768F74970AC44,$8857476FBFFFDFD6,$00ED1EE92E158888,$1110AE8BFD437FB7
Data.q $9B01DA3DD25C2B11,$B8562222215D0FD2,$1111101C9FFC7BA4,$880E4FFE3DD25C4B,$0FDB1EE92E258888
Data.q $8800F94FBF888888,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888
Data.q $F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800
Data.q $B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$F953B8888800F953
Data.q $8800F953B8888800,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888
Data.q $F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$2F53B8888800F953,$19BB2702FFD2F4BD
Data.q $000000F6B6A87B91,$6042AE444E454900
Data.b $82
ecran_end:
;---------------------------------------------------------------------------------------------------------------------------------------------------------
enddatasection

Re: amiga led,guru et decrunching

Publié : ven. 28/oct./2016 22:12
par Ar-S
Content de t'avoir donné envie de remettre la main à la pâte. :mrgreen:
Mon portable en 1920x1080 est en 120% pour les textes, du coup le text du guru mediation sort du cadre rouge. (voir code pour changer la font selon DPI)
Tu devrais revoir ton decrunch, faire de simple box monocouleur avec des couleurs et taille aléatoire. là ça parait trop arrondi.

ça fait plaisir de te lire.

Re: amiga led,guru et decrunching

Publié : sam. 29/oct./2016 19:59
par raven
bonjour Ar-s,

j'ai était voir le post de nico pour le dpi.
j'ai donc un dpi de 96,mais pas trop compris le fonctionnement,pour que mon dpi de 96 reste en 96 sur un ecran de 120.

du coup j'ai des questions,le texte déborde du cadre meme en mode fenetre?
ce problème de dpi le fait aussi sur les box de la bibliothèque 2d drawing? ou que sur les fonts?

pour le guru du coup,ce serait plus simple de passer par des images avec un clipsprite ce que j'avais fait avant.
pour le decrunch oui,c'est pas terrible faut que je vois ç'a.le fait que ce soit arrondie vient des images que j'avais fait pour des rasters.

j'avais essayé de passer par des box pour le decrunch,mais j'avais des chute de fps au moment de l'affichage et mettais plus d'une minute pour terminer l'affichage alors que j'avais mis que quelque seconde sur le timer.
a propos des couleurs sur des box,vu que je suis dessus en ce moment,je galère a stabilisé mes couleurs sur une box par ex du vert clair au vert foncer il y a toujours du noir dans la variation.

sinon a propos de ta demo,j'ai un probleme de sprite non iniatialisé ligne 355

Code : Tout sélectionner

FreeSprite(#LOGO)
en mode debug et il y a la constante #logo dans les enumeration,mais l'image est pas dans ton dossier image et la led verte apparait en haut a gauche de la fenetre,en dehors de l'image de l'ecran de l'amiga.
je suppose que tu avait prévu un logo :)

content de te lire aussi :wink:

Re: amiga led,guru et decrunching

Publié : sam. 29/oct./2016 20:45
par Ar-S
Euh alors pour le led je ne vois pas pourquoi ça chie, j'ai bien positionné (sur mon ecran en 120%) .. Le logo j'ai oublié de le virer, c'est anciennement le nom que j'avais donné au sprite workbench donc superflux.
Regarde la routine dans mon code pour le decrunch.

Re: amiga led,guru et decrunching

Publié : mar. 08/nov./2016 1:28
par raven
bonjour,
j'ai refait le code,ajouté la disquette et son animation changé le guru en image.
cette partie des datas contient la disquette et le guru, à rajouté dans les datas du code précédent.
par contre il y a un ralentissement au moment du decrunching,c'a peut posé un problème de decalage avec le timer?

Code : Tout sélectionner

;----------------------------------------------------------------------------------------------------
disquette_data:
; size : 9589 bytes
Data.q $0A1A0A0D474E5089,$524448490D000000,$6F0000008A020000,$7600E40000000208,$4343690F220000C3
Data.q $DE68000063636950,$EEB7CD1550679AAD,$6C39361B0CE7667B,$0E4B39CE739C9B32,$882B240467393612
Data.q $4050449288A392A2,$0441454144051440,$0460311515045415,$E7553DFFEF2E4515,$A6BBAADC3F7BADD4
Data.q $E9AF57BAA799FBA6,$3235244006B7F5FA,$3A2A200166012A30,$E1EEEE88DCC9DE31,$1403602C032CC749
Data.q $A5621303FCA407C0,$1F3635FFC152C3A2,$5C9FF64E7E9FE801,$4084CC41082DFFE0,$8D8C0EEEAEEC2000
Data.q $25352FBB83D5DC4F,$F67D7777C3577631,$577CFD5DA0FF50C0,$F882000816EFC4CB,$43A3FFA6AFF01F8F
Data.q $271778E8FF2AD5FE,$F2189D00016D5DE3,$F1A181D0FFC0743F,$FD178EECB8880051,$26EEC25F04FF86B7
Data.q $4AAEB299232332C8,$81F1890121F109B2,$7E66A3FF81816172,$B2023039809C0090,$72AEE61F77220980
Data.q $210788026DBB4A05,$0E4081F6EE240020,$2473FFE081B6ED84,$62638DE9FF135332,$4AE9134242C3E2D3
Data.q $B2DDD37432AA8A0A,$64BA4CD13189CEE9,$45A9912C2120330A,$8F9792D58C4C4D0F,$99E2433106668B0E
Data.q $5C8A4C64660084CC,$E5199D36BC944C60,$1387E7FF45A9161F,$90C71A7FF06899FE,$8D2DD0258684BBA3
Data.q $BB61C131F1B1E98D,$A3320586467EECCB,$6620E8A4F4419813,$4FF4CF1C6E9FDD3C,$A2A2638DD2664B0C
Data.q $F1898986E813A262,$B2D1316189490161,$B0C8C34CF1FEA1CE,$27BE814E595D2608,$CDB277713E26363A
Data.q $B09A14FF92E859BF,$37FC09657FE0695B,$2D7FFC887C4C5C89,$2FE09B26901F2095,$1FE219923E409BBF
Data.q $B3FDC864C4131819,$1098F3BFFB70FF17,$011A220B1FF4ACAC,$000626F9D9DA5A80,$BF3B3B63ED800CA6
Data.q $B0F2ED4FB676769B,$398FCF7FF468C008,$BFEC7FAEC6C68009,$0C00F9280046D13D,$8B800AA02F6FF8DC
Data.q $9F14981C7AE00107,$0C00D59FF2C7AFFC,$00700300D0050090,$89A7BBC80880080F,$0340762A9EEEB005
Data.q $BBC01E03700B801C,$2103A0208004C27B,$9207101881440220,$724B2EF480A40180,$540CA552EC281E40
Data.q $6813401A07502A80,$303E80F40BA06D01,$5DD3009818CFE5D8,$C03602B025802D12,$A74BB8E07B01D816
Data.q $07701B807B017033,$0BE01F037813C01E,$082081992EFF80FC,$C466CBBA1A32EF04,$B880C41A2051BB2E
Data.q $29064DA976135E5D,$3201907481A41520,$C82E40720D907EC1,$410A083800E00503,$025011C187062811
Data.q $0A819414A0E3818E,$7505A83540AA0950,$3412704680341EA0,$D05680B419A05381,$413A0B380741DA06
Data.q $05E80F41BA0F3817,$12E08B800C1FA07D,$460C3015C0860CB8,$300DC0C606B828C0,$824C1B704DC0260E
Data.q $0CC0F706982EE03B,$CC10F003C0E60FB8,$E08B013C18F00583,$12F00BC1CF025819,$AC16F01BC1AF02BC
Data.q $813E08F803E07781,$4D83BE06F80BE0CF,$D837E05B04FC03F0,$843041040EC17F06,$887842C206105084
Data.q $2158814432209100,$0B884E20D10EC42A,$A210487E217881E2,$438906240890C243,$3921648692031092
Data.q $4815219484520148,$07486D213480D20D,$3218C843200C83D2,$86B20AC80B20CC85,$5C827201C87B216C
Data.q $427901E41B903DA0,$0287F217B42F90DE,$50E1428502142621,$02507140C50D1424,$283ED0A943250494
Data.q $1E503941650FDA03,$D043A08A841D0054,$E54295063A04A861,$507540D505542550,$16A1A7413508D403
Data.q $A13A859D033A0DA8,$0341F50BD4375073,$430D02BA197420D0,$6E809A037418D0A3,$819A1A685DD09341
Data.q $7A016823D007A166,$05680BD04B422D02,$E87BD06B42AD0D7A,$36837D02FA09F423,$0BFA07F416D09FA0
Data.q $C1C6063091861803,$0ECC2A6053049804,$0B0FCC0F305CC073,$C24B062C08B042C2,$CAC22B072C0CB052
Data.q $B03AC16B01AC2AB0,$05B0A6C31B086C1E,$EC23B0F6C0DB056C,$03EC27B0EEC2BB0C,$870C1C1070FEC1FB
Data.q $C3C70B1C147011C1,$FBC067069C0A7049,$C217003E0F381CE1,$570A5C18F811F0C5,$C2370F5C2D7055C0
Data.q $CF819F0ADC33704D,$0FDC02F86EE0E7C2,$1E147855F043C20F,$053C24F05BE1C783,$FC3CF087E16783DF
Data.q $57E12FC32F067E04,$827F00FE0EFC2AF0,$DE0B780FF01BC2BF,$22C0850230107786,$A086C105821208F0
Data.q $1D040108BC10B821,$0832103047108221,$D08EA10542228439,$53084611F422E842,$447087611AC20584
Data.q $846F081E115C20B8,$22228444C100221F,$052222443888D110,$22E446C889910FB1,$E20944628885100A
Data.q $9C43A88D511CA238,$0E886D119A213440,$803101711BA21744,$218C411882B884B8,$10F7117711B711C6
Data.q $C453C405888788B3,$E22DE235E225E232,$F881B115F11D623D,$2891848BF88DF889,$2454905240491624
Data.q $85220A43E485C90D,$8F29065206486291,$48BA913521AA4654,$B485691CD231A403,$2F486E905D223A45
Data.q $228644C900322FA4,$32326404C8319123,$0F23E646CC89990D,$056452C825918B22,$8D3C893C8F5906B2
Data.q $907B21CF2076436C,$F208E415E441C8FD,$DE469C893902723A,$CF9117202E443E47,$3AE43BE455C82B91
Data.q $8DB90BF903722BF2,$28A0228B0A242802,$8025078A07143628,$94592818A1894612,$1941D281A5054A22
Data.q $3D946B28E6518CA0,$A2F944F28AE509CA,$2A145430A8C15002,$72A265434A84950E,$31D461D442A8F950
Data.q $893A8F551AAA3954,$51E7513AA3B5466A,$D411A84351175017,$D43DD41DD44DD475,$5A8CB514F51E6A1C
Data.q $BEA13EA3DEA2AD41,$891A01A0FEA27EA3,$9A3B34166889A2C6,$19A18B421687CD0B,$89AD155A22B45968
Data.q $6856D0CDA11B43D6,$F685ED0DDA33B43B,$58E891D143A20743,$41CE899D0D3A2274,$E8A5D04BA10FA017
Data.q $6E8CDD11BA1D742A,$4BE8FDD07BA27747,$077D027A18F461E8,$445E80BD00FD0F7D,$A3AF43BF46BF40BF
Data.q $0600637FA07FA2BF,$03862A184861C189,$31246288C4118BC3,$A30B461A8C4518B2,$8E316C6058C6318F
Data.q $88130FC6278C5718,$98C930E26144C509,$3984531F26164C74,$2730EA6154C52982,$0B98739833982D31
Data.q $09986B982B988B98,$31E601E61EE624CC,$01F3156625E619E6,$60ECC2D981B305F3,$3962A584961C5891
Data.q $1A5638AC21587CB1,$B0F5626AC1558F2B,$EB09D62DAC0B58C6,$11B18363FAC6F586,$0B361F76126C58D8
Data.q $B0CB6096C22D8F9B,$B61B6C29EC06D8D5,$47610EC01D83DB13,$03EC3DEC49D8E3B1,$0D7615F632EC63EC
Data.q $C6DD89FD86FD8EBB,$71C547091C587021,$0C9C0938C271F8E2,$E219C1D38EA7114E,$CE2B9C47383670CC
Data.q $E2E045C60B8FE70B,$00EE0E5C74B8C970,$C3AB89571C7718AE,$B83D7167715AE135,$EE04DC35DC15DC01
Data.q $7B88B71E6E3EEE2E,$FDC57DC47DC55B89,$C24F163C61E36DC4,$3C517802F1B9E1B3,$F5E16BC1578F2F03
Data.q $15DE03BC2B78A6F1,$F123E307C7F785EF,$5F0F3E267C14F8F1,$8DF06BE397C12F88,$803F1BBE077C16F8
Data.q $C29F89BF86BF82BF,$F857F84BF017E1CF,$026FFC0DF84FF877,$8B812A048810C044,$09E4114825104020
Data.q $609CC121826D04AA,$4108FC107826704B,$419099212C427084,$84E5084A121425C8,$D093A12B4249C25A
Data.q $26106E130C24184B,$4BC2458447843309,$9BF0836113E11AC2,$C88D911244311108,$25443289C513A44D
Data.q $26B44A688F5106A2,$6220C43E88DD123A,$E624CC4C98963138,$7AC4958947888B11,$9FB13CF13B6229E2
Data.q $134E22DE231C4438,$12DF105F129F121F,$848824DFC41B89D7,$88492F1234499125,$49B492A923924924
Data.q $C90F693D920B2446,$9290C5230A40149B,$18E911523CA41949,$9075266A40D492A9,$D271A4C34917487A
Data.q $F4996931E92CD21D,$8645B48DF481F486,$92F3234C993218C8,$AC8D593CB20CC985,$EEC91D915B21364B
Data.q $409C923930723F64,$C84B921721CE47DE,$B9077269F27AE415,$EF938F261E483C87,$6FC82FC84FC8E792
Data.q $920A6DE49BC89FC9,$453A14DC2950A042,$8C50E8A551472282,$8FC53B8A47145629,$29D25224A2894C12
Data.q $A5354A31CA2294B9,$8651F4A2E94AD291,$02CA7DCA49946328,$41B291F286F29965,$5950B3C16082C3F9
Data.q $2CF22C122CE859B8,$2C362C262CBA2C6A,$2C612C012C9E2CCE,$58072C592CA92CB1,$599A581A582A584A
Data.q $C632CCB9605CB2CE,$9965816586659B72,$9B6593659D659565,$65E56765644AC515,$64D5625562956115
Data.q $6375607560B56435,$664D668D610D63F5,$CE5AC23D602D64CD,$02F5967ACCDACF5A,$2CEB24EB18EB10EB
Data.q $9FAC6BAC17D663EB,$50A54B1501527F59,$551CAA095482A939,$F751DAA33547AA8D,$8935146A4CA87D50
Data.q $5396A61EA7CD499A,$F51F6A4ED4CDA9EB,$F501F52EF506F50A,$FA8DFA9EFA857529,$E363636046C10D9B
Data.q $D366536693611365,$F3617361B3613366,$CB644B648B620B66,$D6CE56CC3B67CB60,$76CFD6C5D6C2D6C0
Data.q $DB11ED8A6D9C6D95,$B64DB675B61BDB12,$9D939D853B0C761D,$6EC1AEC0AEC92ECE,$1EC9EEC8EEC96EC8
Data.q $9ECE9EC09ECE1EC0,$BD9EBD9CBD987EC7,$7D987D807D8BBD85,$F673FB3CFB1EFD82,$1A20D17FD85FECB7
Data.q $326844D2F1A5469E,$476694CD2E9A1534,$B4B16942D1F9A373,$568CAD10ED0E5A34,$C369FAD275A66B47
Data.q $39ED02DA3DDA09B4,$E081C5B695F68D6D,$738873F073B07220,$7258701873A873C8,$7244720472787138
Data.q $9471C038E7EC7124,$02E383A389A39AA3,$478E298E0DC710C7,$6C70BE396F1CCB1C,$FC9CEC9C89382271
Data.q $869C1A9CF29CE29C,$4C9CDE9CCE9C569C,$22CE6CCE14CE68CE,$73CE16CE7ACE52CE,$CE736F394739179C
Data.q $F391F9C57CE53E72,$78B95171C2E01707,$0CB9D4B8E4B944B9,$98B9BCB89CB92CB8,$875C395C295CD15C
Data.q $CEB95AB9EAB8CAB8,$7AE1DD718D720D73,$6B99F5CAB5C4B5C0,$16E0E6E44DC11B8B,$9B736B712B7066E4
Data.q $4773FB73BB71DB72,$7DC83EE7EF722770,$FB8BBB99BB96BB9C,$F71CF724F728F722,$78B7B99FDC37EE33
Data.q $8F3A1E0E1E243C10,$8F198F2E8F328F14,$4F144F204F278F03,$9E729E21CF0E4F0A,$3C433C3D3C6D3C13
Data.q $792F3C0B3CD33CE3,$78E2F0ECF06CF03E,$7815782579F978D9,$79DD78ED784D78B5,$78B3789379237803
Data.q $78DB781B78CB788B,$F1EF79C77887787B,$83FBC8FDE15DE63E,$F904F8D1F023E20F,$7CE67CBA7CCA7C18
Data.q $BE58BE4C7C5E7C8E,$7CD57C257CF97C7D,$F1AEF806F93AF8A7,$C6B7CCB7C87BE1DD,$CA9F963F2FEF9DF7
Data.q $CDAFC8AFC12FC7CF,$C41FC9EFC0EFCA6F,$C25FC79FC69FC31F,$22FF8BBF8A7FCD5F,$5FF88FFCBBFE35FF
Data.q $78020010DFE7BFF0,$8A809480A0809A01,$AF80B380A5809E80,$A140A6408240A840,$AF40BB4083409940
Data.q $8B02B3029B8155C0,$6208FE055F02AB02,$4A8212827C82A904,$DE824E82E6823A82,$07821982F1822182
Data.q $7B04DB041B054B05,$7C159C12DE0AAF05,$3A5FE09BF056F826,$2AE833A01746CE96,$47EE85DD15BA7D74
Data.q $F4C5E9B3D127A70F,$3E917E93BD137A4A,$EBE857D02FA29F46,$8F108A2148425FF4,$9990B69082909890
Data.q $BC508850B790A390,$46A172A122A17ED0,$BBA151A17EA10EA1,$FD0A3E852F42F342,$C5847984530A4614
Data.q $9D85CD8475841584,$B3851384C3857D84,$BB849B852B858B84,$7E13DF0BAF850784,$111FF08BF846FC22
Data.q $889488A0889B08AC,$48BB888D88A188AA,$2203913EC88C48A0,$44FA45DA441A45C7,$2979123C88EE4446
Data.q $22CA25144BF22EB2,$2FAA2CAA292A27CA,$2D1A201A2AEA2D6A,$5EB45C7A205A269A,$8EF444744FB45DB4
Data.q $96E8BAE88AE8BCE8,$10C620262A8C5A18,$10F315B314331553,$8A1588658AC58A63,$141B14EB149D8B95
Data.q $2AB628B6233621BB,$29CE209C476C4DF6,$2E6E2DAE2F2E222E,$229E211E27EE2CEE,$5DBC5EBC4C7E2F9E
Data.q $82F8AEFC547C4FBC,$3812DBE2CFF12BF8,$A684AC8490849A09,$B844AF8493849984,$3A8951C49E44B244
Data.q $BB8951893E893689,$D8917C4B5E258F12,$CA488A48724BC496,$EE48BA485A4B6A4B,$59203C934C928C95
Data.q $C945E4ACF242792A,$24D724CF9233921B,$4865E0C283301937,$27865B0C86185432,$661C66C8C0918423
Data.q $C6118CBD195A30D4,$E30BE335E302C65D,$4A544A4B8A4114AF,$2A4DCA4ACA4F4A51,$5490EA532A4E2A48
Data.q $A955D48F54B35495,$A45F5257A979A949,$A545A539A5E34AFE,$A5DDA5ADA4F5A515,$A587D259D2F1D299
Data.q $A447A57BA45BA46B,$4DFD237E963F4AEF,$CA48CAF0CB219206,$CB78CBD8C918CAA8,$931CC9E4CB24C984
Data.q $5C66506656732139,$96CCA3E659665666,$5E5648565D96462C,$483655D652D64756,$8D6CB16CBF764E36
Data.q $D3B26BD905ECAB6C,$90E53764D7654FB2,$9A7232720272AC72,$3172FE722E72E672,$5AE4AAE487721972
Data.q $9EE4A6E546E57AE4,$B3C84794DB95BDCA,$9BC96BC8CBC80BCA,$DF958F900F91EFCB,$DF26DF235F2C5F2F
Data.q $FE4CFF233F263F27,$82BB02B4052FFCBD,$82B582AE82BC82B0,$C2AE42A242884287,$14970A9D0A138531
Data.q $A2F85158543C2A6E,$549451E45248A3B0,$ABDC527451345354,$5AB14878A198AD18,$46714C714FB155B1
Data.q $561296E283F14971,$40C9494954494389,$4D295C295BC94EC9,$1EA569D28552A0E9,$77A545A529A511A5
Data.q $22CAECCAD1953F4A,$DECAB6CAFACA8ACA,$2B9407CAA9CAE1CA,$4F2A8F28F72B4F94,$82A5FE57BF2A2F2B
Data.q $315651551150E151,$49548955F157B154,$E9556956A9522957,$E55CF2AB32AEB957,$954795512AB6CA93
Data.q $1AA2EAA66AAEAAA1,$B5547AAD9AAF1AA8,$EAB6F5487553B541,$8D521A86EAAAEA82,$CD5F4D414D484D4D
Data.q $5A9F6D422D5BCD4E,$DABF5AAB5A955A91,$D59F6A17B539B50D,$EA32EAFCEAC9D476,$EA21EAEEEA96EADA
Data.q $D5A7EAE5EA05EAC9,$AB2FA8CFA9AFD57B,$357835106B6FABAF,$34DC342C353434A4,$34CA35F234923582
Data.q $D198D35C68F4694E,$6A24D6D8D758D658,$6A5A696A6B4A6AF2,$D01E68A668866BBA,$AEBCD3ECD66CD0AC
Data.q $D0168BF342F9AB39,$6AE969C96A0968A2,$6BA568456B796AD9,$A835A33AD5AAD21D,$536B556B5E6B4B75
Data.q $D156D316D34DAD1B,$D78ED40ED676D136,$ADDDA4DDAE3ED5CE,$49FDACBDA33DAA3D,$56474047590EAFFB
Data.q $52275BC756C75747,$ACE74EA758A74327,$EF3A279D499D65CE,$1975B974E2E97E74,$A1BAEEBA16BA9ABA
Data.q $6DBAD5BA85BAA9BA,$AEEBCEEA6F7517BA,$49EA71E8C3D0FEEA,$85E9B9EB99EBA9E8,$6BD2ABD41DE8A5E8
Data.q $6F5E6F5377A8BBD3,$5F539F463E87EF55,$3F4DDF5CDF5D5F42,$BF5ABF50BF553F44,$FD63FE96FF507F5D
Data.q $036E0338065FFD35,$834F032B032D0329,$837A836283748308,$0CCF0653062B834E,$180A1B2435FC1A3E
Data.q $35EE1BDA1BEA1BCA,$CA786E3C31CC358C,$2BE19CE1BAF0D7B0,$B8919A232846EFC3,$A8519B91B9919A91
Data.q $8751AD519151AA51,$8FA345A31DD190D1,$7963416364C6DB46,$78E37F6347630363,$7EE366E372E33CE3
Data.q $9FE355E379E309E3,$6D1369131E133826,$2C9368931F131B13,$6326BD264D266393,$D14C364CAF267326
Data.q $56A69AA692A69CA6,$25A699A691A65EA6,$674CD7A6DDA68DA6,$38CCA19BBF4C574D,$BCCCACCD34CD24CD
Data.q $9D9A8ECD32CD22CC,$7B339B331B31EB34,$6732E7318E69B665,$4798FB98DB9B6B98,$DE653F371F9B679B
Data.q $F9ADFCC8FE6E3E67,$85AC859F05BC0B2F,$458245BF858385BE,$8B25C59B45A545BE,$963B168F8B458B49
Data.q $96A696CA96C2962C,$2D8B2CFB96A196AE,$5ACE5A8E59CF2C1B,$ACB8ADA1586E58AE,$ACFCAD6CADB4ACA4
Data.q $AD5AADCAAD72ACE2,$D1F56A7AB6DD5A2E,$C55AD85AC59AC76A,$DD3ACC3ADDDACCDA,$75F58F75A37588FA
Data.q $F06CBFD6ABD687EB,$4E36063672367C36,$B5368536C9364136,$2F363336C3369D36,$A56DB96DA2DBBE6D
Data.q $136DFD6DED6D756D,$5ED8CF6CAB6C0B6C,$0ED5FB6E7DB69DB1,$B3B6D3B0C769C769,$ABB7CBB78BB3F3B5
Data.q $B765376437633BB4,$CF61CF691ED5F76C,$1F6BDFB3B7B6D7B0,$7F61DF655F605F6F,$0737FD85FEDA7EC5
Data.q $83AE83B4839703B4,$8741C39243804383,$87598711872E875A,$8E7C8E711C3F0E57,$8E218E2E8E868EF2
Data.q $1C7B1D1B1D878E69,$71FE39AE3BCE386F,$3B9938A93B0938A2,$3A953B6539453A79,$725A71DD3A0D38B5
Data.q $386670E6748CE2FA,$392738073BDB38EB,$E6BE739F39D73A17,$E485CB79D579C0FC,$70F1733176517742
Data.q $7169752972C97489,$75F2E4B2E3B97419,$7A3DE91ED70F6A0F,$29EEA4F730F71C7B,$3DF19ECF4F6273DE
Data.q $754AEBF9EFDE7B0B,$73F576B570D57315,$74ED71AD702D778D,$E5BAE37D739D711D,$BB99B8A9BBA37246
Data.q $B855BAE5BB45B979,$E2B6E336E2BB719D,$E8AEE02EEF1DC3F6,$ED9EE91EEEEEEA6E,$DA7DD97EE6DEE65E
Data.q $DF83CE0786FBA5FD,$C223DDC3C4C3C143,$B2E3CDA3CCA3CB23,$9C4F4D8F4BC7B4C7,$87A7A9A7A2A7BF27
Data.q $BB67B967B667A467,$3F9E57CF19CF15E7,$E65ECA5E825E08BD,$555E795E315E5E5E,$56BCE6BC46BD675E
Data.q $D5BC45BC537B7EBD,$177A277AF7BDADBD,$5EF0DF7B777BD77A,$187CD0F903E0FEF0,$7D9F4C3E8E3EBA3E
Data.q $EE7C067CA73E253E,$F2FAC5F37CFB2CF8,$46F87AF89AF82AF9,$8EF876FA56FAE6F9,$63F1FEFAAEF9CEF8
Data.q $0BF3B3F4D3F313F1,$D7E93BF62BF14BF0,$BDD7DF99EFDB77E7,$EC9AF7E57BBCBDE8,$E56F7737B51BDF75
Data.q $BBD83EF6477BB3DE,$AFE12FEA9FDB77B6,$5FE7DFF4CFE0EFED,$FFCA7FD07FDA7FE2,$A01E80210066FF85
Data.q $5010901BE019601A,$E033701BD010D018,$A04F205440E7C069,$60746047A049A07C,$E058E0576075605E
Data.q $482388282087E07C,$5078504F6820C83A,$D048D04750455056,$26364CBFA0B5A083,$3332866674C7A983
Data.q $2CE655E676CC6599,$112C1A983B732DF3,$199C121C14EC1BAC,$3678357C16DC1A5C,$3244350876F06DF8
Data.q $7F64342439C43744,$0790E19099C85948,$52A1ECA13B216B21,$B343C3427BA1FAA1,$7D0B5E86CF432B43
Data.q $930CE30E0C21FA14,$CB0E8B0F730E330D,$F61E361F3B09AB0F,$5C2F9C3A3873EC34,$BC213C27DC22DC29
Data.q $FC327C3FBC31BC28,$423842310466F879,$C45F6228222EC223,$11B3112B88D688B1,$454A47B246FE236F
Data.q $46E6464646BA441A,$24F911BC8B9E4756,$394A2F8A3A1473F2,$38AA292A2FCA32CA,$55EA3A6A306A29AA
Data.q $6EB444B46B3456D4,$65747674787473B4,$9FD1C7E8F5F45774,$9631CA317C31D063,$9CC70E6392637B31
Data.q $6626F3133314B98E,$D620D62A562D963B,$B636B63F362A362D,$38F7EC52EC66F627,$5C7D9C469C709C42
Data.q $DC475C595C465C70,$9E323C7ADC7CDC68,$3E2FDE22DE295E37,$F8E5FC737C48FE39,$12381277E36FF1FB
Data.q $12E2133C138C1264,$12A61206131A130A,$264A26B2256C255E,$27E6254626BA27EA,$9E7C4EDE26F625D6
Data.q $9BA49E249C8923F8,$93549B94911492E4,$3369296933749DD4,$94EC9DAC9A2C9499,$3E7C9D5C939C9E1C
Data.q $310A46F252F266F9,$3C2529C53B453445,$66E53BA53AA52725,$2C55292A66CA52CA,$3735223525D52755
Data.q $F3EA76F527B536B5,$BD34893494699FD4,$86B482B4E8B4D734,$BF692B69BBB4BEB4,$CFB467DA93EDB1F7
Data.q $FB4D7DA2BEDC5F73,$D20E9B7BECCDF706,$D2FDD3CDD3E5D339,$D387D35BD24BD393,$33F832A067AFA51F
Data.q $19991998336C3354,$198B19E3195D1915,$993A99A2998933DF,$99F599F99991992E,$F7B733AF9953997D
Data.q $B3EFDD37EECBF6D3,$87FB2DFD91FF693F,$12CE859EBFDA3FF7,$CAC90ACFB2CF52C8,$F595BACEEACAAACA
Data.q $DB23366B3657EB3C,$F650FB3E3B33DB30,$721FD907ECA1ECE9,$397639AA39FC3990,$39DD3955395939C1
Data.q $E6A5CAFCE45E72B7,$E626E57AE71AE54A,$947DCE1DC96DCE1E,$CCD3CF47930F29FB,$CBABCBCBCF0BCC73
Data.q $37F79D7BCA9BCBEB,$3FDF22DF215F339F,$8DFE677E597E5F7F,$C90294059BF967FC,$E282F882CF02C302
Data.q $3E0A8F05AB82E682,$C075A03A101EC01D,$0E27038281E440F9,$7C20ED6073303C5C,$2183DB41CAA0F790
Data.q $783DEC1CD60FB307,$859C85DB83ABE0E7,$85E985018596850A,$2F3E166F0AE78515,$2B3229922B622ADC
Data.q $B6745E3A2D4A2BF2,$2C438FD152D146E8,$9439F21F190EA487,$0EC68733A1E8E87C,$164B14A628DA1E2D
Data.q $14971527157B151B,$38DE2D3F158F17B7,$D7B0E8D8792C3E4C,$1E1FB70F47C3A4E1,$08E508E37878BC3B
Data.q $47C923EF11D188E3,$6791FAE473391D8E,$98974896B0947E47,$74969496A496F894,$CA3AD92F3C944C96
Data.q $A3FF51F9A8F65476,$FB7A3F9E8E2B47E9,$14C79C63EDD1CAE8,$563ACB1E631F598F,$C7B7B1F4D8EFAC7B
Data.q $1C3B8ED5C77CE3E1,$A5F8F1BC705E388F,$C2A5B14BD7C773E3,$C5A571A56EA53AA5,$BF4A4FA5A3A5ADA5
Data.q $BE65266518CA5197,$B7655D656565A965,$572CE729FD965ECA,$AF29CF2E0F29B72C,$815F7F299F281F2B
Data.q $88A9EC576857A0AA,$F15A3152D15438AD,$6955295292A362A4,$B2A2B2AFB957E95A,$E2A81575F2B272BB
Data.q $3AA88AA872AD52AD,$EAA8F5543554D550,$DAA8DAA25AB1354B,$FAABBAB4BAA53AA7,$1AEE1ADFF54AF556
Data.q $9A829AF09AFB1A95,$D4BE6A8F35433593,$6B7D6A8D6A256B12,$D64ED7CF6BCB6AD3,$75EA757C7503AEBE
Data.q $75CD75857551754E,$EB59EA36EA4F7523,$D7F7EB03EBCDEA65,$6FBFD4CFD7F7D4D7,$347836E8370834C0
Data.q $D130DB386B1C3624,$9509F704FB61B2F0,$713C1C4E22270E13,$1A36272789F0C4EA,$1B031A2D1A651B59
Data.q $1B671A071AEB1AB3,$3C349D8A4EE24FD7,$EEC9F964F5327DE9,$049A2136AE4E7793,$4A9BE29B5C9AB49B
Data.q $6D345E9A269A3A9A,$54F1CA7AA53EE29F,$9DAEA72D53A2A9D4,$C569DA69D7EA767A,$6E9C174EC3A7B6D3
Data.q $CD1BD3E3F4F57D3A,$E6CCCD96CDB2CDAC,$351F9B97CD13E69C,$B798B548B7216D7F,$B60CB5D4B564B604
Data.q $B4656C4ADCF9683C,$6DAD6FEEB7FAB69A,$6846D4FD6B9D681D,$D996DBDB69336C93,$A9F6DB36D036D356
Data.q $DFEED26ED92ED09D,$D73ED03EDB5ED99E,$E98CE30CF10CE9FE,$199DD4CFFB338099,$87720E97CCE0F33C
Data.q $4776475047798754,$676F8EF98EE5C743,$721B3AB59ECACE59,$3ECF57B3C9ECEF36,$D3A153BD93A3FB39
Data.q $E7736760F3BC33B6,$5D5C5DDFCEA5CEB5,$BB875D315D4E5DAA,$E7039CAD744D74CE,$78973B739D69CFF8
Data.q $ADCF7773F9DCF4AE,$DE706F39179F479D,$E7FDF3EAF9FA7CF7,$754B7526EE7FCEE7,$BB1BBB73BB33745B
Data.q $EB43D1FEE93F76AF,$D439EA89E871EA51,$7A0BD2B3DE33DED3,$7B937A3D7BB57A05,$B87EF5EF7A7B7BCB
Data.q $C042F4C17120BF80,$785D0C2E270BEC85,$CFA94FBD8FB3617C,$6FBDAFB8AFAA2FBE,$AFD82FDC3F55EFA2
Data.q $DFD95FD69FD5EFDB,$203C8079FFDB3FD7,$7030503210396033,$45F6C0F2C0DAE07A,$5D262EDD179A8BDE
Data.q $8FC5DEF173D8BB2C,$7320F9A0C6418483,$D9F0647069B06F30,$B92E3497DC4BEFE0,$D2FBA97A54BC4A5E
Data.q $97199709978FA5F4,$EA7CBFCE5F072FCD,$BC43DBCBE5E5E8F2,$1543C943EE435A43,$42BE7D0FEE861743
Data.q $95F84AFAC57B22BE,$5CACAFC657AD2BC2,$B9F55FEAAFD2AF85,$0BABA5EAEEB5719A,$4EC3CAC369873757
Data.q $4F0DCF8747C371C3,$CC46308FC11FBF0D,$C6479A460A478247,$BD51C151828C5E46,$4BD1DAD1F4D1EF51
Data.q $A9AED1AE3FA30BA3,$B5F8ED7F16BE735C,$C6918FADAEF76BEE,$C68AC7C2C7ACC664,$BA8EB9BD8E6EC7DA
Data.q $9CF5C07AF8DD7A2E,$FEBE5F5E8FAF27EB,$375E1B9D0DFF06F7,$E16374B8DED46FD2,$3DF1B571CE718FC6
Data.q $67C617E3E5E349E3,$384C284EB04EBFC7,$3137389D1C4CC44C,$4DCCA6F126F1F135,$B8ECDD0F37119BEB
Data.q $C92DEC2DDAE6FB79,$D5B81D6E42B7E65B,$DBA8DBEBD6FC6B7A,$BBCEDD076E4DB7A2,$E1272FDBF5F6FA7D
Data.q $9CC9FF49C349E149,$C077E7C9D1C9A6C9,$B2777E3B831DFA1D,$677CB3B919DE34EE,$77BEBBFD5DE0AEE7
Data.q $D2EEF877713DDFF7,$BE537A530253BFDD,$2D4F0D4C4EA7FB53,$F69FD69C169DFD4D,$5E991E9C6E9ACE9B
Data.q $6F7067BF47B9DE9E,$BB5DEF277BECBDEF,$9A319A119A0662F7,$7D7335399DC99809,$937DE8BEE23EE566
Data.q $4FEE5BF705FBCCFB,$359895998B337FDC,$7B333D9C2D9D0D9F,$CE7A4E7E1CDDF67B,$DCD75CC8EE722E66
Data.q $078503CA03FADCF4,$7DE83E941EE20F0E,$AA87F643FBE0F730,$387AAC3CA61F5D0F,$8F3C47ADC3F1F0F8
Data.q $E2747CCA3F791FB4,$342F3079E5A3C8D1,$32DF3F9F381F346F,$2C605D80BABF313F,$5AE85E1C2C442D58
Data.q $E2B1E598F4F85E98,$F71FCB8F09C7A763,$27EE13E7F8F47E3F,$F1393C649EBC4F5A,$E153D0A7F3C9E464
Data.q $6D3C0F4F994F26A7,$A2C245BBE9FB7A7F,$C5F1E2CC62DDA2EC,$9E38CF1B8B07C5DE,$FEACFE9678F33C69
Data.q $78496825E5B3F0D9,$7DA97074B98964C9,$7E596932C3E97269,$7FB97CB97E3961D9,$3AE79E73D7F97E79
Data.q $7E7A6F3D679F7DCF,$2F9217E817EBF9FD,$FCE2F238BE445EAC,$54BDA4BDBE2FFB8B,$97FACBDF72F1E97F
Data.q $2BA22BC0AF9F2FC3,$573A56872BA12B66,$7952BEA2BF3E57A6,$2BABED55F52AFAE5,$9B5E45AF435E96AF
Data.q $EBECFAF45D790EBE,$BCA8DF50DF9FD7A9,$D5CDEEA6F6937D71,$D9AAE8AAF0ABCB37,$CCEAD76AF16AD86A
Data.q $7ADFD56FECB7D7EA,$DBE8EDE27B7F4DBC,$5AD59AE49AD43595,$6B07B5DEB5D1DAD4,$FBE779D3BF71DE3F
Data.q $6B7789BBF35DE72E,$4FBE3BDEE5EF09EF,$F7C5FBD2FEF95F78,$FC10F9307D083F7F,$BE1F7B87E743E8A1
Data.q $63F3D1FEA8FF647E,$BD7C7FAF1F93C7E6,$5B8F5BB75E975D8E,$FB7D64FEB8BF5F2F,$454FE0A7F193FD13
Data.q $33F5F4FBDD3F3A9F,$3FFBCFAF67C6B3ED,$E10BF6FCFF1E7D37,$AA5F892FC717DC8B,$157D0AFA597D0CBF
Data.q $D7C96BE235F16AFD,$FBC6FCFEBF0FAF9E,$676F82B7C05BFF4D,$77DB3BF9F6FDDDBE,$7D37BF33DF9EEFB5
Data.q $7E436106EDFDF1BF,$EAE366A3792369C3,$F5A6C4A6E44DF3C6,$E3E6C0E6E966CC66,$847E4C3F421FEDCD
Data.q $8FDCC7FBA3FC38FE,$F80CFDEA7F793F1F,$5F9FE9CFC767E079,$95F9F2FE697ED17E,$B61F5FEDD7E5ABF3
Data.q $B632B7DCB654B658,$F89BFB7AD8DD6E4E,$F5DFD4EFCBB7E15B,$23FD83FABF7F47BF,$3F9A9FD24FE1C7F3
Data.q $B6336D46D8BCFF57,$6F2FB72BB7E3B76D,$FEB5FC4AFF85FD2F,$C5DFE0EFFCB7F31B,$B513B963B623B01D
Data.q $E76774F3B033BA53,$39A7F881BB257BDF,$533600064B800F3D,$00021E2002D4D400,$689D985E017FFBC5
Data.q $090000004AEA1F34,$120B000073594870,$7EDDD201120B0000,$4144490C030000FC,$1B4E31DDEDDA7854
Data.q $1717723B51801841,$8DA0A452E9C282A1,$2447422912013884,$683A007201C40E4A,$F71A4B921104E522
Data.q $8891775996CA8450,$667B1980815DA2E8,$7FDE2702B2EBDE76,$0000C19AD5D9A7C2,$F75C330A00000000
Data.q $D42E59CCE4F5F05F,$6C7177723AD3B574,$AA2F1EAD358F95F4,$000A73BC3AC2E7A2,$D280067900019E40
Data.q $BDD433BDDCF7BE44,$91D69A1EB6B942A1,$747DBC5F53E9E5D9,$B55569AC6FF58CEE,$2000CF760B9A0AA8
Data.q $766F90A30A4000CF,$9E40019EEC001B29,$F781060006790001,$8AC60318FBA67B9E,$00CF200033DD8269
Data.q $EF7BD44BC000CF20,$105B1C3E6B137BB9,$549BAC6AC6693DAF,$00067BB768DD34D5,$67900067900019E4
Data.q $00019E40019E4000,$DCF73D04BA800679,$6CF3D41EA9CEEDFD,$7602B18317C2866B,$084F00033C8000CF
Data.q $6DE4CB327DFDB8BA,$9A2EB88EB499BAFC,$7BB005635BC7C1DC,$0019E40006790006,$459B2E4A17F9112A
Data.q $58C4DCCB313237A2,$F200033DD80AC60C,$F221940033C8000C,$A3FC0DBD8B9FE7BD,$BB5EFE5C995C3F0F
Data.q $E40019EEC0158C18,$0067900067900019,$7900019E40019E40,$0019E40006790006,$F50FE44628006790
Data.q $CF76000C588CB9F4,$80033C8000CF2000,$33C8000CF200033C,$2000CF200033C800,$033C80033C8000CF
Data.q $C80033C8000CF200,$00CF2000CF200033,$F200033C80033C80,$0033C8000CF2000C,$3C8000CF2000CF20
Data.q $000CF200033C8003,$68B365E6F90A377D,$0C58A73A5FBFB91D,$8000CF2000CF7600,$FF3DEE826D40033C
Data.q $B1C3E636F266EF9E,$02B1BEEFFAE6E659,$EB00033C80033DD8,$5F8F6B9F3B717411,$4C76AE991D69FFDE
Data.q $DD80AC61E5F0AD37,$033C8000CF200033,$0835BB3DEE822940,$8000CF2000CF7600,$0CF2000CF200033C
Data.q $100033C80033C800,$DE849F75CBEE28C1,$E844FDDD6F3C378C,$371A7E3FFFE687AD,$C60C5F0E79C847D6
Data.q $84FD52549F7FED9A,$067900019EEC1731,$D5F45DB8BE44FC80,$EFDC6AE9D175D698,$DB05FF3F1C5DDFD9
Data.q $8FC50BAD23ADE747,$63B8D63062FD922F,$0B9EFD309FDCAB4D,$3C8000CF2000CF76,$000CF2000CF20003
Data.q $C1100033C80033C8,$39C3F6FE7DCBEE30,$F950C5A9E5D9B1ED,$173415516AAAD358,$7900019E40019EEC
Data.q $F817800000000006,$EF879147A9BEDF07,$4E45490000000076
Data.b $44,$AE,$42,$60,$82
disquette_data_end:
;------------- image guru ---------------------------------------
guru_meditation:
; size : 1417 bytes
Data.q $0A1A0A0D474E5089,$524448490D000000,$9200000000040000,$A5D2290000000304,$4D497407000000EB
Data.q $0930111E09DA0745,$090000002490D979,$204E000073594870,$997D1601204E0000,$4D416704000000DE
Data.q $61FC0B8FB1000041,$544C500900000005,$FF000000FFFFFF45,$0000B09DC9C00000,$4000534E52740100
Data.q $49F604000066D8E6,$0D9DEDDA78544144,$7C057B4610309B8E,$78F6086C87FEFB03,$BDFB4856E90098C6
Data.q $0C2B7EFFD6144527,$A79FCD202CFF678D,$8020E20082CF001B,$008388020E200838,$020E2008388020E2
Data.q $08388020E2008388,$20E2008388020E20,$8388020E20083880,$0E2008388020E200,$388020E200838802
Data.q $E2008388020E2008,$88020E2008388020,$2008388020E20083,$8020E2008388020E,$008388020E200838
Data.q $2F2804D7388020E2,$6B5546E9E76A79FC,$46F90F52B87252A6,$554328646F22FB31,$42F517D0ACE4755F
Data.q $E9E4F7A69DD8E93A,$EA5C0200208FB666,$0275F9742F5C0222,$777E3D5F5A8635AC,$FEB9D32CD6535EFA
Data.q $C79019EE0377805A,$E176FEDA723A2FD3,$6F89D1FD6B3763A4,$2E0119AB5C020020,$B7AA1D68051BFA17
Data.q $59FAFA7BB69E7ACC,$70CA4EA1D7D3D493,$0736A7ED494B1E83,$7931A3F669A4A7DB,$B2DAE4F3DED57A25
Data.q $23BCC36D465896DA,$988B6FFDE315913E,$CB57365C1C6CC75D,$9BD635C92C171C76,$3DFB96F26396C932
Data.q $800800800871BEE8,$2B59D27B402E3F00,$8D7E6B54D5B2F778,$C5C0C29019A4737E,$976F0099A7C0D98E
Data.q $CA41B241D593A6AC,$B9DDF9D89B039F8B,$7E2E86F48E861D2D,$D94C20D85E65ADE6,$6677C01AE3976D1A
Data.q $EC6E35930E3C18F2,$2E6ED86E6C932A4F,$AE01001001001087,$8DD659AE2A5067FE,$DC3CDDD8045B0041
Data.q $9D9B0059F2AE7A96,$FDEEE2929C402E72,$B1C9C4D009ABDBB3,$38C7EC875D68969C,$080587E19AE3CCDC
Data.q $04008B57C02ABA7D,$8FD9D38040040040,$6F9E6B696E3F2677,$C70E3E804EE86C69,$40207395DC51F802
Data.q $36B86DCE3DFFD3C8,$664CB00A9D5DC474,$48049F8FD28040F1,$035B308BA900D6F7,$00800835BF27FCD4
Data.q $0597008008008008,$AFCED5950C9CBC98,$AC3979EC937790CB,$92DBE9AC7AFAEC4A,$ECC73D96F2D82EAC
Data.q $6B93CF5EB5B802C7,$A0F4ED1C30A2DAD6,$FD65B5C9AD008323,$96FFED6E9DFCEE5D,$DAE773B6D7C0FDA0
Data.q $6A5BACEF95EEE0AB,$0080085C3F1654E7,$5AFC00293F008008,$C4010710041C4010,$10041C4010710041
Data.q $4010710041C40107,$0041C4010710041C,$010710041C401071,$041C4010710041C4,$10710041C4010710
Data.q $41C4010710041C40,$833052E0129E7100,$9DDDC6974866BF6D,$C5B17DD126C99643,$18E3B5B9C34E83E2
Data.q $1CBEB3457DB92265,$0B3DB52685A10B64,$2DA00804F0082C02,$CD9B109EFD976CC0,$D8B0F4FE1C521CE5
Data.q $3F5F94DC3800863C,$3DAA1A32DB54205B,$785B043B03DFB6C9,$6D00402780400416,$DFB2DC2CDDD1F601
Data.q $D7DF7B751C85BEDD,$F98DB412DAF6F574,$D6171711FDBFDB7E,$2D53FCFBAFFF6FCD,$83B877CFC06B1DBD
Data.q $8AE2CB8D5ACDB1C9,$CA5EAFA0106D98FB,$80400407FFFC9DCD,$5B9DF10804004007,$78D954DB00BDE978
Data.q $148B2C6863818F8E,$99005AD2E3FE6763,$26B1C1E8002D8FD2,$9CC59B34E301CB6B,$80CF35F0C6C6E189
Data.q $1600800800F00800,$5960173C9C1B6C5B,$1069C9FD58360717,$00D7D008AE022FA0,$49AC777254724E6D
Data.q $D9E77877C42E5D4A,$C7F1640271AF5FFC,$F864780400400440,$7556D04F0080083D,$32BC2010797A804E
Data.q $34A3D2B67C900A9D,$3B60ABEBFC02872F,$9E6005B3673E5AD4,$804F00800830F6D7,$8B65B3B7B402E200
Data.q $A978F816A9EEDD1B,$3F76E7707D7C75A7,$616BBECD90E4E56D,$7E65315802872CB5,$B649D9A71085F4FC
Data.q $0086836210BE0051,$C5C2D7C34F008008,$10041C4010710041,$4010710041C40107,$0041C4010710041C
Data.q $010710041C401071,$041C4010710041C4,$10710041C4010710,$41C4010710041C40,$0710041C40107100
Data.q $1C4010710041C401,$710041C401071004,$C4010710041C4010,$10041C4010710041,$9C11D30BF9C40107
Data.q $000000D6E604D650,$6042AE444E454900
Data.b $82
guru_meditation_end:
;----------- image guru 2 --------------------
guru_meditation2:
; size : 538 bytes
Data.q $0A1A0A0D474E5089,$524448490D000000,$9200000000040000,$A5D2290000000304,$4D497407000000EB
Data.q $332E111E09DA0745,$090000004976946B,$204E000073594870,$997D1601204E0000,$4D416704000000DE
Data.q $61FC0B8FB1000041,$544C500900000005,$FF000000FFFFFF45,$0000B09DC9C00000,$4000534E52740100
Data.q $498701000066D8E6,$A1D8EDDA78544144,$814FC10410408011,$0A28604483FC9E10,$5DA8C5608EE989CD
Data.q $1004B3007A6B6907,$4E2009C401388027,$009C401388027100,$B4127007771004E2,$09C401388026D005
Data.q $4013880271004E20,$600AF71004E2009C,$02710048FC929F4F,$1004E2009C401388,$4E2009C401388027
Data.q $009C401388027100,$C4013880271004E2,$13880271004E2009,$80271004E2009C40,$71004E2009C40138
Data.q $04E2009C40138802,$2009C40138802710,$9C4013880271004E,$013880271004E200,$880271004E2009C4
Data.q $271004E2009C4013,$004E2009C4013880,$E2009C4013880271,$09C4013880271004,$4013880271004E20
Data.q $3880271004E2009C,$0271004E2009C401,$1004E2009C401388,$4E2009C401388027,$009C401388027100
Data.q $C4013880271004E2,$13880271004E2009,$80271004E2009C40,$71004E2009C40138,$04E2009C40138802
Data.q $2009C40138802710,$9C4013880271004E,$013880271004E200,$04E2008D40047DC4,$2009C40138802710
Data.q $DC4013880271004E,$3880271004B20023,$0271004E2009C401,$1004E2009C401388,$2F4C5DC401388027
Data.q $00005FAC25AA1D24,$42AE444E45490000
Data.b $60,$82
guru_meditation2_end:

Re: amiga led,guru et decrunching

Publié : sam. 10/déc./2016 0:15
par raven
bonjour,

le synthé que je vais inclure dans ma demo.
les couleurs des touches du clavier varie ainsi que les boutons.

maintenant faut que je vois pour simulé la pression des touches pendant la musique.
j'avais pensé a faire des minis zooms sur les touches,je sais pas si ça va le faire.

la demo est bien avancé.reste a voir ce problème de syncro avec la zik(c'est la galere).
et j'ai eu quelques soucis avec les enumerations.

voici le code du clavier

Code : Tout sélectionner

;***********************************************
;Titre  :clavier
;Auteur  : Raven
;Date  :09/12/2016
;Heure  :23:06:31
;Version Purebasic :  PureBasic 5.43 LTS (Windows - x86)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************

enableexplicit
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 ;or UsePNGImageDecoder()=0
MessageRequester("Probleme","Initialisations impossibles",0)
End
EndIf
declare bouton()
declare bouton2()
declare bouton3()
Declare bouton4()
Declare bouton5()
Declare clavier_touche_blanche()
Declare clavier_touche_noire()
Declare boitier_clavier()
Declare haut_parleur()
enumeration fenetre
#fenetre
endenumeration

enumeration
#bouton
#bouton2
#bouton3
#bouton4
#bouton5
#bouton6
#bouton7
#bouton8
#bouton9
#bouton10
#clavier
#clavier2
#haut_parleur
#boitier
EndEnumeration

#largeur_ecran = 640
#hauteur_ecran =480

global Event,i
global couleur.f,couleur2.f,variation=1,largeur_ecran ,hauteur_ecran 
;fenetre
OpenWindow(#fenetre,0,0,#largeur_ecran,#hauteur_ecran,"Pure Miga",#PB_Window_ScreenCentered|#PB_Window_SystemMenu )

OpenWindowedScreen(WindowID(#fenetre),0,0,#largeur_ecran,#hauteur_ecran)
;------ procedures boitier,boutons,clavier,touches blanches et noir ---------
procedure bouton()
createsprite(#bouton,55,55)
startdrawing(SpriteOutput(#bouton))
box(0,0,55,55,rgb(155*couleur2+variation,255*couleur+variation,150*variation))
StopDrawing()
EndProcedure

procedure bouton2()
createsprite(#bouton2,55,55)
startdrawing(SpriteOutput(#bouton2))
box(0,0,55,55,rgb(125*couleur2+variation,255*couleur+variation,70-variation))
StopDrawing()
EndProcedure

procedure bouton3()
createsprite(#bouton3,55,55)
startdrawing(SpriteOutput(#bouton3))
box(0,0,55,55,rgb(75*couleur2+variation,25*couleur+variation,150-variation))
StopDrawing()
EndProcedure

procedure bouton4()
createsprite(#bouton4,55,55)
startdrawing(SpriteOutput(#bouton4))
box(0,0,55,55,rgb(55*couleur2+variation,155*couleur+variation,150-variation))
StopDrawing()
EndProcedure

procedure bouton5()
createsprite(#bouton5,55,55)
startdrawing(SpriteOutput(#bouton5)) 
box(0,0,55,55,rgb(255*couleur2+variation,175*couleur+variation,190-variation))
StopDrawing()
EndProcedure

procedure bouton6()
createsprite(#bouton6,55,55)
startdrawing(SpriteOutput(#bouton6)) 
box(0,0,55,55,rgb(235*couleur2+variation,15*couleur+variation,175-variation))
StopDrawing()
EndProcedure

procedure bouton7()
createsprite(#bouton7,55,55)
startdrawing(SpriteOutput(#bouton7)) 
box(0,0,55,55,rgb(55*couleur2+variation,155*couleur+variation,150-variation))
StopDrawing()
EndProcedure

procedure bouton8()
createsprite(#bouton8,55,55)
startdrawing(SpriteOutput(#bouton8)) 
box(0,0,55,55,rgb(55*couleur2+variation,155*couleur+variation,15-variation))
StopDrawing()
EndProcedure

procedure bouton9()
createsprite(#bouton9,55,55)
startdrawing(SpriteOutput(#bouton9))
box(0,0,55,55,rgb(75*couleur2+variation,255*couleur+variation,250-variation))
StopDrawing()
EndProcedure

procedure clavier_touche_blanche()
createsprite(#clavier,25,75)
startdrawing(SpriteOutput(#clavier))
box(0,0,55,75,rgb(255+couleur,255,255+couleur2))
StopDrawing()
endprocedure

procedure clavier_touche_noire()
createsprite(#clavier2,15,45)
startdrawing(SpriteOutput(#clavier2))
box(0,0,15,45,rgb(55,55,55))
StopDrawing()
endprocedure

procedure haut_parleur()
createsprite(#haut_parleur,155,155)
startdrawing(SpriteOutput(#haut_parleur))
circle(35,35,35,$666666)
StopDrawing()
EndProcedure

Procedure boitier_clavier()
CreateSprite(#boitier,620,200)
StartDrawing(SpriteOutput(#boitier))
Box(0,118,522,90,rgb(195,195,175))

StopDrawing()

EndProcedure

boitier_clavier()
repeat;2d
  repeat ;event fenetre

 Event = WindowEvent()

Select Event    
Case #PB_Event_CloseWindow
End
EndSelect  

Until Event=0


FlipBuffers()
ClearScreen(rgb(0,0,0))
ExamineKeyboard()
;on appellle les procedures
bouton()
bouton2()
bouton3()
bouton4()
bouton5()
; bouton6()
; bouton7()
; bouton8()
; bouton9()

clavier_touche_blanche()
clavier_touche_noire()
haut_parleur()
gosub affiche_clavier

until KeyboardPushed(#pb_key_escape) or event = #PB_Event_CloseWindow

end
;-------- sous programme -----------
affiche_clavier:
;touche blanche
displaytransparentsprite(#clavier,60,301)
displaytransparentsprite(#clavier,86,301)
displaytransparentsprite(#clavier,112,301)
displaytransparentsprite(#clavier,138,301)
displaytransparentsprite(#clavier,164,301)
displaytransparentsprite(#clavier,190,301)
displaytransparentsprite(#clavier,216,301)
displaytransparentsprite(#clavier,242,301)
displaytransparentsprite(#clavier,268,301)
displaytransparentsprite(#clavier,294,301)
displaytransparentsprite(#clavier,320,301)
displaytransparentsprite(#clavier,346,301)
displaytransparentsprite(#clavier,372,301)
displaytransparentsprite(#clavier,398,301)
displaytransparentsprite(#clavier,424,301)
displaytransparentsprite(#clavier,450,301)
displaytransparentsprite(#clavier,476,301)
displaytransparentsprite(#clavier,502,301)
displaytransparentsprite(#clavier,528,301)
displaytransparentsprite(#clavier,554,301)
;-----------------------------
;touche noir
displaytransparentsprite(#clavier2,80,301)
displaytransparentsprite(#clavier2,110,301)
displaytransparentsprite(#clavier2,151,301)
displaytransparentsprite(#clavier2,182,301)
displaytransparentsprite(#clavier2,214,301)
displaytransparentsprite(#clavier2,258,301)
displaytransparentsprite(#clavier2,288,301)
displaytransparentsprite(#clavier2,336,301)
displaytransparentsprite(#clavier2,365,301)
displaytransparentsprite(#clavier2,395,301)
displaytransparentsprite(#clavier2,442,301)
displaytransparentsprite(#clavier2,470,301)
displaytransparentsprite(#clavier2,515,301)
displaytransparentsprite(#clavier2,545,301)
;----------------------------
;haut parleur
displaytransparentsprite(#haut_parleur,125,221,155)
displaytransparentsprite(#haut_parleur,445,221,155)
zoomsprite(#haut_parleur,45,45)
displaytransparentsprite(#haut_parleur,470,245)
zoomsprite(#haut_parleur,45,45)
displaytransparentsprite(#haut_parleur,150,245)
displaytransparentsprite(#boitier,58,100,155)
zoomsprite(#clavier,100,60);ecran_synth
displaytransparentsprite(#clavier,260,225,155);ecran_synth
;-----------------------------
;bouton 1er range gauche
zoomsprite(#bouton2,10,5)
displaytransparentsprite(#bouton2,240,225,155)
zoomsprite(#bouton,10,5)
displaytransparentsprite(#bouton,200,225,155)
zoomsprite(#bouton3,10,5)
displaytransparentsprite(#bouton3,220,225,155)
;-------------------------------
;bouton 2eme range droite
zoomsprite(#bouton2,10,5)
displaytransparentsprite(#bouton2,370,225,155)
displaytransparentsprite(#bouton,390,225,155)
zoomsprite(#bouton3,10,5)
displaytransparentsprite(#bouton3,410,225,155)
;------------------------------
;bouton 2eme range gauche
zoomsprite(#bouton4,10,5)
displaytransparentsprite(#bouton4,240,245,155)
zoomsprite(#bouton2,10,5)
displaytransparentsprite(#bouton2,200,245,155)
zoomsprite(#bouton5,10,5)
displaytransparentsprite(#bouton5,220,245,155)
;--------------------------------
;bouton 2 eme range droite
zoomsprite(#bouton4,10,5)
displaytransparentsprite(#bouton4,370,245,155)
zoomsprite(#bouton2,10,5)
displaytransparentsprite(#bouton2,390,245,155)
zoomsprite(#bouton5,10,5)
displaytransparentsprite(#bouton5,410,245,155)
;-------------------------------
;variable couleurs
couleur = couleur.f-0.025
couleur2 = couleur2.f - 0.035
variation = variation *- 0.00015
return

Re: amiga led,guru et decrunching

Publié : sam. 10/déc./2016 11:54
par Ar-S
Tu devrais stocker tes touches dans un tableau structurée.

Code : Tout sélectionner

Structure Touche
  x.i
  y.i
 Id.i ; #clavier = Blanc ou #clavier2 = noir
  col.i
EndStructure

Global Dim touche.touche(33) ; 34 touches
Global LargTBlanche = 25 : HautTBlanche = 75 
Global LargTNoire = 12 : HautTnoire = 45
Une fois que tu as ça tu stockes les x et y de chaque touches dans le bon ordre (c'est le plus long)
B,N,B,N,B,B,N,B etc
Pour la 1ere par ex :

Code : Tout sélectionner

touche(0)\x = 60
touche(0)\y = 301
touche(0)\id = #Clavier
touche(0)\col = blanche
Note : dans l'exemple plus bas tu verras qu'avec une petite macro ça ira encore plus vite

Comme ça ton tableau aura ton clavier d'indéxé.
Pour ce qui est la simulation des touches, je verrai à seulement changer la couleur de la touche désirée.

;Ton affichage lui ne bougera pas !
For i = 0 to 33 ; (tu as 34 touches)
DisplayTransparentSprite(Touche(i)\id, touche(i)\x , touche(i)\y)
next


Voilà un code reprenant tout ça, j'ai ajouté une petite macro pour simplifier la syntaxe (1 ligne oar note au lieu de 4 pour stocker)

Code : Tout sélectionner

Enumeration
  #clavier
  #clavier2
EndEnumeration



Structure Touche
  x.i
  y.i
  Id.i
  col.i
EndStructure

Global LargTBlanche = 25 : HautTBlanche = 75 
Global LargTNoire = 12 : HautTnoire = 45 
Global Dim touche.touche(33) ;(34 touches)

; macro pour simplifier le stockage
Macro Tou(num,Tid,Tx,Ty,Tcol)
  touche(num)\id = Tid
  touche(num)\x = Tx
  touche(num)\y = Ty
  touche(num)\col = Tcol
EndMacro


; Exemple de stockage de la 1ere touche

tou(0,#clavier,60,301,$FFFFFF)

; Vérifions :

Debug "1ere touche : X = " +touche(0)\x
Debug "1ere touche : Y = " +touche(0)\y
Debug "1ere touche : Couleur = " +touche(0)\col



Une fois que tu as stocké tout ça, tu peux lancer tes procédures de creation de sprite des touches

Code : Tout sélectionner

Procedure clavier_touche_blanche()
CreateSprite(#clavier,LargTBlanche,HautTBlanche)
StartDrawing(SpriteOutput(#clavier))
Box(0,0,LargTBlanche,HautTBlanche, $FFFFFF)
StopDrawing()
EndProcedure

Procedure clavier_touche_noire()
CreateSprite(#clavier2,LargTNoire,HautTnoire)
StartDrawing(SpriteOutput(#clavier2))
Box(0,0,LargTNoire,HautTnoire,RGB(55,55,55))
StopDrawing()
EndProcedure

Re: amiga led,guru et decrunching

Publié : sam. 10/déc./2016 20:43
par raven
merci Ar-s d'avoir pris de ton temps libre pour cette explication.
je crois que j'ai compris le principe,je sens que je vais m'amusé avec ce piano :)

Re: amiga led,guru et decrunching

Publié : lun. 12/déc./2016 17:02
par TazNormand
Salut Raven,

Pour simuler l'appui sur les touches, tu peux "ombrer"/opacifier un peu la touche et rajouter une zone plus sombre sur le côté (gauche ou droit) pour marquer l'aspect "enfoncement".

Re: amiga led,guru et decrunching

Publié : mar. 13/déc./2016 9:56
par raven
c'est bien pratique les tableaux structuré et les macros
je vais surement m'en faire un avec les lettres de l'alphabet.

bonjour merci Taznormand,pour l'astuce je vais essayé :wink:
faut que je vois aussi cette histoire de syncro,sur plusieurs compilation:un coup trop tot,un coup trop tard,un coup nickel...

pour le moment j'en suis la:

Code : Tout sélectionner

EnableExplicit
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or UsePNGImageDecoder()=0
MessageRequester("Probleme","Initialisations impossibles",0)
End
EndIf

Enumeration fenetre
#fenetre
EndEnumeration

Enumeration
  #Blanche
  #Noire
  #ecran
  #scanline
  #boitier
  #haut_parleur
EndEnumeration

#largeur_ecran = 595
#hauteur_ecran = 400

Structure Touche
  x.i
  y.i
  Id.i
  col.i
EndStructure

Structure Scanlines
scan.i
Scanx.i
Scany.i
couleur.i
EndStructure
; macro pour simplifier le stockage
 Macro Tou(num,Tid,Tx,Ty,Tcol)
   touche(num)\id = Tid
   touche(num)\x = Tx
   touche(num)\y = Ty
   touche(num)\col = Tcol
 EndMacro
 ;global
Global event,i
Global LargTBlanche , HautTnoire 
Global LargTNoire,HautTBlanche
Global ecran_image,ecran_posx,ecran_posy
Global couleur.f,couleur2.f,variation.f
Global Dim touche.touche(34) ;(35 touches)
Global NewList Scanlines.Scanlines(),Scanx ,Scany,scan_col

LargTBlanche =25
HautTBlanche = 75
HautTnoire  = 45
LargTNoire = 12
scanx=0
scany=0
;procedure touches blanches	
 Procedure clavier_touches_blanches()
 CreateSprite(#Blanche,LargTBlanche,HautTBlanche)
 StartDrawing(SpriteOutput(#Blanche))
 Box(0,0,LargTBlanche,HautTBlanche, RGB(255+couleur,255,255+couleur2))
 StopDrawing()
 EndProcedure
;procedure touches noires
Procedure clavier_touches_noires()
CreateSprite(#Noire,LargTNoire,HautTnoire)
StartDrawing(SpriteOutput(#Noire))
Box(0,0,LargTNoire,HautTnoire,RGB(55,55,55))
StopDrawing()
EndProcedure
;haut parleur
Procedure haut_parleur()
CreateSprite(#haut_parleur,155,155)
StartDrawing(SpriteOutput(#haut_parleur))
Circle(35,35,35,$666666)
StopDrawing()
EndProcedure
;boitier
Procedure boitier_clavier()
CreateSprite(#boitier,522,200)
StartDrawing(SpriteOutput(#boitier))
Box(0,0,522,90,RGB(175,175,175))
StopDrawing()
EndProcedure
;-------------- procedure tv ---------------------------
Procedure tv()
ecran_image=CatchSprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)
ZoomSprite(#ecran,595,400)
DisplayTransparentSprite(#ecran,ecran_posx/2,ecran_posy/2)
EndProcedure
Procedure scanline()
CreateSprite(#scanline,620,15)
StartDrawing(SpriteOutput(#scanline))
Box(0,0,120,5,RGB(55,55,55))
StopDrawing()

EndProcedure
;fenetre
OpenWindow(#fenetre,0,0,#largeur_ecran,#hauteur_ecran,"clavier synthe",#PB_Window_ScreenCentered|#PB_Window_SystemMenu )
OpenWindowedScreen(WindowID(#fenetre),0,0,#largeur_ecran,#hauteur_ecran)

;IncludeFile "data_pure_miga_avec_son_lecteur.pb"

tou(0,#Blanche,37,284,$FFFFFF);blanche
 tou(1,#Blanche,63,284,$FFFFFF);blanche
 tou(2,#Noire,50,284,RGB(255,0,0));noire
 tou(3,#Blanche,89,284,$FFFFFF);blanche
 tou(4,#Noire,76,284,RGB(255,0,0));noire
 tou(5,#Blanche,115,284,$FFFFFF);blanche
 tou(6,#Noire,128,284,RGB(255,0,0));noire
 tou(7,#Blanche,141,284,$FFFFFF);blanche
 tou(8,#Noire,154,284,RGB(255,0,0));noire
 tou(9,#Blanche,167,284,$FFFFFF);blanche
 tou(10,#Noire,180,284,RGB(255,0,0));noire
 tou(11,#Blanche,193,284,$FFFFFF);blanche
 tou(12,#Blanche,219,284,$FFFFFF);blanche
 tou(13,#Noire,232,284,RGB(255,0,0));noire
 tou(14,#Blanche,245,284,$FFFFFF);blanche
 tou(15,#Noire,258,284,RGB(255,0,0));noire
 tou(16,#Blanche,271,284,$FFFFFF);blanche
 tou(17,#Blanche,297,284,$FFFFFF);blanche
 tou(18,#Noire,311,284,RGB(255,0,0));noire
 tou(19,#Blanche,323,284,$FFFFFF);blanche
 tou(20,#Noire,337,284,RGB(255,0,0));noire
 tou(21,#Blanche,349,284,$FFFFFF);blanche
 tou(22,#Noire,363,284,RGB(255,0,0));noire
 tou(23,#Blanche,375,284,$FFFFFF);blanche
 tou(24,#Blanche,401,284,$FFFFFF);blanche
 tou(25,#Noire,415,284,RGB(255,0,0));noire
 tou(26,#Blanche,427,284,$FFFFFF);blanche
 tou(27,#Noire,440,284,RGB(255,0,0));noire
 tou(28,#Blanche,453,284,$FFFFFF);blanche
 tou(29,#Blanche,479,284,$FFFFFF);blanche
 tou(30,#Noire,492,284,RGB(255,0,0));noire
 tou(31,#Blanche,505,284,$FFFFFF);blanche
 tou(32,#Noire,515,284,RGB(255,0,0));noire
 tou(33,#Blanche,531,284,$FFFFFF);blanche
 tou(34,#Noire,537,284,RGB(255,0,0));noire
 
scanline()

For scan_col = 1 To 80
AddElement(Scanlines())
With Scanlines()
\scan = CopySprite(#scanline,#PB_Any)
\Scany = scan_col * 4
EndWith
Next 


;blanche
Debug "1ere touche : id= " +touche(0)\id
Debug "1ere touche : X = " +touche(0)\x
Debug "1ere touche : Y = " +touche(0)\y
Debug "1ere touche : Couleur = " +touche(0)\col
;blanche
Debug "2 eme touche : id= " +touche(1)\id
Debug "2eme touche : X = " +touche(1)\x
Debug "2eme touche : Y = " +touche(1)\y
Debug "2eme touche : Couleur = " +touche(1)\col
;noir
Debug "3eme touche : id= " +touche(2)\id
Debug "3eme touche : X = " +touche(2)\x
Debug "3eme touche : Y = " +touche(2)\y
Debug "3eme touche : Couleur = " +touche(2)\col
;blanche
Debug "4eme touche : id= " +touche(3)\id
Debug "4eme touche : X = " +touche(3)\x
Debug "4eme touche : Y = " +touche(3)\y
Debug "4eme touche : Couleur = " +touche(3)\col
;noir
Debug "5eme touche : id= " +touche(4)\id
Debug "5eme touche : X = " +touche(4)\x
Debug "5eme touche : Y = " +touche(4)\y
Debug "5eme touche : Couleur = " +touche(4)\col

;blanche
Debug "6eme touche : id= " +touche(5)\id
Debug "6eme touche : X = " +touche(5)\x
Debug "6eme touche : Y = " +touche(5)\y
Debug "6eme touche : Couleur = " +touche(5)\col

;noir
Debug "7eme touche : id= " +touche(6)\id
Debug "7eme touche : X = " +touche(6)\x
Debug "7eme touche : Y = " +touche(6)\y
Debug "7eme touche : Couleur = " +touche(6)\col

;blanche
Debug "8eme touche : id= " +touche(7)\id
Debug "8eme touche : X = " +touche(7)\x
Debug "8eme touche : Y = " +touche(7)\y
Debug "8eme touche : Couleur = " +touche(7)\col

;noir
Debug "9eme touche : id= " +touche(8)\id
Debug "9eme touche : X = " +touche(8)\x
Debug "9eme touche : Y = " +touche(8)\y
Debug "9eme touche : Couleur = " +touche(8)\col

;blanche
Debug "10eme touche : id= " +touche(9)\id
Debug "10eme touche : X = " +touche(9)\x
Debug "10eme touche : Y = " +touche(9)\y
Debug "10eme touche : Couleur = " +touche(9)\col

;noir
Debug "11eme touche : id= " +touche(10)\id
Debug "11eme touche : X = " +touche(10)\x
Debug "11eme touche : Y = " +touche(10)\y
Debug "11eme touche : Couleur = " +touche(10)\col

;blanche
Debug "12eme touche : id= " +touche(11)\id
Debug "12eme touche : X = " +touche(11)\x
Debug "12eme touche : Y = " +touche(11)\y
Debug "12eme touche : Couleur = " +touche(11)\col

;blanche
Debug "13eme touche : id= " +touche(12)\id
Debug "13eme touche : X = " +touche(12)\x
Debug "13eme touche : Y = " +touche(12)\y
Debug "13eme touche : Couleur = " +touche(12)\col

;noir
Debug "14eme touche : id= " +touche(13)\id
Debug "14eme touche : X = " +touche(13)\x
Debug "14eme touche : Y = " +touche(13)\y
Debug "14eme touche : Couleur = " +touche(13)\col

;blanche
Debug "15eme touche : id= " +touche(14)\id
Debug "15eme touche : X = " +touche(14)\x
Debug "15eme touche : Y = " +touche(14)\y
Debug "15eme touche : Couleur = " +touche(14)\col

;noir
Debug "16eme touche : id= " +touche(15)\id
Debug "16eme touche : X = " +touche(15)\x
Debug "16eme touche : Y = " +touche(15)\y
Debug "16eme touche : Couleur = " +touche(15)\col

;blanche
Debug "17eme touche : id= " +touche(16)\id
Debug "17eme touche : X = " +touche(16)\x
Debug "17eme touche : Y = " +touche(16)\y
Debug "17eme touche : Couleur = " +touche(16)\col

 ;noir
 Debug "18eme touche : id= " +touche(17)\id
 Debug "18eme touche : X = " +touche(17)\x
 Debug "18eme touche : Y = " +touche(17)\y
 Debug "18eme touche : Couleur = " +touche(17)\col
 
 ;noir
 Debug "19eme touche : id= " +touche(18)\id
 Debug "19eme touche : X = " +touche(18)\x
 Debug "19eme touche : Y = " +touche(18)\y
 Debug "19eme touche : Couleur = " +touche(18)\col

 ;blanche
 Debug "20eme touche : id= " +touche(19)\id
 Debug "20eme touche : X = " +touche(19)\x
 Debug "20eme touche : Y = " +touche(19)\y
 Debug "20eme touche : Couleur = " +touche(19)\col

 ;noir
 Debug "21eme touche : id= " +touche(20)\id
 Debug "21eme touche : X = " +touche(20)\x
 Debug "21eme touche : Y = " +touche(20)\y
 Debug "21eme touche : Couleur = " +touche(20)\col

 ;blanche
 Debug "22eme touche : id= " +touche(21)\id
 Debug "22eme touche : X = " +touche(21)\x
 Debug "22eme touche : Y = " +touche(21)\y
 Debug "22eme touche : Couleur = " +touche(21)\col
 ;noir
 Debug "23eme touche : id= " +touche(22)\id
 Debug "23eme touche : X = " +touche(22)\x
 Debug "23eme touche : Y = " +touche(22)\y
 Debug "23eme touche : Couleur = " +touche(22)\col
 
 ;blanche
 Debug "24eme touche : id= " +touche(23)\id
 Debug "24eme touche : X = " +touche(23)\x
 Debug "24eme touche : Y = " +touche(23)\y
 Debug "24eme touche : Couleur = " +touche(23)\col
 
 ;blanche
 Debug "25eme touche : id= " +touche(24)\id
 Debug "25eme touche : X = " +touche(24)\x
 Debug "25eme touche : Y = " +touche(24)\y
 Debug "25eme touche : Couleur = " +touche(24)\col
 
  ;noir
 Debug "26eme touche : id= " +touche(25)\id
 Debug "26eme touche : X = " +touche(25)\x
 Debug "26eme touche : Y = " +touche(25)\y
 Debug "26eme touche : Couleur = " +touche(25)\col
  ;blanche
 Debug "27eme touche : id= " +touche(26)\id
 Debug "27eme touche : X = " +touche(26)\x
 Debug "27eme touche : Y = " +touche(26)\y
 Debug "27eme touche : Couleur = " +touche(26)\col
   ;noir
 Debug "28eme touche : id= " +touche(27)\id
 Debug "28eme touche : X = " +touche(27)\x
 Debug "28eme touche : Y = " +touche(27)\y
 Debug "28eme touche : Couleur = " +touche(27)\col
   ;blanche
    Debug "29eme touche : id= " +touche(28)\id
  Debug "29eme touche : X = " +touche(28)\x
  Debug "29eme touche : Y = " +touche(28)\y
  Debug "29eme touche : Couleur = " +touche(28)\col

     ;noir
  Debug "30eme touche : id= " +touche(29)\id
  Debug "30eme touche : X = " +touche(29)\x
  Debug "30eme touche : Y = " +touche(29)\y
  Debug "30eme touche : Couleur = " +touche(29)\col

    ;blanche
    Debug "31eme touche : id= " +touche(30)\id
  Debug "31eme touche : X = " +touche(30)\x
  Debug "31eme touche : Y = " +touche(30)\y
  Debug "31eme touche : Couleur = " +touche(30)\col
     ;blanche
    Debug "32eme touche : id= " +touche(31)\id
  Debug "32eme touche : X = " +touche(31)\x
  Debug "32eme touche : Y = " +touche(31)\y
  Debug "32eme touche : Couleur = " +touche(31)\col
      ;noir
  Debug "33eme touche : id= " +touche(32)\id
  Debug "33eme touche : X = " +touche(32)\x
  Debug "33eme touche : Y = " +touche(32)\y
  Debug "33eme touche : Couleur = " +touche(32)\col
     ;blanche
    Debug "34eme touche : id= " +touche(33)\id
  Debug "34eme touche : X = " +touche(33)\x
  Debug "34eme touche : Y = " +touche(33)\y
  Debug "34eme touche : Couleur = " +touche(33)\col
       ;noir
  Debug "35eme touche : id= " +touche(34)\id
  Debug "35eme touche : X = " +touche(34)\x
  Debug "35eme touche : Y = " +touche(34)\y
  Debug "35eme touche : Couleur = " +touche(34)\col

Repeat;2d 
Repeat;even fenetre 
Event = WindowEvent()


Select Event    
Case #PB_Event_CloseWindow
End
EndSelect  
Until Event=0

tv()
clavier_touches_blanches()
clavier_touches_noires()
boitier_clavier()
haut_parleur()

Gosub affiche_scanline

FlipBuffers()
ClearScreen(RGB(0,0,0))
ExamineKeyboard()
;appel le sous programme
Gosub affiche_boitier

Until KeyboardPushed(#PB_Key_Escape) Or event = #PB_Event_CloseWindow
End

;----------- sous programme ---------------
affiche_boitier:
  For i = 0 To 34 ; (tu as 35 touches)
   DisplayTransparentSprite(touche(i)\id,touche(i)\x,touche(i)\y,touche(i)\col)
 Next
 ;haut parleur
DisplayTransparentSprite(#haut_parleur,85,206,155)
DisplayTransparentSprite(#haut_parleur,445,206,155)
ZoomSprite(#haut_parleur,45,45)
DisplayTransparentSprite(#haut_parleur,470,233,155)
ZoomSprite(#haut_parleur,45,45)
DisplayTransparentSprite(#haut_parleur,110,233,155)
DisplayTransparentSprite(#boitier,36,194,155)
 ZoomSprite(#Blanche,100,60);ecran_synth
 DisplayTransparentSprite(#Blanche,240,215,couleur-couleur2);ecran_synth
 couleur = couleur.f-0.25
couleur2 = couleur2.f - 0.35

Return
;scanline
affiche_scanline:
ForEach scanlines()
ZoomSprite(scanlines()\scan,2690,8)
DisplayTransparentSprite(scanlines()\scan,scanlines()\scanx+36,scanlines()\scany+35,55)
Next
Return

DataSection
;------------------- image ecran ---------------------------------------
		ecran:
		; size : 12057 bytes
		Data.q $0A1A0A0D474E5089,$524448490D000000,$3B01000000020000,$AE4F240000000208,$475273010000005E
		Data.q $0000E91CCEAE0042,$0000414D41670400,$00000561FC0B8FB1,$0000735948700900,$C701C30E0000C30E
		Data.q $49AE2E000064A86F,$FBDDED5E78544144,$4A5D7DA57547A4B6,$0E64E6C08D8106CB,$74A84964846580C6
		Data.q $F7FF741849092542,$E466641199F315E0,$F3948DC3323BDACE,$2A2A037C7A37C7F7,$DDBAB3B327AD77DE
		Data.q $FF20FFCBF2FCBD2F,$BE45796DF25BE078,$F03E7F927F95DF23,$7F903F2FBE55793D,$FC91F81E1F957F91
		Data.q $9F937F953F227E58,$FF297E42FC0FCFC9,$6FCB5F90FF92BF2E,$ED7B5E53FE56FC0E,$FEBFAF277EEAFFB5
		Data.q $6F1BC6F1BD8FEFFA,$DBD6F5BD6F2DFF76,$B3CAEF0387F23BDD,$3E0F97DEEBDECF67,$DD8FEEA3EEC3E0F8
		Data.q $4FBA4FF3F9FCF2C7,$CFB1D3FB3ECFB3E5,$F3F94BEE8BFCFF3F,$AFE45FDD3FFCFF9F,$84D5FFE57D5F57DD
		Data.q $6D3FABB37FF164FF,$C3BFABAF3E2FCFE0,$7703E6FEA4D6BFE0,$02781DF7575BBE29,$E7E63A93F3A44FC5
		Data.q $4FC5DA781DB3D5D8,$DF8A8EF03237ABBF,$D5DD37E2D9BC39D9,$6AE8F9E287981FDB,$606D26A4D18F0666
		Data.q $981CF9ABB1678AF6,$EC613D33C300C2D8,$C05961476C0C22C1,$C39D8EF154EC0CFA,$FEC0EAAC13161626
		Data.q $3FB5E0F82C19D616,$880748515A061646,$341B81C10A6140C9,$C42B35035C205321,$3C4DC581A06EE40D
		Data.q $BEFFF0E8AA967287,$846DF7B7F52A5E3E,$1E293C2E7808F33B,$BC0778580FD34F1C,$ABC9778E6F125E15
		Data.q $6E61298206170BF5,$09F4F3698B662318,$83364CC732C8CA33,$8B619D84217BF4CE,$BD1563DD8CD62A58
		Data.q $6B39ECD2B302C29D,$8534216B83A8084F,$954898444A1D10C4,$B24111EA8E042603,$97042A6BA7492B48
		Data.q $B9A9B84D3265D304,$F824FF9FD50F2EEB,$44E0F9FC0D3F82EF,$E6FE135AFF8077F0,$09E0BEE076E02EE0
		Data.q $124F09A63F026780,$6F07F3C1B4F05B3C,$B3784DB5F823BC04,$4C01E60FB7835DE0,$1A4C268C78199808
		Data.q $C4C13E608D303D98,$FC9873E99E2E1982,$C297D8076C0C22C2,$361366BC14EC0CFA,$17F607556166EC11
		Data.q $31FDAF07C161746C,$4C428F500AD030B2,$73A0DC539A030A06,$7D0335035C215528,$27167081A06EE42B
		Data.q $68FD2AD7FF0E1F74,$0CFD85D490BE001F,$7EFEB17727EFEA0E,$BFA83DBBF7F5074B,$FA83A39EFEA0E227
		Data.q $41ECCF501ABAFA7B,$7952CFEB17E93DFD,$2C29DBD1567F54CF,$025DED67F55A77B0,$C624282AE8B5DFD5
		Data.q $C0F55B9309FD51D5,$A4FEAA2EE8227F17,$FEAB06EB821535D3,$79775DFD56E5DA64,$F0FA21607F0BFA6A
		Data.q $39D6BFE28D7F1D79,$71D6EF87D10BE5FC,$49F9D227E1F442E5,$E885BC78EC73F31D,$0FA214A5E3BF4FC3
		Data.q $C774DF87D109B3BF,$D8C747CF0FA21400,$FA215B0C39D18F14,$60FA21688C762CF0,$26F0F6309E99E180
		Data.q $108FEF02CB07D108,$262C1F4426C7787D,$1BC33AC1F442ABBC,$1F4420BB89FB5E2E,$1C107D1089AE03A4
		Data.q $884B9705321341B8,$70FA213BDC1B883E,$A6E2FC38BEAE2713,$F33B8003EDFCAD7E,$4F1D9E293C2E7814
		Data.q $DE15BC0778580FD3,$0BF5DBC9778E6F13,$24986E6129826617,$CA330A00F3698B66,$F4CEB3364CC732D4
		Data.q $2BD88B619D84217B,$C29DBD1B63DD8CD6,$084F9B39ECD2B30E,$10CA8534218383A8,$260395489B444A1D
		Data.q $2B48B241D1EA8E04,$D30497342A6BA7A9,$AF03B9A9B84D4A65,$FE0717FCFEB0BFF4,$3BF81B8E17E7F034
		Data.q $9770737F09AD7FC0,$E1409E0BEE06D5C2,$038C78C74C7E0C81,$781FC3C2ED3C16CF,$7873B3BF151DE023
		Data.q $3CC1F6F03D1785B3,$9A31E0666063C614,$3038A30AF6606930,$F4CF0C030B62609F,$851DB0308B07B184
		Data.q $3BC553B033EB0165,$AAB04C58589B0E76,$83E0B067585BFB03,$214568185918FED7,$070429850326201D
		Data.q $D40D70814C84D06E,$160681BB903710AC,$3F4FF5FFC3967892,$FD5033F6770007DA,$701FBFAA727E5279
		Data.q $FAA4B7E2B780EF57,$CFE2F81F6EFD2EF3,$E9E6D316CC4630DC,$6C998E6591946613,$C33B0842F7E99D06
		Data.q $2AC7BB19AC54B116,$73D9A56605853B7A,$6842D70750109ED6,$913088943A21890A,$8223D51C084C072A
		Data.q $0854D74E92569164,$53709A64CBA6092E,$A5E07FC5F25DD773,$59BC26DAFC11DE14,$600F30A00607AEF0
		Data.q $61CE8C78A6C60642,$446071A607B30AD8,$CFA678B8660B130B,$601DB0308B0BF261,$9AF053B033EB0A5F
		Data.q $1D55859BB044D84D,$BCEEF5E2FDD05FD8,$EE80568E851CC7F6,$C5FBA030A3A4A717,$A3AB6717EE873A01
		Data.q $2068EBB1C5FBA066,$D7FF0E2FC389FA5C,$F9067E001F68FD39,$FBA14F9BFD1BE7CD,$D9BFE035FC75E7C5
		Data.q $3ADDF17EE83CBF84,$3F3A44FC5FBA0CAE,$74178F1D8E7E63A9,$FDD014BC77E9F8BF,$D37E2FDD0E7677E2
		Data.q $1D1F3C5FBA00031D,$DD036184D24F0363,$2FDD05118EC59E2F,$DE1EC613D33C300C,$9FDE059617EE8E84
		Data.q $BF7439D8EF17EE8E,$B0BF7476AEF098B0,$EE63FCDE7786F0CE,$D26B80E90BF74742,$C84D06E07042FDD1
		Data.q $06E217EE8EAE5C14,$FF8BE9EFF873AEF7,$078A4F0B9E000FE0,$6F01DE1603F4D3C7,$6AF25DE39BC49785
		Data.q $1B984A608185C2FD,$C27D3CDA62D988C6,$A0CD9331CCB2328C,$22D86761085EFD33,$6F4558F763358A96
		Data.q $DACE7B34ACC0B0A7,$214D085AE0EA0213,$E552261112874431,$2C90447AA3810980,$25C10A9AE9D24AD2
		Data.q $EE6A6E134C9974C1,$0FE7853E6FF7DFC0,$F09B6BF0477808DE,$03CC1F6F06BBC166,$984D18F033301098
		Data.q $827CC11A607B3034,$30E7D33C5C330589,$2FB00ED8184585F9,$26CD7829D819F585,$EC0EAAC2CDD8226C
		Data.q $FB5E0F82C2E8D82F,$851EA015A0616463,$41B8A73406140C98,$066A06B842AA50E7,$4B8BF0E0FE2856FA
		Data.q $A446FFE1C5F8713F,$C98F0B9EA003ED1F,$8B66A53E6FDB6E4F,$5599EA0309F4F351,$6DEFEABA4F6B19FD
		Data.q $358A962158676AE8,$C0B0A76F4558F163,$D20213DACE4B34AC,$8744312141085AE0,$810980E55226110C
		Data.q $D24AD22C90447AA3,$9974C125C10A9AE9,$35CBBAEE6A6E134C,$7F0389C1F3F9FC5F,$0BE5FC39D6BFE28D
		Data.q $09E172B81BB70177,$49E31D49F8326780,$7FCF06D3C2DE3C0E,$26DAFC11DE14A5E0,$30A00607AEF059BC
		Data.q $8C78A6C60642600F,$71A607B30AD861CE,$CF0FBA0B130B4460,$076C209BC3EE84F4,$6BC14EC23FBC3EE8
		Data.q $155DE1F741136136,$DAF170DE1F7417F6,$70FBA015A105DC4F,$9A0DC3EE80C2844D,$F740CD425CB87DD0
		Data.q $C4FD2E2FAB8BEAE1,$846FCEDC5F8717D5,$34F1D9E293C001F6,$3DE15BC0778580FD,$70BF5DBC9778E6F1
		Data.q $624986E612982661,$4CA330A00F3698B6,$BF4CEB3364CC732D,$CA96A8B619D84217,$0B5766AF7F50764B
		Data.q $B17033BFA83E85EC,$07AA1DFD41CE4EFE,$A0F147411529F37E,$0F8075C157694EFE,$FFEFE2FB9F6CEFEA
		Data.q $A3B37FF164FF84D5,$FBA3AF3E2FCFE0FB,$8A5DC1F7426B5FF0,$9F8A04F07DD1D6EF,$A3B1CFCC7527E748
		Data.q $EE8EFD3F1769E0FB,$CDE1CECEFC547783,$287983EE8EE9BF16,$A13463C3EE8E8F9E,$FBA3B1678AF660FB
		Data.q $84F4CF0C030B6260,$65851DB0308B07B1,$763BC553B033EB01,$03AAB04C58589B0E,$D783E0B067585BFB
		Data.q $1D214568185918FE,$6E07042985032620,$ACD40D70814C84D0,$5DFF0E77EAE2FAB8,$E0F0007DA273E6FE
		Data.q $ADE03BC2C07E9A78,$AD5E4BBC737892F0,$C373094C1030B85F,$984FA79B4C5B3118,$7419B26639964651
		Data.q $C45B0CEC210BDFA6,$EDE8AB1EEC66B152,$7B59CF6695981614,$2429A10B5C1D4042,$1CAA44C22250E886
		Data.q $4592088F54702130,$24B821535D3A495A,$5DCD4DC269932E98,$F034FE7F17EA7977,$6BFE01DFC11383E7
		Data.q $81DB80BB839BF84D,$98FC099E002782FB,$06D3C16CF0493C26,$D7E08EF011BC1FCF,$3EDE0D7782CDE136
		Data.q $31E0666021300798,$8234C0F66069309A,$A678B8660B1304F9,$1DB0308B0BF261CF,$F053B033EB0A5F60
		Data.q $55859BB044D84D9A,$1F0585D1B05FD81D,$402B40C2C8C7F6BC,$4E680C2819310A3D,$0D708554A1CE8371
		Data.q $45E7CDF9FC38BF0E,$5E1603F503C001FC,$EF63FCA5BF12BD43,$5E7C3E897B1FE4D7,$7F0E75AFF8A35FC7
		Data.q $B95C75BBE1F442F9,$C7527E7489F87D10,$F0FA216F1E3B1CFC,$EFC3E8852978EFD3,$0031DD37E1F4426C
		Data.q $C53631D1F3C3E885,$3C3E8856C30E7463,$60183E885A231D8B,$4209BC3D8C27A678,$1F4423FBC0B2C1F4
		Data.q $EF098B07D109B1DE,$8B86F0CEB07D10AA,$E907D1082EE27ED7,$6E07041F44226B80,$7F0E0FE8814C84D0
		Data.q $A7A800FB513FF8BE,$EF0ADE03BC2C07E9,$85FAEDE4BBC73789,$124C373094C1330B,$6519850079B4C5B3
		Data.q $FA67599B2663996A,$15EC45B0CEC210BD,$614EDE8DB1EEC66B,$0427CD9CF6695987,$8865429A10C1C1D4
		Data.q $1301CAA44DA2250E,$95A45920E8F54702,$E9824B9A1535D3D4,$BF81DCD4DC26A532,$11BC0FE1E5EC7FEF
		Data.q $D9BC39D9DF8A8EF0,$0A1E60FB781E8BC2,$984D18F0333031E3,$4F981C51857B3034,$C27A67860185B130
		Data.q $B2C28ED8184583D8,$3B1DE2A9D819F580,$81D558262C2C4D87,$6BC1F05833AC2DFD,$0E90A2B40C2C8C7F
		Data.q $37038214C2819310,$FF0E77E4E1F44268,$2FC389FA5C5FD2E3,$001F68FD3A37FF0E,$B7E2B780EF52C67E
		Data.q $1EA8E0403DEC7F94,$A6BA7492B48B2411,$84D3265D30497042,$03FE2F92EEBB9A9B,$E136D7E08EF0A52F
		Data.q $798500303D7782CD,$7463C53630321300,$038D303D9856C30E,$81E2FDD058985A23,$76C741AF17EE873E
		Data.q $C14EC74F2F17EE80,$178BF7411361366B,$BBD78BF7417F63B5,$015A3A14731FDAF3,$EE80C28E929C5FBA
		Data.q $F9BF3F871CE80717,$6F035E000FB7F06C,$76F25DE3CBC4F785,$1B9850609985CEFD,$C2803CDA62F18926
		Data.q $ACCD93328CB5328C,$A2D86D61085E00B3,$A3B7B1FE592F2A5A,$FBA3AF3E2FCFE0FB,$8A5DC1F7426B5FF0
		Data.q $9F8A04F07DD1D6EF,$A3B1CFCC7527E748,$EE8EFD3F1769E0FB,$CDE1CECEFC547783,$287983EE8EE9BF16
		Data.q $A13463C3EE8E8F9E,$FBA3B1678AF660FB,$84F4CF0C030B6260,$65851DB0308B07B1,$763BC553B033EB01
		Data.q $03AAB04C58589B0E,$D783E0B067585BFB,$1D214568185918FE,$2407042985032620,$FC39DFAB8BF0E668
		Data.q $778003ED3AE7CDF9,$9778E6F125E15BC0,$1298206170BF5ABC,$4F3698B6623186E6,$64CC732C8CA3309F
		Data.q $19D84217BF4CE833,$563DD8CD62A588B6,$9ECD2B302C29DBD1,$4216B83A8084F6B3,$898444A1D10C4853
		Data.q $111EA8E042603954,$42A6BA7492B48B24,$9B84D3265D304970,$FCFE2FD4F2EEBB9A,$03BF822707CFE069
		Data.q $01770737F09AD7FC,$133C004F05F703B7,$82D9E092784D31F8,$1DE023783F9E0DA7,$1AEF059BC26DAFC1
		Data.q $CCC042600F307DBC,$81ECC0D2613463C0,$70CC162609F30469,$611617E4C39F4CF1,$6067D614BEC03B60
		Data.q $376089B09B35E0A7,$0BA360BFB03AAB0B,$8185918FED783E0B,$18503262147A8056,$E7F0E39FD2E29CD0
		Data.q $E257A800FE4EFF8B,$BD8FF6DDEC7F94B7,$F033E6FC9775DCA4,$E884D9DF87D10A52,$87D10A0063BA6FC3
		Data.q $1CE8C78A6C63A3E7,$463B16787D10AD86,$4F4CF0C0307D10B4,$6583E88413787B18,$1363BC3E8847F781
		Data.q $FA2155DE13160FA2,$C4FDAF170DE19D60,$44D701D20FA2105D,$C389FA5C3EE83E88,$8BF0E2FAB8BEAE2F
		Data.q $5713F4B8BEAE2FAB,$FB49EF14717E1C5F,$F1CDE27BC2B7A800,$304CC2E17EBB792E,$6D316CC4930DCC25
		Data.q $98E65A994661401E,$B0842F7E99D666C9,$BF2C97952D516C33,$E7C5F9FC1F7474F9,$3EE84D6BFE1F7475
		Data.q $9E0FBA3ADDF14BB8,$F98EA4FCE913F140,$A7E2ED3C1F747639,$D9DF8A8EF07DD1DF,$7DD1DD37E2D9BC39
		Data.q $787DD1D1F3C50F30,$2CF15ECC1F74268C,$E180616C4C1F7476,$B6061160F6309E99,$AA76067D602CB0A3
		Data.q $098B0B1361CEC778,$160CEB0B7F607556,$AD030B231FDAF07C,$C5FBA064C403A428,$AB8BEAE27E9717D5
		Data.q $DAA6E7CDF9FC39DF,$92EF1CDE24BD4007,$C253040C2E17EB57,$E9E6D316CC4630DC,$6C998E6591946613
		Data.q $C33B0842F7E99D06,$2AC7BB19AC54B116,$73D9A56605853B7A,$6842D70750109ED6,$913088943A21890A
		Data.q $8223D51C084C072A,$0854D74E92569164,$53709A64CBA6092E,$53E6FD7FFE5DD773,$70376E02EE17CBF8
		Data.q $93F064CF0013C2E5,$A785BC781C93C63A,$23BC294BC0FF9E0D,$0F5DE0B3784DB5F8,$8C0C84C01E61400C
		Data.q $6615B0C39D18F14D,$16261688C0E34C0F,$17E4C39F4CF170CC,$D614BEC03B606116,$89B09B35E0A76067
		Data.q $60BFB03AAB0B3760,$918FED783E0B0BA3,$3F8A147A80568185,$BF9F37E7F0E2FC38,$D22F57978003ED33
		Data.q $9F37E8DCF9BF36EF,$0CF9BF25DD772952,$0E7677E1F44294BC,$BA00031DD37E2FDD,$D24F03631D1F3C5F
		Data.q $8EC59E2FDD036184,$D33C300C2FDD0511,$17EE8E84DE1EC613,$EF17EE8E9FDE0596,$AEF098B0BF7439D8
		Data.q $7786F0CEB0BF7476,$0BF74742EE63FCDE,$E2F9FC39DFAB80E9,$792EF0007DADF7FF,$CC253040C2E17EB5
		Data.q $3E9E6D316CC4630D,$66C998E659194661,$6C33B0842F7E99D0,$A2AC7BB19AC54B11,$673D9A56605853B7
		Data.q $A6842D70750109ED,$A913688943A21950,$483A3D51C084C072,$E6854D74F5256916,$353709A94CBA6092
		Data.q $FF9FD617FE95E077,$71C2FCFE069FC0E2,$6FE135AFF8077F03,$C17DC0DAB852EE0E,$18E98FC1903C2813
		Data.q $785DA782D9E0718F,$77E2A3BC046F03F8,$DE07A2F0B66F0E76,$E06660213007983E,$34C0F66069309A31
		Data.q $78B8660B1304F982,$B0308B0BF261CFA6,$53B033EB0A5F601D,$859BB044D84D9AF0,$0585D1B05FD81D55
		Data.q $2B40C2C8C7F6BC1F,$FB59D7FF8BE7F0E0,$433F8BE07DBBF000,$9F4F3519FD5239E3,$F6B19FD5599EA030
		Data.q $8676AE86DEFEABA4,$558F163358A96215,$E4B34ACC0B0A76F4,$D085AE0EA0213DAC,$2261112874431214
		Data.q $0447AA3810980E55,$10A9AE9D24AD22C9,$A6E134C9974C125C,$4BC0FF8BE4BBAEE6,$B3784DB5F823BC29
		Data.q $C01E61400C0F5DE0,$C39D18F14D8C0C84,$88C0E34C0F6615B0,$CFA078BF74162616,$A01DB1D06BC5FBA1
		Data.q $9AF053B1D3CBC5FB,$8557787DD044D84D,$F6BC5C3787DD05FD,$C5F8717D5C417713,$E9717E1C5F5717D5
		Data.q $8BEAE2FAB8BF0E27,$D2E2FAB8BEAE2FC3,$8BF1C5F8717D5C4F,$5304CC2E17E001F1,$E6D316CC4930DCC2
		Data.q $999465A994661401,$6B0842F0059D666C,$8FF2C97952D516C3,$79F17E7F07DD1DBD,$0FBA135AFF87DD1D
		Data.q $2783EE8EB77C52EE,$7E63A93F3A44FC50,$E9F8BB4F07DD1D8E,$7677E2A3BC1F7477,$1F74774DF8B66F0E
		Data.q $1E1F74747CF143CC,$8B3C57B307DD09A3,$7860185B1307DD1D,$ED8184583D8C27A6,$2A9D819F580B2C28
		Data.q $8262C2C4D873B1DE,$05833AC2DFD81D55,$F0E0FE88C7F6BC1F,$E001F69C6F9F37E7,$D8FF29BE7CDF9E77
		Data.q $DC0EDC05DC1CDFCB,$34C7E04CF0013C17,$78369E0B678249E1,$B6BF0477808DE0FE,$C1F6F06BBC166F09
		Data.q $D18F03330109803C,$CC11A607B3034984,$7D33C5C330589827,$00ED8184585F930E,$D7829D819F5852FB
		Data.q $EAAC2CDD8226C26C,$E0F82C2E8D82FEC0,$38BF0E77E4E63FB5,$001FC41BE7CDF9FC,$B7B1FE6F63FC889E
		Data.q $78F1D8E7E63A93F3,$294BC77E9F87D10B,$BF0FA213677E1F44,$8F9E1F4428018EE9,$B61873A31E29B18E
		Data.q $42D118EC59E1F442,$EC613D33C300C1F4,$DE05960FA2104DE1,$3E884D8EF0FA211F,$7583E88557784C58
		Data.q $17D5CCFD685C3786,$D5C5F5717E1C5F57,$2FC389FA5C5F8717,$AB8BF0E2FAB8BEAE,$FC38E7F4B8BEAE2F
		Data.q $998003ED38FFE2F9,$62D989261B984A60,$CCB5328CC2803CDA,$085EFD33ACCD9331,$63358AF622D86761
		Data.q $ACC3B0A76F46D8F7,$E0EA0213E6CE7B34,$12874432A14D0860,$A3810980E55226D1,$E9EA4AD22C90747A
		Data.q $529974C125CD0A9A,$7B1FE7C0EE6A6E13,$677E2A3BC046F00F,$EDE07A2F0B66F0E7,$C0CCC0C78C287983
		Data.q $4615ECC0D2613463,$180616C4C13E6071,$6061160F6309E99E,$A76067D602CB0A3B,$98B0B1361CEC778A
		Data.q $60CEB0B7F6075560,$39DFAB98FEC707C1,$001FCE9BE7CDF9FC,$D8FF28E78DCC2535,$4D3265D30497042B
		Data.q $3FE2F92EEBB9A9B8,$136D7E08EF0A52F0,$98500303D7782CDE,$463C536303213007,$38D303D9856C30E7
		Data.q $1E2FDD058985A230,$6C741AF17EE873E8,$14EC74F2F17EE807,$78BF7411361366BC,$FC50BF7417F63B51
		Data.q $BF0E77E4E63FB1C1,$7DAB9BE7CDF9FC38,$E3124C3730A0D400,$6A6519850079B4C5,$BC0167599B266519
		Data.q $5E54B545B0DAC210,$9FC1F7476F63FCB2,$D6BFE1F7475E7C5F,$A3ADDF14BB83EE84,$4FCE913F1409E0FB
		Data.q $D3C1F747639F98EA,$A8EF07DD1DFA7E2E,$D37E2D9BC39D9DF8,$1D1F3C50F307DD1D,$ECC1F74268C787DD
		Data.q $16C4C1F74762CF15,$160F6309E99E1806,$67D602CB0A3B6061,$B1361CEC778AA760,$D0B7F607556098B0
		Data.q $D5CC7F7B9DFAB87D,$ED1BBFF17CFE1CEF,$98B6623186E6A003,$732C8CA3309F4F36,$4217BF4CE83364CC
		Data.q $D8CD62A588B619D8,$2B302C29DBD1563D,$B83A8084F6B39ECD,$44A1D10C48534216,$A8E0426039548984
		Data.q $BA7492B48B24111E,$D3265D30497042A6,$CDFB8FEEBB9A9B84,$F3F81A7F05DFF0A7,$26B5FF00EFE089C1
		Data.q $7DC0EDC05DC1CDFC,$134C7E04CF0013C1,$E78369E0B678249E,$9B6BF0477808DE0F,$CC1F6F06BBC166F0
		Data.q $4D18F03330109803,$7CC11A607B303498,$E7D33C5C33058982,$B00ED8184585F930,$CD7829D819F5852F
		Data.q $0EAAC2CDD8226C26,$A3C7F8BE7F0E1F74,$518B66A926000FB5,$6FCD99EA0309F4F3,$F85FD353CBBAE23E
		Data.q $AFE071383E7F0B03,$E17CBF873AD7FC51,$013C2E570376E02E,$C93C63A93F064CF0,$0FF9E0DA785BC781
		Data.q $84DB5F823BC294BC,$E61400C0F5DE0B37,$D18F14D8C0C84C01,$0E34C0F6615B0C39,$99E1F7416261688C
		Data.q $00ED8413787DD09E,$CD7829D847F787DD,$B855583EE8226C26,$FD8E2FAB8BF0E2FA,$717E1C5F5717D5C4
		Data.q $FA5C5F8717D5C5F5,$E2FAB8BEAE2FC389,$F4B8BEAE2FAB8BF0,$E2D5717E1C5F5713,$79B4C5B30007DAD1
		Data.q $2663996A65198500,$CEC210BDFA67599B,$E6FCB25E54B545B0,$D79F17E7F07DD1D3,$E0FBA135AFF87DD1
		Data.q $02783EE8EB77C52E,$E7E63A93F3A44FC5,$7E9F8BB4F07DD1D8,$E7677E2A3BC1F747,$C1F74774DF8B66F0
		Data.q $31E1F74747CF143C,$D8B3C57B307DD09A,$67860185B1307DD1,$8ED8184583D8C27A,$E2A9D819F580B2C2
		Data.q $5C262C2C4D873B1D,$7B9D3E6FCFE1CEFD,$4F3698003ED44F16,$64CC732C8CA3309F,$19D84217BF4CE833
		Data.q $563DD8CD62A588B6,$9ECD2B302C29DBD1,$4216B83A8084F6B3,$898444A1D10C4853,$111EA8E042603954
		Data.q $42A6BA7492B48B24,$9B84D3265D304970,$1BC07CDF92EEBB9A,$2CDE136D7E08EF01,$300798500303D778
		Data.q $30E7463C53630321,$A23038D303D9856C,$E7D33C5C33058985,$B00ED8184585F930,$CD7829D819F5852F
		Data.q $73E6FCFE1C226C26,$4EBFE93F8717E1C0,$9EA03575F4F000FB,$9FD62FD27BFA83D9,$ED87B5FEA992F2A5
		Data.q $D1EF54E258888880,$15D7F17CF7F8700E,$3B47BD5385622222,$24E5FD24E5FD24E0,$AE4B7FE7E985E5FD
		Data.q $8F7AA70AC444442B,$93F8BE17FD61C076,$442BA1FA4FEA32FE,$C0768F7AA70AC444,$6F1BC7F17C2FFA72
		Data.q $A70AC444442BA1BC,$7F49FD61C0768F7A,$D28797F4C3FF50B9,$22215D4DF37CDE5F,$7603B47BD5385622
		Data.q $888800F9FEA7F17C,$E4E03B47BD5386B8,$FF9FA72DDFABBF8B,$70AC444442BADCA3,$FE5FF48C0768F7AA
		Data.q $2A5FD30BCBFA4FE2,$222215D1EBDFFCFD,$85E03B47BD538562,$7EDFFD4FE2F85FE9,$38562222215D6DFB
		Data.q $56EEFD5C03B47BD5,$10AE8EF3BCEF2FE9,$01DA3DEA9C2B1111,$ABBFA87CDFC5FF0E,$5FD27F5197F48DDF
		Data.q $C444442BA2F91FF8,$FE9CC0768F7AA70A,$E97FE7FE17F8BFEB,$A3DEA9C2B111110A,$C2F2FE987FEA301D
		Data.q $E87E9197F49397F4,$A3DEA9C2B111110A,$F77DDE3F8BE3B01D,$D538562222215D5D,$7B3CBFA53603B47B
		Data.q $4E15888888574CF6,$FD465FD200ED1EF5,$93FA8CBFA46EFD5D,$9EF7BDEFFEA172FE,$3DEA9C2B111110AE
		Data.q $7F17D5BFE98701DA,$386B8888800F9FEA,$72FE985E03B47BD5,$FE9272FE9272FE92,$11110AEBEFFBFEF2
		Data.q $B9701DA3DEA9C2B1,$DFA2FFC3BF8BE3FE,$F07C1FB1FBFFC07C,$EA9C2B111110AE81,$FF4D9CBEAE01DA3D
		Data.q $F48FFA8FF485FFA8,$88885750FC3F0F97,$3980ED1EF54E1588,$E5FD24E5FD24E5FD,$2215D0FD30E5FD24
		Data.q $603B47BD53856222,$110AE891F2FF17C7,$B01DA3DEA9C2B111,$8562222215D0FD29,$A4FEA4E03B47BD53
		Data.q $FEA32FE93FA85CBF,$47F47D1FFC38BFA4,$BD538562222215D1,$FC5F86FFA4603B47,$442BAC7F1FC7FFA9
		Data.q $C0768F7AA70AC444,$FA49CBFA49CBFA61,$5FD3DFC38BFA49CB,$2215D73F9FCFFEAA,$603B47BD53856222
		Data.q $88800F9FEA7F17C7,$3603B47BD5386B88,$62222215D113FFA5,$FD42E03B47BD5385,$E1C5FD27F5197F49
		Data.q $F2FE93FA87CDFE3F,$B111110AEA9FA7E9,$CBEAE01DA3DEA9C2,$E5FD2BFC5F95FF48,$62222215D33ECFB3
		Data.q $FA53603B47BD5385,$22215D27F4FE9FCB,$0E03B47BD5385622,$2FE93FA8CBFA4FEB,$95FEA1F37E8BFF0E
		Data.q $A9C2B111110AE87E,$A0FF8BE3B01DA3DE,$8F7AA70AC444442B,$17F4C3FF17C9C076,$CBFA61FF8BF8FF87
		Data.q $444442BA2E7FF4D9,$F48C0768F7AA70AC,$8BE2FFF53F8BF0DF,$54E158888885742F,$E5F2FE94D80ED1EF
		Data.q $C2B111110AEA5F97,$7F49FD401DA3DEA9,$E918BD8FF89FF871,$5C4444007CFF552F,$8BE3B01DA3DEA9C3
		Data.q $B111110AE8B3F97F,$7F52701DA3DEA9C2,$FE985E5FD24E5FD2,$44442BA23FFFD232,$C380768F7AA70AC4
		Data.q $FEA7F17E57FD232F,$888885745FCBF97F,$94D80ED1EF54E158,$885755FEBFD7F2FE,$00ED1EF54E158888
		Data.q $F5197F49FD465FD2,$4FEA32FE91BBF577,$2222003E7FA8CBFA,$4C380ED1EF54E1AE,$BEAFABE3F8BEADFF
		Data.q $BD538562222215D2,$BFD54BFA47603B47,$70AC444442BABFFE,$5197F48C0768F7AA,$FEA32FE91BBF577F
		Data.q $5743F49FD49CBFA4,$ED1EF54E15888888,$A0FF8BE4DFF49380,$8F7AA70AC444442B,$9272FE9CBFF50076
		Data.q $222215D0FD3972FE,$FAE03B47BD538562,$BA2FF5B3FE95FE2F,$68F7AA70AC444442,$F9FA50F2FE935C07
		Data.q $A9C2B111110AEA4F,$7F48CBF0E01DA3DE,$F03BA685FD27F519,$42BA2C9FF0BFA70F,$0768F7AA70AC4444
		Data.q $BFEA3F8BF0DFF48C,$7AA70AC444442BA8,$FA49CBFA61C0768F,$1FA6479775DCA54B,$F7AA70AC444442BA
		Data.q $FFA57F8BFE3C0768,$110AE838BFE7F585,$F01DA3DEA9C2B111,$FD47F17D2797F498,$AA70AC444442BA69
		Data.q $CA54BFA49C0768F7,$8885743F4B59775D,$A00ED1EF54E15888,$BF4BF03B9A9B84D4,$85745A3EA1A7F0F9
		Data.q $0ED1EF54E1588888,$BE6B9775DCD4DC20,$88885746A527EBF8,$0A80ED1EF54E1588,$E17F4E1FE0773537
		Data.q $DB8BF0E0FE28593F,$AE85F17C5F97E5FF,$DA3DEA9C2B111110,$C5FA9E5DD7735501,$B07FF45F8717D5DF
		Data.q $EA9CEB1111001F28,$F37E8DFC0E01DA3D,$AC444442BA1FA429,$2BE2540768F7AA70,$FC39DF93BFAC2FFD
		Data.q $F9FE7CBFA71FF0E2,$AA70AC444442BAE7,$F45FE2F8EC0768F7,$EB1111001F38BF7F,$31FDEE01DA3DEA9C
		Data.q $442BA0FF8BF57F87,$80768F7AA70AC444,$AB8BEAE2FC39DF93,$0BEAE2FAB8BF0E2F,$5888888574E633FF
		Data.q $6FF8700ED1EF54E1,$2215D0FD214F9BF4,$E03B47BD53856222,$C38BF0E77E4EFEA4,$15D3BF871F37F17F
		Data.q $3B47BD5385622222,$717D5C5F5717E1C0,$FC9C5F5717D5C5F8,$AA70AC444442BA63,$FF0E2FE9CC0768F7
		Data.q $44442BA139F37FD3,$9380768F7AA70AC4,$37E53FF0E2FC39DF,$888575E687FF819F,$700ED1EF54E15888
		Data.q $F53F8BFABFE1C5F8,$AA70AC444442BA2F,$FC38BFA49C0768F7,$AA7E9FA7C7F17C57,$8F7AA70AC444442B
		Data.q $FAB8BF0E2FAB8076,$A5F5713F4B8BEAE2,$38562222215D0FD2,$38BFA72E03B47BD5,$4F97E1C7CDFB8FFC
		Data.q $158888885744F93E,$3BFAC380ED1EF54E,$E1C4FD2E2FC39DF9,$1110AE87E95F8717,$6E01DA3DEA9C2B11
		Data.q $4442BA0FF8BF4DFF,$5C0768F7AA70AC44,$38BF0E27E9717F48,$D73F9FCF2FE9C7FC,$47BD538562222215
		Data.q $FA5C5F5717D5C03B,$52FAB8BF0E2FAB89,$9C2B111110AE87E9,$7E8DFF6E01DA3DEA,$7F1FE7F3FF6E29F3
		Data.q $9C2B111110AEB1FC,$2E2FE98701DA3DEA,$F4E1FF8717E1C4FD,$AE2222003E7FAA97,$6FF8700ED1EF54E1
		Data.q $2215D0FD214F9BF4,$E03B47BD53856222,$7CDFE8FFC38BFA42,$2B111110AE8A3F86,$C4FD2E01DA3DEA9C
		Data.q $14F9BF11FF8717E1,$38562222215D0FD2,$0E63FBDC03B47BD5,$88885741FF17EAFF,$2700ED1EF54E1588
		Data.q $17FA7FE1C5F873BF,$B111110AE891F2FF,$5FF0E01DA3DEA9C2,$E87E90BEAEBD8FF7,$A3DEA9C2B111110A
		Data.q $FD5C5F577F52701D,$DFC38F9BF8BFE1CE,$DEA9C2B111110AE9,$C57FC38BF0E01DA3,$5888888574273E6F
		Data.q $7F49380ED1EF54E1,$FC5F29FF873BF571,$11110AEA1F87E1F1,$E3B01DA3DEA9C2B1,$444442BA1FA57F8B
		Data.q $FDB80768F7AA70AC,$745FB721EF63FDD7,$D1EF54E158888885,$7E97F8717F49380E,$0AE81F07C1F439F3
		Data.q $1DA3DEA9C2B11111,$6AFF0E2FC38BEAE0,$A70AC444442BA1FA,$5717F485C0768F7A,$BF0E2FAB89FB1C5F
		Data.q $444442BAFBFEFFBC,$D61C0768F7AA70AC,$8FEC73BF5717D5DF,$5743F4AFC39DFAB9,$ED1EF54E15888888
		Data.q $B714F9BF46FFB700,$5D3DEF7BDFF7FDFF,$B47BD53856222221,$BDCEFD5C5FD30E03,$FA41FF0E77EAE63F
		Data.q $D71111001F3FD54B,$37FC380768F7AA70,$B111110AE83FE2FD,$DFD7301DA3DEA9C2,$C38BEAE2FAB89FB1
		Data.q $574CF67B3CBF0E2F,$ED1EF54E15888888,$FAB98FEC73BF5700,$3FD54BFA70FFC39D,$F7AA70D71111001F
		Data.q $A7CDFA37FC380768,$C2B111110AE87E90,$877F50B01DA3DEA9,$ECF67FE1CEFD5C5F,$538562222215D15D
		Data.q $E4E63FB1C03B47BD,$F8BF17FC38BF0E77,$0AC444442BA2FF53,$39DF9380768F7AA7,$FAB8BF0E2FAB9DF9
		Data.q $C3F87F2FC38BEAE2,$54E158888885741F,$EFD5C5F8700ED1EF,$3F4A83E6FCA7FE1C,$EF54E15888888574
		Data.q $3FF0E2FE9CB80ED1,$2215D3BF871F37EE,$E03B47BD53856222,$EAE2FC38BEAEFEA4,$07FAB8BF0E2FAB8B
		Data.q $EF54E15888888574,$E2BFE1C5F8700ED1,$AC444442BA139F37,$BFA49C0768F7AA70,$E77A1CF9BF4BFC38
		Data.q $E15888888574779D,$BFC5F1D80ED1EF54,$38562222215D0FD2,$7E9BFEDC03B47BD5,$442BADBF6FDBC7F1
		Data.q $C0768F7AA70AC444,$38BEAE2FAB8BFA61,$FAA97E1C4FD2E2FC,$F54E1AE2222003E7,$F9BF46FF8700ED1E
		Data.q $562222215D0FD214,$BFA42E03B47BD538,$5BD0E7CDFE8FFC38,$0AC444442BA5BD6F,$39DFAB80768F7AA7
		Data.q $7CFF552FF17DD7FC,$A3DEA9C35C444400,$E1C5FD313FF0E01D,$62222215D0FD207F,$FD30E03B47BD5385
		Data.q $BA2DFFFD3ABFE1C5,$68F7AA70AC444442,$90A7CDFA37FC3807,$A9C2B111110AE87E,$FE977F52701DA3DE
		Data.q $9BCBFC5F11FF871C,$7AA70AC444442BA2,$C4FD2E2FC380768F,$F8717D5C5F5717E1,$562222215D17FA85
		Data.q $5FD2D603B47BD538,$22215D0FD207FE1C,$5C03B47BD5385622,$33E6FCA7FE1C73FA,$70AC444442BA21BC
		Data.q $1CC7F6380768F7AA,$17E2FF873BF5717E,$58888885745FEA7F,$0FF2700ED1EF54E1,$7FEFC7F17C57FC38
		Data.q $38562222215D7BFF,$F8717D5C03B47BD5,$717E1C5F5717D5C5,$85743F4A97D5C5F5,$0ED1EF54E1588888
		Data.q $37EE3FF0E2FE9CB8,$62222215D3BF871F,$FEB0E03B47BD5385,$A2FFC38BF0E77E4E,$B111110AE84E7CDF
		Data.q $DFF6E01DA3DEA9C2,$C444442BA0FF8BF4,$F4A6C0768F7AA70A,$8888575D7F5FD797,$5700ED1EF54E1588
		Data.q $9BF89FF8717E1C5F,$62222215D0FD2A0F,$BFEDC03B47BD5385,$D3BF77EEFC7F17E9,$47BD538562222215
		Data.q $EEBFE1C5FD30E03B,$222003E7FAA97F8B,$8700ED1EF54E1AE2,$F4B8BEAEFE2FE1FF,$8885743F485F5713
		Data.q $B80ED1EF54E15888,$9F37FA3FF0E2FE90,$158888885744BFE1,$46FF8700ED1EF54E,$22215D0FD214F9BF
		Data.q $2E03B47BD5385622,$F73FE1C73FA5DFD7,$8562222215D07FC5,$1CEFC9C03B47BD53,$FC38BF0E27E9717E
		Data.q $2222215D135FFA53,$FE1C03B47BD53856,$0FD217D5D7B1FEEB,$7BD538562222215D,$E39FD2EFEA4E03B4
		Data.q $ED7FE1C7CDFC5FF0,$562222215D14FFB5,$717E1C03B47BD538,$A70FFC38BF0E27E9,$C444442BA2FF50BF
		Data.q $FA42C0768F7AA70A,$F2FC38BEAE2FAB8B,$8888885756FEDFDB,$FE9700ED1EF54E15,$D2A0F9BF29FF871C
		Data.q $D538562222215D0F,$BF0E63FB1C03B47B,$97E1C7CDFB8FFC38,$444442BA37E6FCDF,$F9380768F7AA70AC
		Data.q $FA57F8BE2BFE1C07,$7AA70AC444442BA1,$38BF0E2FAB80768F,$22215D07FC5F4BFC,$2E03B47BD5385622
		Data.q $C38BEAE2FAB8BFA4,$442BA1FA71FF0E2F,$C0768F7AA70AC444,$873BF5717D5DFD61,$AE98FF2717F481FF
		Data.q $DA3DEA9C2B111110,$F439F37E8DFF6E01,$888888575AFF5FEB,$F4C380ED1EF54E15,$9BFD1FF873BF5717
		Data.q $C4444007CFF550CF,$FF0E01DA3DEA9C35,$444442BA0FF8BF4D,$F5CC0768F7AA70AC,$11FF8717E1C5F577
		Data.q $1110AE887FCBFC5F,$AE01DA3DEA9C2B11,$8B7B1FF13FF0E77E,$11110AE8BFD42FC3,$F0E01DA3DEA9C2B1
		Data.q $15D3BF871F37E8DF,$3B47BD5385622222,$BF29FF8717F4A1E0,$2222215D12BF0CF9,$FE1C03B47BD53856
		Data.q $85743F4853E6FD1B,$0ED1EF54E1588888,$C4FD2E2FABBFA938,$F57FF873BF5717D5,$562222215D177FAB
		Data.q $717E1C03B47BD538,$E8BFD407CDF8AFF8,$A3DEA9C2B111110A,$1C4FD2E2FE92701D,$FD20FF873BF5717E
		Data.q $1110AEA5FCBF97E5,$3B01DA3DEA9C2B11,$44442BA1FA57F8BE,$DB80768F7AA70AC4,$F6E2FC3AF63FDD7F
		Data.q $EA9C2B111110AE8B,$FF0E2FE90B01DA3D,$742FC5F8BF2FE9C3,$D1EF54E158888885,$7F13FF0E27EC700E
		Data.q $444442BA1FA541F3,$F7B80768F7AA70AC,$FF873BF5717E1C07,$5CFF9FF3F1FC5F45,$1EF54E1588888857
		Data.q $FBAFF873BF5700ED,$888800F9FEAA5FE2,$E1C03B47BD5386B8,$C444442BA1FA75BF,$FA61C0768F7AA70A
		Data.q $CDFE8FFC39DFAB8B,$9C2B111110AE84E7,$BF4DFF0E01DA3DEA,$70AC444442BA0FF8,$F577F5CC0768F7AA
		Data.q $717D5C5F5717E1C5,$8574CFD9FB3F27EC,$0ED1EF54E1588888,$9F37F57F873BF570,$6B8888800F9FEAA1
		Data.q $1BFE1C03B47BD538,$8885743F4853E6FD,$380ED1EF54E15888,$F0E77EAE2FC3BFA9,$15D137F97F8BE23F
		Data.q $3B47BD5385622222,$FE2FEAFF8717E1C0,$C2B111110AE8BFD4,$E2FE92701DA3DEA9,$D5C4FD2E2FAB8BEA
		Data.q $EA9FD3FA7E5F8717,$A3DEA9C2B111110A,$FC39DFAB8BEAE01D,$0AE87E9507CDF94F,$1DA3DEA9C2B11111
		Data.q $FC389FA5C5FD3970,$4442BA1FA41FF0E2,$EC0768F7AA70AC44,$BA27E4FC9F8FE2F8,$68F7AA70AC444442
		Data.q $FD2E3FF0E2FAB807,$110AE87E973FE1C5,$701DA3DEA9C2B111,$717D5C4FD2E2FE92,$7F8FF1F97F4E1FF8
		Data.q $7AA70AC444442BAC,$FC3BF8BF53C0768F,$5D0FD2BF0E77EAE2,$B47BD53856222221,$8FC7F17E9BFEDC03
		Data.q $562222215D23F47E,$FE9A9E03B47BD538,$54BF0E2FAB8BEAE2,$A70D71111001F3FD,$F8713F6380768F7A
		Data.q $15D0FD214F9BF89F,$3B47BD5385622222,$FFC38BF0E03FBDC0,$3F87F0FD0E7CDFE8,$BD538562222215D4
		Data.q $EBFE1CEFD5C03B47,$22003E7FAA97F8BE,$700ED1EF54E1AE22,$2215D07FC5FA6FF8,$E03B47BD53856222
		Data.q $717D5C5F5717F4A1,$AE80FF5717D5C5F8,$DA3DEA9C2B111110,$A139F37E8DFF0E01,$8F7AA70AC444442B
		Data.q $E1CEFC9DFD49C076,$D157FFE971FF8717,$47BD538562222215,$7D5C5F5717E1C03B,$63FBDCEFD5C5F871
		Data.q $C2B111110AE8BFD4,$38BFA7301DA3DEA9,$444442BA1FA457FC,$F9380768F7AA70AC,$FFFA52FF0E2FC39D
		Data.q $54E1588888857445,$BFE1C5F8700ED1EF,$4442BA2FF53F8BFA,$9C0768F7AA70AC44,$FCBFA5D7FC38BFA4
		Data.q $62222215D03F07E0,$17D5C03B47BD5385,$AE27EC717D5C5F87,$10AE87E952FAB8BE,$01DA3DEA9C2B1111
		Data.q $7EAE63FB1C5FD397,$FBFF7CBFA41FF0E7,$538562222215D7DF,$7E4EFEB0E03B47BD,$5F873BF2731FD8E7
		Data.q $444442BA1FA57E1C,$FDB80768F7AA70AC,$11110AE83FE2FD37,$65701DA3DEA9C2B1,$EAF2FE9C7FC38BFA
		Data.q $C2B111110AEAAFAB,$638BEAE01DA3DEA9,$5F8717D5C5F5713F,$88885743F4A97D5C,$B700ED1EF54E1588
		Data.q $D5FFB714F9BF46FF,$110AE9EFBDF7BF57,$F01DA3DEA9C2B111,$97F4E1FF8717F4D4,$E1AE2222003E7FAA
		Data.q $B98FEF700ED1EF54,$BEAE2FC38BEAE2FA,$44442BA1FA42FAB8,$9380768F7AA70AC4,$DFE8FFC39DFAB9DF
		Data.q $2222215D167F867C,$FE1C03B47BD53856,$85743F4853E6FD1B,$0ED1EF54E1588888,$CEFD5C5F877F5CB8
		Data.q $2215D07FC5F73FE1,$C03B47BD53856222,$FE9FF8717E1CEFC9,$8562222215D07FC5,$EEBFE1C03B47BD53
		Data.q $1110AE89FBDD7B1F,$2701DA3DEA9C2B11,$FE1CEFD5C5F577F5,$888857449FFFA5C7,$8700ED1EF54E1588
		Data.q $F501F37E2BFE1C5F,$AA70AC444442BA2F,$FAB8BFA49C0768F7,$EEF8FE2F94FFC39D,$0AC444442BABBF77
		Data.q $FE2F8EC0768F7AA7,$C2B111110AE87E95,$F75FF6E01DA3DEA9,$2BA2FDB8BF0EBD8F,$768F7AA70AC44444
		Data.q $FA5D7FC38BFA49C0,$22215D1DF3BE77CB,$5C03B47BD5385622,$6FE27FE1C5F8717D,$8888885743F4A83E
		Data.q $E90B80ED1EF54E15,$5F5717E1C4FD2E2F,$85745795E5797E1C,$0ED1EF54E1588888,$C4FD2E2FABBFAC38
		Data.q $7E95F873BF5717D5,$DEA9C2B111110AE8,$9F37E8DFF6E01DA3,$FDBFB7CAF2BFF6E2,$D538562222215D6D
		Data.q $FA5C5FD30E03B47B,$1FF0E77EAE2FC389,$111001F3FD54BFA4,$C380768F7AA70D71,$1110AE83FE2FD37F
		Data.q $9701DA3DEA9C2B11,$BEAE2FAB8BF0EFEB,$F5BEB7CBF0E2FC38,$D538562222215D2D,$2FAB89FA5C03B47B
		Data.q $52FE9C3FF0E77EAE,$9C35C4444007CFF5,$8731FDEE01DA3DEA,$5D0FD214F9BFE9FF,$B47BD53856222221
		Data.q $BF5717E1CEFC9C03,$A3FCBFC5F11FF873,$DEA9C2B111110AE8,$F57FC38BF0E01DA3,$888885745FEA7F17
		Data.q $49380ED1EF54E158,$5F8717D5C5F5717F,$74EFE1C5F5717D5C,$D1EF54E158888885,$FE1CEFD5C5F5700E
		Data.q $8888574273E6FCA7,$CB80ED1EF54E1588,$39F37EE3FF0E2FE9,$7AA70AC444442BA1,$717D5DFD49C0768F
		Data.q $FA5C5F5717D5C5F8,$2B111110AE883FC9,$38BF0E01DA3DEA9C,$745FEA03E6FC57FC,$D1EF54E158888885
		Data.q $7E97F8717F49380E,$D65F97E5E5F871F3,$47BD538562222215,$743F4AFF17C7603B,$D1EF54E158888885
		Data.q $3E1FC5FA6FFB700E,$DA4DEA5096222220,$FAB8BEAE2FE98701,$E5F8717D5C4FD2E2,$BA4212C44444076F
		Data.q $3E6FD1BFE1C03B49,$B111110AE8B67FC5,$FD21701DA3DD25C2,$1FF0E2FC389FA5C5,$70AC444442BA1FA7
		Data.q $C39DFAB80768F749,$88885741FF17DD7F,$8700ED1EE92E1588,$22215D07FC5FA6FF,$3603B47BA4B85622
		Data.q $70AC444442BA1FA5,$FA37FC380768F749,$2B111110AE84E7CD,$EFEB9701DA3DD25C,$5743F4B8FFC38BF0
		Data.q $ED1EE92E15888888,$2FC38BEAE27E9700,$111110AE8E3EAFFE,$FDEE01DA3DD25C2B,$885743F48AFF8731
		Data.q $00ED1EE92E158888,$4A5FE1C5F873BF27,$92E158888885743F,$BFE1C5F8700ED1EE,$C444442BA0FF8BFA
		Data.q $FA49C0768F74970A,$442BA1FA5D7FC38B,$80768F74970AC444,$1D723FF8BF0E2FAB,$7BA4B8562222215D
		Data.q $4442BA1FA53603B4,$1C0768F74970AC44,$8857476FBFFFDFD6,$00ED1EE92E158888,$1110AE8BFD437FB7
		Data.q $9B01DA3DD25C2B11,$B8562222215D0FD2,$1111101C9FFC7BA4,$880E4FFE3DD25C4B,$0FDB1EE92E258888
		Data.q $8800F94FBF888888,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888
		Data.q $F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800
		Data.q $B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$F953B8888800F953
		Data.q $8800F953B8888800,$B8888800F953B888,$F953B8888800F953,$8800F953B8888800,$B8888800F953B888
		Data.q $F953B8888800F953,$8800F953B8888800,$B8888800F953B888,$2F53B8888800F953,$19BB2702FFD2F4BD
		Data.q $000000F6B6A87B91,$6042AE444E454900
		Data.b $82
		ecran_end:
		;------------- image ecran fin --------
		EndDataSection

Re: amiga led,guru et decrunching

Publié : mar. 13/déc./2016 15:49
par Ar-S
C'est pas laid :)
Par contre j'ai de petits artefact graphique de temps à autre qui apparaissent.
Sinon les Gosub des familles m'ont fait sourire, y'a longtemps que je n'en avait pas vu ^^
Pas sûr que ce soit utile. Je j'ai pas eu trop le temps de me pencher dessus. Juste testé.

Re: amiga led,guru et decrunching

Publié : ven. 16/déc./2016 2:11
par raven
pourrait t'on m'en dire plus sur cet artefact?j'en ai aussi de temps en temps :cry:
je pensé que c'a venait de ma carte graphique en bois.

voici une nouvelle version,j'ai pas touché au graph pour le moment,mais plutot sur la jouabilité des notes.
c'est encore brouillon,
les touches jouables:
Q-Z-S-E-D-F-T-G-Y-H-U-J-K-O-L

petite melodie:
S-D-F KU-HU HU-HG FD-SD-FG-HUHU-GHU-HGF-KK-UHH-S-LLL-GHU-GUHG-HF-DFS

une autre:
H-DFG-HGFDS-SFH-GFD-DFGHFSS-GGU-LLLKUH-FH-HHG-FDDFG-HFSS

source_piano
https://www.virustotal.com/fr/file/eb51 ... 482429524/

Code : Tout sélectionner

EnableExplicit
;- Initialisations
If InitSprite()=0 Or InitKeyboard()=0 Or UsePNGImageDecoder()=0 Or InitSound() = 0
  MessageRequester("Probleme","Initialisations impossibles",0)
  End
EndIf

Enumeration fenetre
  #fenetre
EndEnumeration

Enumeration
  #Blanche
  #Noire
  #grise
  #ecran
  #scanline
  #boitier
  #haut_parleur
EndEnumeration

Enumeration
  #noteq
  #note2z
  #note3s
  #note4e
  #note5d
  #note6f
  #note7t
  #note8g
  #note9y
  #note10h
  #note11u
  #note12j
  #note13k
  #note14o
  #note15l
EndEnumeration

#largeur_ecran = 595
#hauteur_ecran = 400

Structure Touche
  x.i
  y.i
  Id.i
  col.i
EndStructure

Structure push_touche
  x.i
  y.i
  Id.i
  Pcol.i
EndStructure

Structure Scanlines
  scan.i
  Scanx.i
  Scany.i
  couleur.i
EndStructure
; macro pour simplifier le stockage
Macro Tou(num,Tid,Tx,Ty,Tcol)
  touche(num)\id = Tid
  touche(num)\x = Tx
  touche(num)\y = Ty
  touche(num)\col = Tcol
EndMacro

Macro Pkey(pk,Tkid,Pkx,Pky,Pkcol)
  push_touche(pk)\id = Tkid
  push_touche(pk)\x = Pkx
  push_touche(pk)\y = Pky
  push_touche(pk)\Pcol = Pkcol
EndMacro
;global
Global event,i
Global LargTBlanche , HautTnoire 
Global LargTNoire,HautTBlanche
Global LargTgrise , HautTgrise 
Global LargTgrise,HautTgrise
Global ecran_image,ecran_posx,ecran_posy
Global couleur.f,couleur2.f
Global Dim touche.touche(34) ;(35 touches)
Global Dim push_touche.push_touche(14)
Global NewList Scanlines.Scanlines(),Scanx ,Scany,scan_col

LargTBlanche =25
HautTBlanche = 75
HautTnoire  = 45
LargTNoire = 12
HautTgrise  = 50
LargTgrise= 20

;procedure touches blanches	
Procedure clavier_touches_blanches()
  CreateSprite(#Blanche,LargTBlanche,HautTBlanche)
  StartDrawing(SpriteOutput(#Blanche))
  Box(0,0,LargTBlanche,HautTBlanche,RGB(255+couleur,255,255+couleur2))
  StopDrawing()
EndProcedure
;procedure touches noires
Procedure clavier_touches_noires()
  CreateSprite(#Noire,LargTNoire,HautTnoire)
  StartDrawing(SpriteOutput(#Noire))
  Box(0,0,LargTNoire,HautTnoire,RGB(55,55,55))
  StopDrawing()
EndProcedure
;touches grise
Procedure clavier_touches_grise()
  CreateSprite(#grise,LargTgrise,HautTgrise)
  StartDrawing(SpriteOutput(#grise))
  Box(0,0,LargTgrise,HautTgrise, RGB(55,55,55))
  StopDrawing()
EndProcedure
;haut parleur
Procedure haut_parleur()
  CreateSprite(#haut_parleur,155,155)
  StartDrawing(SpriteOutput(#haut_parleur))
  Circle(35,35,35,$666666)
  StopDrawing()
EndProcedure
;boitier
Procedure boitier_clavier()
  CreateSprite(#boitier,522,200)
  StartDrawing(SpriteOutput(#boitier))
  Box(0,0,522,90,RGB(175,175,175))
  StopDrawing()
EndProcedure
;-------------- procedure tv ------------------
Procedure tv()
  ecran_image=CatchSprite(#ecran,?ecran,#PB_Sprite_AlphaBlending)
  ZoomSprite(#ecran,595,400)
  DisplayTransparentSprite(#ecran,ecran_posx/2,ecran_posy/2)
EndProcedure
;------ procedure scanlines ----------
Procedure scanline()
  CreateSprite(#scanline,620,15)
  StartDrawing(SpriteOutput(#scanline))
  Box(0,0,120,5,RGB(55,55,55))
  StopDrawing()
EndProcedure
;------ procedure notes ---------- 
Procedure note()
  CatchSound(#noteq,?noteq,?noteq_fin-?noteq)
  CatchSound(#note2z,?note2z,?note2z_fin-?note2z)
  CatchSound(#note3s,?note3s,?note3s_fin-?note3s)
  CatchSound(#note4e,?note4e,?note4e_fin-?note4e)
  CatchSound(#note5d,?note5d,?note5d_fin-?note5d)
  CatchSound(#note6f,?note6f,?note6f_fin-?note6f)
  CatchSound(#note7t,?note7t,?note7t_fin-?note7t)
  CatchSound(#note8g,?note8g,?note8g_fin-?note8g)
  CatchSound(#note9y,?note9y,?note9y_fin-?note9y)
  CatchSound(#note10h,?note10h,?note10h_fin-?note10h)
  CatchSound(#note11u,?note11u,?note11u_fin-?note11u)
  CatchSound(#note12j,?note12j,?note12j_fin-?note12j)
  CatchSound(#note13k,?note13k,?note13k_fin-?note13k)
  CatchSound(#note14o,?note14o,?note14o_fin-?note14o)
  CatchSound(#note15l,?note15l,?note15l_fin-?note15l)
EndProcedure
;----- procedure afffiche boitier ------
Procedure affiche_boitier()
  For i = 0 To 34 ; (tu as 35 touches)
    DisplayTransparentSprite(touche(i)\id,touche(i)\x,touche(i)\y,touche(i)\col)
  Next
  ;haut parleur
  DisplayTransparentSprite(#haut_parleur,85,206,155)
  DisplayTransparentSprite(#haut_parleur,445,206,155)
  ZoomSprite(#haut_parleur,45,45)
  DisplayTransparentSprite(#haut_parleur,470,233,155)
  ZoomSprite(#haut_parleur,45,45)
  DisplayTransparentSprite(#haut_parleur,110,233,155)
  DisplayTransparentSprite(#boitier,36,194,155)
  ZoomSprite(#Blanche,100,60);ecran_synth
  DisplayTransparentSprite(#Blanche,240,215,couleur-couleur2);ecran_synth
  couleur = couleur.f-0.25
  couleur2 = couleur2.f - 0.35
EndProcedure
;--- procedure affiche scanlines -------
Procedure affiche_scanline()
  ForEach scanlines()
    ZoomSprite(scanlines()\scan,2690,8)
    DisplayTransparentSprite(scanlines()\scan,scanlines()\scanx+36,scanlines()\scany+35,55)
  Next
EndProcedure

;fenetre
OpenWindow(#fenetre,0,0,#largeur_ecran,#hauteur_ecran,"clavier synthe",#PB_Window_ScreenCentered|#PB_Window_SystemMenu )
OpenWindowedScreen(WindowID(#fenetre),0,0,#largeur_ecran,#hauteur_ecran)


tou(0,#Blanche,37,284,$FFFFFF);blanche
tou(1,#Blanche,63,284,$FFFFFF);blanche
tou(2,#Noire,50,284,RGB(255,0,0));noire
tou(3,#Blanche,89,284,$FFFFFF)   ;blanche
tou(4,#Noire,76,284,RGB(255,0,0));noire
tou(5,#Blanche,115,284,$FFFFFF)  ;blanche
tou(6,#Noire,128,284,RGB(255,0,0));noire
tou(7,#Blanche,141,284,$FFFFFF)   ;blanche
tou(8,#Noire,154,284,RGB(255,0,0));noire
tou(9,#Blanche,167,284,$FFFFFF)   ;blanche
tou(10,#Noire,180,284,RGB(255,0,0));noire
tou(11,#Blanche,193,284,$FFFFFF)   ;blanche

tou(12,#Blanche,219,284,$FFFFFF);blanche Q
tou(13,#Noire,232,284,RGB(255,0,0));noire  Z
tou(14,#Blanche,245,284,$FFFFFF)   ;blanche S
tou(15,#Noire,258,284,RGB(255,0,0));noire E
tou(16,#Blanche,271,284,$FFFFFF)   ;blanche D
tou(17,#Blanche,297,284,$FFFFFF)   ;blanche F
tou(18,#Noire,311,284,RGB(255,0,0));noire T
tou(19,#Blanche,323,284,$FFFFFF)   ;blanche G
tou(20,#Noire,337,284,RGB(255,0,0));noire Y
tou(21,#Blanche,349,284,$FFFFFF)   ;blanche H
tou(22,#Noire,363,284,RGB(255,0,0));noire U
tou(23,#Blanche,375,284,$FFFFFF)   ;blanche J
tou(24,#Blanche,401,284,$FFFFFF)   ;blanche K
tou(25,#Noire,415,284,RGB(255,0,0));noire O
tou(26,#Blanche,427,284,$FFFFFF)   ;blanche L
tou(27,#Noire,440,284,RGB(255,0,0));noire P
tou(28,#Blanche,453,284,$FFFFFF)   ;blanche L
tou(29,#Blanche,479,284,$FFFFFF)   ;blanche M
tou(30,#Noire,492,284,RGB(255,0,0));noire
tou(31,#Blanche,505,284,$FFFFFF)   ;blanche
tou(32,#Noire,515,284,RGB(255,0,0));noire
tou(33,#Blanche,531,284,$FFFFFF)   ;blanche
tou(34,#Noire,537,284,RGB(255,0,0));noire

scanline()

For scan_col = 1 To 80
  AddElement(Scanlines())
  With Scanlines()
    \scan = CopySprite(#scanline,#PB_Any)
    \Scany = scan_col * 4
  EndWith
Next 

note()
Repeat;2d 
  Repeat;even fenetre 
    Event = WindowEvent()
    
    Select Event    
      Case #PB_Event_CloseWindow
        End
    EndSelect  
  Until Event=0
  
  
  clavier_touches_blanches()
  clavier_touches_noires()
  clavier_touches_grise()
  boitier_clavier()
  haut_parleur()
  
  FlipBuffers()
  ClearScreen(RGB(0,0,0))
  ExamineKeyboard()
  
  tv()
  affiche_boitier()
  affiche_scanline()
  
  ;-touche clavier Q
  If KeyboardPushed(#PB_Key_A)
    Pkey(0,#grise,225,310,215)
    For i = 0 To 0
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_A)
    PlaySound(#noteq)
  EndIf
  
  ;-touche clavier Z
  If KeyboardPushed(#PB_Key_W)
    Pkey(1,#grise,229,284,RGB(155,155,155))
    For i = 1 To 1
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_W)
    PlaySound(#note2z)
  EndIf
  
  ;- touche clavier S
  If KeyboardPushed(#PB_Key_S)
    Pkey(2,#grise,250,310,RGB(155,155,155))
    For i = 2 To 2
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_S)
    PlaySound(#note3s)
  EndIf
  
  ;-touche clavier E
  If KeyboardPushed(#PB_Key_E)
    Pkey(3,#grise,255,284,RGB(155,155,155))
    For i = 3 To 3
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_E)
    PlaySound(#note4e)
  EndIf
  
  ;-touche clavier D
  If KeyboardPushed(#PB_Key_D)
    Pkey(4,#grise,276,310,RGB(155,155,155))
    For i = 4 To 4
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_D)
    PlaySound(#note5d)
  EndIf
  
  ;-touche clavier f
  If KeyboardPushed(#PB_Key_F)
    Pkey(5,#grise,302,310,RGB(155,155,155))
    For i = 5 To 5
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_F)
    PlaySound(#note6f)
  EndIf
  
  ;-touche clavier T
  If KeyboardPushed(#PB_Key_T)
    Pkey(6,#grise,307,284,RGB(155,155,155))
    For i = 6 To 6
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_T)
    PlaySound(#note7t)
  EndIf
  
  ;-touche clavier G
  If KeyboardPushed(#PB_Key_G)
    Pkey(7,#grise,328,310,RGB(155,155,155))
    For i = 7 To 7
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_G)
    PlaySound(#note8g)
  EndIf
  
  ;-touche clavier Y
  If KeyboardPushed(#PB_Key_Y)
    Pkey(8,#grise,333,284,RGB(155,155,155))
    For i = 8 To 8
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_Y)
    PlaySound(#note9y)
  EndIf
  
  ;-touche clavier H
  If KeyboardPushed(#PB_Key_H)
    Pkey(9,#grise,355,310,RGB(155,155,155))
    For i = 9 To 9
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_H)
    PlaySound(#note10h)
  EndIf
  
  ;-touche clavier u
  If KeyboardPushed(#PB_Key_U)
    Pkey(10,#grise,360,284,RGB(155,155,155))
    For i = 10 To 10
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_U)
    PlaySound(#note11u)
  EndIf
  
  ;-touche clavier j
  If KeyboardPushed(#PB_Key_J)
    Pkey(11,#grise,380,310,RGB(155,155,155))
    For i = 11 To 11
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_J)
    PlaySound(#note12J)
  EndIf
  
  ;-touche clavier k
  If KeyboardPushed(#PB_Key_K)
    Pkey(12,#grise,405,310,RGB(155,155,155))
    For i = 12 To 12
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_K)
    PlaySound(#note13k)
  EndIf
  
  ;-touche clavier O
  If KeyboardPushed(#PB_Key_O)
    Pkey(13,#grise,412,284,RGB(155,155,155))
    For i = 13 To 13
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_O)
    PlaySound(#note14o)
  EndIf
  
  ;-touche clavier L
  If KeyboardPushed(#PB_Key_L)
    Pkey(14,#grise,432,310,RGB(155,155,155))
    For i = 14 To 14
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
  
  If KeyboardReleased(#PB_Key_L)
    PlaySound(#note15l)
  EndIf
  
Until KeyboardPushed(#PB_Key_Escape) Or event = #PB_Event_CloseWindow
FreeSound(#noteq)
FreeSound(#note2z)
FreeSound(#note3s)
FreeSound(#note4e)
FreeSound(#note5d)
FreeSound(#note6f)
FreeSound(#note7t)
FreeSound(#note8g)
FreeSound(#note9y)
FreeSound(#note10h)
FreeSound(#note11u)
FreeSound(#note12j)
FreeSound(#note13k)
FreeSound(#note14o)
FreeSound(#note15l)
FreeSprite(#blanche)
FreeSprite(#noire)
FreeSprite(#grise)
End

;----------- data  ---------------

DataSection
  ecran:
  IncludeBinary "media\ecran.png"
  noteq:
  IncludeBinary "media\note_q.wav"
  noteq_fin:
  note2z:
  IncludeBinary "media\note_z.wav"
  note2z_fin:
  note3s:
  IncludeBinary "media\note_s.wav"
  note3s_fin:
  note4e:
  IncludeBinary "media\note_e.wav"
  note4e_fin:
  note5d:
  IncludeBinary "media\note_d.wav"
  note5d_fin:
  note6f:
  IncludeBinary "media\note_f.wav"
  note6f_fin:
  note7t:
  IncludeBinary "media\note_t.wav"
  note7t_fin:
  note8g:
  IncludeBinary "media\note_g.wav"
  note8g_fin:
  note9y:
  IncludeBinary "media\note_y.wav"
  note9y_fin:
  note10h:
  IncludeBinary "media\note_h.wav"
  note10h_fin:
  note11u:
  IncludeBinary "media\note_u.wav"
  note11u_fin:
  note12j:
  IncludeBinary "media\note_j.wav"
  note12j_fin:
  note13k:
  IncludeBinary "media\note_k.wav"
  note13k_fin:
  note14o:
  IncludeBinary "media\note_o.wav"
  note14o_fin:
  note15l:
  IncludeBinary "media\note_l.wav"
  note15l_fin:
EndDataSection





; Epb

Re: amiga led,guru et decrunching

Publié : ven. 16/déc./2016 10:03
par Zorro
ça me rappel le clavier Midi de Einander :)

http://www.purebasic.fr/french/viewtopi ... 6&t=5335&p

Re: amiga led,guru et decrunching

Publié : ven. 16/déc./2016 10:59
par Ar-S

Code : Tout sélectionner

If KeyboardPushed(#PB_Key_A)
    Pkey(0,#grise,225,310,215)
    For i = 0 To 0
      DisplayTransparentSprite(push_touche(i)\id,push_touche(i)\x,push_touche(i)\y,push_touche(i)\Pcol)
    Next
  EndIf
C'est quoi cette boucle inutile For Next ?

Je comprends pourquoi tu as placé les playSound dans les KeyboardReleased mais ce n'est pas la solution.
Une note doit se jouer des que tu cliques sur la touche sinon ça engendrera un lag quand tu joueras vraiment au clavier .. Il faut donc que tu intègres un état de lecture TRUE/FALSE à chaque note histoire d'éviter le lecture "mitraillette" de la note.
J'ai donc créé une Variable PUSHING.

Dans ta boucle des notes
Principe : SI KEYPRESS
- Tu cliques une note : PUSHING +1 (donc passe de 0 à 1)
SI PUSHING = 1 (c'est le cas)
- playsound
- Pushing + 1 (passe de 1 à 2)
FINSI

SI KEYRELEASE
- Pushing = 0
Exemple de ta touche T

Code : Tout sélectionner

  ; /////////////////////////////////////
  ;-touche clavier T
  If KeyboardPushed(#PB_Key_T)
    Pkey(6,#grise,307,284,RGB(155,155,155))
    Pushing + 1
    If Pushing = 1
      PlaySound(#note7t)
      Pushing + 1
    EndIf
      
      DisplayTransparentSprite(push_touche(6)\id,push_touche(6)\x,push_touche(6)\y,push_touche(6)\Pcol)
  EndIf
  
   If KeyboardReleased(#PB_Key_T)
     Pushing = 0
   EndIf
   ;///////////////////////////////////////
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru