Giorgio Zucco | 1 Sep 10:43 2011
Picon

Re: pwgl-users: save the file to disk?


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
> 
> 
> -- 
(Continue reading)

Mika Kuuskankare | 1 Sep 11:28 2011
Picon

Re: pwgl-users: save the file to disk?

Giorgio, you could do something like this:

Attachment (write-data-to-disk.pwgl): application/octet-stream, 3687 bytes

-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,
(Continue reading)

Giorgio Zucco | 1 Sep 13:51 2011
Picon

Re: pwgl-users: save the file to disk?


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
(Continue reading)

k_o_m_p | 1 Sep 16:21 2011
Picon

Re: pwgl-users: save the file to disk?

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.


--
signatur p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica} p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; color: #001ee6} p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; min-height: 12.0px} span.s1 {text-decoration: underline} 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)
Giorgio Zucco | 1 Sep 22:23 2011
Picon

Re: pwgl-users: save the file to disk?


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)
> 

--

-- 
View this message in context: http://old.nabble.com/save-the-file-to-disk--tp32371162p32382394.html
Sent from the PWGL mailing list archive at Nabble.com.

k_o_m_p | 1 Sep 23:26 2011
Picon

Re: pwgl-users: save the file to disk?

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)


--
signatur p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica} p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; color: #001ee6} p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 10.0px Helvetica; min-height: 12.0px} span.s1 {text-decoration: underline} luis antunes pena
Severinswall 54
D-50678 Köln

http://luisantunespena.eu

+49 (0)221 29020757
+49 (0)176 968 09 867 (mobile)
Giorgio Zucco | 2 Sep 19:24 2011
Picon

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.

k_o_m_p | 2 Sep 19:53 2011
Picon

Re: pwgl-users: save the file to disk?

Do you mean the PWGL-Patch? Try the zip file attached.
Luis

Em 02.09.11 19:24, Giorgio Zucco escreveu:
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


Attachment (write2csound.pwgl.zip): application/x-zip-compressed, 3852 bytes
Paolo Aralla | 4 Sep 21:47 2011
Picon

pwgl-users: Matrix-editor outputs

Hi,
a little help about the Matrix-editor outputs.
The second and third do not work and I have not found nothing in the tutorials.
Could you give me some explanation about this?
Thanks
Paolo Aralla

Mikael Laurson | 4 Sep 22:45 2011
Picon

Re: pwgl-users: Matrix-editor outputs

Hi Paolo,

You are right, we should add some tutorials for the matrix-editor.
As far as I can see the outputs work (i.e. the 'data' output returns the data as a list of lists, and the 'labels'
output returns the labels.
What is your problem?

Mikael

On Sep 4, 2011, at 10:47 PM, Paolo Aralla wrote:

> Hi,
> a little help about the Matrix-editor outputs.
> The second and third do not work and I have not found nothing in the tutorials.
> Could you give me some explanation about this?
> Thanks
> Paolo Aralla
> 
> 


Gmane