[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gzz-commits] libvob/lava/blob fillets.mp
From: |
Tuomas J. Lukka |
Subject: |
[Gzz-commits] libvob/lava/blob fillets.mp |
Date: |
Sun, 25 May 2003 08:02:16 -0400 |
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;