/usr/share/texlive/texmf-dist/metapost/metaobj/pstricksex2.mp is in texlive-metapost 2013.20140215-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | 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
|