#!/usr/bin/perl
use Tk::Zinc; 
my $mw = MainWindow->new(); 
my $zinc = $mw->Zinc(-reshape => 1, 
                 -fullreshape => 1)->pack; 

# creating a triangulaire curve 
my $triangle= $zinc->add( curve ,1, [ [0,0], [100,0], [50,100] ], -closed => 1); 

# using the triangulaire curve to reshape both TkZinc and Mainwindow widgets 
$zinc->itemconfigure(1, -clip => $triangle); 
$zinc->add( arc ,1, [ [0,0], [100,100] ], -filled => 1, -fillcolor =>  darkblue ); 
&Tk::MainLoop;