Echantillons

L exemple suivant charge une banque d echantillons tout faits depuis la disquette "AMOSPro Examples", et permet de les jouer de maniere aleatoire :

E> Load "AMOSPro_Examples:Samples/Mixture.Abk",5
   Sam Bank 5
   Curs Off : Cls 0: Paper 0
   Locate 0,10
   Centre "Appuyez sur une touche de A a J"
   Do
    A$=Inkey$
    A=Asc(A$)
    If A>96 And A<107
     Sam Play A-96
    End If
   Loop

Vous pouvez appuyer rapidement sur les touches comme sur une mini batterie, ou bien les maintenir pour obtenir des effets de perceuse ! L exemple suivant montre comment utiliser deux voix pour un effet d echo simple, et comment les changements de frequence peuvent modifier le son de l echantillon :

E> Load "AMOSPro_Examples:Samples/Mixture.Abk",10
   Sam Bank 10
   Sam Play 1,12 : Wait 5: Sam Play 2,12: Rem Echo simple
   Wait Key
   Sam Play 1,13,2000: Rem Son plus grave
   Wait Key
   Sam Play 1,13,5000: Rem Son plus aigu

SAM STOP
instruction : arreter un ou plusieurs echantillons
Sam Stop
Sam Stop voix

Cette commande simple arrete tous les echantillons en cours de lecture sur votre systeme audio. Si elle est suivie d un parametre de voix optionnel, seules les voix specifiees seront arretees. Les voix sont choisies via un bitmask binaire, ou chaque bit a 1 signifie que la voix correspondante sera coupee. Les voix sont associees aux bits suivants :

Voix 3210
Bitmask %1111

Par exemple, la ligne suivante arrete les voix 3 et 1 :

X> Sam Stop %1010