From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining 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