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 500ms midi_channel 1 }
  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 $piano1
  24
  25 \
  26
  27 /* bass track */
  28
  29 { midi_channel 2 }
  30
  31 (r1)*4
  32 $bass1