|
pwgl-users: algorithmic lyrics...
|
View:
New views
3 Messages
—
Rating Filter:
Alert me
|
 |
pwgl-users: algorithmic lyrics...
by padovani-3
::
Rate this Message:
hi,
I'm trying to build a patch that creates the lyrics for some notes... Even getting random strings with nth-random and setting it with the code `((:lyrics :print-symbol ,string)) to send to a chord enp-constructor, I get the same string for all notes... After some hours I managed to get different strings assigning each note to a voice, what is not practical for many notes... I would really appreciate if anyone could help me to understand what am I doing wrong here... josé -- http://www.padovani.googlepages.com (IN-PACKAGE :CCL) ;; this patch was saved with PWGL version 1.0 beta rc-12 (0.9.12-510) (ASSERT-PATCH-SAVED-VERSION-NOT-NEWER-THAN (QUOTE ((0 9 12) 510))) (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-PW-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "xs" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 0.9398354545610226D0 :Y 1.648857281220193D0 :W 0.26 :H 0.1 :BOX-STRING "x->dx" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PATCH-WORK:X->DX)) (MAKE-INSTANCE (QUOTE PW-BOX-MAP-BUFFER) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "list" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lists" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 0.11999999999999966D0 :Y 1.4440000514984135D0 :W 0.325 :H 0.17359999 :BOX-STRING "pwgl-enum" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT)) (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-ENUM) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE SCORE-EDITOR) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-SCORE-SUBBOX) :R 1.0 :G 1.0 :B 1.0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE ENP-APPLICATION-WINDOW) :PAGE-LAYOUT-OBJECTS (LIST (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE-NUMBER :PAGE :MEASURES-PER-SYSTEM 2 :SYSTEMS-PER-PAGE 4) (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE-NUMBER :SCROLL :MEASURES-PER-SYSTEM 9 :SYSTEMS-PER-PAGE 4)) :ENP-PREFERENCES (MAKE-INSTANCE (QUOTE ENP-PREFERENCES-OBJECT) :DRAW-DURATIONS-P NIL) :PARTS (LIST (MAKE-INSTANCE (QUOTE PART) :Y 100.0 :INSTRUMENT (MAKE-INSTANCE (QUOTE INSTRUMENT) :SCORE-NAME "P" :WRITTEN-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :SOUNDING-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF))) :STAFF (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :VOICE-LIST (LIST (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 2 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 2.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "e")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 3 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 3.5 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 4 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 4.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "o")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 5 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 6.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 6 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 10.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 7 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 13.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 8 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 15.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 9 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 17.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER 10 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 19.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889)))) :SCALEFX 1.21 :SCALEFY 1.21 :TRANSLX 15.400002 :TRANSLY -8.9000025 :X 150 :Y 150 :TITLE "Score-Editor1" :X 150 :Y 15 :WIDTH 1195 :HEIGHT 808))) WIN) :CONNECTION NIL :XSCALE-FC 2.0092197 :YSCALE-FC 2.0092197 :X-OFFSET 5.3999977 :Y-OFFSET -7.500001)) :X 1.8200035761642983D0 :Y -0.6772242431739661D0 :W 2.6124776267363195D0 :H 0.8942331367512861D0 :BOX-STRING "Score-Editor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "score") (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "pitches") (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "rtms/times")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE SCORE-EDITOR) :OPEN-STATE-W 2.6124776267363195D0 :OPEN-STATE-H 0.8942331367512861D0) (MAKE-INSTANCE (QUOTE PWGL-CODE-BOX) :R 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-FREE-VALUE-BOX-SUBVIEW) :BOX-STRING "a" :CONNECTION NIL :ARG-NAME (QUOTE A) :ARG-TYPE :VAR)) :X 2.4368277488877004D0 :Y 1.129464240503503D0 :W 0.26 :H 0.1 :BOX-STRING "code-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE CODE-BOX) :TEXT ";; Your code goes here. For example: `( :lyrics :print-symbol ,a )") (MAKE-INSTANCE (QUOTE PWGL-BOX) :R 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 2.4652539824261513D0 :Y 0.8775096115315304D0 :W 0.26 :H 0.1 :BOX-STRING "list" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST)) (MAKE-INSTANCE (QUOTE PWGL-ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE ENP-CONSTRUCTOR-FUNCTION) :CURVAL 5 :MINVAL 0 :MAXVAL 6 :MENU-LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":chord") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "pitches" :CURVAL (LIST 60) :VALUE-STRING "(60)") (MAKE-INSTANCE (QUOTE PWGL-UPDATE-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :PWGL-ACTION-FUNCTION (QUOTE UPDATE-NEXT-SUBBOX) :CURVAL 8 :MINVAL 0 :MAXVAL 10 :MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU-LIST-STRING ":start-time" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-2) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :STEPVAL 0.1 :MINVAL 0.0 :VALUE-STRING "0.0" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-UPDATE-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :PWGL-ACTION-FUNCTION (QUOTE UPDATE-NEXT-SUBBOX) :CURVAL 4 :MINVAL 0 :MAXVAL 10 :MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU-LIST-STRING ":expressions" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-2) (MAKE-INSTANCE (QUOTE PWGL-HIERARCHICAL-MENUBOX-SUBVIEW) :BOX-STRING "nil" :MINVAL 0 :MAXVAL 1 :CONNECTION NIL :MENU-LIST (LIST (LIST ":analysis-group" ":score-expression") (LIST ":annotation-expression") (LIST ":accent" ":accent-grave" ":accent-grave-with-dot" ":bartok-pizzicato" ":natural-harmonics" ":slur" ":staccatissimo" ":staccato" ":tenuto") (LIST ":figured-bass") (LIST ":col-legno" ":flautando" ":martellato" ":pizz" ":punta-d-arco" ":ricoche" ":saltando" ":spiccato" ":sul-ponticello" ":sul-tasto") (LIST ":conductor-mark") (LIST ":crescendo" ":diminuendo" ":f" ":ff" ":fff" ":fp" ":fz" ":mf" ":mp" ":p" ":pp" ":ppp" ":sf" ":sff" ":sfp" ":sfz") (LIST ":trumpet-fingering") (LIST ":canvas-expression" ":image-expression") (LIST ":bpf" ":group") (LIST ":guitar-fret" ":harp-pedal" ":piano-pedal") (LIST ":lyrics") (LIST ":fermata" ":parenthesis" ":repetition-box") (LIST ":con-sord." ":solo") (LIST ":15ma" ":15mb" ":8ba" ":8va") (LIST ":arpeggio" ":trillo") (LIST ":breath-mark") (LIST ":tremolo16" ":tremolo32" ":tremolo64" ":tremolo8" ":tremoloz") (LIST ":analysis-text-group" ":beam-expression") (LIST ":pc-clock") (LIST ":string1" ":string2" ":string3" ":string4" ":string5" ":string6" ":string7" ":string8" ":string9") (LIST ":accelerando" ":ritardando" ":rubato") (LIST ":plain-text") (LIST ":cross-staff" ":glissando" ":portamento")) :MENU-LIST-STRING ":analysis-group" :MENU-TITLES (LIST "analysis" "annotations" "articulations" "baroque" "bowing" "conducting" "dynamics" "fingerings" "graphics" "groups" "instrumental" "lyrics" "misc" "mutes" "octavation" "ornaments" "phrasing" "repetitions" "schenker" "set-theory" "string-numbers" "tempo-marks" "text" "transitions") :MAXVAL2 23) (MAKE-INSTANCE (QUOTE PWGL-UPDATE-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :PWGL-ACTION-FUNCTION (QUOTE UPDATE-NEXT-SUBBOX) :CURVAL 3 :MINVAL 0 :MAXVAL 10 :MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU-LIST-STRING ":duration" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-2) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :CURVAL 0.1 :STEPVAL 0.1 :MINVAL 0.0 :MAXVAL 100.0 :VALUE-STRING "0.1" :CONNECTION NIL)) :X 0.556283058502522D0 :Y 0.8879694536257463D0 :W 0.8 :H 0.32079998 :BOX-STRING "enp-chord-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 2 2 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 24 :BORDER 0.012) :PW-FUNCTION (QUOTE ENP-CHORD-CONSTRUCTOR) :CURRENT-EXTENSION-PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "value" :CURVAL (LIST 0 2 3.5 4 6 10 13 15 17 19 20) :VALUE-STRING "(0 2 3.5 4 6 10 13 15 17 19 20))")) :X 0.7289972277847405D0 :Y 2.024370052874075D0 :W 0.4919999904632566D0 :H 0.10000000149011612D0 :BOX-STRING "value-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE VALUE-BOX) :OPEN-STATE-W 0.4919999904632566D0 :OPEN-STATE-H 0.10000000149011612D0) (MAKE-INSTANCE (QUOTE PWGL-BOX) :R 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "value" :CURVAL (LIST "a" "e" "i" "o" "u") :VALUE-STRING "(\"a\" \"e\" \"i\" \"o\" \"u\")")) :X 2.520000001490116D0 :Y 1.6959993252158166D0 :W 0.4919999904632566D0 :H 0.10000000149011612D0 :BOX-STRING "value-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE VALUE-BOX) :OPEN-STATE-W 0.4919999904632566D0 :OPEN-STATE-H 0.10000000149011612D0) (MAKE-INSTANCE (QUOTE PWGL-BOX) :R 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "list" :CURVAL "(0 1)" :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 2.161543085070174D0 :Y 1.3346714579014934D0 :W 0.26 :H 0.1 :BOX-STRING "nth-random" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PATCH-WORK::NTH-RANDOM)) (MAKE-INSTANCE (QUOTE PW-BOX-MAP) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "enum" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 1.7003287244482963D0 :Y 0.3288014064047122D0 :W 0.52 :H 0.1 :BOX-STRING "pwgl-map" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 5 :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-MAP)) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "want to alternate between strings to apply them to the lyrics expression...")) :X 2.842463004819914D0 :Y 1.476586138095077D0 :W 1.7192656693158704D0 :H 0.10000000149011657D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 1.7192656693158704D0 :OPEN-STATE-H 0.10000000149011657D0) (MAKE-INSTANCE (QUOTE PWGL-ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE ENP-CONSTRUCTOR-FUNCTION) :CURVAL 2 :MINVAL 0 :MAXVAL 6 :MENU-LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":voice") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "score-notation" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 1.8448505180084598D0 :Y 0.6218810608215071D0 :W 0.8 :H 0.099999994 :BOX-STRING "enp-voice-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 8 :BORDER 0.012) :PW-FUNCTION (QUOTE ENP-VOICE-CONSTRUCTOR)) (MAKE-INSTANCE (QUOTE PWGL-ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE ENP-CONSTRUCTOR-FUNCTION) :CURVAL 1 :MINVAL 0 :MAXVAL 6 :MENU-LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":part") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "score-notation" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 1.5485768715071087D0 :Y -0.042677699579650064D0 :W 0.8 :H 0.1 :BOX-STRING "enp-part-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 12 :BORDER 0.012) :PW-FUNCTION (QUOTE ENP-PART-CONSTRUCTOR)) (MAKE-INSTANCE (QUOTE SCORE-EDITOR) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-SCORE-SUBBOX) :R 1.0 :G 1.0 :B 1.0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE ENP-APPLICATION-WINDOW) :PAGE-LAYOUT-OBJECTS (LIST (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE-NUMBER :PAGE :MEASURES-PER-SYSTEM 2 :SYSTEMS-PER-PAGE 4) (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE-NUMBER :SCROLL :MEASURES-PER-SYSTEM 9 :SYSTEMS-PER-PAGE 4)) :ENP-PREFERENCES (MAKE-INSTANCE (QUOTE ENP-PREFERENCES-OBJECT) :DRAW-DURATIONS-P NIL) :PARTS (LIST (MAKE-INSTANCE (QUOTE PART) :Y 100.0 :INSTRUMENT (MAKE-INSTANCE (QUOTE INSTRUMENT) :SCORE-NAME "P" :WRITTEN-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :SOUNDING-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF))) :STAFF (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :VOICE-LIST (LIST (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 2.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 3.5 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 4.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 6.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 10.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 13.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 15.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 17.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 19.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a")))))) :PIXELS/SEC 10.388889)))) :SCALEFX 1.21 :SCALEFY 1.21 :TRANSLX 15.400002 :TRANSLY -8.9000025 :X 150 :Y 150 :TITLE "Score-Editor1" :X 150 :Y 15 :WIDTH 1195 :HEIGHT 808))) WIN) :CONNECTION NIL :XSCALE-FC 2.0092197 :YSCALE-FC 2.0092197 :X-OFFSET 5.3999977 :Y-OFFSET -7.500001)) :X -0.918026282574377D0 :Y -0.6712982498722617D0 :W 2.6124776267363195D0 :H 0.8942331367512861D0 :BOX-STRING "Score-Editor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "score") (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "pitches") (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "rtms/times")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE SCORE-EDITOR) :OPEN-STATE-W 2.6124776267363195D0 :OPEN-STATE-H 0.8942331367512861D0) (MAKE-INSTANCE (QUOTE PW-BOX-MAP) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "enum" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 0.22574103533544698D0 :Y 0.2044269824594418D0 :Z -0.1 :W 0.52 :H 0.1 :BOX-STRING "pwgl-map" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 5 :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-MAP)) (MAKE-INSTANCE (QUOTE PWGL-ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE ENP-CONSTRUCTOR-FUNCTION) :CURVAL 2 :MINVAL 0 :MAXVAL 6 :MENU-LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":voice") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "score-notation" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 0.19098641017899998D0 :Y -0.08905397166842732D0 :Z -0.1 :W 0.8 :H 0.1 :BOX-STRING "enp-voice-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 8 :BORDER 0.012) :PW-FUNCTION (QUOTE ENP-VOICE-CONSTRUCTOR)) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "not good - many voices...")) :X 2.537236271921683D0 :Y -0.37864188418216927D0 :W 1.635007255067328D0 :H 0.17745775962489008D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 1.635007255067328D0 :OPEN-STATE-H 0.17745775962489008D0) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "not good - string repeats...")) :X -0.729898036093966D0 :Y -0.3966277888237002D0 :W 1.635007255067328D0 :H 0.17745775962489008D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 1.635007255067328D0 :OPEN-STATE-H 0.17745775962489008D0)) :X 5 :Y 5 :SCALEFX 0.43894893 :SCALEFY 0.43894893 :TRANSLX 1.2080742236340787D0 :TRANSLY 1.5815153512910665D0 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 1 :PWBOX2 5 :INPUT-BOX 7 :DRAW-MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.43666667014360394D0 :CY1 1.1524000625610356D0 :CX2 2.689879079870115D0 :CY2 1.0351072247162496D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 14 :OUT-BOX 0 :PWBOX2 15 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.5857410272888199D0 :CY1 -0.01357301974593006D0 :CX2 1.1009864242978502D0 :CY2 -0.2378539703541449D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 15 :OUT-BOX 0 :PWBOX2 13 :INPUT-BOX 0 :DRAW-MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 -0.8121264575003797D0 :CY1 -0.5758779579886038D0 :CX2 -1.2139488487583337D0 :CY2 -0.005228718315042125D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 14 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.9537807527934863D0 :CY1 0.5174178591976277D0 :CX2 0.8557410184598819D0 :CY2 0.055626983773724215D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 14 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.12833333283662762D0 :CY1 1.1524000625610356D0 :CX2 0.12574103384533086D0 :CY2 0.055626983773724215D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 12 :OUT-BOX 0 :PWBOX2 2 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 1.8037620320270718D0 :CY1 -0.492900074982473D0 :CX2 1.6051286186685694D0 :CY2 -0.4302974640881556D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 9 :OUT-BOX 0 :PWBOX2 12 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.0603287164016693D0 :CY1 0.11080140419934037D0 :CX2 2.458576885625959D0 :CY2 -0.19147769826536765D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 11 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 1.1537807557737186D0 :CY1 0.5174178591976277D0 :CX2 2.75485053212731D0 :CY2 0.47308106399843464D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 11 :OUT-BOX 0 :PWBOX2 9 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.144850522478808D0 :CY1 0.4038810660667158D0 :CX2 2.3303287075727313D0 :CY2 0.18000140771899464D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 9 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.23397772424489705D0 :CY1 0.1891865277639151D0 :CX2 0.09320556574408912D0 :CY2 0.5301886531128841D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 4 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 5 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.4952539761676636D0 :CY1 0.6595096093261585D0 :CX2 1.5637807624419882D0 :CY2 0.6602178457239978D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 8 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.3915430817919186D0 :CY1 1.1166714556961215D0 :CX2 2.3368277473975843D0 :CY2 0.9806642418177853D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 6 :OUT-BOX 0 :PWBOX2 0 :INPUT-BOX 0 :DRAW-MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.7190009178132655D0 :CY1 1.4846276742606668D0 :CX2 0.6692144958848263D0 :CY2 1.5829303188819999D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 6 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 0 :DRAW-MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.8798721060172829D0 :CY1 1.7283718988122097D0 :CX2 0.5160009143487452D0 :CY2 1.348823784076681D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 7 :OUT-BOX 0 :PWBOX2 8 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.665999995231628D0 :CY1 1.4779993230104447D0 :CX2 2.061543083580058D0 :CY2 1.1858714592157758D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.8235889135716095D0 :CY1 1.1334893250619387D0 :CX2 0.554999990276992D0 :CY2 1.2216000604927544D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 3 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.4668277426292127D0 :CY1 0.9114642382981311D0 :CX2 2.365253980936035D0 :CY2 0.7287096128458128D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 3 :DRAW-MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.32833333581685986D0 :CY1 1.1524000625610356D0 :CX2 2.1688085052095114D0 :CY2 0.9665715253866822D0)) :X 67 :Y 0 :WIDTH 1431 :HEIGHT 844))) (WINDOW-SELECT WIN) WIN) |
|
|
Re: pwgl-users: algorithmic lyrics...
by Mika Kuuskankare
::
Rate this Message:
josé,
You could use inside the code-box the following: (make-instance 'lyrics :print-symbol a) Mika On 9.4.2009, at 21:49, padovani wrote: > hi, > I'm trying to build a patch that creates the lyrics for some notes... > Even getting random strings with nth-random and setting it with the > code `((:lyrics :print-symbol ,string)) to send to a chord enp- > constructor, I get the same string for all notes... > After some hours I managed to get different strings assigning each > note to a voice, what is not practical for many notes... > > I would really appreciate if anyone could help me to understand what > am I doing wrong here... > josé > > -- > http://www.padovani.googlepages.com > > (IN-PACKAGE :CCL) > ;; this patch was saved with PWGL version 1.0 beta rc-12 (0.9.12-510) > (ASSERT-PATCH-SAVED-VERSION-NOT-NEWER-THAN (QUOTE ((0 9 12) 510))) > (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-PW-WINDOW) :PWGL-SUBVIEWS > (LIST (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "xs" :CURVAL > (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X > 0.9398354545610226D0 :Y 1.648857281220193D0 :W 0.26 :H 0.1 :BOX- > STRING "x->dx" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL- > OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER > 0.012) :PW-FUNCTION (QUOTE PATCH-WORK:X->DX)) (MAKE-INSTANCE (QUOTE > PW-BOX-MAP-BUFFER) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > VALUE-BOX-SUBVIEW) :BOX-STRING "list" :CURVAL (LIST 0 1) :VALUE- > STRING "(0 1)" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX- > SUBVIEW) :BOX-STRING "lists" :CURVAL (LIST 0 1) :VALUE-STRING "(0 > 1)" :CONNECTION NIL)) :X 0.11999999999999966D0 :Y > 1.4440000514984135D0 :W 0.325 :H 0.17359999 :BOX-STRING "pwgl- > enum" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT)) (MAKE- > INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE > PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST > 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE > PWGL-ENUM) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS :CURRENT-EXTENSION- > PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE SCORE-EDITOR) :PWGL-SUBVIEWS > (LIST (MAKE-INSTANCE (QUOTE PWGL-SCORE-SUBBOX) :R 1.0 :G 1.0 :B > 1.0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE ENP- > APPLICATION-WINDOW) :PAGE-LAYOUT-OBJECTS (LIST (MAKE-INSTANCE (QUOTE > ENP-PAGE-LAYOUT-OBJECT) :PAGE-NUMBER :PAGE :MEASURES-PER-SYSTEM > 2 :SYSTEMS-PER-PAGE 4) (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT- > OBJECT) :PAGE-NUMBER :SCROLL :MEASURES-PER-SYSTEM 9 :SYSTEMS-PER- > PAGE 4)) :ENP-PREFERENCES (MAKE-INSTANCE (QUOTE ENP-PREFERENCES- > OBJECT) :DRAW-DURATIONS-P NIL) :PARTS (LIST (MAKE-INSTANCE (QUOTE > PART) :Y 100.0 :INSTRUMENT (MAKE-INSTANCE (QUOTE INSTRUMENT) :SCORE- > NAME "P" :WRITTEN-CLEF (MAKE-INSTANCE (QUOTE TREBLE- > STAFF)) :SOUNDING-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF))) :STAFF > (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :VOICE-LIST (LIST (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :CHORDS (LIST > (MAKE-INSTANCE (QUOTE CHORD) :NOTES (LIST (MAKE-INSTANCE (QUOTE > NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE > ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "a")))))) :PIXELS/SEC > 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH > 95.0 :VOICE-NUMBER 2 :CHORDS (LIST (MAKE-INSTANCE (QUOTE > CHORD) :START-TIME 2.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE- > INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR > 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "e")))))) :PIXELS/SEC 10.388889) (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER > 3 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 3.5 :NOTES > (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR > 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889) (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER > 4 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 4.0 :LOCAL- > STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM- > DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE > ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "o")))))) :PIXELS/SEC > 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH > 95.0 :VOICE-NUMBER 5 :CHORDS (LIST (MAKE-INSTANCE (QUOTE > CHORD) :START-TIME 6.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR > 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE > (QUOTE LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC 10.388889) (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER > 6 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 10.0 :LOCAL- > STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :LOCAL-STEM- > DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE > ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC > 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH > 95.0 :VOICE-NUMBER 7 :CHORDS (LIST (MAKE-INSTANCE (QUOTE > CHORD) :START-TIME 13.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE > NOTE) :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE > ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC > 10.388889) (MAKE-INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH > 95.0 :VOICE-NUMBER 8 :CHORDS (LIST (MAKE-INSTANCE (QUOTE > CHORD) :START-TIME 15.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE- > INSTANCE (QUOTE NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR > 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "u")))))) :PIXELS/SEC 10.388889) (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER > 9 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME 17.0 :NOTES > (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR > 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "i")))))) :PIXELS/SEC 10.388889) (MAKE- > INSTANCE (QUOTE CHORD-SEQUENCE) :X 4.0 :WIDTH 95.0 :VOICE-NUMBER > 10 :CHORDS (LIST (MAKE-INSTANCE (QUOTE CHORD) :START-TIME > 19.0 :LOCAL-STEM-DOWN-P T :NOTES (LIST (MAKE-INSTANCE (QUOTE > NOTE) :LOCAL-STEM-DOWN-P T :DUR 0.1 :TOTAL-DUR 0.1)) :EXPRESSIONS > (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE LYRICS) :PRINT-SYMBOL > "u")))))) :PIXELS/SEC 10.388889)))) :SCALEFX 1.21 :SCALEFY > 1.21 :TRANSLX 15.400002 :TRANSLY -8.9000025 :X 150 :Y 150 :TITLE > "Score-Editor1" :X 150 :Y 15 :WIDTH 1195 :HEIGHT 808))) > WIN) :CONNECTION NIL :XSCALE-FC 2.0092197 :YSCALE-FC 2.0092197 :X- > OFFSET 5.3999977 :Y-OFFSET -7.500001)) :X 1.8200035761642983D0 :Y > -0.6772242431739661D0 :W 2.6124776267363195D0 :H > 0.8942331367512861D0 :BOX-STRING "Score-Editor" :PWGL-OUTPUTS (LIST > (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "score") (MAKE- > INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "pitches") (MAKE-INSTANCE > (QUOTE PWGL-OUTPUT) :BOX-STRING "rtms/times")) :BOX-LAYOUT (MAKE- > INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG- > GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE SCORE- > EDITOR) :OPEN-STATE-W 2.6124776267363195D0 :OPEN-STATE-H > 0.8942331367512861D0) (MAKE-INSTANCE (QUOTE PWGL-CODE-BOX) :R > 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE- > INSTANCE (QUOTE PWGL-FREE-VALUE-BOX-SUBVIEW) :BOX-STRING > "a" :CONNECTION NIL :ARG-NAME (QUOTE A) :ARG-TYPE :VAR)) :X > 2.4368277488877004D0 :Y 1.129464240503503D0 :W 0.26 :H 0.1 :BOX- > STRING "code-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL- > OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER > 0.012) :PW-FUNCTION (QUOTE CODE-BOX) :TEXT ";; Your code goes here. > For example: > `( > :lyrics > :print-symbol > ,a > )") (MAKE-INSTANCE (QUOTE PWGL-BOX) :R 0.8810712 :G 0.21567102 :B > 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX- > SUBVIEW) :BOX-STRING "argument" :CURVAL "()" :VALUE-STRING > "()" :CONNECTION NIL)) :X 2.4652539824261513D0 :Y > 0.8775096115315304D0 :W 0.26 :H 0.1 :BOX-STRING "list" :PWGL-OUTPUTS > (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE- > INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG- > GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :BORDER > 0.012) :PW-FUNCTION (QUOTE LIST)) (MAKE-INSTANCE (QUOTE PWGL-ENP- > CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE > ENP-CONSTRUCTOR-FUNCTION) :CURVAL 5 :MINVAL 0 :MAXVAL 6 :MENU- > LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":chord") (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING > "pitches" :CURVAL (LIST 60) :VALUE-STRING "(60)") (MAKE-INSTANCE > (QUOTE PWGL-UPDATE-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :PWGL- > ACTION-FUNCTION (QUOTE UPDATE-NEXT-SUBBOX) :CURVAL 8 :MINVAL > 0 :MAXVAL 10 :MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU- > LIST-STRING ":start-time" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU- > LIST-CHORD-2) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX- > STRING "arg" :STEPVAL 0.1 :MINVAL 0.0 :VALUE-STRING > "0.0" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-UPDATE-MENUBOX- > SUBVIEW) :BOX-STRING "keyarg" :PWGL-ACTION-FUNCTION (QUOTE UPDATE- > NEXT-SUBBOX) :CURVAL 4 :MINVAL 0 :MAXVAL 10 :MENU-LIST :ENP- > CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU-LIST-STRING > ":expressions" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-2) > (MAKE-INSTANCE (QUOTE PWGL-HIERARCHICAL-MENUBOX-SUBVIEW) :BOX-STRING > "nil" :MINVAL 0 :MAXVAL 1 :CONNECTION NIL :MENU-LIST (LIST (LIST > ":analysis-group" ":score-expression") (LIST ":annotation- > expression") (LIST ":accent" ":accent-grave" ":accent-grave-with- > dot" ":bartok-pizzicato" ":natural-harmonics" ":slur" > ":staccatissimo" ":staccato" ":tenuto") (LIST ":figured-bass") (LIST > ":col-legno" ":flautando" ":martellato" ":pizz" ":punta-d-arco" > ":ricoche" ":saltando" ":spiccato" ":sul-ponticello" ":sul-tasto") > (LIST ":conductor-mark") (LIST ":crescendo" ":diminuendo" ":f" ":ff" > ":fff" ":fp" ":fz" ":mf" ":mp" ":p" ":pp" ":ppp" ":sf" ":sff" ":sfp" > ":sfz") (LIST ":trumpet-fingering") (LIST ":canvas-expression" > ":image-expression") (LIST ":bpf" ":group") (LIST ":guitar-fret" > ":harp-pedal" ":piano-pedal") (LIST ":lyrics") (LIST ":fermata" > ":parenthesis" ":repetition-box") (LIST ":con-sord." ":solo") (LIST > ":15ma" ":15mb" ":8ba" ":8va") (LIST ":arpeggio" ":trillo") (LIST > ":breath-mark") (LIST ":tremolo16" ":tremolo32" ":tremolo64" > ":tremolo8" ":tremoloz") (LIST ":analysis-text-group" ":beam- > expression") (LIST ":pc-clock") (LIST ":string1" ":string2" > ":string3" ":string4" ":string5" ":string6" ":string7" ":string8" > ":string9") (LIST ":accelerando" ":ritardando" ":rubato") (LIST > ":plain-text") (LIST ":cross-staff" ":glissando" > ":portamento")) :MENU-LIST-STRING ":analysis-group" :MENU-TITLES > (LIST "analysis" "annotations" "articulations" "baroque" "bowing" > "conducting" "dynamics" "fingerings" "graphics" "groups" > "instrumental" "lyrics" "misc" "mutes" "octavation" "ornaments" > "phrasing" "repetitions" "schenker" "set-theory" "string-numbers" > "tempo-marks" "text" "transitions") :MAXVAL2 23) (MAKE-INSTANCE > (QUOTE PWGL-UPDATE-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :PWGL- > ACTION-FUNCTION (QUOTE UPDATE-NEXT-SUBBOX) :CURVAL 3 :MINVAL > 0 :MAXVAL 10 :MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST-CHORD-1 :MENU- > LIST-STRING ":duration" :UPDATE-MENU-LIST :ENP-CONSTRUCTOR-MENU-LIST- > CHORD-2) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING > "arg" :CURVAL 0.1 :STEPVAL 0.1 :MINVAL 0.0 :MAXVAL 100.0 :VALUE- > STRING "0.1" :CONNECTION NIL)) :X 0.556283058502522D0 :Y > 0.8879694536257463D0 :W 0.8 :H 0.32079998 :BOX-STRING "enp-chord- > constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL- > OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 2 2 2 2) :ORIG-GROUPING-LIST (LIST > 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 24 :BORDER > 0.012) :PW-FUNCTION (QUOTE ENP-CHORD-CONSTRUCTOR) :CURRENT-EXTENSION- > PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS > (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING > "value" :CURVAL (LIST 0 2 3.5 4 6 10 13 15 17 19 20) :VALUE-STRING > "(0 2 3.5 4 6 10 13 15 17 19 20))")) :X 0.7289972277847405D0 :Y > 2.024370052874075D0 :W 0.4919999904632566D0 :H > 0.10000000149011612D0 :BOX-STRING "value-box" :PWGL-OUTPUTS (LIST > (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE > (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST > (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE VALUE-BOX) :OPEN-STATE-W > 0.4919999904632566D0 :OPEN-STATE-H 0.10000000149011612D0) (MAKE- > INSTANCE (QUOTE PWGL-BOX) :R 0.8810712 :G 0.21567102 :B > 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX- > SUBVIEW) :BOX-STRING "value" :CURVAL (LIST "a" "e" "i" "o" > "u") :VALUE-STRING "(\"a\" \"e\" \"i\" \"o\" \"u\")")) :X > 2.520000001490116D0 :Y 1.6959993252158166D0 :W > 0.4919999904632566D0 :H 0.10000000149011612D0 :BOX-STRING "value- > box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX- > LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST > 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE > VALUE-BOX) :OPEN-STATE-W 0.4919999904632566D0 :OPEN-STATE-H > 0.10000000149011612D0) (MAKE-INSTANCE (QUOTE PWGL-BOX) :R > 0.8810712 :G 0.21567102 :B 0.13946747 :PWGL-SUBVIEWS (LIST (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "list" :CURVAL > "(0 1)" :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X > 2.161543085070174D0 :Y 1.3346714579014934D0 :W 0.26 :H 0.1 :BOX- > STRING "nth-random" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL- > OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER > 0.012) :PW-FUNCTION (QUOTE PATCH-WORK::NTH-RANDOM)) (MAKE-INSTANCE > (QUOTE PW-BOX-MAP) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > VALUE-BOX-SUBVIEW) :BOX-STRING "enum" :CURVAL "()" :VALUE-STRING > "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX- > SUBVIEW) :BOX-STRING "patch" :CURVAL "()" :VALUE-STRING > "()" :CONNECTION NIL)) :X 1.7003287244482963D0 :Y > 0.3288014064047122D0 :W 0.52 :H 0.1 :BOX-STRING "pwgl-map" :PWGL- > OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE- > INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG- > GROUPING-LIST (LIST 2) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT > 5 :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-MAP)) (MAKE-INSTANCE > (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE > PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto- > evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED- > WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT > 600) :VALUE-STRING "want to alternate between strings to apply them > to the lyrics expression...")) :X 2.842463004819914D0 :Y > 1.476586138095077D0 :W 1.7192656693158704D0 :H > 0.10000000149011657D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE > (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST > (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN- > STATE-W 1.7192656693158704D0 :OPEN-STATE-H 0.10000000149011657D0) > (MAKE-INSTANCE (QUOTE PWGL-ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST > (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING > "selector" :PWGL-ACTION-FUNCTION (QUOTE ENP-CONSTRUCTOR- > FUNCTION) :CURVAL 2 :MINVAL 0 :MAXVAL 6 :MENU-LIST :ENP-CONSTRUCTOR- > CLASSES :MENU-LIST-STRING ":voice") (MAKE-INSTANCE (QUOTE PWGL-VALUE- > BOX-SUBVIEW) :BOX-STRING "score-notation" :CURVAL "()" :VALUE-STRING > "()" :CONNECTION NIL)) :X 1.8448505180084598D0 :Y > 0.6218810608215071D0 :W 0.8 :H 0.099999994 :BOX-STRING "enp-voice- > constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL- > OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST > 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 8 :BORDER 0.012) :PW- > FUNCTION (QUOTE ENP-VOICE-CONSTRUCTOR)) (MAKE-INSTANCE (QUOTE PWGL- > ENP-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE > ENP-CONSTRUCTOR-FUNCTION) :CURVAL 1 :MINVAL 0 :MAXVAL 6 :MENU- > LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":part") (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "score- > notation" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X > 1.5485768715071087D0 :Y -0.042677699579650064D0 :W 0.8 :H 0.1 :BOX- > STRING "enp-part-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE > (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST > 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 12 :BORDER > 0.012) :PW-FUNCTION (QUOTE ENP-PART-CONSTRUCTOR)) (MAKE-INSTANCE > (QUOTE SCORE-EDITOR) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > SCORE-SUBBOX) :R 1.0 :G 1.0 :B 1.0 :APPLICATION-WINDOW (LET ((WIN > (MAKE-INSTANCE (QUOTE ENP-APPLICATION-WINDOW) :PAGE-LAYOUT-OBJECTS > (LIST (MAKE-INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE- > NUMBER :PAGE :MEASURES-PER-SYSTEM 2 :SYSTEMS-PER-PAGE 4) (MAKE- > INSTANCE (QUOTE ENP-PAGE-LAYOUT-OBJECT) :PAGE- > NUMBER :SCROLL :MEASURES-PER-SYSTEM 9 :SYSTEMS-PER-PAGE 4)) :ENP- > PREFERENCES (MAKE-INSTANCE (QUOTE ENP-PREFERENCES-OBJECT) :DRAW- > DURATIONS-P NIL) :PARTS (LIST (MAKE-INSTANCE (QUOTE PART) :Y > 100.0 :INSTRUMENT (MAKE-INSTANCE (QUOTE INSTRUMENT) :SCORE-NAME > "P" :WRITTEN-CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF)) :SOUNDING- > CLEF (MAKE-INSTANCE (QUOTE TREBLE-STAFF))) :STAFF (MAKE-INSTANCE > (QUOTE TREBLE-STAFF)) :VOICE-LIST (LIST (MAKE-INSTANCE (QUOTE CHORD- > SEQUENCE) :X 4.0 :WIDTH 95.0 :CHORDS (LIST (MAKE-INSTANCE (QUOTE > CHORD) :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL-DUR > 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 2.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 3.5 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 4.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 6.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 10.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 13.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 15.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 17.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a"))))) (MAKE-INSTANCE (QUOTE CHORD) :START- > TIME 19.0 :NOTES (LIST (MAKE-INSTANCE (QUOTE NOTE) :DUR 0.1 :TOTAL- > DUR 0.1)) :EXPRESSIONS (EVAL-LIST (QUOTE ((MAKE-INSTANCE (QUOTE > LYRICS) :PRINT-SYMBOL "a")))))) :PIXELS/SEC 10.388889)))) :SCALEFX > 1.21 :SCALEFY 1.21 :TRANSLX 15.400002 :TRANSLY -8.9000025 :X 150 :Y > 150 :TITLE "Score-Editor1" :X 150 :Y 15 :WIDTH 1195 :HEIGHT 808))) > WIN) :CONNECTION NIL :XSCALE-FC 2.0092197 :YSCALE-FC 2.0092197 :X- > OFFSET 5.3999977 :Y-OFFSET -7.500001)) :X -0.918026282574377D0 :Y > -0.6712982498722617D0 :W 2.6124776267363195D0 :H > 0.8942331367512861D0 :BOX-STRING "Score-Editor" :PWGL-OUTPUTS (LIST > (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "score") (MAKE- > INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "pitches") (MAKE-INSTANCE > (QUOTE PWGL-OUTPUT) :BOX-STRING "rtms/times")) :BOX-LAYOUT (MAKE- > INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG- > GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE SCORE- > EDITOR) :OPEN-STATE-W 2.6124776267363195D0 :OPEN-STATE-H > 0.8942331367512861D0) (MAKE-INSTANCE (QUOTE PW-BOX-MAP) :PWGL- > SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX- > STRING "enum" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL) (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :CURVAL > "()" :VALUE-STRING "()" :CONNECTION NIL)) :X > 0.22574103533544698D0 :Y 0.2044269824594418D0 :Z -0.1 :W 0.52 :H > 0.1 :BOX-STRING "pwgl-map" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE > PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX- > LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST > 2) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 5 :BORDER 0.012) :PW- > FUNCTION (QUOTE PWGL-MAP)) (MAKE-INSTANCE (QUOTE PWGL-ENP- > CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL- > MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE > ENP-CONSTRUCTOR-FUNCTION) :CURVAL 2 :MINVAL 0 :MAXVAL 6 :MENU- > LIST :ENP-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":voice") (MAKE- > INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "score- > notation" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X > 0.19098641017899998D0 :Y -0.08905397166842732D0 :Z -0.1 :W 0.8 :H > 0.1 :BOX-STRING "enp-voice-constructor" :PWGL-OUTPUTS (LIST (MAKE- > INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE > PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST > 2) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 8 :BORDER 0.012) :PW- > FUNCTION (QUOTE ENP-VOICE-CONSTRUCTOR)) (MAKE-INSTANCE (QUOTE PWGL- > COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT- > BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto- > evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED- > WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT > 600) :VALUE-STRING "not good - many voices...")) :X > 2.537236271921683D0 :Y -0.37864188418216927D0 :W > 1.635007255067328D0 :H 0.17745775962489008D0 :BOX-STRING "1" :BOX- > LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST > 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE > PWGL-COMMENT-BOX) :OPEN-STATE-W 1.635007255067328D0 :OPEN-STATE-H > 0.17745775962489008D0) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL- > SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R > 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW > (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X > 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "not good - string > repeats...")) :X -0.729898036093966D0 :Y -0.3966277888237002D0 :W > 1.635007255067328D0 :H 0.17745775962489008D0 :BOX-STRING "1" :BOX- > LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST > 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE > PWGL-COMMENT-BOX) :OPEN-STATE-W 1.635007255067328D0 :OPEN-STATE-H > 0.17745775962489008D0)) :X 5 :Y 5 :SCALEFX 0.43894893 :SCALEFY > 0.43894893 :TRANSLX 1.2080742236340787D0 :TRANSLY > 1.5815153512910665D0 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 1 :OUT-BOX 1 :PWBOX2 5 :INPUT-BOX 7 :DRAW- > MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.43666667014360394D0 :CY1 > 1.1524000625610356D0 :CX2 2.689879079870115D0 :CY2 > 1.0351072247162496D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 14 :OUT-BOX 0 :PWBOX2 15 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 0.5857410272888199D0 :CY1 > -0.01357301974593006D0 :CX2 1.1009864242978502D0 :CY2 > -0.2378539703541449D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 15 :OUT-BOX 0 :PWBOX2 13 :INPUT-BOX 0 :DRAW- > MODE :BEZIER :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 -0.8121264575003797D0 :CY1 > -0.5758779579886038D0 :CX2 -1.2139488487583337D0 :CY2 > -0.005228718315042125D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 14 :INPUT-BOX 1 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.9537807527934863D0 :CY1 > 0.5174178591976277D0 :CX2 0.8557410184598819D0 :CY2 > 0.055626983773724215D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 14 :INPUT-BOX 0 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.12833333283662762D0 :CY1 > 1.1524000625610356D0 :CX2 0.12574103384533086D0 :CY2 > 0.055626983773724215D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 12 :OUT-BOX 0 :PWBOX2 2 :INPUT-BOX 0 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 1.8037620320270718D0 :CY1 > -0.492900074982473D0 :CX2 1.6051286186685694D0 :CY2 > -0.4302974640881556D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 9 :OUT-BOX 0 :PWBOX2 12 :INPUT-BOX 1 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.0603287164016693D0 :CY1 > 0.11080140419934037D0 :CX2 2.458576885625959D0 :CY2 > -0.19147769826536765D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 11 :INPUT-BOX 1 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 1.1537807557737186D0 :CY1 > 0.5174178591976277D0 :CX2 2.75485053212731D0 :CY2 > 0.47308106399843464D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 11 :OUT-BOX 0 :PWBOX2 9 :INPUT-BOX 1 :DRAW- > MODE :SIMPLE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 2.144850522478808D0 :CY1 > 0.4038810660667158D0 :CX2 2.3303287075727313D0 :CY2 > 0.18000140771899464D0) (MAKE-INSTANCE (QUOTE PWGL- > CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 9 :INPUT-BOX 0 :DRAW-MODE : > 5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL- > BEZIER-SELECTOR) :POINT-NUM 2) :CX1 0.23397772424489705D0 :CY1 > 0.1891865277639151D0 :CX2 0.09320556574408912D0 :CY2 > 0.5301886531128841D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 4 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 5 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 2.4952539761676636D0 :CY1 > 0.6595096093261585D0 :CX2 1.5637807624419882D0 :CY2 > 0.6602178457239978D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 8 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 2.3915430817919186D0 :CY1 > 1.1166714556961215D0 :CX2 2.3368277473975843D0 :CY2 > 0.9806642418177853D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 6 :OUT-BOX 0 :PWBOX2 0 :INPUT-BOX 0 :DRAW-MODE :BEZIER :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 0.7190009178132655D0 :CY1 > 1.4846276742606668D0 :CX2 0.6692144958848263D0 :CY2 > 1.5829303188819999D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 6 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 0 :DRAW-MODE :BEZIER :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 0.8798721060172829D0 :CY1 > 1.7283718988122097D0 :CX2 0.5160009143487452D0 :CY2 > 1.348823784076681D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 7 :OUT-BOX 0 :PWBOX2 8 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 2.665999995231628D0 :CY1 > 1.4779993230104447D0 :CX2 2.061543083580058D0 :CY2 > 1.1858714592157758D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 0 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 1 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 0.8235889135716095D0 :CY1 > 1.1334893250619387D0 :CX2 0.554999990276992D0 :CY2 > 1.2216000604927544D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 3 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 0 :DRAW-MODE :SIMPLE :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 2.4668277426292127D0 :CY1 > 0.9114642382981311D0 :CX2 2.365253980936035D0 :CY2 > 0.7287096128458128D0) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 > 1 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 3 :DRAW-MODE :BEZIER :BEZIER- > SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM > 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER- > SELECTOR) :POINT-NUM 2) :CX1 0.32833333581685986D0 :CY1 > 1.1524000625610356D0 :CX2 2.1688085052095114D0 :CY2 > 0.9665715253866822D0)) :X 67 :Y 0 :WIDTH 1431 :HEIGHT 844))) (WINDOW- > SELECT WIN) WIN) Dr. Mika Kuuskankare Researcher Centre for Music & Technology Sibelius Academy Henkilökohtainen postiosoite/Personal post address PL 342 - PO Box 342 FIN-00121 Helsinki, FINLAND Mobile: +358 (0)40 5415 233 (Finland) Skype: mkuuskan personal home page: www.siba.fi/~mkuuskan project home page: www.siba.fi/PWGL |
|
|
pwgl-users: thanks [was: "PWGLdef code to have two outlets..." and "algorithmic lyrics..."]
by padovani
::
Rate this Message:
Lyrics are very dadaist now and my library boxes have so many bezier chords going out from them that they are very similar to jellyfishes ! :) Thank you Mika and Mikael! -- http://www.padovani.googlepages.com |
| Free embeddable forum powered by Nabble | Forum Help |
