summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/featpost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-02-07 22:45:20 +0000
committerKarl Berry <karl@freefriends.org>2012-02-07 22:45:20 +0000
commit33066250d10f280ee380a4eb2becfe03fcc3a6f8 (patch)
tree7c97cd825e5a7248fa7618043f38c1e7c3843a8e /Master/texmf-dist/metapost/featpost
parent913d5634756f5af369b18da0baf14b1ecc2299ef (diff)
featpost (7feb12)
git-svn-id: svn://tug.org/texlive/trunk@25331 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/featpost')
-rw-r--r--Master/texmf-dist/metapost/featpost/featpost3Dplus2D.mp113
1 files changed, 1 insertions, 112 deletions
diff --git a/Master/texmf-dist/metapost/featpost/featpost3Dplus2D.mp b/Master/texmf-dist/metapost/featpost/featpost3Dplus2D.mp
index 06b7b76ca0c..8ed0ab46a18 100644
--- a/Master/texmf-dist/metapost/featpost/featpost3Dplus2D.mp
+++ b/Master/texmf-dist/metapost/featpost/featpost3Dplus2D.mp
@@ -23,7 +23,7 @@
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
- message "Preloading FeatPost macros, version 0.8.3";
+ message "Preloading FeatPost macros, version 0.8.4";
warningcheck := 0;
background := 0.987white;
@@ -4198,115 +4198,4 @@
endgroup;
enddef;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Part VI (strictly two-dimensional and related to planifications):
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Default Values %%%%%%%%%%%%
- pen grossa, usual, fina;
- grossa= pencircle scaled 0.9mm;
- usual = pencircle scaled 0.6mm;
- fina = pencircle scaled 0.3mm;
- numeric u, arestaref, defaultaresta;
- u = 0.5mm;
- defaultaresta = 30mm;
- arestaref = defaultaresta;
- picture pequeno, grande, nada;
- linecap := squared; %%%%%%%%%%%%%%%%%%%%%
- pequeno = dashpattern( off 3u on 1u );
- grande = dashpattern( off 8u on 6u );
- nada = dashpattern( on 1pt );
- linecap := rounded; %%%%%%%%%%%%%%%%%%%%%
- pair urCorner,ulCorner,llCorner,lrCorner,PageCenter;
- urCorner := (8.13in,11.533in);
- llCorner := (0.118in,35.5bp);
- ulCorner := (xpart llCorner,ypart urCorner);
- lrCorner := (xpart urCorner,ypart llCorner);
- PageCenter := (urCorner+ulCorner+llCorner+lrCorner)/4;
- path thebigframe;
- thebigframe = llCorner--lrCorner--urCorner--ulCorner--cycle;
- boolean EPSmode, Athreemode;
- EPSmode = false;
- Athreemode = false;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
- def centerof( text t) =
- begingroup
- save momentum, counter;
- numeric counter;
- pair momentum;
- counter = 0;
- momentum = (0,0);
- forsuffixes $=t:
- counter := incr(counter);
- momentum := momentum + z$;
- endfor;
- ( momentum/counter )
- endgroup
- enddef;
-
- def truefyepsmode =
- begingroup
- EPSmode := true;
- arestaref := arestaref/2;
- endgroup
- enddef;
-
- def makearestarefathree =
- begingroup
- if not EPSmode:
- Athreemode := true;
- arestaref := arestaref*1.414;
- fi;
- endgroup
- enddef;
-
- def terminar( expr ScaleFactor, RotAngle ) =
- begingroup
- picture inicial,final;
- inicial = currentpicture;
- currentpicture := nullpicture;
- final = inicial scaled ScaleFactor;
- if EPSmode:
- final := final scaled 2
- fi;
- final := final rotated RotAngle;
- if Athreemode:
- draw final shifted (PageCenter*1.414);
- arestaref := defaultaresta;
- Athreemode := false;
- else:
- draw final shifted PageCenter;
- if EPSmode:
- pickup grossa;
- draw thebigframe;
- inicial := currentpicture;
- currentpicture := nullpicture;
- final := inicial rotated -90;
- draw final
- fi;
- fi;
- endgroup
- enddef;
-
- def desvia( text zes ) =
- begingroup
- picture inicial,final;
- inicial = currentpicture;
- currentpicture := nullpicture;
- final = inicial shifted -centerof( zes );
- draw final
- endgroup
- enddef;
-
- def desvec( expr vect ) =
- begingroup
- picture inicial,final;
- inicial = currentpicture;
- currentpicture := nullpicture;
- final = inicial shifted -vect;
- draw final
- endgroup
- enddef;
-
% EOF