summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/beuron/Band.mp
blob: a782415795335cb86ee7d6626a13a71ff600e9c7 (plain)
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