summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/mp3d/3dutil.mp
blob: e83f5f18c051d24588d0dd3f35a80b7a669289d1 (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
%%\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