| | |
|---|
| | | ; OM File Header - Saved 2022/03/09 22:42:44 |
|---|
| | | ; (6.15 :patc (om-make-point 10 10) (om-make-point 146 41) (om-make-point 1127 635) "" 183 0 "2022/03/09 22:05:29" "2022/03/09 22:42:44") |
|---|
| | | ; OM File Header - Saved 2023/11/20 18:32:01 |
|---|
| | | ; (7.03 :patc (om-make-point 10 10) (om-make-point 298 94) (om-make-point 1127 635) "" 183 0 nil "2023/11/20 18:32:01") |
|---|
| | | ; End File Header |
|---|
| | | ; External resources |
|---|
| | | ; (list (list (quote :picture) "#P\"../resources/pict/Logo_Library-Lead\"")) |
|---|
| | | (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)) |
|---|
| | | ; (list (list (quote :picture) "#P\"../../../resources/pict/Logo_Library-Lead\"")) |
|---|
| | | (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 252 30) (quote "! WARNING ! Experimental Feature") "" (om-make-point 663 463) 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 563 501) 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 136 501) nil nil nil nil 5))) (when (fboundp (quote set-active)) (set-active box nil)) box) (let ((box (om-load-boxcall (quote genfun) "HARMON-DATABASE 2" (quote omlead::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" "INSTR1" nil))) (om-make-point 110 309) nil nil nil nil 1))) (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 667 500) 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 247 75) (quote "HARMON-PROGRESS$Gives out to chords, which are chosen$randomly out of the harmon-database$and respects all given rules.") "" (om-make-point 682 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 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.") "" (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 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") "" (om-make-point 226 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 128 30) (quote "HARMONY") "" (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") "" (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") "" (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))) (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.03)) |
|---|
