Rahmenornamente

Zur Navigation springen Zur Suche springen

Gothic Extras T

Neue Definition mit wiederholten Pfadelementen, ohne Füllung kann besser abgeschätzt werden, ob die Elemente exakt aneinander gefügt sind.

\version "2.25.4"

\paper {
  indent = #0
  tagline = ##f
  left-margin = #0
  line-width = #210
  top-margin = #1
  print-page-number = ##f
}

% Maße x:
% 0 550 letzter Endpunkt x: 148 Differenz Endpunkt-Maximum: 402
% Maße y:
% 0 550 letzter Endpunkt y: 469 Differenz Endpunkt-Maximum: 81

#(define
  ecke
  '(
     ; (rmoveto 5.25 1.73 )
     (rlineto 0.25 -0.46)
     (rlineto 0 -0.39)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.26)
     (rlineto -5.5 0)
     (rlineto 0 5.5)
     (rlineto 0.26 0)
     (rlineto 0 -0.12)
     (rlineto 0.62 0)
     (rlineto 0 0.12)
     (rlineto 0.39 0)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto 0.39 0)
     (rlineto 0 -0.12)
     (rlineto 0.62 0)
     (rlineto 0 0.12)
     (rlineto 0.26 0)
     (rlineto 0 -1.22)
     (rlineto 1.22 0)
     (rlineto 0 -0.26)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.39)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -3.11 0.67)
     (rlineto -1.03 1.03)
     (rlineto 0 -2.06)
     (rlineto 1.03 1.03)
     (closepath)
     (rmoveto 0.26 -0.26)
     (rlineto -1.03 -1.03)
     (rlineto 2.06 0)
     (rlineto -1.03 1.03)
     (closepath)
     (rmoveto -0.22 2.34)
     (rlineto 0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto 1.31 -1.31)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 0.99 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -2.38 2.38)
     (rlineto -0.99 0.99)
     (rlineto 0 -1.98)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto 1.11 -2.75)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -1.94 1.73)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (closepath)
     (rmoveto 3.09 -2.58)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.96 4.06)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto -0.06 -4.4)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.62 3.72)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0.96 -0.58)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.7 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.62 0)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.06)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.58)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 1.04 -4.4)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.78 0)
     (rlineto -0.24 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (closepath)
     (rmoveto 1.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.18 1.77)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     (rmoveto 0.75 -1.17)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 0 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -1.47 1.89)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     (rmoveto -1.32 0)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     ))

#(define
  eckelo
  '(
     (rmoveto 5.25 -1.73 )
     (rlineto 0.25 0.46)
     (rlineto 0 0.39)
     (rlineto -0.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.12 -0)
     (rlineto 0 0.26)
     (rlineto -5.5 -0)
     (rlineto 0 -5.5)
     (rlineto 0.26 -0)
     (rlineto 0 0.12)
     (rlineto 0.62 -0)
     (rlineto 0 -0.12)
     (rlineto 0.39 -0)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto 0.39 -0)
     (rlineto 0 0.12)
     (rlineto 0.62 -0)
     (rlineto 0 -0.12)
     (rlineto 0.26 -0)
     (rlineto 0 1.22)
     (rlineto 1.22 -0)
     (rlineto 0 0.26)
     (rlineto -0.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.12 -0)
     (rlineto 0 0.39)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (closepath)
     (rmoveto -3.11 -0.67)
     (rlineto -1.03 -1.03)
     (rlineto 0 2.06)
     (rlineto 1.03 -1.03)
     (closepath)
     (rmoveto 0.26 0.26)
     (rlineto -1.03 1.03)
     (rlineto 2.06 -0)
     (rlineto -1.03 -1.03)
     (closepath)
     (rmoveto -0.22 -2.34)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto 1.31 1.31)
     (rlineto 0.99 0.99)
     (rlineto 0.99 -0.99)
     (rlineto -1.98 -0)
     (closepath)
     (rmoveto 0.99 1.07)
     (rlineto -0.99 0.99)
     (rlineto 1.98 -0)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto -2.38 -2.38)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.11 2.75)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 -0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (closepath)
     (rmoveto -1.94 -1.73)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 -0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (closepath)
     (rmoveto 3.09 2.58)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.96 -4.06)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto -0.06 4.4)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.68 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.62 -3.72)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0.96 0.58)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.68 3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 1.02 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.7 3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 2.04 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.02 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.62 -0)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (rlineto 0 0.24)
     (closepath)
     (rmoveto -3.14 3.06)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (rlineto 0 0.24)
     (closepath)
     (rmoveto 0 -0.58)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 1.04 4.4)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.78 -0)
     (rlineto -0.24 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (closepath)
     (rmoveto 1.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.18 -1.77)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0.75 1.17)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto 2.04 -0)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto 0 -1.32)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto -1.47 -1.89)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 -0)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     ))

#(define
  eckeru
  '(
     ;     (rmoveto -5.25 1.73 )
     (rlineto -0.25 -0.46)
     (rlineto -0 -0.39)
     (rlineto 0.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.12 0)
     (rlineto -0 -0.26)
     (rlineto 5.5 0)
     (rlineto -0 5.5)
     (rlineto -0.26 0)
     (rlineto -0 -0.12)
     (rlineto -0.62 0)
     (rlineto -0 0.12)
     (rlineto -0.39 0)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto -0.39 0)
     (rlineto -0 -0.12)
     (rlineto -0.62 0)
     (rlineto -0 0.12)
     (rlineto -0.26 0)
     (rlineto -0 -1.22)
     (rlineto -1.22 0)
     (rlineto -0 -0.26)
     (rlineto 0.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.12 0)
     (rlineto -0 -0.39)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (closepath)
     (rmoveto 3.11 0.67)
     (rlineto 1.03 1.03)
     (rlineto -0 -2.06)
     (rlineto -1.03 1.03)
     (closepath)
     (rmoveto -0.26 -0.26)
     (rlineto 1.03 -1.03)
     (rlineto -2.06 0)
     (rlineto 1.03 1.03)
     (closepath)
     (rmoveto 0.22 2.34)
     (rlineto -0.99 -0.99)
     (rlineto -0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto -1.31 -1.31)
     (rlineto -0.99 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 1.98 0)
     (closepath)
     (rmoveto -0.99 -1.07)
     (rlineto 0.99 -0.99)
     (rlineto -1.98 0)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto 2.38 2.38)
     (rlineto 0.99 0.99)
     (rlineto -0 -1.98)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -1.11 -2.75)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 -0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (closepath)
     (rmoveto 1.94 1.73)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 -0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (closepath)
     (rmoveto -3.09 -2.58)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.96 4.06)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto 0.06 -4.4)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.68 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.62 3.72)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0.96 -0.58)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.68 -3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0 3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.7 -3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -2.04 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0 3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.62 0)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (rlineto -0 -0.24)
     (closepath)
     (rmoveto 3.14 -3.06)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (rlineto -0 -0.24)
     (closepath)
     (rmoveto -0 0.58)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -1.04 -4.4)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.78 0)
     (rlineto 0.24 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (closepath)
     (rmoveto -1.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.18 1.77)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     (rmoveto -0.75 -1.17)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto -2.04 0)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto -0 1.32)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto 1.47 1.89)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     (rmoveto 1.32 0)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     ))

