From 754163d7156c4021b4108e3dbe0807c5357e6e22 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:56:40 +0000 Subject: harpoon git-svn-id: svn://tug.org/texlive/trunk@969 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/harpoon/harpoon.sty | 42 +++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/harpoon/harpoon.sty (limited to 'Master/texmf-dist/tex/latex/harpoon') diff --git a/Master/texmf-dist/tex/latex/harpoon/harpoon.sty b/Master/texmf-dist/tex/latex/harpoon/harpoon.sty new file mode 100644 index 00000000000..2f87d140367 --- /dev/null +++ b/Master/texmf-dist/tex/latex/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