blob: 67a2099bf5220792d3f817ca9c62a02bb724f690 (
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
|
% 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;
|