summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/mp3d/3dutil.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/mp3d/3dutil.mp')
-rw-r--r--Master/texmf-dist/metapost/mp3d/3dutil.mp37
1 files changed, 37 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/mp3d/3dutil.mp b/Master/texmf-dist/metapost/mp3d/3dutil.mp
new file mode 100644
index 00000000000..e83f5f18c05
--- /dev/null
+++ b/Master/texmf-dist/metapost/mp3d/3dutil.mp
@@ -0,0 +1,37 @@
+%%\input epsf
+%%\def\newpage{\vfill\eject}
+%%\advance\vsize1in
+%%\let\ora\overrightarrow
+%%\def\title#1{\hrule\vskip1mm#1\par\vskip1mm\hrule\vskip5mm}
+%%\def\figure#1{\par\centerline{\epsfbox{#1}}}
+%%\title{{\bf 3DUTIL.MP: 3D UTILITIES IN METAPOST}}
+
+%% version 1.34, 17 August 2003
+%% {\bf Denis Roegel} ({\tt roegel@loria.fr})
+
+% This package provides some basic functions used in certain
+% files of the 3d package.
+
+if known three_d_util_version:
+ expandafter endinput % avoids loading this package twice
+fi;
+
+message "*** 3dutil, v1.34 (c) D. Roegel 17 August 2003 ***";
+numeric three_d_util_version; three_d_util_version:=1.34;
+
+% maybe this exists?
+def sign(expr n)=
+ (if n>=0: 1 else: -1 fi)
+enddef;
+
+%
+def absmin(expr v,w)=
+ (if abs(v)<=abs(w):abs(v) else: abs(w) fi)
+enddef;
+
+%
+def absmax(expr v,w)=
+ (if abs(v)>abs(w):abs(v) else: abs(w) fi)
+enddef;
+
+endinput