summaryrefslogtreecommitdiff
path: root/metapost
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2017-11-15 23:46:30 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2017-11-15 23:46:30 +0100
commitd3ddabbb5b5f45bac3da8cb51d3e63810aa2d4ca (patch)
tree7dc43a26a4358a0f528c8a79289bbff1813ebed5 /metapost
parent6f55552ca1456f0a2d50d1d0fdc8dc813d9ace77 (diff)
downloadcontext-d3ddabbb5b5f45bac3da8cb51d3e63810aa2d4ca.tar.gz
2017-11-15 22:14:00
Diffstat (limited to 'metapost')
-rw-r--r--metapost/context/base/mpiv/mp-tres.mpiv22
1 files changed, 19 insertions, 3 deletions
diff --git a/metapost/context/base/mpiv/mp-tres.mpiv b/metapost/context/base/mpiv/mp-tres.mpiv
index bd8a085a7..335670a98 100644
--- a/metapost/context/base/mpiv/mp-tres.mpiv
+++ b/metapost/context/base/mpiv/mp-tres.mpiv
@@ -80,6 +80,22 @@ let Xpart = redpart ;
let Ypart = greenpart ;
let Zpart = bluepart ;
+primarydef p Xscaled q =
+ (q*Xpart p, Ypart p, Zpart p)
+enddef ;
+
+primarydef p Yscaled q =
+ (Xpart p, q*Ypart p, Zpart p)
+enddef ;
+
+primarydef p Zscaled q =
+ (Xpart p, Ypart p, q*Zpart p)
+enddef ;
+
+primarydef p XYZscaled q =
+ (q*Xpart p,q*Ypart p,q*Zpart p)
+enddef ;
+
vardef projection expr t =
if triplet t :
(Xpart t, Ypart t) transformed Txy shifted (0,Zpart t)
@@ -117,7 +133,7 @@ primarydef p rotatedaboutX q =
mfun_three_yz := (Ypart p, Zpart p) ;
mfun_three_yz := mfun_three_yz rotated q ;
)
- (Xpart p, xpart yz, ypart yz)
+ (Xpart p, xpart mfun_three_yz, ypart mfun_three_yz)
enddef ;
primarydef p rotatedaboutY q =
@@ -125,7 +141,7 @@ primarydef p rotatedaboutY q =
mfun_three_zx := (Zpart p, Xpart p) ;
mfun_three_zx := mfun_three_zx rotated q ;
)
- (ypart zx, Ypart p, xpart zx)
+ (ypart mfun_three_zx, Ypart p, xpart mfun_three_zx)
enddef ;
primarydef p rotatedaboutZ q =
@@ -133,7 +149,7 @@ primarydef p rotatedaboutZ q =
mfun_three_xy := (Xpart p, Ypart p) ;
mfun_three_xy := mfun_three_xy rotated q ;
)
- (xpart xy, ypart xy, Zpart p)
+ (xpart mfun_three_xy, ypart mfun_three_xy, Zpart p)
enddef ;
%D We can use a rotation about an arbitrary direction t ... (easy)