Author: Dipl. Inf. Univ. M. Nerlich

$\color{black}\stackrel{\rm %n~(\sf\approx\,77\,000\,)}{\rm\bf CMII}$

$\color{black}\stackrel{\rm %n~(\sf\approx\,41\,000\,)}{\rm\bf MLVI}$

$\color{black}\stackrel{\rm %n~(\sf\approx\,74\,000\,)}{\rm\bf MCXCIV}$

$\color{black}\stackrel{\rm %n~(\sf\approx\,46\,000\,)}{\rm\bf MCLXXX}$

dx: 5
pBam: 3
Bamberg: ((pBam * dx), 0)
bx: dx - 1
BamRU: (x(Bamberg) + bx, 0)
pCob: 0
Coburg: ((pCob * dx), 0)
CobRU: (x(Coburg) + bx, 0)
pBay: 2
pHof: 1
Bayreuth: ((pBay * dx), 0)
Hof: ((pHof * dx), 0)
BayRU: (x(Bayreuth) + bx, 0)
HofRU: (x(Hof) + bx, 0)

Tool: Rahmen
Input: A, a
Output: RS, TS, S1, S2, Sm, I, K, J, L, H, M, F, O, N, D

a: 6
B: (x(A) + a - 1, y(A))
C: (x(A) + a, y(A))
D: (x(C), y(C) + 1)
E: (x(C), y(C) + (0.5 * a))
F: (x(C), y(E) + 1)
G: (x(C), y(C) + a)
H: (x(B), y(G))
I: (x(A), y(G))
J: (x(A), y(F))
K: (x(A), y(E))
L: (x(A), y(D))
RS, a_1, c, g, i = Polygon(A, C, G, I)
TS = Segment(K, E)
S1 = Segment(J, F)
S2 = Segment(L, D)
Sm = Segment(B, H)
N = Intersect(Sm, S2)
M = Intersect(Sm, S1)
O = Intersect(Sm, TS)