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

---
 graphics/pictex/pointers.tex | 53 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 graphics/pictex/pointers.tex

(limited to 'graphics/pictex/pointers.tex')

diff --git a/graphics/pictex/pointers.tex b/graphics/pictex/pointers.tex
new file mode 100644
index 0000000000..5c2204478a
--- /dev/null
+++ b/graphics/pictex/pointers.tex
@@ -0,0 +1,53 @@
+%
+%	Pointing at things
+%
+%	Each macro points in a different direction. The arrow is at the
+%	logical corner, e.g. if I \pointUpRight, the arrow is in the upper
+%	right corner.
+%
+%	\pointRight{..text..} 
+%	\pointLeft{..text..} 
+%	\pointDown{..text..} 
+%	\pointUp{..text..} 
+%
+%	\pointUpRight{..text..}
+%	\pointUpLeft{..text..}
+%	\pointDownRight{..text..}
+%	\pointDownLeft{..text..}
+%
+%	No global boxes are used. Each macro is grouped and uses box0.
+%
+%	Dirk Grunwald Apr 20 1988
+%
+\def\pointRight#1{{#1$\rightarrow$}}
+\def\pointLeft#1{{$\leftarrow$#1}}
+%
+\def\pointUpRight#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{#1}%
+\vbox{\hbox{\hskip\wd0$\nearrow$}\copy0}\endgroup}
+%
+\def\pointUpLeft#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{$\nwarrow$}%
+\vbox{\copy0\hbox{\hskip\wd0{}#1}}\endgroup}
+%
+\def\pointDownRight#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{#1}%
+\vbox{\copy0\hbox{\hskip\wd0$\searrow$}}\endgroup}
+%
+\def\pointDownLeft#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{$\swarrow$}%
+\vbox{\hbox{\hskip\wd0{}#1}\copy0}\endgroup}
+%
+\def\pointDown#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{#1}%
+\vbox{\copy0\hbox to \wd0{\hfill$\downarrow$\hfill}}\endgroup}
+%
+\def\pointUp#1{%
+\begingroup\offinterlineskip%
+\setbox0=\hbox{#1}%
+\vbox{\hbox to \wd0{\hfill$\uparrow$\hfill}\copy0}\endgroup}
-- 
cgit v1.2.3

