#!/usr/bin/perl ## drawcube.pl # requires latex Color package # command line parameters Pointname,sidelength,temp-filename # use: system("perl drawcube.pl P s3 temp.txt") # see mathsPIC manual #=========================== my ($argnumber) = $#ARGV +1; if ($argnumber != 3){ print "============================\n"; print "ERROR: drawcube.pl requires 3 arguments\n"; print "USE: drawcube.pl \n"; print "============================\n"; exit(1); } my ($point, $side, $filename)=@ARGV; open (outfile, ">$filename")|| die "ERROR can't create file $filename\n"; print (outfile <