% 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