#(define
  eckero
  '(
     (rmoveto -5.25 -1.73 )
     (rlineto -0.25 0.46)
     (rlineto -0 0.39)
     (rlineto 0.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.12 -0)
     (rlineto -0 0.26)
     (rlineto 5.5 -0)
     (rlineto -0 -5.5)
     (rlineto -0.26 -0)
     (rlineto -0 0.12)
     (rlineto -0.62 -0)
     (rlineto -0 -0.12)
     (rlineto -0.39 -0)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto -0.39 -0)
     (rlineto -0 0.12)
     (rlineto -0.62 -0)
     (rlineto -0 -0.12)
     (rlineto -0.26 -0)
     (rlineto -0 1.22)
     (rlineto -1.22 -0)
     (rlineto -0 0.26)
     (rlineto 0.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.12 -0)
     (rlineto -0 0.39)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (closepath)
     (rmoveto 3.11 -0.67)
     (rlineto 1.03 -1.03)
     (rlineto -0 2.06)
     (rlineto -1.03 -1.03)
     (closepath)
     (rmoveto -0.26 0.26)
     (rlineto 1.03 1.03)
     (rlineto -2.06 -0)
     (rlineto 1.03 -1.03)
     (closepath)
     (rmoveto 0.22 -2.34)
     (rlineto -0.99 0.99)
     (rlineto -0 -1.98)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto -1.31 1.31)
     (rlineto -0.99 0.99)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 -0)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 0.99)
     (rlineto -1.98 -0)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 2.38 -2.38)
     (rlineto 0.99 -0.99)
     (rlineto -0 1.98)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto -1.11 2.75)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 -0)
     (rcurveto 0.03 -0.03 0.02 -0.05 -0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (closepath)
     (rmoveto 1.94 -1.73)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 -0)
     (rcurveto 0.03 -0.03 0.02 -0.05 -0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (closepath)
     (rmoveto -3.09 2.58)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.96 -4.06)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto 0.06 4.4)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.68 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.62 -3.72)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0.96 0.58)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.68 3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -1.02 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0 -3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.7 3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -2.04 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0 -3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.02 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.62 -0)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (rlineto -0 0.24)
     (closepath)
     (rmoveto 3.14 3.06)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (rlineto -0 0.24)
     (closepath)
     (rmoveto -0 -0.58)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -1.04 4.4)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.78 -0)
     (rlineto 0.24 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (closepath)
     (rmoveto -1.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.18 -1.77)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     (rmoveto -0.75 1.17)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto -2.04 -0)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto -0 -1.32)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto 1.47 -1.89)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -0)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     ))

% Maße x:
% 0 816 letzter Endpunkt x: 489 Differenz Endpunkt-Maximum: 327
% Maße y:
% 0 428 letzter Endpunkt y: 280 Differenz Endpunkt-Maximum: 148

#(define
  quer
  '(
     (rmoveto 7.91 1.73)
     (rlineto 0.25 -0.46)
     (rlineto 0 -0.39)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.26)
     (rlineto -8.16 0)
     (rlineto 0 0.26)
     (rlineto 0.12 0)
     (rlineto 0 0.62)
     (rlineto -0.12 0)
     (rlineto 0 0.39)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto 0 0.39)
     (rlineto 0.12 0)
     (rlineto 0 0.62)
     (rlineto -0.12 0)
     (rlineto 0 0.26)
     (rlineto 8.16 0)
     (rlineto 0 -0.26)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.39)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -7.88 1.44)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 5.07 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto -3.09 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -2.04 0)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto 4.08 0)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto -2.32 -1.44)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 1.49 -0.85)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.36 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.36 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -7.48 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.44 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.06 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.72 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.36 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.7 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.1 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -4.42 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -2.72 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.38 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.78 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -2.38 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.72 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 3.06 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.4 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.7 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -5.1 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.44 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -4.42 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.97 0.6)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -4.08 -1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -2.04 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 0 -1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 6.12 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -4.08 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     ))

#(define
  hoch
  '(
     (rmoveto 1.73 7.91)
     (rlineto -0.46 0.25)
     (rlineto -0.39 0)
     (rlineto 0 -0.12)
     (rlineto -0.62 0)
     (rlineto 0 0.12)
     (rlineto -0.26 0)
     (rlineto 0 -8.16)
     (rlineto 0.26 0)
     (rlineto 0 0.12)
     (rlineto 0.62 0)
     (rlineto 0 -0.12)
     (rlineto 0.39 0)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto 0.39 0)
     (rlineto 0 0.12)
     (rlineto 0.62 0)
     (rlineto 0 -0.12)
     (rlineto 0.26 0)
     (rlineto 0 8.16)
     (rlineto -0.26 0)
     (rlineto 0 -0.12)
     (rlineto -0.62 0)
     (rlineto 0 0.12)
     (rlineto -0.39 0)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 1.44 -7.88)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.07 5.07)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.07 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.07 -3.09)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 0 -2.04)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 0 4.08)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.07 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.44 -2.32)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto -0.85 1.49)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -7.48)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 5.44)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -3.06)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -1.7)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 5.1)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -4.42)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 2.38)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 5.78)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -2.38)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 3.06)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -3.4)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.7)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -5.1)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 5.44)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -4.42)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0.6 2.97)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 -4.08)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 0)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0 6.12)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -4.08)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0 2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     ))

