summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/mp3d/3dutil.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-11 22:58:36 +0000
committerKarl Berry <karl@freefriends.org>2006-01-11 22:58:36 +0000
commitac3c55a3216b5988f0e48ba9414ddb059f19a699 (patch)
treea752ab12de05a9ac4511903abc09675172018fd6 /Master/texmf-dist/metapost/mp3d/3dutil.mp
parentd087712418726a64822e40ce1c0627a514d17975 (diff)
trunk/Master/texmf-dist/metapost
git-svn-id: svn://tug.org/texlive/trunk@104 c570f23f-e606-0410-a88d-b1316a301751
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