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
|
