1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
% Band.mp
% Metapost-Graphik
% Muster aus der Deckenbemalung der Beuroner Gnadenkappelle
% Pattern from the ceiling painting of the Beuron Gnadenkapelle
% Autor: Keno Wehr
% 9. April 2016
outputtemplate := "%j.mps";
beginfig(1);
H = 8mm;
B = 21cm;
Q = 4mm;
N = floor((B-4mm)/1.5Q);
Rand = (B-N*1.5Q)/2;
fill (0,0)--(B,0)--(B,H)--(0,H)--cycle withcolor (0.15,0.2,0.35);
x1a = x1b = Rand;
y1a = y1f;
y1b = y1c = H-y1a;
y1b-y1a = Q;
x1c = x1d = x1b+Q;
y1d = y1e = 0.5[y1a,y1b];
x1e = x1f = 0.5[x1b,x1c];
for i=2 upto N+1:
forsuffixes $=a,b,c,d,e,f:
z[i]$ = z[i-1]$ shifted(1.5Q,0);
endfor
endfor
pickup pensquare scaled 1.5bp;
draw for i=1 upto N:
forsuffixes $=a,b,c,d,e,f:
z[i]$--
endfor
endfor
z[N+1]a--z[N+1]b withcolor (0.95,0.65,0.15);
endfig;
end
|