% 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

