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