[PD-cvs] pd/src desire.tk,1.1.2.600.2.391,1.1.2.600.2.392

[chunlee]

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
  		}
  	}