examples/example2.ahs

   1 /*
   2
   3         Apuntes de la Ruta de las Especias:
   4         6 - Dioses y Justicia
   5
   6         (C) Angel Ortega 1991
   7
   8 */
   9
  10 { /* piano */ pat "samples/acpiano.pat" sustain 300ms midi_channel 1 midi_program 41 }
  11
  12 /* patterns */
  13
  14 (o6 z8 (<c;e>)*8 (<a,;c>)*6 <a,;d> <a,;c> o-1 (<g;b>)*11 (<f;a>)*2 (<g;b>)*3 o+1)=piano1
  15
  16 (o4 z8 ccc c8*5 | a,8a,a, a,8*3 c8d | eee e8*5 | e8ee e4 d8ed)=bass1
  17
  18 /* song */
  19
  20 /* piano track */
  21
  22 $piano1
  23
  24 ^2nd-phrase
  25 ($piano1)*2
  26
  27 \
  28
  29 /* bass track */
  30
  31 { pat "samples/sweeper.pat" midi_channel 2 midi_program 16 }
  32
  33 /* (r1)*4 */
  34 @2nd-phrase
  35 v1
  36 $bass1
  37 { midi_program 36 }
  38 $bass1