aboutsummaryrefslogtreecommitdiff
path: root/sandbox/conical.tcl
blob: 63dd7c08a31be2ce9fce70f85443b99c89090f4a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

lappend auto_path ..
package require Tkzinc

set defaultfont -b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1
zinc .zinc -width 700 -height 500 -render 1
pack .zinc


.zinc gname {=radial 0 0 |white|gray30} test1
.zinc gname {=conical 70 |white|gray30 50 50|white} test2

set grp [.zinc add group 1]
#.zinc add rectangle $grp {0 0 70 50} -filled 1 -fillcolor white   
.zinc add rectangle $grp {60 60 360 360} -filled 1 -linewidth 1 \
    -fillcolor test2 -tags rect

.zinc add rectangle $grp {140 140 280 280} -filled 1 -fillcolor gray