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 / Questions & Answers / Q&A Programming Functions / Motive programming < prev    next >
Encoding:
Text File  |  1998-10-26  |  1.7 KB  |  69 lines  |  [TEXT/ScoM]
  1. MOTIVE PROGRAMMING
  2.  
  3. (defmethod ++ ((motive motive) &rest motives)
  4.   (prog (collect new-values)
  5.     (setq motives (cons motive motives))
  6.     (dolist (class *motive-classes*)
  7.       (setq collect nil)
  8.       (dolist (motive motives)
  9.         (setq collect (append (reverse (slot-value motive class)) collect)))
  10.       (push (ccl::make-keyword class) new-values)
  11.       (push (reverse collect) new-values))
  12.     (return (apply 'make-instance (cons 'motive (print (nreverse new-values)))))))
  13.  
  14. Motives should now be in right order. Notice that the zones are on the 
  15. motives and you do not need them in default.
  16.  
  17. (create-tonality t1 '(a 4 b 4 c 5 d 5 d# 5 f 5 g 5))
  18.  
  19. (def-motive pr1
  20.   length '(3/4 1/4 1/4 1/2)
  21.   symbol '(d c b a)
  22.   zone '(7/4)
  23. )
  24.  
  25. (def-motive pr2
  26.   length '(1/4 1/4 1/4 5/4)
  27.   symbol '(c b -b a)
  28.   zone '(8/4)
  29. )
  30.  
  31. (def-motive pr3
  32.   length '(1/4 1/4 1/2 1/2 1/4 5/4)
  33.   symbol '(-b -c -d -c -b a)
  34.   zone '(12/4)
  35. )
  36.  
  37. (def-section sect-a
  38.       default
  39.          channel 8
  40.          tonality (activate-tonality (t1 a 5))
  41.          velocity '(64)
  42.       vlna
  43.          motive (++ pr1 pr2 pr3)
  44. )
  45.  
  46. (play-file-p "Tiger Song"
  47.    all-instruments '(sect-a)
  48. )
  49.  
  50. Using         
  51.  
  52.     motive (list pr1 pr2 pr3)
  53.  
  54. leads error because it makes non-flat zone list. I'll correct it
  55. later. It works when you remove zones from motives and write zone
  56. separately
  57.  
  58.     zone '(7/4 8/4 12/4)
  59.     motive (list pr1 pr2 pr3)
  60.  
  61. Notice also that your example was giving motive for each zone
  62. to be recycled if the zone length is larger than the amount of
  63. the length of the motive. This means that with the same zone lengths
  64. the result would be the same as appending motives with ++. This
  65. means that if you want to connect motives together you can just
  66. use ++. See def-zone and def-symbol etc for description of zone 
  67. sublists.
  68.  
  69.