[PD-cvs] pd/src desire.tk,1.1.2.505,1.1.2.506
Mathieu Bouchard
matju at users.sourceforge.net
Sat Oct 14 16:00:36 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12229
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
hehehe
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.505
retrieving revision 1.1.2.506
diff -C2 -d -r1.1.2.505 -r1.1.2.506
*** desire.tk 14 Oct 2006 11:10:30 -0000 1.1.2.505
--- desire.tk 14 Oct 2006 14:00:32 -0000 1.1.2.506
***************
*** 2600,2604 ****
}
def FutureWire draw {} {
! $self item WIRE line [list $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [$self look dash]
}
--- 2600,2604 ----
}
def FutureWire draw {} {
! $self item WIRE line [xys $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [$self look dash] -smooth yes
}
***************
*** 3393,3396 ****
--- 3393,3412 ----
def Wire report {} {list $@obj1 $@port1 $@obj2 $@port2}
+ proc xys {x1 y1 x2 y2} {
+ set r {}
+ lappend r $x1 $y1
+ set dx [expr $x2-$x1]
+ set dy [expr $y2-$y1]
+ set d [expr sqrt($dx*$dx+$dy*$dy)]
+ set n [expr 1+$d/10]
+ for {set i 1} {$i<$n} {incr i} {
+ set w $i*($n-$i)/(0.0+$n*$n)
+ lappend r [expr $x1 + $dx*$i/$n + $dy*(rand()-0.5)*$w]
+ lappend r [expr $y1 + $dy*$i/$n - $dx*(rand()-0.5)*$w]
+ }
+ lappend r $x2 $y2
+ return $r
+ }
+
def Wire draw {} {
set zoom [$@canvas zoom]
***************
*** 3412,3416 ****
#mset {x1 y1} [l/2 [l+ [lrange $bbox1 0 1] [lrange $bbox1 2 3]]]
#mset {x2 y2} [l/2 [l+ [lrange $bbox2 0 1] [lrange $bbox2 2 3]]]
! set xys [list $x1 $y1 $x2 $y2]
set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]
# how to customise the arrow size/shape?
--- 3428,3432 ----
#mset {x1 y1} [l/2 [l+ [lrange $bbox1 0 1] [lrange $bbox1 2 3]]]
#mset {x2 y2} [l/2 [l+ [lrange $bbox2 0 1] [lrange $bbox2 2 3]]]
! set xys [xys $x1 $y1 $x2 $y2]
set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]
# how to customise the arrow size/shape?
More information about the Pd-cvs
mailing list