diff options
| author | Marius <mariausol@gmail.com> | 2012-08-02 12:20:22 +0300 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2012-08-02 12:20:22 +0300 |
| commit | 2f920851e38f427bbafbf0ef895d43a0db48611f (patch) | |
| tree | 6107452ded5339032f32cebb8e6a5b4b586879b9 /metapost | |
| parent | a5bdb8782fc92ea930e1f09b60bab5c97f3d533c (diff) | |
| download | context-2f920851e38f427bbafbf0ef895d43a0db48611f.tar.gz | |
beta 2012.08.02 10:55
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-mlib.mpiv | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/metapost/context/base/mp-mlib.mpiv b/metapost/context/base/mp-mlib.mpiv index 71985cef8..1b59f2f78 100644 --- a/metapost/context/base/mp-mlib.mpiv +++ b/metapost/context/base/mp-mlib.mpiv @@ -255,7 +255,7 @@ vardef thetextext@#(expr p,z) = fi enddef ; -vardef textext@#(expr p) = % no draw hers +vardef textext@#(expr p) = % no draw here thetextext@#(p,origin) enddef ; @@ -614,3 +614,28 @@ primarydef t asgroup s = % s = isolated|knockout wrappedpicture endgroup enddef ; + +% Also experimental + +string mfun_auto_align[] ; + +mfun_auto_align[0] := "rt" ; +mfun_auto_align[1] := "urt" ; +mfun_auto_align[2] := "top" ; +mfun_auto_align[3] := "ulft" ; +mfun_auto_align[4] := "lft" ; +mfun_auto_align[5] := "llft" ; +mfun_auto_align[6] := "bot" ; +mfun_auto_align[7] := "lrt" ; +mfun_auto_align[8] := "rt" ; + +def autoalign(expr n) = + scantokens mfun_auto_align[round((n mod 360)/45)] +enddef ; + +% draw textext.autoalign(60) ("\strut oeps 1") ; +% draw textext.autoalign(160)("\strut oeps 2") ; +% draw textext.autoalign(260)("\strut oeps 3") ; +% draw textext.autoalign(360)("\strut oeps 4") ; + + |