summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/optest.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/optest.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/optest.mp51
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/optest.mp b/Master/texmf-dist/doc/metapost/featpost/example/optest.mp
new file mode 100644
index 00000000000..67a2099bf52
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/optest.mp
@@ -0,0 +1,51 @@
+% optest.mp
+% L. Nobre G.
+% 2000
+
+beginfig(1);
+% linecap := squared;
+ pickup pencircle scaled 0.1mm;
+ numeric salto, i, shif;
+ pair cen;
+ shif = 2cm;
+ cen = (10.5cm,14.845cm);
+ draw ((-shif,0)--(shif,0)) shifted cen;
+ draw ((0,-shif)--(0,shif)) shifted cen;
+ pickup pencircle scaled 0.05mm;
+ salto = 1mm;
+ for i = 20 upto 22:
+ draw fullcircle scaled (i*salto) shifted cen;
+ endfor;
+ for i = 27 upto 28:
+ draw unitsquare shifted (-0.5,-0.5)
+ scaled (i*salto)
+ rotated 45 shifted cen;
+ endfor;
+ for i = 29 upto 31:
+ draw fullcircle scaled (i*salto) shifted cen;
+ endfor;
+ for i = -10 step 2 until 10:
+ draw (origin--shif*(1-0.0125*abs(i))*dir(i)) shifted cen;
+ endfor;
+endfig;
+
+beginfig(2);
+ linecap := squared;
+ pickup pensquare scaled 0.15mm;
+ numeric salto, ix, iy;
+ path face;
+ picture descrit;
+ salto = 0.3in;
+ face = unitsquare xscaled 1.33 scaled 2;
+ fill face withcolor red;
+ draw face;
+ descrit = currentpicture;
+ currentpicture := nullpicture;
+ for iy = 1 upto 5:
+ for ix = 1 upto 5:
+ draw descrit shifted ( ix*salto, iy*salto );
+ endfor;
+ endfor;
+endfig;
+
+end;