diff options
| author | lecoanet | 2000-01-26 13:39:20 +0000 |
|---|---|---|
| committer | lecoanet | 2000-01-26 13:39:20 +0000 |
| commit | 9d2861b8fb77adc89682633330b312b55acb0288 (patch) | |
| tree | 96e66a3d4b56f0257112ee73e27415c327b6060a /sandbox | |
| parent | 65c1342e3831bd04543e64c226ac6372bbaef905 (diff) | |
| download | tkzinc-9d2861b8fb77adc89682633330b312b55acb0288.zip tkzinc-9d2861b8fb77adc89682633330b312b55acb0288.tar.gz tkzinc-9d2861b8fb77adc89682633330b312b55acb0288.tar.bz2 tkzinc-9d2861b8fb77adc89682633330b312b55acb0288.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/testarc.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl index 05e3922..6c3f777 100644 --- a/sandbox/testarc.tcl +++ b/sandbox/testarc.tcl @@ -15,11 +15,14 @@ pack .r -expand t -fill both #.r configure -drawbboxes t .r scale $top 1 -1 set view [.r add group $top -tags "controls"] +.r translate $view 200 -200 set view2 [.r add group $top] -.r translate $view2 100 -50 +.r translate $view2 300 -200 set arc [.r add arc $view "50 -10 200 -100" -linecolor bisque] -#.r itemconfigure $arc -startangle 10 -extent 90 -#.r itemconfigure $arc -startangle 0 -extent 360 +.r itemconfigure $arc -extent 200 +set arc2 [.r clone $arc -linecolor red -firstend "8 10 5"] +#.r rotate $arc2 10 +#.r translate $arc2 100 -100 source "controls.tcl" |