#!/usr/bin/wish8.0 -f

load tkzinc3.1.so
package require Img

set top 1

image create photo logo -file logo.gif
image create photo papier -file texture-paper.xpm
image create photo penguin -file xpenguin.png

set r [zinc .r -relief sunken -localrender 1]
pack .r -expand t -fill both
.r configure -width 500 -height 500
set gr1 [.r add group $top]
set clip [.r add rectangle $gr1 "50 50 399 399" -filled 1 -fillcolor pink -linewidth 0]
#.r itemconfigure $gr1 -clip $clip
set gr2 [.r add group $gr1]
set clip2 [.r add rectangle $gr2 "200 200 450 450" -filled 1 -fillcolor lavender -linewidth 0]
#.r itemconfigure $gr2 -clip $clip2
set view [.r add group $gr2 -tags "controls"]
.r lower $clip
.r lower $clip2

set rect [.r add rectangle $view "100 100 200 200" -linewidth 4 \
	-tile papier -fillcolor pink -fillalpha 128 -filled 1]
set fvwm [.r add icon $view -mask "@fvwm.xbm" -position "250 120" \
	-anchor center -color black -alpha 255]
set rect2 [.r add rectangle $view "150 50 300 300" -linewidth 0 \
	 -tile logo -fillcolor white -fillalpha 90 -filled 1]
set x 100
set y 100
for {set i 0} {$i < 1} {incr i} {
    set x [expr $x+3]
    set y [expr $y+3]
    .r add text $view -text "BlaBla et tout et tout, bref..."\
	    -position "$x $y" -anchor nw -color red -alpha 90
}
set peng [.r add icon $view -image penguin -position "300 300" \
	-anchor center -alpha 128]
.r translate $rect -150 -150
.r rotate $rect 35
.r translate $rect 150 150

source controls.tcl
#