diff options
Diffstat (limited to 'metapost/context/base/mpiv/mp-tres.mpiv')
-rw-r--r-- | metapost/context/base/mpiv/mp-tres.mpiv | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/metapost/context/base/mpiv/mp-tres.mpiv b/metapost/context/base/mpiv/mp-tres.mpiv index ccc6e6dba..5d8b942c3 100644 --- a/metapost/context/base/mpiv/mp-tres.mpiv +++ b/metapost/context/base/mpiv/mp-tres.mpiv @@ -114,6 +114,10 @@ vardef Abs primary p = fi enddef ; +vardef Unitvector primary z = + z/Abs z +enddef ; + primarydef p dotproduct q = ((Xpart p)*(Xpart q) + (Ypart p)*(Ypart q) + (Zpart p)*(Zpart q)) enddef ; |