[Gzz-commits] libvob/lava/blob fillets.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/libvob
Module name:    libvob
Changes by:     Tuomas J. Lukka <address@hidden>        03/05/25 08:02:16

Modified files:
        lava/blob      : fillets.mp 

Log message:
        set of natural shapes

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/libvob/libvob/lava/blob/fillets.mp.diff?tr1=1.1&tr2=1.2&r1=text&r2=text

Patches:
Index: libvob/lava/blob/fillets.mp
diff -u libvob/lava/blob/fillets.mp:1.1 libvob/lava/blob/fillets.mp:1.2
--- libvob/lava/blob/fillets.mp:1.1     Sun May 25 07:57:19 2003
+++ libvob/lava/blob/fillets.mp Sun May 25 08:02:16 2003
@@ -53,9 +53,19 @@
 
 beginfig(1);
 
-diag(100, 300, 10);
+picture pict;
+pict = nullpicture;
+for d = 100, 150, 200, 250:
+    for h = 1, 5, 10, 20:
+       currentpicture := nullpicture;
+       diag(50, d, h);
+       addto pict also currentpicture shifted ((d-100)*10, 
+                                   h * 40);
+    endfor;
+endfor;
+currentpicture := pict;
 
-clip currentpicture to unitsquare scaled 2000 shifted (-250,-250);
+%clip currentpicture to unitsquare scaled 2000 shifted (-250,-250);
 
 endfig;