(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "01) overview" (quote ((let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote omlead::harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil) (om-load-inputfun (quote input-funbox) "" "CHORDNUMBER" nil))) (om-make-point 580 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 121 44) (quote "UTILITIES") "" (om-make-point 100 460) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GEN-HARMONIES" (quote omlead::gen-harmonies) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" (list (list 0))) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR1" (list 6000 7200)) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR2" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR3" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR4" nil))) (om-make-point 120 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 252 30) (quote "! WARNING ! Experimental Feature") "" (om-make-point 220 610) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-RHYTHM" (quote omlead::harmon-rhythm) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON_PROGRESS" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_NUMERATOR" nil) (om-load-inputfun (quote input-funbox) "" "MEASURE_DENOMINATOR" nil) (om-load-inputfun (quote input-funbox) "" "N-BARS" nil) (om-load-inputfun (quote input-funbox) "" "N-HARMONIES" nil) (om-load-inputfun (quote input-funbox) "" "TREE-BASE1" nil))) (om-make-point 120 630) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE 2" (quote omlead::get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of chords you may have generated in harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 140 500) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 231 75) (quote "RHYTHMIC-PROGRESS$Generates a list of voice, and adds $rhythmic and melodic movement to$the chords") "" (om-make-point 220 630) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12.0D0 :family "Verdana" :style (quote (:italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 238 90) (quote "HARMON-PROGRESS$Selects a series of chords from a $collection of chords in such a way $that all the given rules for harmonic $progression are taken into account.") "" (om-make-point 680 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 281 90) (quote "GET-SCORE$Generates a list of voices, to connect with a$poly-Object on its first outlet. On the other $outlets it generates a voice-Object for each$voice.") "" (om-make-point 220 500) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 275 90) (quote "GEN-HARMONIES$Generates a list with all possible chords $from a list of one or several pitch-sets, $according to the number of voices, $range of the voices, and the register-width") "" (om-make-point 220 300) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 12 :family "Verdana" :style (quote (:plain)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 272 44) (quote "VERTICAL COMPOSITION") "" (om-make-point 100 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 306 44) (quote "HORIZONTAL COMPOSITION") "" (om-make-point 600 240) nil (om-make-color 6.60792E-5 0.001801014 0.99822855) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold :italic)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 165 58) (quote "OVERVIEW") "" (om-make-point 100 20) nil (om-make-color 0 0 0) (om-make-font "Verdana" 24.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) (list (let ((newpict (make-instance (quote patch-picture) :name "Logo_Library-Lead" :source (quote user) :pict-pathname (restore-pict-path (restore-path nil)) :thepict (om-get-picture "Logo_Library-Lead" (quote user)) :storemode :external :draw-params (quote (p 0 0 100 100)) :extraobjs nil))) (setf (pict-pos newpict) (om-make-point 105 60)) (setf (pict-size newpict) (om-make-point 299 154)) newpict)) 7.02))
|
