[PD-cvs] pd/src desire.tk,1.1.2.600.2.391,1.1.2.600.2.392
chunlee
chunlee at users.sourceforge.net
Fri Aug 17 20:19:02 CEST 2007
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.600.2.390,1.1.2.600.2.391
- Next message: [PD-cvs] doc/tutorials/intro 06.connections.pd, 1.3, 1.4 07.messages.pd, 1.3, 1.4 11.metro.pd, 1.1, 1.2 12.hot_and_cold_inlets.pd, 1.3, 1.4 15.right_to_left_order.pd, 1.1, 1.2 16.ordering_messages.pd, 1.3, 1.4 20.creation_arguments.pd, 1.2, 1.3 22.selectors.pd, 1.2, 1.3 23.implied_selectors.pd, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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
}
}
- Previous message: [PD-cvs] pd/src desire.tk,1.1.2.600.2.390,1.1.2.600.2.391
- Next message: [PD-cvs] doc/tutorials/intro 06.connections.pd, 1.3, 1.4 07.messages.pd, 1.3, 1.4 11.metro.pd, 1.1, 1.2 12.hot_and_cold_inlets.pd, 1.3, 1.4 15.right_to_left_order.pd, 1.1, 1.2 16.ordering_messages.pd, 1.3, 1.4 20.creation_arguments.pd, 1.2, 1.3 22.selectors.pd, 1.2, 1.3 23.implied_selectors.pd, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list