16 |
|
|
17 |
beginfig(1); |
beginfig(1); |
18 |
|
|
19 |
|
x0 = -5; |
20 |
|
x1 = 16; |
21 |
|
y0 = -5; |
22 |
|
y1 = 20; |
23 |
|
|
24 |
drawarrow ((0,0) -- (3,0)) transformed xytrans withpen xypen; |
drawarrow ((0,0) -- (3,0)) transformed xytrans withpen xypen; |
25 |
drawarrow ((0,0) -- (0,3)) transformed xytrans withpen xypen; |
drawarrow ((0,0) -- (0,3)) transformed xytrans withpen xypen; |
26 |
|
|
29 |
|
|
30 |
draw ((1,1)--(2,1)--(2,2)--(1,2)--cycle) transformed xytrans withpen pixelpen; |
draw ((1,1)--(2,1)--(2,2)--(1,2)--cycle) transformed xytrans withpen pixelpen; |
31 |
|
|
|
x0 = -5; |
|
|
x1 = 16; |
|
|
y0 = -5; |
|
|
y1 = 20; |
|
|
|
|
32 |
for x := x0 upto x1: |
for x := x0 upto x1: |
33 |
draw ((x, y0)--(x,y1)) transformed sttrans withpen stgridpen; |
draw ((x, y0)--(x,y1)) transformed sttrans withpen stgridpen; |
34 |
endfor; |
endfor; |
57 |
|
|
58 |
endfig; |
endfig; |
59 |
|
|
60 |
|
beginfig(2); |
61 |
|
|
62 |
|
|
63 |
|
numeric s,t; |
64 |
|
|
65 |
|
dif = 1.03; |
66 |
|
|
67 |
|
for s := -20 upto 20: |
68 |
|
for t := -20 upto 30: |
69 |
|
dist := abs(((s+.5,t+.5) transformed sttrans) transformed |
70 |
|
inverse(xytrans) - ((1.5,1.5))); |
71 |
|
col := mexp(-(5*dist*dist)*256); |
72 |
|
if col < 0.03: col := 0; fi |
73 |
|
fill (((s,t)--(s,t+dif)--(s+dif,t+dif)--(s+dif,t)--cycle) transformed |
74 |
|
sttrans) withcolor (col*white); |
75 |
|
endfor; |
76 |
|
endfor; |
77 |
|
|
78 |
|
draw ((1,1)--(2,1)--(2,2)--(1,2)--cycle) transformed xytrans withpen pixelpen; |
79 |
|
|
80 |
|
clip currentpicture to |
81 |
|
(((0,0)--(3,0)--(3,3)--(0,3)--cycle) transformed xytrans); |
82 |
|
|
83 |
|
endfig; |
84 |
|
|
85 |
end |
end |