#!/usr/bin/perl

use warnings;
use strict;
use Tk;
use Tk::Zinc; 

my $width = 100;
my $height = 100;

my $mw = MainWindow->new(-background => 'cyan' ); 

#$mw->geometry($width.'x'.$height.'+300+300');

$mw->geometry('500x500+300+300');


#$mw->overrideredirect(1);
my $zinc = $mw->Zinc(-width => $width, 
                     -height => $height,
                     -reshape => 1,     #clips zinc
                     -fullreshape => 1,  #clips $mw and xterm
		     -backcolor => 'blue',
                       )->pack; 

my $petal = $zinc->add('curve',1,[[$width/2,0], 
                                          [2*$width,0, 'c'], 
                                          [2*$width,$height, 'c'],
				  [$width/2,$height],
                                          [-$width,$height, 'c'], 
                                          [-$width,0, 'c'],
	                           [$width/2,0]],

                   -tags => ['bezier1'],
                   -filled => 1,
                   #-fillcolor => 'cyan',
                   #attempt at semi-transparency
		   -fillcolor => "=radial 0 0 |yellow;40|black;40 50|cyan;40", 
		   -closed => 1,
                   -linewidth => 0,
		   -priority => 1,
		   -visible => 1,
		   );

# using the triangulaire curve to reshape both TkZinc and Mainwindow widgets 
$zinc->itemconfigure(1, -clip => $petal); 

MainLoop;