#(define
  querbalken
  (append
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   ))

% {
#(define
  hochbalken
  (append
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   ))

#(define
  rahmen
  (append
   eckelo
   '((rmoveto -1.48 -8.95))
   hochbalken
   '((rmoveto 2.45 -8.66))
   ecke
   '((rmoveto 4.02 -4.69))
   querbalken
       '((rmoveto 3.52 -1.07))
       eckeru
       '((moveto 5.5 -4.28))
       querbalken
       '((rmoveto 8.77 1.48))
       eckero
       '((rmoveto -2.8 -8.97))
       hochbalken
   ))

gothic-t =
\markup \override #'(filled . #t) \path #0 #rahmen
\version "2.25.4"

\paper {
  indent = #0
  tagline = ##f
  left-margin = #0
  line-width = #210
  top-margin = #1
  print-page-number = ##f
}

% Maße x:
% 0 550 letzter Endpunkt x: 148 Differenz Endpunkt-Maximum: 402
% Maße y:
% 0 550 letzter Endpunkt y: 469 Differenz Endpunkt-Maximum: 81

#(define
  ecke
  '(
     ; (rmoveto 5.25 1.73 )
     (rlineto 0.25 -0.46)
     (rlineto 0 -0.39)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.26)
     (rlineto -5.5 0)
     (rlineto 0 5.5)
     (rlineto 0.26 0)
     (rlineto 0 -0.12)
     (rlineto 0.62 0)
     (rlineto 0 0.12)
     (rlineto 0.39 0)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto 0.39 0)
     (rlineto 0 -0.12)
     (rlineto 0.62 0)
     (rlineto 0 0.12)
     (rlineto 0.26 0)
     (rlineto 0 -1.22)
     (rlineto 1.22 0)
     (rlineto 0 -0.26)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.39)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -3.11 0.67)
     (rlineto -1.03 1.03)
     (rlineto 0 -2.06)
     (rlineto 1.03 1.03)
     (closepath)
     (rmoveto 0.26 -0.26)
     (rlineto -1.03 -1.03)
     (rlineto 2.06 0)
     (rlineto -1.03 1.03)
     (closepath)
     (rmoveto -0.22 2.34)
     (rlineto 0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto 1.31 -1.31)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 0.99 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -2.38 2.38)
     (rlineto -0.99 0.99)
     (rlineto 0 -1.98)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto 1.11 -2.75)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -1.94 1.73)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (closepath)
     (rmoveto 3.09 -2.58)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.96 4.06)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto -0.06 -4.4)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.62 3.72)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0.96 -0.58)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.7 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.62 0)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.06)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.58)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 0 0.34)
     (rlineto 0 -0.24)
     (rlineto 0.62 0)
     (rlineto 0 0.24)
     (rlineto -0.62 0)
     (closepath)
     (rmoveto 1.04 -4.4)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.78 0)
     (rlineto -0.24 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (closepath)
     (rmoveto 1.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.18 1.77)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     (rmoveto 0.75 -1.17)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 0 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -1.47 1.89)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     (rmoveto -1.32 0)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (closepath)
     ))

#(define
  eckelo
  '(
     (rmoveto 5.25 -1.73 )
     (rlineto 0.25 0.46)
     (rlineto 0 0.39)
     (rlineto -0.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.12 -0)
     (rlineto 0 0.26)
     (rlineto -5.5 -0)
     (rlineto 0 -5.5)
     (rlineto 0.26 -0)
     (rlineto 0 0.12)
     (rlineto 0.62 -0)
     (rlineto 0 -0.12)
     (rlineto 0.39 -0)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto 0.39 -0)
     (rlineto 0 0.12)
     (rlineto 0.62 -0)
     (rlineto 0 -0.12)
     (rlineto 0.26 -0)
     (rlineto 0 1.22)
     (rlineto 1.22 -0)
     (rlineto 0 0.26)
     (rlineto -0.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.12 -0)
     (rlineto 0 0.39)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (closepath)
     (rmoveto -3.11 -0.67)
     (rlineto -1.03 -1.03)
     (rlineto 0 2.06)
     (rlineto 1.03 -1.03)
     (closepath)
     (rmoveto 0.26 0.26)
     (rlineto -1.03 1.03)
     (rlineto 2.06 -0)
     (rlineto -1.03 -1.03)
     (closepath)
     (rmoveto -0.22 -2.34)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto 1.31 1.31)
     (rlineto 0.99 0.99)
     (rlineto 0.99 -0.99)
     (rlineto -1.98 -0)
     (closepath)
     (rmoveto 0.99 1.07)
     (rlineto -0.99 0.99)
     (rlineto 1.98 -0)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto -2.38 -2.38)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.11 2.75)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 -0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (closepath)
     (rmoveto -1.94 -1.73)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 -0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 -0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 -0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 -0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (closepath)
     (rmoveto 3.09 2.58)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.96 -4.06)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto -0.06 4.4)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.68 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.62 -3.72)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0.96 0.58)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.68 3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 1.02 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.7 3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 2.04 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.02 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.62 -0)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (rlineto 0 0.24)
     (closepath)
     (rmoveto -3.14 3.06)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (rlineto 0 0.24)
     (closepath)
     (rmoveto 0 -0.58)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto 0 0.24)
     (rlineto 0.62 -0)
     (rlineto 0 -0.24)
     (rlineto -0.62 -0)
     (closepath)
     (rmoveto 1.04 4.4)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -0.78 -0)
     (rlineto -0.24 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (closepath)
     (rmoveto 1.12 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto 0.34 -0)
     (rlineto 0 0.62)
     (rlineto 0.24 -0)
     (rlineto 0 -0.62)
     (rlineto -0.24 -0)
     (closepath)
     (rmoveto -1.18 -1.77)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0.75 1.17)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto 2.04 -0)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto 0 -1.32)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (closepath)
     (rmoveto -1.47 -1.89)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 -0)
     (rcurveto 0.12 -0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 -0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     ))

