blob: 2f87d1403672de37e96c2f697142b3484d8c73f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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
|
