summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/allfigs.mp
blob: bd214e2323e64098e5c0d74a8deb50860ddf6ecf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
% allfigs.mp
% L. Nobre G. 
% 2001

verbatimtex 
\documentclass{article} 
\begin{document} 
etex

beginfig(0); 						
	numeric u, i, j, s, as, bs, cs, ds;
	pen pena, penb, penc, pend;
	u = 1.5mm;
	s = 7.1u;
	as = 2u;
	bs = 3u;
	cs = 5u;
	ds = 0.8u;
	pena = pencircle scaled as;
	penb = pencircle scaled bs;
	penc = pencircle scaled cs;
	pend = pencircle scaled ds;
	linecap := squared;
	for i=1 upto 4:
	    for j=1 upto 3:
		draw ((i-1)*s,(j-1)*s)--
		     ((i-1)*s,j*s)--
		     (i*s,j*s)--
		     (i*s,(j-1)*s)--cycle withcolor 0.7white;
	    endfor;
	endfor;
	z1 = (s,3s);
	z2 = (3s,3s);
	z3 = (4s,3s);
	z4 = (0,0);
	z5 = (1s,2s);
	z6 = (2s,2s);
	z7 = (3s,2s);
	z8 = (1s,1s);
	z9 = (2s,1s);
	linecap := rounded;
	pickup pena;
	draw z1;
	draw z2;
	pickup penb;
	draw z3;
	pickup penc;
	draw z4;
	pickup pend;
	for i=5 upto 9:
	    draw z[i];
	endfor;
	label.urt(btex 1 kg etex, z1);
	label.urt(btex 1 kg etex, z2);
	label.rt(btex 2 kg etex, z3+(bs/2,0));
	label.urt(btex 8 kg etex, z4+(0,cs/2));
	label.urt(btex A etex, z5);
	label.urt(btex B etex, z6);
	label.urt(btex C etex, z7);
	label.urt(btex D etex, z8);
	label.urt(btex E etex, z9);
endfig;

verbatimtex 
\end{document} 
etex

end;