summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/metaobj/pstricksex2.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/metaobj/pstricksex2.mp')
-rw-r--r--Master/texmf-dist/metapost/metaobj/pstricksex2.mp136
1 files changed, 136 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metaobj/pstricksex2.mp b/Master/texmf-dist/metapost/metaobj/pstricksex2.mp
new file mode 100644
index 00000000000..c1fb1ba0a4a
--- /dev/null
+++ b/Master/texmf-dist/metapost/metaobj/pstricksex2.mp
@@ -0,0 +1,136 @@
+input metaobj
+
+% page 41 of beta manual
+
+beginfig(15);
+ setObjectDefaultOption("Tree")("treemode")("R");
+ t:=T_(new_Circle_("")("circmargin(3mm)"))
+ (Tcircle_(btex L etex),Tcircle_(btex H etex),
+ Tcircle_(btex K etex),Tcircle_(btex N etex))("edge(ncdiag)", "angleB(0)",
+ "armA(0)","armB(1cm)","hsep(3.5cm)","posA(e)","arrows(draw)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+% page 42 of beta manual
+
+beginfig(16);
+ setObjectDefaultOption("Tree")("treemode")("R");
+ setObjectDefaultOption("Tree")("Ralign")("center");
+ t:=T_(new_Circle_("")("circmargin(1mm)","framewidth(1pt)"))
+ (Tr_(btex $x<y$ etex),Tr_(btex $z_2 < y\leq x$ etex),
+ Tr_(btex $z_1<y\leq z_2$ etex),Tr_(btex $z_1\leq y$ etex))
+ ("edge(ncdiag)", "nodesepA(2mm)","angleB(0)",
+ "armA(0)","armB(3cm)","hsep(3.5cm)","arrows(draw)","vbsep(5mm)",
+ "linewidth(1pt)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(17);
+ setObjectDefaultOption("Tree")("treemode")("U");
+ setObjectDefaultOption("Tree")("hbsep")(5mm);
+ setObjectDefaultOption("Tree")("hideleaves")(true); % works
+ setCurveDefaultOption("arrows")("draw");
+
+ t:=_T(Tc)(TCs,_T(Tc)(TCs,TCs),TCs);
+
+ % changes to the edges:
+ setTreeEdge(Obj(t))(1)(linestyle)("dashed evenly");
+ setTreeEdge(treepos(Obj(t))(2))(1)(linestyle)("dashed evenly");
+
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setObjectDefaultOption("Tree")("treemode")("D");
+ setObjectDefaultOption("Tree")("hideleaves")(false);
+endfig;
+
+% page 43 of beta manual
+
+beginfig(18);
+ setCurveDefaultOption("arrows")("draw");
+ setCurveDefaultOption("nodesepA")(2mm);
+ setCurveDefaultOption("nodesepB")(2mm);
+
+ t:=_T(Toval_(btex nature etex))
+ (_T(new_Circle_("")("circmargin(1mm)","name(top)"))(TCs,TCs),
+ _T(new_Circle_("")("circmargin(1mm)","name(bot)"))(TCs,TCs));
+ Obj(t).c=origin;
+
+ ncline.Obj(t)("top")("bot")
+ "nodesepA(0)","nodesepB(0)","linestyle(dashed evenly)";
+
+ draw_Obj(t);
+ setCurveDefaultOption("nodesepA")(0);
+ setCurveDefaultOption("nodesepB")(0);
+endfig;
+
+beginfig(19);
+ setCurveDefaultOption("arrows")("draw");
+ setObjectDefaultOption("Tree")("treemode")("R");
+ t:=T_(Toval_(btex root etex))
+ (Tr_(btex Z etex),Tr_(btex Y etex),Tr_(btex X etex))
+ ("edge(nccurve)","angleA(0)","angleB(0)","hsep(3.5cm)",
+ "posA(e)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+ setObjectDefaultOption("Tree")("treemode")("D");
+endfig;
+
+beginfig(20);
+ setCurveDefaultOption("arrows")("drawarrow");
+ t:=T_(new_Polygon_(btex root etex)(4)("name(top)"))
+ (new_Box_(btex x etex)("framed(false)","name(lx)"),
+ new_Box_(btex y etex)("framed(false)","name(ly)"),
+ new_Box_(btex z etex)("framed(false)","name(lz)"))
+ ("edge(none)","vsep(1.5cm)");
+ ncbar.Obj(t)("top")("lx") "angleA(180)","armA(1cm)";
+ ncline.Obj(t)("top")("ly");
+ ncbar.Obj(t)("top")("lz") "angleA(0)","armA(1cm)";
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(21);
+ setObjectDefaultOption("Tree")("treemode")("D");
+ setCurveDefaultOption("nodesepA")(2mm);
+ setCurveDefaultOption("nodesepB")(0);
+ setCurveDefaultOption("arrows")("rdrawarrow");
+
+ t:=T_(new_Polygon_(btex root etex,3)("angle(90)","polymargin(4mm)"))
+ (TCs,TCs,TCs,TCs)
+ ("edge(rncangle)","angleA(90)","angleB(90)","armB(1cm)","vsep(2.5cm)");
+ Obj(t).c=origin;
+ draw_Obj(t);
+endfig;
+
+beginfig(22);
+ newBox.a(btex Idea1 etex);
+ newBox.b(btex Idea2 etex);
+ b.c-a.c=(5cm,3cm);
+ a.c=origin;
+ ncbox(a)(b) "linearc(1mm)","linestyle(dashed evenly)",
+ "boxsize(1cm)","nodesepA(1cm)","nodesepB(1cm)";
+ drawObj(a,b);
+endfig;
+
+clearObj a,b;
+
+beginfig(23);
+ newBox.a(btex Idea1 etex);
+ newBox.b(btex Idea2 etex);
+ b.c-a.c=(5cm,3cm);
+ a.c=origin;
+ ncarcbox(a)(b) "doubleline(true)",
+ %"doublesep(5mm)",
+ "linestyle(dashed evenly)",
+ "boxsize(7mm)","nodesepA(1cm)","nodesepB(1cm)","arcangleA(-50)";
+ drawObj(a,b);
+endfig;
+
+
+
+end
+
+
+