#(define
  eckeru
  '(
     ;     (rmoveto -5.25 1.73 )
     (rlineto -0.25 -0.46)
     (rlineto -0 -0.39)
     (rlineto 0.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.12 0)
     (rlineto -0 -0.26)
     (rlineto 5.5 0)
     (rlineto -0 5.5)
     (rlineto -0.26 0)
     (rlineto -0 -0.12)
     (rlineto -0.62 0)
     (rlineto -0 0.12)
     (rlineto -0.39 0)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto -0.39 0)
     (rlineto -0 -0.12)
     (rlineto -0.62 0)
     (rlineto -0 0.12)
     (rlineto -0.26 0)
     (rlineto -0 -1.22)
     (rlineto -1.22 0)
     (rlineto -0 -0.26)
     (rlineto 0.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.12 0)
     (rlineto -0 -0.39)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (closepath)
     (rmoveto 3.11 0.67)
     (rlineto 1.03 1.03)
     (rlineto -0 -2.06)
     (rlineto -1.03 1.03)
     (closepath)
     (rmoveto -0.26 -0.26)
     (rlineto 1.03 -1.03)
     (rlineto -2.06 0)
     (rlineto 1.03 1.03)
     (closepath)
     (rmoveto 0.22 2.34)
     (rlineto -0.99 -0.99)
     (rlineto -0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto -1.31 -1.31)
     (rlineto -0.99 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 1.98 0)
     (closepath)
     (rmoveto -0.99 -1.07)
     (rlineto 0.99 -0.99)
     (rlineto -1.98 0)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto 2.38 2.38)
     (rlineto 0.99 0.99)
     (rlineto -0 -1.98)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -1.11 -2.75)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 -0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (closepath)
     (rmoveto 1.94 1.73)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 -0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 -0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 -0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 -0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (closepath)
     (rmoveto -3.09 -2.58)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.96 4.06)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto 0.06 -4.4)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.68 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.62 3.72)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0.96 -0.58)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.68 -3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0 3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.7 -3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -2.04 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0 3.14)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.62 0)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (rlineto -0 -0.24)
     (closepath)
     (rmoveto 3.14 -3.06)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (rlineto -0 -0.24)
     (closepath)
     (rmoveto -0 0.58)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -0 0.34)
     (rlineto -0 -0.24)
     (rlineto -0.62 0)
     (rlineto -0 0.24)
     (rlineto 0.62 0)
     (closepath)
     (rmoveto -1.04 -4.4)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 0.78 0)
     (rlineto 0.24 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (closepath)
     (rmoveto -1.12 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto -0 -0.62)
     (rlineto -0.24 0)
     (rlineto -0 0.62)
     (rlineto 0.24 0)
     (closepath)
     (rmoveto 1.18 1.77)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     (rmoveto -0.75 -1.17)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto -2.04 0)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto -0 1.32)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (closepath)
     (rmoveto 1.47 1.89)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     (rmoveto 1.32 0)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto -0 -0.12 0.09 -0.21 0.21 -0.21)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto -0 0.12 -0.09 0.21 -0.21 0.21)
     (closepath)
     ))

#(define
  eckero
  '(
     (rmoveto -5.25 -1.73 )
     (rlineto -0.25 0.46)
     (rlineto -0 0.39)
     (rlineto 0.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.12 -0)
     (rlineto -0 0.26)
     (rlineto 5.5 -0)
     (rlineto -0 -5.5)
     (rlineto -0.26 -0)
     (rlineto -0 0.12)
     (rlineto -0.62 -0)
     (rlineto -0 -0.12)
     (rlineto -0.39 -0)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto -0.39 -0)
     (rlineto -0 0.12)
     (rlineto -0.62 -0)
     (rlineto -0 -0.12)
     (rlineto -0.26 -0)
     (rlineto -0 1.22)
     (rlineto -1.22 -0)
     (rlineto -0 0.26)
     (rlineto 0.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.12 -0)
     (rlineto -0 0.39)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (closepath)
     (rmoveto 3.11 -0.67)
     (rlineto 1.03 -1.03)
     (rlineto -0 2.06)
     (rlineto -1.03 -1.03)
     (closepath)
     (rmoveto -0.26 0.26)
     (rlineto 1.03 1.03)
     (rlineto -2.06 -0)
     (rlineto 1.03 -1.03)
     (closepath)
     (rmoveto 0.22 -2.34)
     (rlineto -0.99 0.99)
     (rlineto -0 -1.98)
     (rlineto 0.99 0.99)
     (closepath)
     (rmoveto -1.31 1.31)
     (rlineto -0.99 0.99)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 -0)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 0.99)
     (rlineto -1.98 -0)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 2.38 -2.38)
     (rlineto 0.99 -0.99)
     (rlineto -0 1.98)
     (rlineto -0.99 -0.99)
     (closepath)
     (rmoveto -1.11 2.75)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 -0)
     (rcurveto 0.03 -0.03 0.02 -0.05 -0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (closepath)
     (rmoveto 1.94 -1.73)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 -0)
     (rcurveto -0.03 0.03 -0.02 0.05 -0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 -0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 -0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 -0)
     (rcurveto 0.03 -0.03 0.02 -0.05 -0 -0.09)
     (rlineto -0.13 -0.2)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 -0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 -0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (closepath)
     (rmoveto -3.09 2.58)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.96 -4.06)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto 0.06 4.4)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.68 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.62 -3.72)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0.96 0.58)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.68 3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -1.02 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0 -3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.7 3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -2.04 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0 -3.14)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.02 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.62 -0)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (rlineto -0 0.24)
     (closepath)
     (rmoveto 3.14 3.06)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (rlineto -0 0.24)
     (closepath)
     (rmoveto -0 -0.58)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -0 -0.34)
     (rlineto -0 0.24)
     (rlineto -0.62 -0)
     (rlineto -0 -0.24)
     (rlineto 0.62 -0)
     (closepath)
     (rmoveto -1.04 4.4)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 0.78 -0)
     (rlineto 0.24 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (closepath)
     (rmoveto -1.12 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto -0.34 -0)
     (rlineto -0 0.62)
     (rlineto -0.24 -0)
     (rlineto -0 -0.62)
     (rlineto 0.24 -0)
     (closepath)
     (rmoveto 1.18 -1.77)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     (rmoveto -0.75 1.17)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto -2.04 -0)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto -0 -1.32)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (closepath)
     (rmoveto 1.47 -1.89)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -0)
     (rcurveto -0.12 -0 -0.21 0.09 -0.21 0.21)
     (rcurveto -0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 -0 0.21 -0.09 0.21 -0.21)
     (rcurveto -0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (closepath)
     ))

