Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32757
Modified Files: Tag: desiredata desire.tk Log Message: small grid draw fix
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.391 retrieving revision 1.1.2.600.2.392 diff -C2 -d -r1.1.2.600.2.391 -r1.1.2.600.2.392 *** desire.tk 17 Aug 2007 17:50:56 -0000 1.1.2.600.2.391 --- desire.tk 17 Aug 2007 18:18:57 -0000 1.1.2.600.2.392 *************** *** 6824,6837 ****
def Grid draw_lines {v1 v2 v3 v4 tag} { ! set l 0; set g $@gap for {set i $v1} {$i < $v2} {incr i} { ! if {$l%$g == 0} {set width 1;set dash [list 7 1]} {set width 1;set dash [list 1 4 1 4]} ! if {![expr $i % int($@size)]} { ! switch $tag { ! VL {set line [list $i $v3 $i $v4]} ! HL {set line [list $v3 $i $v4 $i]} ! } ! $self item ${tag}$i line $line -fill $@col -width $width -dash $dash ! incr l } } --- 6824,6834 ----
def Grid draw_lines {v1 v2 v3 v4 tag} { ! set s $@size; set g $@gap for {set i $v1} {$i < $v2} {incr i} { ! #if {$l%$g == 0} {set width 1;set dash [list 7 1]} {set width 1;set dash [list 1 4 1 4]} ! if {![expr $i % int($s*$g)]} {set w 1;set d [list 7 1]} {set w 1;set d [list 1 4 1 4]} ! if {![expr $i % int($s)]} { ! switch $tag {VL {set line [list $i $v3 $i $v4]} HL {set line [list $v3 $i $v4 $i]}} ! $self item ${tag}$i line $line -fill $@col -width $w -dash $d } }