summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-02-28 15:11:56 +0000
committerKarl Berry <karl@freefriends.org>2019-02-28 15:11:56 +0000
commitcc17ad601696f5cf966c8a0b9d79144cd42828a6 (patch)
treef6007b9b2f886d942f9b30b4797e8718001f65bd /Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv
parente298746bb92cdf7e87bc3b5b9bd973b6c429a47f (diff)
context for tl19
git-svn-id: svn://tug.org/texlive/trunk@50165 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv')
-rw-r--r--Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv63
1 files changed, 58 insertions, 5 deletions
diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv
index 335670a989f..c331d71affe 100644
--- a/Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv
+++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-tres.mpiv
@@ -96,14 +96,14 @@ primarydef p XYZscaled q =
(q*Xpart p,q*Ypart p,q*Zpart p)
enddef ;
-vardef projection expr t =
- if triplet t :
+vardef projection primary t =
+ (if triplet t :
(Xpart t, Ypart t) transformed Txy shifted (0,Zpart t)
- elseif pair t :
+ elseif pair t :
t transformed Txy
- else :
+ else :
origin transformed Txy
- fi
+ fi)
enddef ;
%D This overloads the plain macro \type {abs} (being \type {length}):
@@ -166,6 +166,59 @@ vardef draw_vector@# (expr v, s) text t =
fi
enddef ;
+%D Transform a (2D) path to a 3D plane
+
+def XYpath primary p =
+ (for i=0 upto (length p) if cycle p: -1 fi :
+ if i>0 : .. fi
+ projection (xpart point i of p,
+ ypart point i of p,
+ 0)
+ ..controls
+ projection (xpart postcontrol i of p,
+ ypart postcontrol i of p,
+ 0)
+ and
+ projection (xpart precontrol (i+1) of p,
+ ypart precontrol (i+1) of p,
+ 0)
+ endfor if cycle p: ..cycle fi)
+enddef ;
+
+def XZpath primary p =
+ (for i=0 upto (length p) if cycle p: -1 fi :
+ if i>0 : .. fi
+ projection (xpart point i of p,
+ 0,
+ ypart point i of p)
+ ..controls
+ projection (xpart postcontrol i of p,
+ 0,
+ ypart postcontrol i of p)
+ and
+ projection (xpart precontrol (i+1) of p,
+ 0,
+ ypart precontrol (i+1) of p)
+ endfor if cycle p: ..cycle fi)
+enddef ;
+
+def YZpath primary p =
+ (for i=0 upto (length p) if cycle p: -1 fi :
+ if i>0 : .. fi
+ projection (0,
+ xpart point i of p,
+ ypart point i of p)
+ ..controls
+ projection (0,
+ xpart postcontrol i of p,
+ ypart postcontrol i of p)
+ and
+ projection (0,
+ xpart precontrol (i+1) of p,
+ ypart precontrol (i+1) of p)
+ endfor if cycle p: ..cycle fi)
+enddef ;
+
%D Some constants...
triplet Origin, Xunitvector, Yunitvector, Zunitvector ;