% Maße x:
% 0 816 letzter Endpunkt x: 489 Differenz Endpunkt-Maximum: 327
% Maße y:
% 0 428 letzter Endpunkt y: 280 Differenz Endpunkt-Maximum: 148

#(define
  quer
  '(
     (rmoveto 7.91 1.73)
     (rlineto 0.25 -0.46)
     (rlineto 0 -0.39)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.26)
     (rlineto -8.16 0)
     (rlineto 0 0.26)
     (rlineto 0.12 0)
     (rlineto 0 0.62)
     (rlineto -0.12 0)
     (rlineto 0 0.39)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto 0 0.39)
     (rlineto 0.12 0)
     (rlineto 0 0.62)
     (rlineto -0.12 0)
     (rlineto 0 0.26)
     (rlineto 8.16 0)
     (rlineto 0 -0.26)
     (rlineto -0.12 0)
     (rlineto 0 -0.62)
     (rlineto 0.12 0)
     (rlineto 0 -0.39)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto -7.88 1.44)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto 5.07 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto -3.09 -1.07)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -2.04 0)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto 4.08 0)
     (rlineto -0.99 -0.99)
     (rlineto 1.98 0)
     (rlineto -0.99 0.99)
     (closepath)
     (rmoveto -0.99 1.07)
     (rlineto 0.99 -0.99)
     (rlineto 0.99 0.99)
     (rlineto -1.98 0)
     (closepath)
     (rmoveto -2.32 -1.44)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 2.04 0)
     (rlineto 0.25 -0.46)
     (rlineto 0.25 0.46)
     (rlineto -0.13 0.2)
     (rcurveto -0.02 0.04 -0.03 0.06 0 0.09)
     (rcurveto 0.03 0.03 0.05 0.02 0.09 0)
     (rlineto 0.2 -0.13)
     (rlineto 0.46 0.25)
     (rlineto -0.46 0.25)
     (rlineto -0.2 -0.13)
     (rcurveto -0.04 -0.02 -0.06 -0.03 -0.09 0)
     (rcurveto -0.03 0.03 -0.02 0.05 0 0.09)
     (rlineto 0.13 0.2)
     (rlineto -0.25 0.46)
     (rlineto -0.25 -0.46)
     (rlineto 0.13 -0.2)
     (rcurveto 0.02 -0.04 0.03 -0.06 0 -0.09)
     (rcurveto -0.03 -0.03 -0.05 -0.02 -0.09 0)
     (rlineto -0.2 0.13)
     (rlineto -0.46 -0.25)
     (rlineto 0.46 -0.25)
     (rlineto 0.2 0.13)
     (rcurveto 0.04 0.02 0.06 0.03 0.09 0)
     (rcurveto 0.03 -0.03 0.02 -0.05 0 -0.09)
     (rlineto -0.13 -0.2)
     (closepath)
     (rmoveto 1.49 -0.85)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.36 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.36 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -7.48 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.44 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.06 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.72 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.36 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.7 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.1 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -4.42 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -2.72 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.38 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.78 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -2.38 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.72 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.34 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 3.06 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -3.4 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 3.74 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.7 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -5.1 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 5.44 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -1.02 3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 0.68 -3.14)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto -4.42 0)
     (rlineto 0 -0.62)
     (rlineto 0.24 0)
     (rlineto 0 0.62)
     (rlineto -0.24 0)
     (closepath)
     (rmoveto 2.97 0.6)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -4.08 -1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -2.04 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 0 -1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 6.12 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto -4.08 1.32)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     (rmoveto 2.04 0)
     (rcurveto 0 0.12 0.09 0.21 0.21 0.21)
     (rcurveto 0.12 0 0.21 -0.09 0.21 -0.21)
     (rcurveto 0 -0.12 -0.09 -0.21 -0.21 -0.21)
     (rcurveto -0.12 0 -0.21 0.09 -0.21 0.21)
     (closepath)
     ))

#(define
  hoch
  '(
     (rmoveto 1.73 7.91)
     (rlineto -0.46 0.25)
     (rlineto -0.39 0)
     (rlineto 0 -0.12)
     (rlineto -0.62 0)
     (rlineto 0 0.12)
     (rlineto -0.26 0)
     (rlineto 0 -8.16)
     (rlineto 0.26 0)
     (rlineto 0 0.12)
     (rlineto 0.62 0)
     (rlineto 0 -0.12)
     (rlineto 0.39 0)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto 0.39 0)
     (rlineto 0 0.12)
     (rlineto 0.62 0)
     (rlineto 0 -0.12)
     (rlineto 0.26 0)
     (rlineto 0 8.16)
     (rlineto -0.26 0)
     (rlineto 0 -0.12)
     (rlineto -0.62 0)
     (rlineto 0 0.12)
     (rlineto -0.39 0)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 1.44 -7.88)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.07 5.07)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.07 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.07 -3.09)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 0 -2.04)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 0 4.08)
     (rlineto -0.99 -0.99)
     (rlineto 0 1.98)
     (rlineto 0.99 -0.99)
     (closepath)
     (rmoveto 1.07 -0.99)
     (rlineto -0.99 0.99)
     (rlineto 0.99 0.99)
     (rlineto 0 -1.98)
     (closepath)
     (rmoveto -1.44 -2.32)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto 0 2.04)
     (rlineto -0.46 0.25)
     (rlineto 0.46 0.25)
     (rlineto 0.2 -0.13)
     (rcurveto 0.04 -0.02 0.06 -0.03 0.09 0)
     (rcurveto 0.03 0.03 0.02 0.05 0 0.09)
     (rlineto -0.13 0.2)
     (rlineto 0.25 0.46)
     (rlineto 0.25 -0.46)
     (rlineto -0.13 -0.2)
     (rcurveto -0.02 -0.04 -0.03 -0.06 0 -0.09)
     (rcurveto 0.03 -0.03 0.05 -0.02 0.09 0)
     (rlineto 0.2 0.13)
     (rlineto 0.46 -0.25)
     (rlineto -0.46 -0.25)
     (rlineto -0.2 0.13)
     (rcurveto -0.04 0.02 -0.06 0.03 -0.09 0)
     (rcurveto -0.03 -0.03 -0.02 -0.05 0 -0.09)
     (rlineto 0.13 -0.2)
     (rlineto -0.25 -0.46)
     (rlineto -0.25 0.46)
     (rlineto 0.13 0.2)
     (rcurveto 0.02 0.04 0.03 0.06 0 0.09)
     (rcurveto -0.03 0.03 -0.05 0.02 -0.09 0)
     (rlineto -0.2 -0.13)
     (closepath)
     (rmoveto -0.85 1.49)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -7.48)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 5.44)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -3.06)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.36)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -1.7)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 5.1)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -4.42)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 2.38)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 5.78)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -2.38)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 2.72)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.34)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 0)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 3.06)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -3.4)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 3.74)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 1.7)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -5.1)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 -0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 5.44)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 3.14 -1.02)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto -3.14 0.68)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0 -4.42)
     (rlineto -0.62 0)
     (rlineto 0 0.24)
     (rlineto 0.62 0)
     (rlineto 0 -0.24)
     (closepath)
     (rmoveto 0.6 2.97)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 -4.08)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto -1.32 0)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0 6.12)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 1.32 -4.08)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     (rmoveto 0 2.04)
     (rcurveto 0.12 0 0.21 0.09 0.21 0.21)
     (rcurveto 0 0.12 -0.09 0.21 -0.21 0.21)
     (rcurveto -0.12 0 -0.21 -0.09 -0.21 -0.21)
     (rcurveto 0 -0.12 0.09 -0.21 0.21 -0.21)
     (closepath)
     ))

