$w=50;
$h=50;
$ax1=0;
$ay1=0;
$cx1=0;
$cy1=$h/5;
$ax2=0;
$ay2=$h-$h/5;
$cx2=$w/3;
$cy2=$h;
$ax3=$w;
$ay3=$h/3;
$cx3=$w;
$cy3=0;
$ax4=$w;
$ay4=$h;
$cx4=$w;
$cy4=$h/5;
$IN="-size \($w\)x\($h\) gradient:white-black";
$OUT1="temp/gradangle1f.png";
$OUT2="temp/gradangle2f.png";
$OUT3="temp/gradangle3f.png";
$ILLUSTRATE="-distort Perspective '$ax1,$ay1,$cx1,$cy1 $ax2,$ay2,$cx2,$cy2 $ax3,$ay3,$cx3,$cy3 $ax4,$ay4,$cx4,$cy4' ";
$OUT4="temp/gradangle4f.png";
exec ("/usr/bin/convert $IN $ILLUSTRATE $OUT4");
exec ("/usr/bin/convert $OUT4 -flop $OUT3");
exec ("/usr/bin/convert $OUT4 -flop -flip $OUT1");
exec ("/usr/bin/convert $OUT4 -flip $OUT2");
exec ("/usr/bin/montage -background black $OUT1 $OUT2 $OUT3 $OUT4 -tile 2X2 -geometry +0+0 temp/G140f.png");
print "
";
?>