/[gzz]/manuscripts/AniFont/footprint.mp
ViewVC logotype

Diff of /manuscripts/AniFont/footprint.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by tjl, Fri Oct 17 09:15:22 2003 UTC revision 1.2 by tjl, Fri Oct 17 17:57:40 2003 UTC
# Line 16  sttrans = identity rotated 10 xscaled 15 Line 16  sttrans = identity rotated 10 xscaled 15
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    
# Line 24  beginfig(1); Line 29  beginfig(1);
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;
# Line 57  beginfig(1); Line 57  beginfig(1);
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26