home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / SoundApps / aa_m68k_Intel_Only / InstrumentBuilder.99 / Examples / fmExample.sc next >
Encoding:
Text File  |  1995-06-12  |  562 b   |  27 lines
  1. #include <carl/cmusic.h>
  2. set funclength = 8K ;
  3. set list ;
  4.  
  5. ins 0 fm  ;
  6.     osc    b2 1 p5 f3 d ;    {df env}
  7.     osc    b3 1 p5 f4 d ;    {fm env}
  8.     osc    b5 b2 b3 f1 d ;    {mod osc}
  9.     osc    b1 p6 p5 f2 d ;    {amp env}
  10.     adn    b6 b5 p7 ;    {sum}
  11.     osc    b7 b1 b6 f1 d ;    {carrier}
  12.     out    b7 ;        {output}
  13. end ;
  14.  
  15. {f1 - sine}
  16. SINE(f1) ;
  17. {f2 - amp env}
  18. GEN4(f2) 0,0 -1 .05,1 0 .95,1 -2 1,0 ;
  19. {f3 - df env}
  20. GEN4(f3) 0,0 0 1/8,6Hz 0 2/8,12Hz 0 3/8,300Hz 0 4/8,900Hz 0 7/8,900Hz 0 8/8,0 ;
  21. {f4 - fm env}
  22. GEN4(f4) 0,1.5Hz (ln(2)) 4/8,3Hz (ln(100)) 7/8,300Hz 0 1,300Hz ;
  23.  
  24. note 0 fm 32 p4sec -12dB 300Hz ;
  25.  
  26. ter ;
  27.