blob: b0a5b6d1468875048039503498b631a903b54ded (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/wish8.0 -f
load /pii/packages/common/zinc/tkzinc_debug3.2.so
set top 1
set r [zinc .r -render 0 -borderwidth 0 -fullreshape 0 -relief sunken]
pack $r -expand t -fill both
$r configure -width 500 -height 500
set arc [.r add arc $top "50 50 200 150" -visible 1 -closed 0 -filled 0 -fillcolor white -extent 200 -pieslice 0]
set cv [.r add curve $top "50 50 100 150 270 70 220 0 200 20 180 -100 140 40 70 -100" \
-visible 0]
.r rotate $arc [expr 3.14/10] 125 100
.r itemconfigure $top -clip $cv
|
