[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