#!/usr/bin/wish -f

load tkzinc3.1.so
package require Img

set top 1

image create photo logo -file /usr/share/toccata/images/logo.gif
#image create photo papier -file /usr/share/toccata/images/dgtexture-dragstrip.xpm
image create photo penguin -file /usr/X11R6/include/X11/pixmaps/xpenguin_color.xpm

set r [zinc .r -backcolor gray -relief sunken]
pack .r -expand t -fill both
.r configure -width 800 -height 500
#.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 300 -200

set arc [.r add arc $view "50 -10 200 -100" -linecolor bisque]
.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"