/[libvob]/libvob/lava/blob/fillets.mp
ViewVC logotype

Diff of /libvob/lava/blob/fillets.mp

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

revision 1.1 by tjl, Sun May 25 11:57:19 2003 UTC revision 1.2 by tjl, Sun May 25 12:02:16 2003 UTC
# Line 53  enddef; Line 53  enddef;
53    
54  beginfig(1);  beginfig(1);
55    
56  diag(100, 300, 10);  picture pict;
57    pict = nullpicture;
58    for d = 100, 150, 200, 250:
59        for h = 1, 5, 10, 20:
60            currentpicture := nullpicture;
61            diag(50, d, h);
62            addto pict also currentpicture shifted ((d-100)*10,
63                                        h * 40);
64        endfor;
65    endfor;
66    currentpicture := pict;
67    
68  clip currentpicture to unitsquare scaled 2000 shifted (-250,-250);  %clip currentpicture to unitsquare scaled 2000 shifted (-250,-250);
69    
70  endfig;  endfig;
71    

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