v2/test/bug_seg_fault.ck

   1
   2 class Player {
   3         UGen @ base;
   4         fun void connect( UGen target ) {
   5                 base => target;
   6         }
   7         fun void noteOn ( float note, float vel ) {}
   8         fun void noteOff ( float vel ) {}
   9 }
  10
  11 class Note {
  12
  13         float note;
  14         float vel;
  15         dur length;
  16
  17         fun void set ( float nt, float vl, dur ln ) {
  18                 nt => note;
  19                 vl => vel;
  20                 ln => length;
  21         }
  22
  23         fun void playOn ( Player p) {
  24                 if ( note > 0 ) {
  25                         p.noteOn( note , vel );
  26                 }
  27         }
  28
  29         fun void playOnAlt( Player p, float noff, float vmul ) {
  30                 p.noteOn( note+noff, vel*vmul );
  31         }
  32
  33 }
  34
  35
  36 class MandPlayer extends Player {
  37         Mandolin m @=> base;
  38         fun void noteOn ( float note, float vel ) {
  39                 std.mtof ( note ) => m.freq;
  40                 vel => m.pluck;
  41         }
  42 }
  43
  44 class FlutePlayer extends Player {
  45         PercFlut f @=> base;
  46         fun void noteOn ( float note, float vel ) {
  47                 std.mtof ( note ) => f.freq;
  48                 vel => f.noteOn;
  49         }
  50 }
  51
  52
  53
  54 12 => int seqn;
  55 Note box[100];
  56 int order[12];
  57
  58
  59 <<<"beep!">>>;