home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MIDI2CS.ZIP / FATIMA.ORC < prev    next >
Encoding:
Text File  |  1995-03-25  |  1.4 KB  |  69 lines
  1. ; SONGLAB 1995 MIDI2CS v0.92 
  2. ; Bonhoefferufer 13  10589 Berlin  Tel. 0049/30/3456477
  3. ;
  4. ; Example of a simple multisample instrument
  5. ; The file fatima.hdr must be included in the scorefile
  6. ;
  7. ; This one will be a lot better with the next version
  8. ; of MIDI2CS I hope. I am working on it :)
  9. ;
  10. ; I will create instruments and effects automatically
  11. ; with the next version of MIDI2CS.
  12. ;
  13. ; Please send any suggestions for instruments and effects
  14. ;
  15. ;                                     Ruediger Borrmann
  16.  
  17. sr = 48000
  18. kr = 4800
  19. ksmps = 10
  20. nchnls = 2
  21.  
  22. ; Global Volume / Gesamtlautstaerke
  23. givol   = 0.4
  24.  
  25. ga1 init 0
  26. ga2 init 0
  27.  
  28.         instr    1, 2, 3, 4
  29. kamp    linen 1, -1, p3, .02
  30. asig    oscil  5000, p4, 1
  31.         outs asig*kamp, asig*kamp
  32.         endin
  33.  
  34.  
  35.         instr   20, 21, 22, 23      ; Organ
  36.  
  37. imidi   = (int(p4)-3)*12+frac(p4)*100
  38. ifno    table    imidi, 79    ;map notnum to ftables (3-11)
  39. ibasno    table    imidi, 78    ;map notnum to ftable basenot
  40. ibasoct = ibasno/12.+0.
  41.  
  42. icps    = cpspch(p4)
  43. iamp    = 32000*givol
  44.  
  45. ; Huellkurve fuer soundin sample
  46. kamp    linen iamp, -1, p3, .02
  47.  
  48. a1    loscil kamp, icps, ifno, cpsoct(ibasoct)
  49.  
  50.         aright  = a1*0.7
  51.         aleft   = a1*0.7
  52.         outs    aright,aleft
  53. ga1    = aright*0.5
  54. ga2    = aleft*0.5
  55.         endin
  56.  
  57.  
  58. instr 99
  59.  
  60.     a1  reverb2 ga1, 1.6, .3
  61.     a2  reverb2 ga2, 1.3, .5
  62.  
  63.     outs    a1*0.1, a2*0.1
  64.  
  65.     ga1 = 0
  66.     ga2 = 0
  67.  
  68. endin
  69.