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 { vol 0.3 0.9 }
  12
  13 /* patterns */
  14
  15 (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
  16
  17 (o4 z8 ccc c8*5 | a,8a,a, a,8*3 c8d | eee e8*5 | e8ee e4 d8ed)=bass1
  18
  19 /* song */
  20
  21 /* piano track */
  22
  23 $piano1
  24
  25 ^2nd-phrase
  26 ($piano1)*2
  27
  28 \
  29
  30 /* bass track */
  31
  32 { pat "samples/sweeper.pat" midi_channel 2 midi_program 16 }
  33 { channel 0 0.8 channel 1 0.2 }
  34
  35 /* (r1)*4 */
  36 @2nd-phrase
  37 v1
  38 $bass1
  39 { midi_program 36 }
  40 $bass1
  41
  42 \
  43
  44 /* percussion track */
  45 { wav "samples/amen1.wav" c1 }
  46
  47 r1 ({ pitch_stretch c1 1 0.8 })*7
  48
  49 \
  50
  51 /* flute */
  52
  53 { pat "samples/flute.pat" vol 0.9 0.3 }
  54
  55 o6 s1 e1*2
  56 { vibrato 0.45ms 6 }
  57 e1*4