diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/lgc2/3-5-60.mp |
Initial commit
Diffstat (limited to 'info/examples/lgc2/3-5-60.mp')
-rw-r--r-- | info/examples/lgc2/3-5-60.mp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/info/examples/lgc2/3-5-60.mp b/info/examples/lgc2/3-5-60.mp new file mode 100644 index 0000000000..f5afe81f94 --- /dev/null +++ b/info/examples/lgc2/3-5-60.mp @@ -0,0 +1,30 @@ +% +% This example need a fairly current version of metaobj.mp! +% +% You may need to install the latest version from CTAN +% +% --- start of displayed preamble in the book --- +input metaobj +% --- end of displayed preamble in the book --- +defaultfont:="ptmr8r"; +warningcheck:=0; +beginfig(1) +numeric u; +u=1cm; +newEllipse.A(btex Ellipse etex); +newCircle.B(btex Circle etex); +scaleObj(B,2); +newBox.C(btex Box etex); +scaleObj(C,3); +newRBox.D(btex RBox etex); +A.c=origin; +B.c-A.c=(2u,0); +C.c-B.c=(0,3u); +D.c-C.c=(-u,u); +newContainer.ct(A,B,C,D) + "framed(true)", "framecolor(blue)", + "filled(true)","fillcolor((.8,.8,.8))", + "dx(1mm)", "dy(1mm)"; +drawObj(ct); +endfig; +end; |