;Test de niveaux de gris par Marc Plouhinec
;Ce logiciel est un exemple pour les programmeurs de SNG


#include "sng10.inc"
#include "GRAYLIB.inc"
 .ORG START_ADDR
 .DB "Test Marc Plouhinec en 2001",0

 CREATEBUFFERANDTESTMEM1(768,PLANE_1) ;Créer PLANE_1 (quitte s'il n'y a pas assez de place)

 INITGRAYLIB                          ;
 OR A                                 ;Initialise la librairie GRAYLIB, quitte si elle n'est pas dans la calculette
 JP Z,quit                            ;

 SEARCHGRAYLIB                        ;
 LD (AdresseLib),HL                   ;Stocke dans AdresseLib l'adresse de la librairie

 LD DE,PLANE_1                        ;
 LIBCALL(GRAYSCALE_ON,AdresseLib)     ;Active les niveaux de gris

 LIBCALL(CLR_BUF,AdresseLib)          ;Efface les buffers PLANE

 LD HL,image_claire ; Recopie l'image claire dans le plan 0
 LD DE,PLANE_0      ;
 LD BC,768          ;
 LDIR               ;

 LD HL,image_foncee ; Recopie l'image foncée dans le plan 1
 LD DE,PLANE_1      ;
 LD BC,768          ;
 LDIR               ;


;Attend l'appuie d'une touche
attend_touche:
 ld a,%11111101
 out (1),a
 in a,(1)
 and %01000000
 JR NZ,attend_touche

 LIBCALL(GRAYSCALE_OFF,AdresseLib)    ;Désactive les niveaux de gris

 STOPGRAYLIB                          ;Déinitialise la librairie

quit:
 DELBUFFER(768,PLANE_1)               ;Détruit le buffer PLANE_1

 RET                   ;Quitte

image_claire:
 .DB 176,0,0,0,2,171,160,0,0,0,0,0
 .DB 92,0,0,0,22,168,48,0,0,0,0,0
 .DB 160,0,0,0,189,20,26,138,238,168,0,0
 .DB 209,0,0,1,186,2,35,240,64,2,0,0
 .DB 168,0,0,3,221,69,64,0,34,1,128,0
 .DB 118,128,0,4,170,160,17,17,85,84,64,0
 .DB 170,96,0,3,255,255,80,8,168,168,32,0
 .DB 253,240,0,95,251,170,170,165,93,213,72,0
 .DB 170,128,2,255,255,255,255,240,42,160,8,0
 .DB 85,80,30,238,170,170,138,168,21,117,68,0
 .DB 21,95,255,117,87,85,21,85,2,170,130,0
 .DB 2,43,234,170,170,160,0,42,1,213,212,0
 .DB 85,95,255,223,221,213,69,85,84,42,160,128
 .DB 170,170,170,170,170,162,0,10,168,85,85,64
 .DB 85,85,85,87,245,85,0,21,85,42,168,224
 .DB 34,34,170,170,170,8,64,74,162,29,221,96
 .DB 85,85,221,223,253,212,0,29,93,74,170,0
 .DB 136,10,170,170,238,168,0,74,170,151,85,80
 .DB 81,85,85,87,255,20,0,149,85,74,170,152
 .DB 0,34,170,42,170,33,193,202,170,7,213,200
 .DB 85,85,221,95,221,84,160,159,221,194,170,168
 .DB 0,170,168,42,170,169,81,46,170,167,117,84
 .DB 1,85,84,85,245,80,0,191,127,82,170,160
 .DB 0,42,33,42,170,32,85,58,170,165,253,208
 .DB 69,85,84,93,93,84,32,127,255,242,170,164
 .DB 0,170,169,42,138,136,64,190,238,165,119,84
 .DB 1,85,84,85,21,20,1,127,255,242,170,164
 .DB 0,42,161,42,72,0,64,190,170,167,223,212
 .DB 5,93,212,93,37,64,5,255,255,210,170,164
 .DB 0,170,129,42,10,161,2,254,239,167,119,116
 .DB 1,85,84,21,21,84,21,255,255,74,170,172
 .DB 64,42,1,32,10,170,98,187,171,133,253,248
 .DB 1,85,84,84,31,255,55,255,255,74,170,164
 .DB 0,170,137,40,14,170,106,254,238,23,119,112
 .DB 1,85,84,20,21,85,21,255,255,10,170,168
 .DB 64,42,0,32,66,32,98,186,186,151,215,208
 .DB 1,85,84,84,5,64,21,255,255,202,170,164
 .DB 0,10,129,32,64,0,0,254,234,149,117,84
 .DB 0,21,16,80,17,16,1,127,127,10,168,160
 .DB 80,0,1,0,0,1,64,58,170,29,221,208
 .DB 0,85,82,84,84,84,0,127,253,74,170,40
 .DB 16,0,1,10,168,0,17,62,170,149,87,88
 .DB 0,17,18,21,85,80,128,127,85,10,170,136
 .DB 68,0,1,2,170,33,65,42,42,21,223,192
 .DB 0,69,84,85,221,208,128,93,93,10,170,144
 .DB 0,0,0,10,170,161,65,42,170,23,117,80
 .DB 0,1,17,85,85,80,128,149,85,10,170,128
 .DB 4,0,0,2,42,1,65,42,32,29,221,96
 .DB 0,4,85,85,85,84,4,21,85,42,170,96
 .DB 0,0,0,10,170,0,1,8,136,85,85,64
 .DB 0,1,17,21,85,80,128,149,80,170,168,0
 .DB 0,0,0,0,32,1,64,0,0,85,212,128
 .DB 0,5,85,85,85,84,4,21,80,170,33,0
 .DB 0,0,168,128,128,128,0,0,1,85,83,0
 .DB 0,8,181,85,85,64,16,81,0,170,38,0
 .DB 93,252,159,162,32,1,32,32,85,221,84,0
 .DB 42,171,2,255,213,84,93,192,34,170,8,0
 .DB 119,117,0,26,170,170,170,21,85,85,16,0
 .DB 170,170,0,13,85,84,0,138,138,136,96,0
 .DB 223,216,0,10,128,1,85,69,85,64,192,0
 .DB 170,160,0,3,208,80,0,0,0,30,0,0
 .DB 119,108,0,1,224,128,63,234,2,240,0,0
 .DB 170,144,0,0,47,1,104,170,170,0,0,0
 .DB 253,240,0,0,5,127,213,85,80,0,0,0

