diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-11 22:58:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-11 22:58:36 +0000 |
commit | ac3c55a3216b5988f0e48ba9414ddb059f19a699 (patch) | |
tree | a752ab12de05a9ac4511903abc09675172018fd6 /Master/texmf-dist/metapost/mp3d/3dutil.mp | |
parent | d087712418726a64822e40ce1c0627a514d17975 (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.mp | 37 |
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 |