Lines Matching refs:extent
74 foreach {start extent} $value {}
76 if {$extent < 0} {
77 set ($this,extent) 0 ;# a negative extent is meaningless
78 } elseif {$extent >= 360} {
81 set ($this,extent) [expr {360 - pow(10, -$::tcl_precision + 3)}]
83 set ($this,extent) $extent
111 0 0 0 0 -style chord -extent 0 -fill $bottomColor\
118 -style arc -extent 0 -fill black -tags slice($this)\
121 -style chord -extent 0 -fill $bottomColor\
128 -style arc -extent 0 -fill black -tags slice($this)\
155 -start $($this,start) -extent $($this,extent)
170 set extent $($this,extent)
178 $canvas itemconfigure $($this,startBottomArcFill) -extent 0
182 $canvas itemconfigure $($this,startBottomArc) -extent 0
187 $canvas itemconfigure $($this,endBottomArcFill) -extent 0
191 $canvas itemconfigure $($this,endBottomArc) -extent 0
201 set end [normalizedAngle [expr {$start + $extent}]]
210 if {$extent <= 180} { ;# slice size is less than half pie
213 -start $start -extent $extent
215 -start $start -extent $extent
229 -start 0 -extent $start
231 -start 0 -extent $start
242 -start -180 -extent $bottomArcExtent
244 -start -180 -extent $bottomArcExtent
254 -start 0 -extent -180
256 -start 0 -extent -180
269 -start 0 -extent $start
271 -start 0 -extent $start
281 -start -180 -extent $bottomArcExtent
283 -start -180 -extent $bottomArcExtent
304 set data(extent) $($this,extent)