image_foncee:
 .DB 224,0,0,0,0,0,0,0,0,0,0,0
 .DB 240,0,0,0,1,87,192,0,0,0,0,0
 .DB 248,0,0,0,2,235,224,0,0,0,0,0
 .DB 252,0,0,0,69,253,220,15,255,252,0,0
 .DB 254,0,0,0,34,186,191,255,255,254,0,0
 .DB 255,0,0,1,85,95,255,255,255,255,128,0
 .DB 255,128,0,0,0,0,175,255,255,255,192,0
 .DB 255,192,0,0,4,85,85,95,255,255,240,0
 .DB 255,224,0,0,0,0,0,15,255,255,240,0
 .DB 255,224,1,17,85,85,117,87,255,255,248,0
 .DB 234,160,0,138,168,170,234,170,255,255,252,0
 .DB 253,212,21,85,85,95,255,213,255,255,255,0
 .DB 170,160,0,32,34,42,186,170,171,255,255,0
 .DB 85,85,85,85,85,93,255,245,87,255,255,128
 .DB 170,170,170,168,10,170,255,234,170,255,255,128
 .DB 221,221,85,85,85,247,255,245,93,255,255,192
 .DB 170,170,34,32,2,43,255,226,162,191,255,224
 .DB 119,245,85,85,17,87,255,245,85,127,255,224
 .DB 174,170,170,168,0,235,255,234,170,191,255,224
 .DB 255,221,85,213,85,223,255,245,85,255,255,240
 .DB 170,170,34,160,34,171,255,224,34,63,255,240
 .DB 255,85,87,213,85,87,255,209,85,95,255,248
 .DB 254,170,171,170,10,175,255,192,128,175,255,248
 .DB 255,213,223,213,85,223,255,197,85,95,255,252
 .DB 186,170,171,162,162,171,255,128,0,15,255,248
 .DB 255,85,87,213,117,119,255,65,17,95,255,248
 .DB 254,170,171,170,234,235,254,128,0,15,255,248
 .DB 255,213,95,213,247,255,255,65,85,95,255,248
 .DB 250,162,43,162,250,191,250,0,0,47,255,248
 .DB 255,85,127,213,245,95,253,1,16,95,255,248
 .DB 254,170,171,234,234,171,234,0,0,191,255,248
 .DB 255,213,255,223,245,85,221,68,84,127,255,252
 .DB 254,170,171,171,224,0,200,0,0,191,255,248
 .DB 255,85,119,215,241,85,213,1,17,255,255,252
 .DB 254,170,171,235,234,170,234,0,0,255,255,252
 .DB 255,213,255,223,253,223,221,69,69,127,255,252
 .DB 254,170,171,171,250,191,234,0,0,63,255,248
 .DB 255,245,127,223,255,255,255,1,21,127,255,248
 .DB 255,234,239,175,238,239,254,128,128,255,255,248
 .DB 255,255,255,255,255,255,255,197,85,255,255,248
 .DB 255,170,175,171,171,171,255,128,2,191,255,240
 .DB 255,255,255,245,87,255,255,193,85,127,255,240
 .DB 255,238,239,234,170,175,255,128,170,255,255,240
 .DB 255,255,255,253,85,223,255,213,213,255,255,240
 .DB 255,186,171,170,34,47,255,162,162,255,255,224
 .DB 255,255,255,245,85,95,255,213,85,255,255,224
 .DB 255,254,238,170,170,175,255,234,170,255,255,224
 .DB 255,255,255,253,213,255,255,213,223,255,255,192
 .DB 255,251,170,170,170,171,251,234,170,255,255,128
 .DB 255,255,255,245,85,255,255,247,119,255,255,128
 .DB 255,254,238,234,170,175,255,234,175,255,255,128
 .DB 255,255,255,255,223,255,255,255,255,255,255,0
 .DB 255,250,170,170,170,171,251,234,175,255,254,0
 .DB 255,255,87,127,127,127,255,255,255,255,252,0
 .DB 255,255,10,170,170,191,239,174,255,255,248,0
 .DB 255,255,0,93,223,255,223,223,255,255,248,0
 .DB 255,254,0,0,42,171,162,63,255,255,240,0
 .DB 255,254,0,5,85,85,85,255,255,255,224,0
 .DB 255,252,0,2,170,171,255,255,255,255,128,0
 .DB 255,252,0,5,127,255,255,255,255,255,0,0
 .DB 255,248,0,0,47,175,255,255,255,224,0,0
 .DB 255,240,0,0,31,127,192,21,253,0,0,0
 .DB 255,224,0,0,0,254,128,0,0,0,0,0
 .DB 255,192,0,0,0,0,0,0,0,0,0,0 

AdresseLib .DW 0

PLANE_1:
.end
END