summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/harpoon/harpoon.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/harpoon/harpoon.sty')
-rw-r--r--macros/latex/contrib/harpoon/harpoon.sty42
1 files changed, 42 insertions, 0 deletions
diff --git a/macros/latex/contrib/harpoon/harpoon.sty b/macros/latex/contrib/harpoon/harpoon.sty
new file mode 100644
index 0000000000..2f87d14036
--- /dev/null
+++ b/macros/latex/contrib/harpoon/harpoon.sty
@@ -0,0 +1,42 @@
+% harpoon.sty
+% by Tobias Kuipers {kuipers@fwi.uva.nl}
+% v1.0 of 1994/11/02
+% See harpoon.tex for documentation
+% If you modify this file, please redistribute it under another name
+% and send me a copy
+%
+% Permission is hereby granted to do anything with this file. No fitness
+% for any purpose is guaranteed or implied. We deny everything
+%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{harpoon}[1994/11/02 Harpoon drawing package by Tobias Kuipers]
+
+\DeclareOption*{%
+ \PassOptionsToPackage{\CurrentOption}{graphics}
+}
+\ProcessOptions
+\RequirePackage{graphics}[1994/05/30]
+
+
+
+\newcommand{\overleftharp}[1]{\overharp{\leftharpoonup}{#1}{.7}}
+\newcommand{\overrightharp}[1]{\overharp{\rightharpoonup}{#1}{.7}}
+\newcommand{\overleftharpdown}[1]{\overharp{\leftharpoondown}{#1}{.9}}
+\newcommand{\overrightharpdown}[1]{\overharp{\rightharpoondown}{#1}{.9}}
+\newcommand{\underleftharp}[1]{\overharp{\leftharpoonup}{#1}{-1}}
+\newcommand{\underrightharp}[1]{\overharp{\rightharpoonup}{#1}{-1}}
+\newcommand{\underleftharpdown}[1]{\overharp{\leftharpoondown}{#1}{-.8}}
+\newcommand{\underrightharpdown}[1]{\overharp{\rightharpoondown}{#1}{-.8}}
+
+\newlength{\argwd} \newlength{\arght}%-Two variables
+\newcommand{\overharp}[3]{% -The command name
+ \settowidth{\argwd}{#2}\settoheight{\arght}{#2}%
+ % -Set the variables
+ \raisebox{#3\arght}{% -Put the harp 6/10 of a line higher
+ \makebox[0pt][l]{% -Put everything in a box
+ \resizebox{\argwd}{.8\arght}{$#1$}%
+ % -Set harp to right length
+ }%
+ }%
+#2}% -Print the argument
+