Author: Simon Geard <[email protected]>
State: Final
Type: Project
Vote: Done
Created: 16-Oct-2012
Post-History:
Keywords: Tk
Tcl-Version: 8.7
Tk-Branch: tip-415
Vote-Summary: Accepted 5/0/1
Votes-For: DKF, KBK, JN, FV, SL
Votes-Against: none
Votes-Present: BG
Abstract
Creating a segment of a circular arc is unnecessarily difficult using the canvas arc. This TIP proposes a simple extension of the syntax to support the creation of circular arc segments in a natural way. A similar extension to support the more general elliptical arc segments is outside the scope of this TIP.
Rationale
There is scope to enhance arc creation to make it much more useful as was shown by a recent discussion on comp.lang.tcl. The proposal here is the simplest enhancement to enable creation of circular arc segments from a single parameter.
Proposal
Enhance arc creation to support a new -height option:
canvas create arc x1 y1 x2 y2 -height h ?options?
The new option -height h causes the specified coordinates (x1, y1) and (x2, y2) to be interpreted as the start and end points of the arc's chord. The value of h is the (canvas) distance of the arc's mid-point from the chord, with the sign of h determining the direction of the arc:
h > 0 ⇒ clockwise
h < 0 ⇒ anticlockwise
If h ≠ 0 then the options -start and -extent are ignored (because they are calculated internally for a given h). Any non-zero value of h defines a unique arc.
If h = 0 (exactly) the option is ignored and the command is processed as if it wasn't present. In addition:
canvas itemcget tagOrId -height
will always return 0. This behaviour enables introspection without complications. A consequence is that:
canvas itemconfigure tagOrId -height 0
is a no-op.
Example
The following code shows the creation of arcs using the new method, copying them onto another canvas and using a scale widget to dynamically control the arcs
# Callback for modifying the arcs' h value
proc deltaHeight {h} {
global c
global arcList
foreach {i hp hm} $arcList {
$c itemconfigure a_$i -height [expr {$h*$hp}]
$c itemconfigure b_$i -height [expr {$h*$hm}]
}
}
# Create the canvas and its duplicate
set c [canvas .c -width 700 -height 700 -bg grey]
set cc [canvas .cc -width 700 -height 700 -bg grey]
pack $c $cc -fill both -expand 1 -side left
# Pretty colours
array set colours {0 red 1 yellow 2 green 3 cyan 4 blue 5 magenta}
# A slider with which to adjust h
set lh 1; # Initial setting for scale
set s [scale .s -from 0.1 -to 15 -resolution 0.1 -variable lh -orient vertical -length 700 -command deltaHeight]
pack $s -side right -fill y
# Create the arcs
for {set i 1} {$i <= 24} {incr i} {
set col [expr {$i % 6}]
set hp [expr {$i*10}]
set hm [expr {-$i*10}]
lappend arcList $i $hp $hm
$c create arc 300 200 400 400 -height [expr {$i*10}] -outline $colours($col) -style arc -tags [list aa a_$i]
$c create arc 300 200 400 400 -height [expr {-$i*10}] -outline $colours($col) -style arc -tags [list aa b_$i]
}
# Serialize
set fh [open "ccopy.tcl" w]
foreach id [$c find withtag aa] {
puts $fh "\$cc create arc [$c coords $id] \
-height [$c itemcget $id -height]\
-start [$c itemcget $id -start] \
-extent [$c itemcget $id -extent] \
-outline [$c itemcget $id -outline] \
-style [$c itemcget $id -style]"
}
close $fh
# Create copy from serialization
source "ccopy.tcl"
Reference Implementation
A reference implementation for the functionality is available.
Copyright
This document has been placed in the public domain.