summaryrefslogtreecommitdiff
path: root/graphics/MF-PS/mftoeps/m2esamp/sample1a.mf
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/MF-PS/mftoeps/m2esamp/sample1a.mf')
-rw-r--r--graphics/MF-PS/mftoeps/m2esamp/sample1a.mf24
1 files changed, 24 insertions, 0 deletions
diff --git a/graphics/MF-PS/mftoeps/m2esamp/sample1a.mf b/graphics/MF-PS/mftoeps/m2esamp/sample1a.mf
new file mode 100644
index 0000000000..cd34bd3307
--- /dev/null
+++ b/graphics/MF-PS/mftoeps/m2esamp/sample1a.mf
@@ -0,0 +1,24 @@
+%%%%
+%%%% This file belongs to the MFTOEPS package.
+%%%%
+% ---
+% SAMPLE1A.MF
+% ---
+input polygons; % the definition of the |regular_polygon| function
+input mftoeps;
+eps_mode_setup;
+beginchar(0,2cm#,2cm#,0);
+ path P[ ]; % ,,room'' for polygons
+ N:=25; % the number of polygons
+% preparing:
+ for i:=1 upto N:
+ P[i]:=regular_polygon(7)
+ scaled ((i/N)**2*w) rotated (i/N*360) shifted (.5w,.5h);
+ endfor;
+% exporting:
+ find_BB for i:=1 upto N-1: P[i], endfor P[N];
+ write_preamble jobname;
+ draw_C for i:=1 upto N-1: P[i], endfor P[N];
+ write_postamble;
+endchar;
+end.