[PD-cvs] pd/src desire.c,1.1.2.217.2.76,1.1.2.217.2.77
Mathieu Bouchard
matju at users.sourceforge.net
Tue Dec 19 04:29:20 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14698
Modified Files:
Tag: desiredata
desire.c
Log Message:
comment defaults to no text. [vu] defaults to black bg.
Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.76
retrieving revision 1.1.2.217.2.77
diff -C2 -d -r1.1.2.217.2.76 -r1.1.2.217.2.77
*** desire.c 19 Dec 2006 00:31:54 -0000 1.1.2.217.2.76
--- desire.c 19 Dec 2006 03:29:15 -0000 1.1.2.217.2.77
***************
*** 5825,5846 ****
t_atom at;
x->binbuf = binbuf_new();
! if (argc > 1) {
! x->x = atom_getintarg(0, argc, argv);
! x->y = atom_getintarg(1, argc, argv);
! if (argc > 2) binbuf_restore(x->binbuf, argc-2, argv+2);
! else {
! SETSYMBOL(&at, gensym("comment"));
! binbuf_restore(x->binbuf, 1, &at);
! }
! canvas_add(gl,x);
! } else {
! int xpix, ypix;
! SETSYMBOL(&at, gensym("comment"));
! xpix=ypix=0;
! x->x = (int)canvas_pixelstox(gl, xpix-3);
! x->y = (int)canvas_pixelstoy(gl, ypix-3);
! binbuf_restore(x->binbuf, 1, &at);
! canvas_add(gl,x);
! }
pd_set_newest(x);
}
--- 5825,5832 ----
t_atom at;
x->binbuf = binbuf_new();
! x->x = atom_getintarg(0, argc, argv);
! x->y = atom_getintarg(1, argc, argv);
! if (argc > 2) binbuf_restore(x->binbuf, argc-2, argv+2);
! canvas_add(gl,x);
pd_set_newest(x);
}
***************
*** 7139,7142 ****
--- 7125,7129 ----
SET(out_rms ,outlet_new(x, &s_float));
SET(out_peak,outlet_new(x, &s_float));
+ SET(bcol,0x000000);
SET(h,IEM_VU_STEPS*3);
SET(scale,1);
More information about the Pd-cvs
mailing list