diff options
Diffstat (limited to 'sandbox/testshape.tcl')
-rw-r--r-- | sandbox/testshape.tcl | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/sandbox/testshape.tcl b/sandbox/testshape.tcl index 424d057..b0a5b6d 100644 --- a/sandbox/testshape.tcl +++ b/sandbox/testshape.tcl @@ -1,20 +1,18 @@ -#!/usr/bin/wish -f +#!/usr/bin/wish8.0 -f -load tkzinc3.1.so +load /pii/packages/common/zinc/tkzinc_debug3.2.so set top 1 -set r [zinc .r] +set r [zinc .r -render 0 -borderwidth 0 -fullreshape 0 -relief sunken] pack $r -expand t -fill both -$r configure -width 800 -height 500 +$r configure -width 500 -height 500 -set view [$r add group $top] +set arc [.r add arc $top "50 50 200 150" -visible 1 -closed 0 -filled 0 -fillcolor white -extent 200 -pieslice 0] -set tab1 [$r add tabular $view 10 -position "100 100" -labelformat "100x30"] -set tab2 [$r add tabular $view 10 -position "100 150" -labelformat "100x30"] -set tab3 [$r add tabular $view 10 -connecteditem $tab2 -labelformat "100x30"] +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 itemconfigure $tab1 0 -text "tab1" -$r itemconfigure $tab2 0 -text "tab2" -$r itemconfigure $tab3 0 -text "tab3" +.r rotate $arc [expr 3.14/10] 125 100 +.r itemconfigure $top -clip $cv |