#(define
  querbalken
  (append
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   '((rmoveto 3.27 -2.8))
   quer
   ))

% {
#(define
  hochbalken
  (append
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   '((rmoveto -2.8 -13.05))
   hoch
   ))

#(define
  rahmen
  (append
   eckelo
   '((rmoveto -1.48 -8.95))
   hochbalken
   '((rmoveto 2.45 -8.66))
   ecke
   '((rmoveto 4.02 -4.69))
   querbalken
       '((rmoveto 3.52 -1.07))
       eckeru
       '((moveto 5.5 -4.28))
       querbalken
       '((rmoveto 8.77 1.48))
       eckero
       '((rmoveto -2.8 -8.97))
       hochbalken
   ))

gothic-t =
\markup \override #'(filled . #t) \path #0 #rahmen

Gothic Extras W

\version "2.25.4"

\paper {
  indent = #0
  tagline = ##f
  left-margin = #0
  line-width = #210
  top-margin = #1
  print-page-number = ##f
}

#(define
  ecke
  '(
     (moveto 51 51)
     (lineto 51 618 )
     (lineto 158 618 )
     (lineto 214 562 )
     (lineto 270 618 )
     (lineto 377 618 )
     (lineto 377 377 )
     (lineto 618 377 )
     (lineto 618 270 )
     (lineto 562 214 )
     (lineto 618 158 )
     (lineto 618 51 )
     (lineto 51 51 )
     (closepath )
     (moveto 0 0 )
     (lineto 0 618 )
     (lineto 23 618 )
     (lineto 23 23 )
     (lineto 618 23 )
     (lineto 618 0 )
     (lineto 0 0 )
     (closepath )
     (moveto 316 214 )
     (lineto 416 114 )
     (lineto 516 214 )
     (lineto 416 314 )
     (lineto 316 214 )
     (closepath )
     (moveto 214 316 )
     (lineto 314 416 )
     (lineto 214 516 )
     (lineto 114 416 )
     (lineto 214 316 )
     (closepath )
     (moveto 237 293 )
     (lineto 293 237 )
     (lineto 393 337 )
     (lineto 386 344 )
     (lineto 344 344 )
     (lineto 344 386 )
     (lineto 337 393 )
     (lineto 237 293 )
     (closepath )
     (moveto 405 405 )
     (lineto 405 618 )
     (lineto 428 618 )
     (lineto 428 428 )
     (lineto 618 428 )
     (lineto 618 405 )
     (lineto 405 405 )
     (closepath )
     (moveto 344 544 )
     (lineto 293 595 )
     (lineto 237 539 )
     (lineto 337 439 )
     (lineto 344 446 )
     (lineto 344 544 )
     (closepath )
     (moveto 595 293 )
     (lineto 544 344 )
     (lineto 446 344 )
     (lineto 439 337 )
     (lineto 539 237 )
     (lineto 595 293 )
     (closepath )
     (moveto 135 595 )
     (lineto 84 544 )
     (lineto 84 446 )
     (lineto 91 439 )
     (lineto 191 539 )
     (lineto 135 595 )
     (closepath )
     (moveto 237 135 )
     (lineto 288 84 )
     (lineto 386 84 )
     (lineto 393 91 )
     (lineto 293 191 )
     (lineto 237 135 )
     (closepath )
     (moveto 135 237 )
     (lineto 191 293 )
     (lineto 91 393 )
     (lineto 84 386 )
     (lineto 84 288 )
     (lineto 135 237 )
     (closepath )
     (moveto 544 84 )
     (lineto 595 135 )
     (lineto 539 191 )
     (lineto 439 91 )
     (lineto 446 84 )
     (lineto 544 84 )
     (closepath )
     (moveto 158 214 )
     (lineto 214 158 )
     (lineto 270 214 )
     (lineto 214 270 )
     (lineto 158 214 )
     (closepath )
     (moveto 214 378 )
     (curveto 192 378 175 394 175 416 )
     (curveto 175 438 192 455 214 455 )
     (curveto 236 455 252 438 252 416 )
     (curveto 252 394 236 378 214 378 )
     (closepath )
     (moveto 378 214 )
     (curveto 378 236 394 253 416 253 )
     (curveto 438 253 455 236 455 214 )
     (curveto 455 192 438 176 416 176 )
     (curveto 394 176 378 192 378 214 )
     (closepath )
     ))

