home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Using tunigs < prev   
Encoding:
Text File  |  1998-10-26  |  2.0 KB  |  108 lines  |  [TEXT/ScoM]
  1. ; testing tunings
  2.  
  3. Microtonalities can be realized in two ways: as microtuned 
  4. tonalities or using a tuning class. These two can co-exist.
  5. When evaluating examples reset compiler before, or use eval
  6. buffer.
  7.  
  8. =====================
  9. Microtuned Tonalities
  10. =====================
  11.  
  12. (create-tonality agricola-monochord
  13.     '(1/1 135/128 9/8 1215/1024 81/64 4/3 45/32 3/2 405/256 27/16 16/9 243/128))
  14.  
  15. ; note the number 1000 - this must be set properly to match the
  16. ; number of pitch steps between semitones, is synth-specific.
  17.  
  18. (def-section sect-a
  19.    default
  20.       zone '(2/1)
  21.       tonality (activate-tonality (agricola-monochord c 4 1000))
  22.       length '(1/8)
  23.       duration '(1/4t)
  24.       velocity '(64)
  25.    piano
  26.       symbol '(a b c d e f g h   i j k l m n o p)
  27. )
  28.  
  29. (def-tempo 120)
  30.  
  31. (midiport :printer)
  32.  
  33. (play-file-p "tunings"
  34.    piano '(sect-a)
  35. )
  36.  
  37. ============
  38. Tuning Class
  39. ============
  40.  
  41. (def-symbol
  42.    violin '(a b b d c d)
  43. )
  44.  
  45. (def-tuning
  46.    violin '(0 -300 0 300 0 0)
  47. )
  48.  
  49. (def-length
  50.    violin '(1/4 1/4 1/4 1/4 1/4 1/4)
  51. )
  52.  
  53. ;; You have to use non-overlapping or non maximum length durations
  54. ;; otherwise the last one of the two contacting notes is removed
  55. ;; and you don't hear it. Use duration or legato expression to adjust
  56. ;; durations.
  57.  
  58. (def-duration
  59.    violin '(1/5 1/5 1/5 1/5 1/5 1/5)
  60. )
  61.  
  62. (def-velocity
  63.    violin '(60 30 50 20 20 10)
  64. )
  65.  
  66. (def-zone
  67.    violin (make-zone (length-of violin))
  68. ) 
  69.  
  70. (def-tonality
  71.    default (activate-tonality (chromatic c 5))
  72. ) 
  73.  
  74. (def-tempo 120)
  75.  
  76. (midiport :printer)
  77.  
  78. (compile-instrument-p "ccl;output:" "violin"
  79.    violin
  80. )
  81.  
  82. =========
  83. Mixed Use
  84. =========
  85.  
  86. If both microtuned tonalities and tuning class are used, their
  87. sum determines the final tuning.
  88.  
  89. (def-section sect-a
  90.    default
  91.       zone '(4/1)
  92.       tonality (activate-tonality (equal-tempered 24 'c 4 1000))
  93.       length '(4/24)
  94.       velocity '(64)
  95.       tuning '(50 -50 25 -25) 
  96.    piano
  97.       symbol '(a b c d e f g h   i j k l m n o p  q r s t u v x y)
  98. )
  99.  
  100. (def-tempo 120)
  101.  
  102. (midiport :printer)
  103.  
  104. (play-file-p "tunings2"
  105.    piano '(sect-a)
  106. )
  107.  
  108.