From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 macros/latex/contrib/harpoon/harpoon.sty | 42 ++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 macros/latex/contrib/harpoon/harpoon.sty

(limited to 'macros/latex/contrib/harpoon/harpoon.sty')

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
+
-- 
cgit v1.2.3

