|
« Return to Thread: pwgl-users: algorithmic lyrics...
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
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
« Return to Thread: pwgl-users: algorithmic lyrics...
| Free embeddable forum powered by Nabble | Forum Help |
