diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/optest.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/optest.mp | 51 |
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; |