summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/metaobj/pstricksex1.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-11 22:58:36 +0000
committerKarl Berry <karl@freefriends.org>2006-01-11 22:58:36 +0000
commitac3c55a3216b5988f0e48ba9414ddb059f19a699 (patch)
treea752ab12de05a9ac4511903abc09675172018fd6 /Master/texmf-dist/metapost/metaobj/pstricksex1.mp
parentd087712418726a64822e40ce1c0627a514d17975 (diff)
trunk/Master/texmf-dist/metapost
git-svn-id: svn://tug.org/texlive/trunk@104 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/metaobj/pstricksex1.mp')
-rw-r--r--Master/texmf-dist/metapost/metaobj/pstricksex1.mp311
1 files changed, 311 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metaobj/pstricksex1.mp b/Master/texmf-dist/metapost/metaobj/pstricksex1.mp
new file mode 100644
index 00000000000..ef733cf97cb
--- /dev/null
+++ b/Master/texmf-dist/metapost/metaobj/pstricksex1.mp
@@ -0,0 +1,311 @@
+% This file contains metaobj code for several figures of the pstricks manual,
+% regarding connections, matrices and trees.
+
+% D. Roegel, May 6-9, 2001
+
+verbatimtex
+%&latex
+\documentclass{article}
+\begin{document}
+etex
+
+def TCs=
+ new_Circle_("")("filled(true)")
+enddef;
+
+def Tdot(expr p)=
+ new_Circle_(p)("circmargin(-.2mm)")
+enddef;
+
+def Toplus=
+ Tdot(btex $+$ etex)
+enddef;
+
+input metaobj
+
+% page 26 of beta manual
+
+beginfig(1);
+ setObjectDefaultOption("Matrix")("hsep")(1cm);
+ setObjectDefaultOption("Matrix")("vsep")(1cm);
+ newBox.a(btex $U$ etex) "framed(false)";
+ newBox.b(btex $X\times_Z Y$ etex) "framed(false)";
+ newBox.c(btex $X$ etex) "framed(false)";
+ newBox.d(btex $Y$ etex) "framed(false)";
+ newBox.e(btex $Z$ etex) "framed(false)";
+ newMatrix.mat(3,3)(a,nb,nb,nb,b,c,nb,d,e);
+ mat.c=origin;
+
+ mcline.mat(1,1,2,2) "name(a)";
+ ObjLabel.mat(btex $y$ etex) "labpathname(a)","labdir(llft)";
+ mcline.mat(1,1,2,3) "doubleline(true)",
+ "arrows(draw)","linestyle(dashed evenly)", "name(b)";
+ ObjLabel.mat(btex $x$ etex) "labpathname(b)","labdir(urt)";
+ mcline.mat(2,2,2,3), "name(c)";
+ ObjLabel.mat(btex $p$ etex) "labpathname(c)","labdir(bot)";
+ mcline.mat(2,2,3,2), "name(d)";
+ ObjLabel.mat(btex $q$ etex) "labpathname(d)","labdir(lft)";
+ mcline.mat(3,2,3,3), "name(e)";
+ ObjLabel.mat(btex $g$ etex) "labpathname(e)","labdir(bot)";
+ mcline.mat(2,3,3,3), "name(f)";
+ ObjLabel.mat(btex $f$ etex) "labpathname(f)","labdir(rt)";
+
+ drawObj(mat);
+endfig;
+
+clearObj a,b,c,d,e,mat;
+
+% page 27 of beta manual
+
+beginfig(3);
+ newCircle.a(btex A etex);
+ newCircle.b(btex B etex);
+ newCircle.c(btex C etex);
+ newCircle.d(btex D etex);
+ newCircle.e(btex E etex);
+ verbatimtex \small etex;
+ newMatrix.mat(3,3)(nb,a,nb,b,e,c,nb,d,nb) "hsep(2cm)", "vsep(2cm)";
+ mcline.mat(2,2,2,3) "name(a)";
+ ObjLabel.mat(btex a etex) "labpathname(a)","labpos(0.75)", "labdir(top)";
+ mcline.mat(2,2,2,1) "name(b)";
+ ObjLabel.mat(btex b etex) "labpathname(b)","labdir(bot)";
+ mcline.mat(3,2,2,1) "name(c)";
+ ObjLabel.mat(btex c etex) "labpathname(c)","labdir(llft)";
+ mcarc.mat(3,2,1,2)
+ "arcangleA(-40)","arcangleB(-40)", "border(3pt)", "name(d)";%,
+ %"laberase(true)";
+ ObjLabel.mat(btex d etex) "labpathname(d)","labdir(lrt)", "labpos(0.3)";
+ ObjLabel.mat(btex e etex) "labpathname(d)","labdir(llft)", "labpos(0.7)";
+ mcarc.mat(1,2,2,1) "arcangleA(12)","arcangleB(12)", "name(f)";
+ ObjLabel.mat(btex f etex) "labpathname(f)","labdir(lrt)";
+ mcarc.mat(2,1,1,2) "arcangleA(12)","arcangleB(12)", "name(g)";
+ ObjLabel.mat(btex g etex) "labpathname(g)","labdir(ulft)";
+ mat.c=origin;
+ drawObj(mat);
+endfig;
+
+% page 28 of beta manual
+
+clearObj a,b,c,d,e,mat;
+
+beginfig(4);
+ newCircle.x(btex X etex);
+ newCircle.y(btex Y etex) "framed(false)";
+ newCircle.Z(btex Z etex) "framed(false)"; % |z| is reserved
+ newMatrix.mat(2,2)(nb,x,y,Z) "hsep(1cm)", "vsep(2cm)";
+ mcline.mat(1,2,2,1) "nodesepA(3pt)";
+ mcline.mat(1,2,2,2) "nodesepA(3pt)";
+ mcline.mat(2,1,2,2) "linestyle(dashed withdots)";
+ mat.c=origin;
+ drawObj(mat);
+endfig;
+
+clearObj x,y,Z,mat;
+
+% page 33 of beta manual
+
+beginfig(5);
+ setCurveDefaultOption("arrows")("draw"); % works
+ t=_T(new_Ellipse(btex root etex))(TCs,TCs,TCs,TCs);
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(55);
+setCurveDefaultOption("arrows")("draw");
+ u=T_(Tn)(TCs,
+ T_(Tc)(TCs,TCs)("hbsep(5mm)","hideleaves(true)"),
+ TCs)("hbsep(5mm)");
+
+ Obj(u).c=origin;
+ draw_Obj(u);
+endfig;
+
+
+% page 34 of beta manual
+
+beginfig(6);
+setCurveDefaultOption("arrows")("draw");
+ t:=_T(new_Circle(btex $X$ etex))
+ (new_Box_(btex $\tilde{\tilde{X}}$ etex)("framed(false)"),
+ new_Box_(btex $x$ etex)("framed(false)"),
+ new_Box_(btex $y$ etex)("framed(false)"));
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(66);
+setCurveDefaultOption("arrows")("draw");
+ % in the next example, we align the baselines, by adding \strut s:
+ t:=_T(new_Circle(btex $X$ etex))
+ (new_Box_(btex \strut $\smash{\tilde{\tilde{X}}}$ etex)("framed(false)"),
+ new_Box_(btex \strut $x$ etex)("framed(false)"),
+ new_Box_(btex \strut $y$ etex)("framed(false)"));
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+
+
+% page 35 of beta manual
+
+
+beginfig(7);
+setCurveDefaultOption("arrows")("draw");
+ setCurveDefaultOption("nodesepA")(3pt); % works
+ setCurveDefaultOption("nodesepB")(3pt); % works
+ setObjectDefaultOption("Tree")("hideleaves")(true); % works
+
+ t:=_T(TCs)
+ (_T(TCs)(TCs,Tn),
+ _T(TCs)(TCs,_T(TCs)(Tn,TCs))
+ );
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setCurveDefaultOption("nodesepA")(0); % works
+ setCurveDefaultOption("nodesepB")(0); % works
+endfig;
+
+% page 36 of beta manual
+
+beginfig(8);
+ setObjectDefaultOption("Tree")("hideleaves")(true);
+ t:=T_(new_Circle(btex foo etex))
+ (new_HFan_(1cm,0)("filled(true)"),
+ Tf,
+ _T(new_RBox(btex bar etex))(new_HFan(1cm,0))
+ )
+ ("Dalign(center)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setObjectDefaultOption("Tree")("hideleaves")(false);
+endfig;
+
+beginfig(88);
+ setObjectDefaultOption("Tree")("hideleaves")(true);
+ t:=_T(new_Circle(btex foo etex))
+ (_T(new_HFan_(1cm,0)("filled(true)","fillcolor(red)","fanlinearc(1mm)"
+ %,"pointedfan(false)"
+ ))
+ (TCs,new_HFan_(1cm,0)("fanlinestyle(dashed evenly)")));
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setObjectDefaultOption("Tree")("hideleaves")(false);
+endfig;
+
+% page 37 of beta manual
+
+beginfig(9);
+setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("hideleaves")(true); % works
+ setCurveDefaultOption("nodesepA")(3pt); % works
+ setCurveDefaultOption("nodesepB")(3pt); % works
+ setObjectDefaultOption("Tree")("Ualign")("center");
+ setObjectDefaultOption("Tree")("Lalign")("center");
+ setObjectDefaultOption("Tree")("hbsep")(5mm);
+ setObjectDefaultOption("Tree")("vbsep")(5mm);
+ setObjectDefaultOption("Tree")("hsep")(2cm);
+ setObjectDefaultOption("Tree")("vsep")(2cm);
+
+ t:=T_(Tc_(1.5mm))(T_(Tc_(1.5mm))(Toplus,Toplus)("treemode(L)"),Toplus,Toplus)("treemode(U)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setCurveDefaultOption("nodesepA")(0pt); % works
+ setCurveDefaultOption("nodesepB")(0pt); % works
+endfig;
+
+beginfig(10);
+setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("hsep")(1cm);
+ setObjectDefaultOption("Tree")("vsep")(1cm);
+ % we draw two trees which share a root node:
+ t:=T_(new_Circle(btex root etex))(Tr_(btex B etex))("treemode(L)");
+ Obj(t).c=origin;
+ u:=_T(obj(Obj(t).root))(Tr_(btex A1 etex),Tr_(btex A2 etex));
+ draw_Obj(t);
+ draw_Obj(u);
+endfig;
+
+% page 38 of beta manual
+
+beginfig(11);
+setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("Dalign")("center");
+ setObjectDefaultOption("Tree")("hbsep")(5mm);
+
+ t:=_T(Tc)(TCs,
+ T_(Tc)(new_Circle_("")("filled(true)","circmargin(15pt)"),TCs)
+ ("treenodehsize(1cm)"),
+ TCs);
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(110);
+ setCurveDefaultOption("arrows")("draw");
+ t:=_T(Tc)(Tr_(btex $j$ etex),Tr_(btex $K_4$ etex),Tr_(btex $x>y$ etex));
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(111);
+ setCurveDefaultOption("arrows")("draw");
+ t:=T_(Tc)(Tr_(btex $j$ etex),Tr_(btex $K_4$ etex),Tr_(btex $x>y$ etex))
+ ("treenodehsize(5mm)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+ setObjectDefaultOption("Tree")("Dalign")("top");
+ setObjectDefaultOption("Tree")("hideleaves")(false); % works
+
+% page 39 of beta manual
+
+beginfig(12);
+ setCurveDefaultOption("arrows")("draw");
+ t:=_T(TCs)(Tc,_T(TCs)(_T(Tc)(Tc,Tc,Tc),TCs,TCs,TCs));
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(120);
+ setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("hideleaves")(true);
+ t:=_T(TCs)(Tc,_T(TCs)(_T(Tc)(Tc,Tc,Tc),TCs,TCs,TCs));
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setObjectDefaultOption("Tree")("hideleaves")(false);
+endfig;
+
+beginfig(121);
+ setCurveDefaultOption("arrows")("draw");
+ t:=T_(TCs)(_T(TCs)(TCs,TCs),_T(TCs)(TCs,TCs))("vsep(.5cm)","hbsep(2cm)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+% page 40 of beta manual
+
+beginfig(13);
+ % We don't have a hook for a given level as PSTricks does,
+ % so we have to give the hsep option several times;
+ % however, we could avoid it by building the tree in a non-streamlined way.
+ % Also, the labels must be given in the opposite order.
+ setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("treemode")("R");
+ %setObjectDefaultOption("Tree")("treeflip")(true);
+ t:=_T(Tc)(
+ _T(TCs)(T_(TCs)(Tr_(btex $J_1$ etex),Tr_(btex $J_2$ etex))("hsep(3cm)"),
+ T_(TCs)(Tr_(btex $K_1$ etex),Tr_(btex $K_2$ etex))("hsep(3cm)")
+ ),
+ _T(TCs)(T_(TCs)(Tr_(btex $Y_1$ etex),Tr_(btex $Y_2$ etex))("hsep(3cm)"),
+ T_(TCs)(Tr_(btex $X_1$ etex),Tr_(btex $X_2$ etex))("hsep(3cm)")
+ )
+ );
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+
+end
+