diff options
author | Karl Berry <karl@freefriends.org> | 2010-06-10 14:51:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-06-10 14:51:31 +0000 |
commit | b6d1ce2a105a839a1cf75d4b4ccb8f5827d22b4c (patch) | |
tree | c40c4afa4ac09c7e3d1f7f47fe66afd7513d1523 /Master/texmf-dist/doc/latex/mathspic/drawcurvedarrow.pl | |
parent | da353234f401986deb76831d76effffd0d0e2257 (diff) |
mathspic script
git-svn-id: svn://tug.org/texlive/trunk@18868 c570f23f-e606-0410-a88d-b1316a301751
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); |