#(define
  quer
  '(
     (moveto 808 51 )
     (lineto 0 51 )
     (lineto 0 158 )
     (lineto 56 214 )
     (lineto 0 270 )
     (lineto 0 377 )
     (lineto 808 377 )
     (lineto 808 270 )
     (lineto 752 214 )
     (lineto 808 158 )
     (lineto 808 51 )
     (closepath )
     (moveto 102 214 )
     (lineto 202 114 )
     (lineto 302 214 )
     (lineto 202 314 )
     (lineto 102 214 )
     (closepath )
     (moveto 506 214 )
     (lineto 606 114 )
     (lineto 706 214 )
     (lineto 606 314 )
     (lineto 506 214 )
     (closepath )
     (moveto 0 0 )
     (lineto 0 23 )
     (lineto 808 23 )
     (lineto 808 0 )
     (lineto 0 0 )
     (closepath )
     (moveto 0 405 )
     (lineto 0 428 )
     (lineto 808 428 )
     (lineto 808 405 )
     (lineto 0 405 )
     (closepath )
     (moveto 734 84 )
     (lineto 785 135 )
     (lineto 729 191 )
     (lineto 629 91 )
     (lineto 636 84 )
     (lineto 734 84 )
     (closepath )
     (moveto 427 293 )
     (lineto 483 237 )
     (lineto 583 337 )
     (lineto 576 344 )
     (lineto 478 344 )
     (lineto 427 293 )
     (closepath )
     (moveto 23 135 )
     (lineto 74 84 )
     (lineto 172 84 )
     (lineto 179 91 )
     (lineto 79 191 )
     (lineto 23 135 )
     (closepath )
     (moveto 330 84 )
     (lineto 381 135 )
     (lineto 325 191 )
     (lineto 225 91 )
     (lineto 232 84 )
     (lineto 330 84 )
     (closepath )
     (moveto 381 293 )
     (lineto 330 344 )
     (lineto 232 344 )
     (lineto 225 337 )
     (lineto 325 237 )
     (lineto 381 293 )
     (closepath )
     (moveto 427 135 )
     (lineto 478 84 )
     (lineto 576 84 )
     (lineto 583 91 )
     (lineto 483 191 )
     (lineto 427 135 )
     (closepath )
     (moveto 23 293 )
     (lineto 79 237 )
     (lineto 179 337 )
     (lineto 172 344 )
     (lineto 74 344 )
     (lineto 23 293 )
     (closepath )
     (moveto 785 293 )
     (lineto 734 344 )
     (lineto 636 344 )
     (lineto 629 337 )
     (lineto 729 237 )
     (lineto 785 293 )
     (closepath )
     (moveto 404 158 )
     (lineto 460 214 )
     (lineto 404 270 )
     (lineto 348 214 )
     (lineto 404 158 )
     (closepath )
     (moveto 164 214 )
     (curveto 164 236 180 253 202 253 )
     (curveto 224 253 241 236 241 214 )
     (curveto 241 192 224 176 202 176 )
     (curveto 180 176 164 192 164 214 )
     (closepath )
     (moveto 568 214 )
     (curveto 568 236 584 253 606 253 )
     (curveto 628 253 645 236 645 214 )
     (curveto 645 192 628 176 606 176 )
     (curveto 584 176 568 192 568 214 )
     (closepath )
     ))

linkso =
\markup \scale #'(.01 . -.01) \override #'(filled . #t)
\path #0 #ecke

linksu =
\markup \scale #'(.01 . .01) \override #'(filled . #t)
\path #0 #ecke

rechtsu =
\markup \scale #'(-.01 . .01) \override #'(filled . #t)
\path #0 #ecke

rechtso =
\markup \scale #'(-.01 . -.01) \override #'(filled . #t)
\path #0 #ecke

mitte =
\markup \scale #'(.01 . -.01) \override #'(filled . #t)
\path #0 #quer

myhalfx = \markup
\combine
\combine
\combine
\concat {
  \linkso \mitte \mitte \mitte \mitte \mitte
  \mitte \mitte \mitte \mitte \mitte \mitte \mitte \rechtso
}
\translate #'(-22.1 . -28.3)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }
\translate #'(-22.1 . -76.7)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }
\translate #'(-22.1 . -125.1)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }

yyy=
\markup \fill-line { \myhalfx }

\bookpart {
  \markup
  \fill-line {
    \center-column
    {
      \scale #'(1.05 . 1.05)
      \combine \myhalfx
      \translate #'(0 . -5.5) \rotate #180 \myhalfx

    }
  }
}
\version "2.25.4"

\paper {
  indent = #0
  tagline = ##f
  left-margin = #0
  line-width = #210
  top-margin = #1
  print-page-number = ##f
}

#(define
  ecke
  '(
     (moveto 51 51)
     (lineto 51 618 )
     (lineto 158 618 )
     (lineto 214 562 )
     (lineto 270 618 )
     (lineto 377 618 )
     (lineto 377 377 )
     (lineto 618 377 )
     (lineto 618 270 )
     (lineto 562 214 )
     (lineto 618 158 )
     (lineto 618 51 )
     (lineto 51 51 )
     (closepath )
     (moveto 0 0 )
     (lineto 0 618 )
     (lineto 23 618 )
     (lineto 23 23 )
     (lineto 618 23 )
     (lineto 618 0 )
     (lineto 0 0 )
     (closepath )
     (moveto 316 214 )
     (lineto 416 114 )
     (lineto 516 214 )
     (lineto 416 314 )
     (lineto 316 214 )
     (closepath )
     (moveto 214 316 )
     (lineto 314 416 )
     (lineto 214 516 )
     (lineto 114 416 )
     (lineto 214 316 )
     (closepath )
     (moveto 237 293 )
     (lineto 293 237 )
     (lineto 393 337 )
     (lineto 386 344 )
     (lineto 344 344 )
     (lineto 344 386 )
     (lineto 337 393 )
     (lineto 237 293 )
     (closepath )
     (moveto 405 405 )
     (lineto 405 618 )
     (lineto 428 618 )
     (lineto 428 428 )
     (lineto 618 428 )
     (lineto 618 405 )
     (lineto 405 405 )
     (closepath )
     (moveto 344 544 )
     (lineto 293 595 )
     (lineto 237 539 )
     (lineto 337 439 )
     (lineto 344 446 )
     (lineto 344 544 )
     (closepath )
     (moveto 595 293 )
     (lineto 544 344 )
     (lineto 446 344 )
     (lineto 439 337 )
     (lineto 539 237 )
     (lineto 595 293 )
     (closepath )
     (moveto 135 595 )
     (lineto 84 544 )
     (lineto 84 446 )
     (lineto 91 439 )
     (lineto 191 539 )
     (lineto 135 595 )
     (closepath )
     (moveto 237 135 )
     (lineto 288 84 )
     (lineto 386 84 )
     (lineto 393 91 )
     (lineto 293 191 )
     (lineto 237 135 )
     (closepath )
     (moveto 135 237 )
     (lineto 191 293 )
     (lineto 91 393 )
     (lineto 84 386 )
     (lineto 84 288 )
     (lineto 135 237 )
     (closepath )
     (moveto 544 84 )
     (lineto 595 135 )
     (lineto 539 191 )
     (lineto 439 91 )
     (lineto 446 84 )
     (lineto 544 84 )
     (closepath )
     (moveto 158 214 )
     (lineto 214 158 )
     (lineto 270 214 )
     (lineto 214 270 )
     (lineto 158 214 )
     (closepath )
     (moveto 214 378 )
     (curveto 192 378 175 394 175 416 )
     (curveto 175 438 192 455 214 455 )
     (curveto 236 455 252 438 252 416 )
     (curveto 252 394 236 378 214 378 )
     (closepath )
     (moveto 378 214 )
     (curveto 378 236 394 253 416 253 )
     (curveto 438 253 455 236 455 214 )
     (curveto 455 192 438 176 416 176 )
     (curveto 394 176 378 192 378 214 )
     (closepath )
     ))

