diff options
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" |