diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-11 22:58:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-11 22:58:36 +0000 |
commit | ac3c55a3216b5988f0e48ba9414ddb059f19a699 (patch) | |
tree | a752ab12de05a9ac4511903abc09675172018fd6 /Master/texmf-dist/metapost/metaobj/pstricksex2.mp | |
parent | d087712418726a64822e40ce1c0627a514d17975 (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/pstricksex2.mp')
-rw-r--r-- | Master/texmf-dist/metapost/metaobj/pstricksex2.mp | 136 |
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 + + + |