#(define
  quer
  '(
     (moveto 808 51 )
     (lineto 0 51 )
     (lineto 0 158 )
     (lineto 56 214 )
     (lineto 0 270 )
     (lineto 0 377 )
     (lineto 808 377 )
     (lineto 808 270 )
     (lineto 752 214 )
     (lineto 808 158 )
     (lineto 808 51 )
     (closepath )
     (moveto 102 214 )
     (lineto 202 114 )
     (lineto 302 214 )
     (lineto 202 314 )
     (lineto 102 214 )
     (closepath )
     (moveto 506 214 )
     (lineto 606 114 )
     (lineto 706 214 )
     (lineto 606 314 )
     (lineto 506 214 )
     (closepath )
     (moveto 0 0 )
     (lineto 0 23 )
     (lineto 808 23 )
     (lineto 808 0 )
     (lineto 0 0 )
     (closepath )
     (moveto 0 405 )
     (lineto 0 428 )
     (lineto 808 428 )
     (lineto 808 405 )
     (lineto 0 405 )
     (closepath )
     (moveto 734 84 )
     (lineto 785 135 )
     (lineto 729 191 )
     (lineto 629 91 )
     (lineto 636 84 )
     (lineto 734 84 )
     (closepath )
     (moveto 427 293 )
     (lineto 483 237 )
     (lineto 583 337 )
     (lineto 576 344 )
     (lineto 478 344 )
     (lineto 427 293 )
     (closepath )
     (moveto 23 135 )
     (lineto 74 84 )
     (lineto 172 84 )
     (lineto 179 91 )
     (lineto 79 191 )
     (lineto 23 135 )
     (closepath )
     (moveto 330 84 )
     (lineto 381 135 )
     (lineto 325 191 )
     (lineto 225 91 )
     (lineto 232 84 )
     (lineto 330 84 )
     (closepath )
     (moveto 381 293 )
     (lineto 330 344 )
     (lineto 232 344 )
     (lineto 225 337 )
     (lineto 325 237 )
     (lineto 381 293 )
     (closepath )
     (moveto 427 135 )
     (lineto 478 84 )
     (lineto 576 84 )
     (lineto 583 91 )
     (lineto 483 191 )
     (lineto 427 135 )
     (closepath )
     (moveto 23 293 )
     (lineto 79 237 )
     (lineto 179 337 )
     (lineto 172 344 )
     (lineto 74 344 )
     (lineto 23 293 )
     (closepath )
     (moveto 785 293 )
     (lineto 734 344 )
     (lineto 636 344 )
     (lineto 629 337 )
     (lineto 729 237 )
     (lineto 785 293 )
     (closepath )
     (moveto 404 158 )
     (lineto 460 214 )
     (lineto 404 270 )
     (lineto 348 214 )
     (lineto 404 158 )
     (closepath )
     (moveto 164 214 )
     (curveto 164 236 180 253 202 253 )
     (curveto 224 253 241 236 241 214 )
     (curveto 241 192 224 176 202 176 )
     (curveto 180 176 164 192 164 214 )
     (closepath )
     (moveto 568 214 )
     (curveto 568 236 584 253 606 253 )
     (curveto 628 253 645 236 645 214 )
     (curveto 645 192 628 176 606 176 )
     (curveto 584 176 568 192 568 214 )
     (closepath )
     ))

linkso =
\markup \scale #'(.01 . -.01) \override #'(filled . #t)
\path #0 #ecke

linksu =
\markup \scale #'(.01 . .01) \override #'(filled . #t)
\path #0 #ecke

rechtsu =
\markup \scale #'(-.01 . .01) \override #'(filled . #t)
\path #0 #ecke

rechtso =
\markup \scale #'(-.01 . -.01) \override #'(filled . #t)
\path #0 #ecke

mitte =
\markup \scale #'(.01 . -.01) \override #'(filled . #t)
\path #0 #quer

myhalfx = \markup
\combine
\combine
\combine
\concat {
  \linkso \mitte \mitte \mitte \mitte \mitte
  \mitte \mitte \mitte \mitte \mitte \mitte \mitte \rechtso
}
\translate #'(-22.1 . -28.3)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }
\translate #'(-22.1 . -76.7)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }
\translate #'(-22.1 . -125.1)
\rotate #90 \concat { \mitte \mitte \mitte \mitte \mitte \mitte }

yyy=
\markup \fill-line { \myhalfx }

\bookpart {
  \markup
  \fill-line {
    \center-column
    {
      \scale #'(1.05 . 1.05)
      \combine \myhalfx
      \translate #'(0 . -5.5) \rotate #180 \myhalfx

    }
  }
}