Re: pwgl-users: save the file to disk?
Hi Luis,Unfortunately I can not open the file with pwgl, the error message
appears instantly, I do not understand what could be the problem, thanks
Giorgio
k_o_m_p wrote:
>
> Try to evaluate first the code-box. The error is
> due to the library you don't have in your computer
> but evaluating the function should work.
> Luis
>
> Em 01.09.11 22:23, Giorgio Zucco escreveu:
>> Hi Luis,Thank you for your patience,unfortunately I can not open your
>> patch
>> (i use Pwgl rc17 on Mac Intel and Windows7 64bit),the message error
>> "Reader
>> cannot find package UTILITIES",I do not know,bye
>>
>> Giorgio
>>
>>
>>
>>
>>
>>
>>
>>
>> k_o_m_p wrote:
>>> Hi Giorgio,
>>>
>>> this is the function I use to write csound events
>>> to a score file. I actually made a small library
>>> with simple functions to work with csound. Maybe I
>>> will make it public if there is some people who
>>> needs it. Meanwhile take a look at the Lisp-Code
>>> there: it accepts a sequence in which each list is
>>> a csound-score event and writes it down to a file.
>>> See the attached patch.
>>>
>>> Best,
>>>
>>> Luis
>>>
>>>
>>> Em 01.09.11 13:51, Giorgio Zucco escreveu:
>>>> Hi Mika,I thank you, I tried exactly that,another small
>>>> question....imagining
>>>> of having two lists like (i1 i1 i1 i1 i1 i1 i1) and ( 0 1 2 3 4 5 6 7 8
>>>> 9),I
>>>> need to print lists to two separate columns,for example :
>>>>
>>>> i1 0
>>>> i1 1
>>>> i1 2
>>>> i1 3
>>>> i1 4
>>>> i1 5
>>>> i1 6
>>>>
>>>> and so on, even on many lists with multiple columns,this to create a
>>>> csound
>>>> score using the enormous potential algorithmic of pwgl,such topics in
>>>> the
>>>> manual should I see?also standard common lisp language for manipulate
>>>> lists?I tried it with objects from the menus "list","lisp" of pwgl but
>>>> I
>>>> have not found anything that works,thanks for support!
>>>>
>>>> Giorgio
>>>>
>>>>
>>>>
>>>>
>>>> Mika Kuuskankare wrote:
>>>>> Giorgio, you could do something like this:
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> -mika
>>>>>
>>>>>
>>>>>
>>>>> On 1.9.2011, at 10:43, Giorgio Zucco wrote:
>>>>>
>>>>>> Hi Luis,many thanks,I tried but I can not run csound (but pwgl-shell
>>>>>> is
>>>>>> only
>>>>>> to Mac Osx version?),I use the latest version of csound but can not
>>>>>> indicate
>>>>>> the correct directory to pwgl-shell,you can view a small file
>>>>>> example?
>>>>>>
>>>>>> actually my idea was to print the contents of a text-box to file to
>>>>>> disk,exploiting the capabilities of pwgl,thanks,bye!
>>>>>>
>>>>>> Giorgio
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> k_o_m_p wrote:
>>>>>>> Hi Giorgio,
>>>>>>> I use csound and PWGL the whole time. It's very
>>>>>>> easy. You can make PWGL execute a command on the
>>>>>>> terminal to call csound. You can use
>>>>>>> PWGL-SHELL-EXECUTE-BOX to call csound.
>>>>>>> Hope this helps.
>>>>>>> Best,
>>>>>>> Luis
>>>>>>>
>>>>>>> Em 31.08.11 16:19, Giorgio Zucco escreveu:
>>>>>>>> Hi,I would use pwgl to generate csound scores,exists an object to
>>>>>>>> save
>>>>>>>> text-file to disk?would be interesting to create a library like
>>>>>>>> om2csoundlibrary for open music,many thanks
>>>>>>>>
>>>>>>>> Giorgio
>>>>>>> --
>>>>>>> luis antunes pena
>>>>>>> Severinswall 54
>>>>>>> D-50678 K�¶ln
>>>>>>>
>>>>>>> http://luisantunespena.eu
>>>>>>>
>>>>>>> +49 (0)221 29020757
>>>>>>> +49 (0)176 968 09 867 (mobile)
>>>>>>>
>>>>>>>
>>>>>> --
>>>>>> View this message in context:
>>>>>> http://old.nabble.com/save-the-file-to-disk--tp32371162p32378161.html
>>>>>> Sent from the PWGL mailing list archive at Nabble.com.
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>>
>>>
>>> --
>>> luis antunes pena
>>> Severinswall 54
>>> D-50678 Köln
>>>
>>> http://luisantunespena.eu
>>>
>>> +49 (0)221 29020757
>>> +49 (0)176 968 09 867 (mobile)
>>>
>>> (IN-PACKAGE :CCL)
>>> ;; this patch was saved with PWGL version 1.0 beta RC 17 (0.9.17-170)
>>> (ASSERT-PATCH-SAVED-VERSION-NOT-NEWER-THAN (QUOTE ((0 9 17) 170)))
>>> (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-PW-WINDOW) :PWGL-SUBVIEWS (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-TEXT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE
>>> (QUOTE PWGL-TEXT-SUBVIEW) :BOX-STRING "text" :APPLICATION-WINDOW
>>> (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y
>>> 100
>>> :WIDTH 500 :HEIGHT 600) :VALUE-STRING "(\"i\" 1 0 1 440)
>>> (\"i\" 1 1 1 880)
>>> ")) :X 0.08400000000000008D0 :Y 1.928D0 :W 0.44000001192092864D0 :H
>>> 0.3560000014901159D0 :BOX-STRING "text-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 TEXT-BOX) :OPEN-STATE-W
>>> 0.44000001192092864D0 :OPEN-STATE-H 0.3560000014901159D0) (MAKE-INSTANCE
>>> (QUOTE PWGL-ABSTRACTION-BOX) :R 0.65 :G 0.65 :B 0.65 :PWGL-SUBVIEWS
>>> (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :CURVAL
>>> "~/" :VALUE-STRING "\"~/\"") (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW)
>>> :BOX-STRING "arg" :CURVAL "default" :VALUE-STRING "\"default\"")
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg"
>>> :VALUE-STRING "0" :CONNECTION NIL)) :X 0.2532288808132255D0 :Y
>>> 1.3311919026488004D0 :W 1.4634857438059137D0 :H 0.4405568193080356D0
>>> :BOX-STRING "write-to-csound-score" :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 1)
>>> :ORIG-GROUPING-LIST (LIST 1 1 1) :BORDER 0.012) :PW-FUNCTION (QUOTE
>>> PWGL-ABSTRACTION) :OPEN-STATE-W 1.4634857438059137D0 :OPEN-STATE-H
>>> 0.4405568193080356D0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE
>>> (QUOTE
>>> PWGL-ABSTRACTION-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-ABSTRACTION-INPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :X 0.2 :Y 1.2 :W 0.1 :H
>>> 0.02 :BOX-STRING "1" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-OUTPUT))) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-INPUT) :USER-STRING
>>> "project directory") (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-INPUT-BOX)
>>> :R
>>> 0.7 :G 0.7 :B 0.7 :X 0.8000000059604644D0 :Y 1.2040000476837159D0 :W 0.1
>>> :H 0.02 :BOX-STRING "2" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-OUTPUT))) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-INPUT) :USER-STRING
>>> "socre name" :ABSTRACTION-INPUT-NUM 2) (MAKE-INSTANCE (QUOTE
>>> PWGL-ABSTRACTION-INPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :X 1.2520000074505809D0
>>> :Y 1.2120000461935998D0 :W 0.1 :H 0.02 :BOX-STRING "3" :PWGL-OUTPUTS
>>> (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :PW-FUNCTION (QUOTE
>>> PWGL-ABSTRACTION-INPUT) :USER-STRING "events to write"
>>> :ABSTRACTION-INPUT-NUM 3) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS
>>> (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING
>>> "destination" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "control-string" :CURVAL "~d/~d.sco"
>>> :VALUE-STRING "\"~d/~d.sco\"") (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "format-arguments" :CURVAL "()"
>>> :VALUE-STRING "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "format-arguments" :CURVAL "()"
>>> :VALUE-STRING "()" :CONNECTION NIL)) :X 1.0502854015766694D0 :Y
>>> 0.9305884005897307D0 :W 1.2147914693815616D0 :H 0.23737960800958447D0
>>> :BOX-STRING "format" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT)
>>> :GROUPING-LIST (LIST 2 1 1) :ORIG-GROUPING-LIST (LIST 2)
>>> :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE FORMAT)
>>> :OPEN-STATE-W 1.2147914693815616D0 :OPEN-STATE-H 0.23737960800958447D0
>>> :CURRENT-EXTENSION-PATTERN-INDEX* 2) (MAKE-INSTANCE (QUOTE PWGL-BOX)
>>> :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW)
>>> :BOX-STRING "infile" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "outfile"
>>> :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X
>>> 0.4800878515847027D0
>>> :Y 0.48683247687094866D0 :W 0.52 :H 0.1 :BOX-STRING "save-csound-sco-2"
>>> :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) :BORDER 0.012) :PW-FUNCTION (QUOTE
>>> UTILITIES::SAVE-CSOUND-SCO-2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-ABSTRACTION-OUTPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :PWGL-SUBVIEWS (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-INPUT-BOX) :R 0.9 :G 0.9 :B 0.9 :BOX-STRING
>>> "out" :CONNECTION NIL)) :X 0.9975460981533113D0 :Y 0.3332048473170066D0
>>> :W
>>> 0.1 :H 0.02 :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT)
>>> :BOX-STRING "1")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT)
>>> :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012)
>>> :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-OUTPUT) :USER-STRING
>>> "create-csound-score") (MAKE-INSTANCE (QUOTE
>>> PWGL-ABSTRACTION-OUTPUT-BOX)
>>> :R 0.7 :G 0.7 :B 0.7 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-INPUT-BOX) :R 0.9 :G 0.9 :B 0.9 :BOX-STRING "out" :CONNECTION NIL))
>>> :X 1.7456908097216346D0 :Y 0.29212709219763644D0 :W 0.1 :H 0.02
>>> :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "2"))
>>> :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST
>>> 1)
>>> :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE
>>> PWGL-ABSTRACTION-OUTPUT) :USER-STRING "display events"
>>> :ABSTRACTION-OUTPUT-NUM 2) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-BOX)
>>> :R
>>> 0.65 :G 0.65 :B 0.65 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :VALUE-STRING "0" :CONNECTION
>>> NIL)) :X 1.9231163848937812D0 :Y 0.45595940082263664D0 :W
>>> 0.38054046383887475D0 :H 0.1109085190197483D0 :BOX-STRING
>>> "numbered-print"
>>> :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
>>> PWGL-ABSTRACTION) :OPEN-STATE-W 0.38054046383887475D0 :OPEN-STATE-H
>>> 0.1109085190197483D0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE
>>> (QUOTE
>>> PWGL-ABSTRACTION-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "destination" :CURVAL NIL
>>> :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW)
>>> :BOX-STRING "control-string" :CURVAL "~%~d:~T~d" :VALUE-STRING
>>> "\"~%~d:~T~d\"") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW)
>>> :BOX-STRING
>>> "format-arguments" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING
>>> "format-arguments" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X
>>> 1.311863120035759D0 :Y 0.3140307969209313D0 :W 0.7065113726094392D0 :H
>>> 0.22672924132334282D0 :BOX-STRING "format" :PWGL-OUTPUTS (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE
>>> PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1 1) :ORIG-GROUPING-LIST (LIST
>>> 2)
>>> :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE FORMAT)
>>> :OPEN-STATE-W 0.7065113726094392D0 :OPEN-STATE-H 0.15995282625944807D0
>>> :CURRENT-EXTENSION-PATTERN-INDEX* 2) (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.6158571949750868D0 :Y
>>> 0.5005421886038564D0 :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)
>>> :CURRENT-EXTENSION-PATTERN-INDEX* 1) (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.7863081336611248D0 :Y
>>> -0.09969567334324436D0 :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-BOX)
>>> :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW)
>>> :BOX-STRING "begin" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE
>>> PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "step" :CURVAL 1 :VALUE-STRING "1")
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "end" :CURVAL
>>> 10
>>> :VALUE-STRING "10" :CONNECTION NIL)) :X 1.30731406170203D0 :Y
>>> 0.8963108297891291D0 :W 0.26 :H 0.24 :BOX-STRING "arithm-ser"
>>> :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT
>>> (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1 1)
>>> :ORIG-GROUPING-LIST (LIST 1 1 1) :BORDER 0.012) :PW-FUNCTION (QUOTE
>>> PATCH-WORK:ARITHM-SER)) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS
>>> (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg1"
>>> :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL)) :X
>>> 0.7295836533183344D0
>>> :Y 1.023684463133565D0 :W 0.26 :H 0.1 :BOX-STRING "length" :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
>>> LENGTH))
>>> (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-INPUT-BOX) :R 0.7 :G 0.7 :B 0.7
>>> :X
>>> 0.2639999999999998D0 :Y 1.1879998569488528D0 :W 0.1 :H 0.02 :BOX-STRING
>>> "1" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT)))
>>> :PW-FUNCTION
>>> (QUOTE PWGL-ABSTRACTION-INPUT) :USER-STRING "LIST to print")
>>> (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-OUTPUT-BOX) :R 0.7 :G 0.7 :B 0.7
>>> :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-INPUT-BOX) :R 0.9 :G 0.9
>>> :B 0.9 :BOX-STRING "out" :CONNECTION NIL)) :X 0.8999999999999999D0 :Y
>>> -0.38400014305114727D0 :W 0.1 :H 0.02 :PWGL-OUTPUTS (LIST (MAKE-INSTANCE
>>> (QUOTE PWGL-OUTPUT) :BOX-STRING "1")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE
>>> PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1)
>>> :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-OUTPUT))) :X 150 :Y
>>> 150 :TRANSLY 0.6000002028942109D0 :CONNECTIONS (LIST (MAKE-INSTANCE
>>> (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 6 :INPUT-BOX 0 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 1 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 0 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 0 :INPUT-BOX 2 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 1 :PWBOX2 0 :INPUT-BOX 3 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 3 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 0 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 2 :INPUT-BOX 0 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 2 :INPUT-BOX 1 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 4 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 2 :DRAW-MODE
>>> :LINE :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR)
>>> :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE
>>> PWGL-BEZIER-SELECTOR) :POINT-NUM 2))) :TITLE "numbered-print" :X 150 :Y
>>> 150 :WIDTH 746 :HEIGHT 500))) WIN) :BOX-DOCUMENTATION "")) :X 150 :Y 150
>>> :SCALEFX 0.8146329148000708D0 :SCALEFY 0.8146329148000708D0 :TRANSLX
>>> -0.18
>>> :TRANSLY 0.062065409485651084D0 :HITS 1 :CONNECTIONS (LIST
>>> (MAKE-INSTANCE
>>> (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 7 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 7 :OUT-BOX 0 :PWBOX2 6 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 4 :OUT-BOX 0 :PWBOX2 5 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 4 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 3 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 2 :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)) (MAKE-INSTANCE (QUOTE
>>> PWGL-CONNECTION) :PWBOX1 3 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 1 :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))) :TITLE "write-to-csound-score" :X
>>> 343 :Y 21 :WIDTH 1062 :HEIGHT 691))) WIN) :BOX-DOCUMENTATION "")
>>> (MAKE-INSTANCE (QUOTE PWGL-CODE-BOX) :X 0.8235767986422917D0 :Y
>>> 1.7849307796025749D0 :Z -0.1 :W 0.26 :H 0.025 :BOX-STRING "code-box"
>>> :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT
>>> (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :BORDER 0.012) :PW-FUNCTION
>>> (QUOTE
>>> CODE-BOX) :TEXT "(defun save-csound-sco-2 (infile outfile)
>>> (with-open-file (outstream outfile
>>> :direction :output :if-exists
>>> :rename-and-delete
>>> :if-does-not-exist :create)
>>> ;(setf outstream t)
>>> ;(format outstream tables)
>>> (dotimes (i (if (= 1 (length infile)) (setf i 1) (length infile)))
>>> (format outstream \"~%\")
>>> (dotimes (n (length (car infile)))
>>> (format outstream \"~8F \" (nth n (nth i infile))))
>>> )
>>> ;(format outstream \"~%e\")
>>> )
>>> )") (MAKE-INSTANCE (QUOTE PWGL-EVAL-WHEN-LOAD-BOX) :PWGL-SUBVIEWS
>>> (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch"
>>> :CURVAL
>>> "()" :VALUE-STRING "()" :CONNECTION NIL)) :X 1.1736859894522325D0 :Y
>>> 1.7832971279343999D0 :W 0.4 :H 0.1 :BOX-STRING "eval-when-load"
>>> :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 EVAL-WHEN-LOAD))) :X 5 :Y 5 :SCALEFX
>>> 0.7631461697851943D0 :SCALEFY 0.7631461697851943D0 :TRANSLX
>>> -0.07559999987483032D0 :TRANSLY -0.4178965182570542D0 :CONNECTIONS (LIST
>>> (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 1
>>> :INPUT-BOX 2 :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.20400000447034827D0
>>> :CY1
>>> 1.4539999977946283D0 :CX2 0.15322887932310936D0 :CY2
>>> 0.874061219420234D0)
>>> (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 3
>>> :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 1.0535767953640363D0
>>> :CY1
>>> 1.64193077851479D0 :CX2 0.8771312420135966D0 :CY2 1.498219172057709D0))
>>> :X
>>> 382 :Y 200 :WIDTH 779 :HEIGHT 638))) (WINDOW-SELECT WIN) WIN)
>>>
>
>
> --
> luis antunes pena
> Severinswall 54
> D-50678 Köln
>
> http://luisantunespena.eu
>
> +49 (0)221 29020757
> +49 (0)176 968 09 867 (mobile)
>
>
--
--
View this message in context: http://old.nabble.com/save-the-file-to-disk--tp32371162p32388439.html
Sent from the PWGL mailing list archive at Nabble.com.
RSS Feed