|
6 |
(in-package :om)(load-lib-for (quote ("OM-Lead")))(setf *om-current-persistent* (om-load-patch1 "Tutorial-Patch1 -Overview-" (quote ((let ((box (om-load-boxcomment "comment" (om-make-point 247 75) (quote "RHYTHMIC-PROGRESS$Generates a list of voice, and adds $rhythmic and melodic movement to$the chords") nil (om-make-point 640 500) nil (om-make-color 0 0 0) (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 247 75) (quote "HARMON-PROGRESS$Gives out to chords, which are chosen$randomly out of the harmon-database$and respects all given rules.") nil (om-make-point 640 300) nil (om-make-color 0 0 0) (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 75) (quote "GET-SCORE$Generates a list of voices, to connect with a$poly-Object on its first outlet. On the other $it generates a voice-Object for each voice.") nil (om-make-point 220 500) nil (om-make-color 0 0 0) (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 285 90) (quote "HARMON-DATABASE$Generates a collection of all possible chords $according to rules for the number of voices, $the range of the voices, interval-structure,$and the register-width") nil (om-make-point 220 300) nil (om-make-color 0 0 0) (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 128 30) (quote "HARMONY") nil (om-make-point 100 240) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :mode (quote nil))))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcomment "comment" (om-make-point 128 30) (quote "RHYTHM") nil (om-make-point 100 410) nil (om-make-color 0 0 0) (om-make-font "Verdana" 18.0D0 :family "Verdana" :style (quote (:bold)) :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") nil (om-make-point 176 12) 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) (let ((box (om-load-editor-box1 "PICTURE" (quote picture) (quote ((om-load-inputfun (quote input-funbox) "object" "self" nil) (om-load-inputfun (quote input-funbox) "main background: external picture pathname or RGB array" "background" nil) (om-load-inputfun (quote input-funbox) "list of vectorial graphics" "graphics" nil))) (om-make-point 105 52) (om-make-point 299 171) (make-instance (quote 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) "x" nil (pairlis (quote (winsize winpos)) (list (om-make-point 817 397) (om-make-point 10 40))) t nil nil nil))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-PROGRESS" (quote harmon-progress) (quote ((om-load-inputfun (quote input-funbox) "" "HARMON-DATABASE" nil) (om-load-inputfun (quote input-funbox) "" "FIRST-CHORD" nil))) (om-make-point 520 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE" (quote harmon-database) (quote ((om-load-inputfun (quote input-funbox) "a list of lists of intervals respective to a base not in midi-cents" "PITCH-SET-LIST" nil) (om-load-inputfun (quote input-funbox) "range-list with the lowest and highest note of the instrument in midi-cents" "INSTR0" nil))) (om-make-point 100 320) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "RHYTHMIC-PROGRESS" (quote rhythmic-progress) (quote ((om-load-inputfun (quote input-funbox) "chord-list from harmon-progress" "HARMON-PROGRESS" nil) (om-load-inputfun (quote input-funbox) "t: permutates randomly the rhythmic-order " "RANDOMIZE" nil) (om-load-inputfun (quote input-funbox) "measure" "MEASURE" nil) (om-load-inputfun (quote input-funbox) "tempo" "TEMPO" nil) (om-load-inputfun (quote input-funbox) "legato" "LEGATO" nil))) (om-make-point 520 510) nil nil nil nil 1))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "GET-SCORE" (quote get-score) (quote ((om-load-inputfun (quote input-funbox) "the list of harmon-progress" "HARMON-PROGRESS" nil))) (om-make-point 120 510) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box))) (quote nil) nil 6.15)) |
