summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/D-3-1.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/lgc2/D-3-1.mp')
-rw-r--r--info/examples/lgc2/D-3-1.mp18
1 files changed, 18 insertions, 0 deletions
diff --git a/info/examples/lgc2/D-3-1.mp b/info/examples/lgc2/D-3-1.mp
new file mode 100644
index 0000000000..4e4ee328ff
--- /dev/null
+++ b/info/examples/lgc2/D-3-1.mp
@@ -0,0 +1,18 @@
+% --- start of displayed preamble in the book ---
+
+% --- end of displayed preamble in the book ---
+
+defaultfont:="ptmr8r";
+warningcheck:=0;
+beginfig(1)
+pickup pencircle scaled 4pt
+ yscaled .2pt rotated 60;
+n:=4;
+for i := (n*20) step -(n) until (n):
+ c:=((n*20)-i)/(n*2);
+ draw (i,0)..(0,i)..(-i,0)
+ ..(0,-(i-n))..(i-n,0)
+ withcolor ((100-i)/100,i/100,0);
+endfor
+endfig;
+end;