Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |