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;
|