Graphismes

Visualisez-les maintenant en lancant cette routine :

D> Do
    For N=0 To 34
     Set Pattern N
     Ink 0,1,2: Set Paint 1
     Bar 50,50 To 150,150
     Locate 0,0: Print N ;" "
     Wait 50
    Next N
   Loop

Si SET PATTERN est suivi d un nombre negatif, les formes seront remplies avec un motif capture a partir d une image Sprite ou Bob, provenant de la Banque d Objets (banque memoire 1). Comme ces motifs peuvent etre tres complexes, AMOS Professional les simplifie automatiquement, comme suit :

• La largeur de l image est limitee a 16 pixels.
• La hauteur est arrondie a la puissance de deux la plus proche (2, 4, 8, 16, 32, etc.).
• Les couleurs originales de l image sont ignorees. Le motif est dessine en utilisant l encre courante et la couleur de fond.
• Les motifs a deux couleurs sont dessines en monochrome.

Si des images en couleurs doivent etre utilisees avec les couleurs d origine de l Objet, la commande INK doit etre configuree ainsi :

X> Ink 15,0
   Set Pattern -1
   Paint 100,100

Cet exemple remplit la zone autour des coordonnees donnees avec les couleurs de l Objet, a l exception de la couleur transparente zero. Le numero d encre 15 agit comme un masque, et definit une plage de couleurs de 1 a 15. Si l on change la commande INK comme ceci, l Objet sera dessine avec la couleur normalement transparente remplacee par la couleur 1 :

X> Ink 15,1

Avant d utiliser une image Sprite comme motif de remplissage, pensez a utiliser GET SPRITE PALETTE pour eviter les problemes d affichage. Voici un exemple :

E> Flash Off : Cls 0
   Load "AMOSPro_Tutorial:Objects/Pattern.Abk"
   Get Sprite Palette
   Box 1,1 To 319,199
   Ink 15,0
   Set Pattern -1
   Paint 102,102