From 33066250d10f280ee380a4eb2becfe03fcc3a6f8 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 7 Feb 2012 22:45:20 +0000 Subject: featpost (7feb12) git-svn-id: svn://tug.org/texlive/trunk@25331 c570f23f-e606-0410-a88d-b1316a301751 --- .../metapost/featpost/featpost3Dplus2D.mp | 113 +-------------------- 1 file changed, 1 insertion(+), 112 deletions(-) (limited to 'Master/texmf-dist/metapost') 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 -- cgit v1.2.3