diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl')
| -rw-r--r-- | Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl b/Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl new file mode 100644 index 00000000000..ba2bca83e8c --- /dev/null +++ b/Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl @@ -0,0 +1,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); |