[PD-cvs] pd/src desire.tk,1.1.2.107,1.1.2.108
chunlee
chunlee at users.sourceforge.net
Sun Nov 6 15:09:31 CET 2005
- Previous message: [PD-cvs] abstractions/footils/list-abs list-idx-help.pd, 1.1, 1.2 list-idx.pd, 1.1, 1.2 list-rev.pd, 1.2, 1.3 list-splat.pd, 1.1, 1.2
- Next message: [PD-cvs] doc/pddp TODO,1.3,1.4 standard_gui_elements.pd,1.3,1.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2954
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.107
retrieving revision 1.1.2.108
diff -C2 -d -r1.1.2.107 -r1.1.2.108
*** desire.tk 6 Nov 2005 00:16:14 -0000 1.1.2.107
--- desire.tk 6 Nov 2005 14:09:28 -0000 1.1.2.108
***************
*** 1598,1602 ****
if {abs($y2-3-$y)<=3 && $outs} {
set out [expr int(($x-$x1)*$outs/($x2-$x1))]
! $c create line $x $y $x $y -dash {4 4 4 4} -tags lnew
set @click_on [list $self $out]
set @action wire
--- 1598,1603 ----
if {abs($y2-3-$y)<=3 && $outs} {
set out [expr int(($x-$x1)*$outs/($x2-$x1))]
! mset {x1 y1 x2 y2} [$c bbox ${id}o${out}]
! $c create line [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] $x $y -dash {4 4 4 4} -tags lnew
set @click_on [list $self $out]
set @action wire
- Previous message: [PD-cvs] abstractions/footils/list-abs list-idx-help.pd, 1.1, 1.2 list-idx.pd, 1.1, 1.2 list-rev.pd, 1.2, 1.3 list-splat.pd, 1.1, 1.2
- Next message: [PD-cvs] doc/pddp TODO,1.3,1.4 standard_gui_elements.pd,1.3,1.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list