summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-5-60.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/lgc2/3-5-60.mp')
-rw-r--r--info/examples/lgc2/3-5-60.mp30
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;