diff options
| author | Hans Hagen <pragma@wxs.nl> | 2021-06-24 19:37:45 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-06-24 19:37:45 +0200 |
| commit | 820657bb1e9acfb36f24dfa8801526b0d5f2b464 (patch) | |
| tree | fc93fd3936e84b9b0a6402719e185d35e332eee9 /metapost/context/base/mpiv | |
| parent | 4272a26c49cbfee8917e5272fc0f964cbcfc4b03 (diff) | |
| download | context-820657bb1e9acfb36f24dfa8801526b0d5f2b464.tar.gz | |
2021-06-24 18:52:00
Diffstat (limited to 'metapost/context/base/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 ; |