summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl
blob: ba2bca83e8c1ca767561d34574e8e0b533b32d40 (plain)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
## drawcurvedarrow.pl
# command-line parameters A B C h filename
my ($A, $B, $C, $h, $filename)=@ARGV;
open (outfile, ">$filename")|| die "ERROR can't create file $filename\n";
print (outfile  "Point*(P999){pointonline($B$A, -($A$B)/3)}\n");
print (outfile  "Point*(H999){pointonline($C P999,$h)}\n");
print (outfile  "Drawcurve($A$B H999)\n");
print (outfile  "drawArrow(H999 $C)\n");
close (outfile);