%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% defmob.tex
% definition of specific picture elements 
% for scriptum mobile communications
%
% author:          K.H. Hofmann
% e-mail:          karlheinrich.hofmann@hs-rm.de
% created:         07.03.1997
% last revision    27.01.2012, 17.11.2009
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\usepackage{calc}       % fuer Rechenoperationen mit Parametern
%\usepackage{bezier}    % fuer beliebige Kurven
%\usepackage{epic}	% fuer \drawline
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Handy (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\handy}[2]{\put(#1,#2){\begin{picture}(5,14)(2.5,0)
        \put(0,0){\framebox(5,10){}} 
        \put(1,7){\framebox(3,2){}} 
        \linethickness{0.8mm} \put(1,10){\line(0,1){4}} \thinlines 
        \multiput(1,5)(1,0){4}{\txt{0}{0}{$\cdot$}} 
        \multiput(1,4)(1,0){4}{\txt{0}{0}{$\cdot$}} 
        \multiput(1,3)(1,0){4}{\txt{0}{0}{$\cdot$}} 
        \multiput(1,2)(1,0){4}{\txt{0}{0}{$\cdot$}} 
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Handy small (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\handys}[2]{\put(#1,#2){\begin{picture}(4,10)(2,0)
                         \lnu{0}{0}{7} \lnu{4}{0}{7}
                         \lnr{0}{0}{4} \lnr{0}{7}{4}
                         \lnu{0.5}{7}{2.5}
           \multiput(0,0.8)(0,0.9){4}{\multiput(1,0)(1,0){3}{\circle*{0.2}}} 
           \thinlines \textbox{0.6}{4.5}{2.8}{1.8}{}
           \thicklines
                        \end{picture}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% vehicle (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\vehicle}[2]{\put(#1,#2){\begin{picture}(11,6.5)(5.5,0)
            \lnr{0}{0}{1.5} 
            \kreisa{2.5}{0}{1}\lnr{3.5}{0}{4}\kreisa{8.5}{0}{1}
            \lnr{9.5}{0}{1.5}   
            \kreisab{3}{0}{3} \put(0,0){\drawline(3,3)(4,5)(10,5)(11,0)}
            \lnu{5}{5}{1.5}
            \thinlines \lnr{3}{3}{7.4} \thicklines
                        \end{picture}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% BTS (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Nummer
\newcommand{\bts}[3]{\put(#1,#2){\begin{picture}(8,8)(4,0)
                      \textbox{0}{0}{8}{8}{}
                      \txtb{4}{4.5}{\ssz BTS}
                      \txtt{4}{3.5}{\ssz #3}
                      \lnu{4}{8}{2} 
                      \put(4,10){\line(1,1){1.5}}
                      \put(4,10){\line(-1,1){1.5}} 
                      \end{picture}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% station (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\station}[2]{\put(#1,#2){\begin{picture}(8,19)(4,0)
          \drawline(0,0)(4,16)(8,0) 
          \drawline(0,0)(6.5,6)\drawline(8,0)(1.5,6)  
          \drawline(1.5,6)(5.5,10)\drawline(6.5,6)(2.5,10)  
          \drawline(4,16)(4,17) \drawline(4,17)(2.5,19)(5.5,19)(4,17)           
                      \end{picture}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Antenne (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\ant}[2]{\put(#1,#2){\begin{picture}(5,15)(0,0)
        \lnu{0}{0}{10.67} \lnr{-2.5}{15}{5}
        \drawline(0,10.67)(-2.5,15) \drawline(0,10.67)(2.5,15)
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Antenne short (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\ants}[2]{\put(#1,#2){\begin{picture}(5,10)(0,0)
        \lnu{0}{0}{5.67} \lnr{-2.5}{10}{5}
        \drawline(0,5.67)(-2.5,10) \drawline(0,5.67)(2.5,10)
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% exchange (Bezugspunkt, links Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\exch}[2]{\put(#1,#2){\begin{picture}(10,10)(5,0)
        \lnu{0}{0}{10} \lnu{10}{0}{10}
        \lnr{0}{0}{10} \lnr{0}{10}{10}
        \lnr{1}{2}{2} \put(3,2){\line(1,1){6}}
        \lnl{9}{2}{2} \put(7,2){\line(-1,1){6}}
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% dbase (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\dbase}[2]{\put(#1,#2){\begin{picture}(8,10)(4,-1)
        \lnu{0}{0}{8} \lnu{8}{0}{8}
        \qbezier(0,0)(4,-2)(8,0)
        \qbezier(0,8)(4,6)(8,8) \qbezier(0,8)(4,10)(8,8)
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% server (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\server}[2]{\put(#1,#2){\begin{picture}(10,20)(5,0)
        \multiput(0,0)(10,0){2}{\lnu{0}{0}{20}} 
        \multiput(0,0)(0,20){2}{\lnr{0}{0}{10}}
        \thinlines
        \multiput(1,1)(0,1){6}{\lnr{0}{0}{8}}
        \multiput(1,7)(0,1){4}{\lnr{0}{0}{4}} 
        \multiput(6,7)(3,0){2}{\lnu{0}{0}{3}} 
        \multiput(6,7)(0,3){2}{\lnr{0}{0}{3}}
        \dot{1.5}{11.5} 
        \multiput(3.4,11.5)(2.4,0){3}{\txt{0}{0}{\rule[0mm]{1.5mm}{0.8mm}}}
        \multiput(1,13)(8,0){2}{\lnu{0}{0}{2}} 
        \multiput(1,13)(0,2){2}{\lnr{0}{0}{8}} 
        \multiput(1,16)(0,1){4}{\lnr{0}{0}{8}}
        \thicklines
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% pcdd (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\pcdd}[2]{\put(#1,#2){\begin{picture}(10,20)(5,0)
%
\put(10,0){\line(1,1){3}} \put(10,20){\line(1,1){3}} \put(0,20){\line(1,1){3}} 
\lnr{3}{23}{10} \lnu{13}{3}{20}
%
        \multiput(0,0)(10,0){2}{\lnu{0}{0}{20}} 
        \multiput(0,0)(0,20){2}{\lnr{0}{0}{10}}
        \thinlines
        \multiput(1,1)(0,1){6}{\lnr{0}{0}{8}}
        \multiput(1,7)(0,1){4}{\lnr{0}{0}{4}} 
        \multiput(6,7)(3,0){2}{\lnu{0}{0}{3}} 
        \multiput(6,7)(0,3){2}{\lnr{0}{0}{3}}
        \dot{1.5}{11.5} 
        \multiput(3.4,11.5)(2.4,0){3}{\txt{0}{0}{\rule[0mm]{1.5mm}{0.8mm}}}
        \multiput(1,13)(8,0){2}{\lnu{0}{0}{2}} 
        \multiput(1,13)(0,2){2}{\lnr{0}{0}{8}} 
        \multiput(1,16)(0,1){4}{\lnr{0}{0}{8}}
        \thicklines
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% laptop (Bezugspunkt, unten links)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\laptop}[2]{\put(#1,#2){\begin{picture}(17,14)
  \put(0,1){
  %
  \lnr{0}{0}{12} \lnr{5}{5}{12}
  \lnd{0}{0}{1}   \lnd{12}{0}{1} \lnd{17}{5}{1} 
  \lnr{0}{-1}{12} \put(12,-1){\line(1,1){5}}  
  \put(0,0){\line(1,1){5}} \put(12,0){\line(1,1){5}} 
  %
  \lnu{5}{5}{8} \lnu{17}{5}{8} \lnr{5}{13}{12}
  %
  \thinlines
  \lnu{5.5}{5.5}{7} \lnu{16.5}{5.5}{7} \lnr{5.5}{5.5}{11} \lnr{5.5}{12.5}{11} 
  \multiput(5.1,0.6)(0.025,0.025){24}{\lnr{0}{0}{3}} 
  \multiput(2.6,1.6)(0.65,0.65){6}{\lnr{0}{0}{10}}
  \multiput(2.6,1.6)(1 ,0){11}{\line(1,1){2.6}}
  \thicklines
  }
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% laptop (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\apoint}[2]{\put(#1,#2){\begin{picture}(15,10)(6,0)
 \put(0,0){
 %
 \lnr{0}{0}{12} \lnr{0}{3}{12} \lnr{3}{6}{12}   
 \lnu{0}{0}{3} \lnu{12}{0}{3} \lnu{15}{3}{3}
 \put(0,3){\line(1,1){3}} \put(12,3){\line(1,1){3}} \put(12,0){\line(1,1){3}} 
 \txtl{1}{1}{$\cdots$}
 \linethickness{0.8mm}
 \lnu{9}{6}{4} 
 \thicklines
 }        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% lock (Bezugspunkt, unten Mitte)
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\lock}[2]{\put(#1,#2){\begin{picture}(3,4.5)(1.5,0)
 \multiput(0,0)(0,3){2}{\lnr{0}{0}{3}}
 \multiput(0,0)(3,0){2}{\lnu{0}{0}{3}}
 \kreisaa{1.5}{3}{1.3} \kreisab{1.5}{3}{1.3}   
\end{picture} }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% counter definitions for the following six flash-macros
\newcounter{flashlength}
\newcounter{flashx}
\newcounter{flashy} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash left-right (Bezugspunkt: Mittelpunkt) 
% horizontal
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: halbe Gesamtl"ange in x-Richtung
\newcommand{\flashlr}[3]{
   \setcounter{flashx}{(#1)-1}
   \setcounter{flashy}{(#2)-1}
   \setcounter{flashlength}{(#3)+1} 
   \put(\theflashx,\theflashy){\line(1,1){2}}
   \put(\theflashx,\theflashy){\vector(1,0){\theflashlength}}
   \setcounter{flashx}{(#1)+1}
   \setcounter{flashy}{(#2)+1}
   \put(\theflashx,\theflashy){\vector(-1,0){\theflashlength}}
                         } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash up-down (Bezugspunkt: Mittelpunkt) 
% vertical
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: halbe Gesamtl"ange in y-Richtung
\newcommand{\flashud}[3]{
   \setcounter{flashx}{(#1)-1}
   \setcounter{flashy}{(#2)-1}
   \setcounter{flashlength}{(#3)+1} 
   \put(\theflashx,\theflashy){\line(1,1){2}}
   \put(\theflashx,\theflashy){\vector(0,1){\theflashlength}}
   \setcounter{flashx}{(#1)+1}
   \setcounter{flashy}{(#2)+1}
   \put(\theflashx,\theflashy){\vector(0,-1){\theflashlength}}
                         } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts oben (Bezugspunkt: Startpunkt) 
% Steigung: 45 deg, d.h. (x=1, y=1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 2 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashrua}[3]{
  \setcounter{flashlength}{(#3)/2} 
  \put(#1,#2){\line(1,1){\theflashlength}}
  \setcounter{flashx}{(#1)+(\theflashlength)}
  \setcounter{flashy}{(#2)+(#3)/2 - 3}
  \put(\theflashx,\theflashy){\line(0,1){3}}
  \put(\theflashx,\theflashy){\vector(1,1){\theflashlength}}
                         } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts oben (Bezugspunkt: Startpunkt) 
% Steigung: 27 deg, d.h. (x=2, y=1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 4 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashrub}[3]{
         \setcounter{flashlength}{(#3)/2}
         \put(#1,#2){\line(2,1){\theflashlength}}
         \setcounter{flashx}{(#1)+(\theflashlength)}
         \setcounter{flashy}{(#2)+(#3)/4 - 3}
         \put(\theflashx,\theflashy){\line(0,1){3}}
         \put(\theflashx,\theflashy){\vector(2,1){\theflashlength}}
        } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts oben (Bezugspunkt: Startpunkt) 
% Steigung: 14 deg, d.h. (x=4, y=1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 8 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashruc}[3]{
         \setcounter{flashlength}{(#3)/2}
         \put(#1,#2){\line(4,1){\theflashlength}}
         \setcounter{flashx}{(#1)+(\theflashlength)}
         \setcounter{flashy}{(#2) +(#3)/8 - 3}
         \put(\theflashx,\theflashy){\line(0,1){3}}
         \put(\theflashx,\theflashy){\vector(4,1){\theflashlength}}
        } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts unten (Bezugspunkt: Startpunkt) 
% Steigung: -45 deg, d.h. (x=1, y=-1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 2 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashrda}[3]{
  \setcounter{flashlength}{(#3)/2} 
  \put(#1,#2){\line(1,-1){\theflashlength}}
  \setcounter{flashx}{(#1)+(\theflashlength)}
  \setcounter{flashy}{(#2)-(#3)/2 + 3}
  \put(\theflashx,\theflashy){\line(0,-1){3}}
  \put(\theflashx,\theflashy){\vector(1,-1){\theflashlength}}
                         } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts unten (Bezugspunkt: Startpunkt) 
% Steigung: -27 deg, d.h. (x=2, y=-1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 4 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashrdb}[3]{
         \setcounter{flashlength}{(#3)/2}
         \put(#1,#2){\line(2,-1){\theflashlength}}
         \setcounter{flashx}{(#1)+(\theflashlength)}
         \setcounter{flashy}{(#2)-(#3)/4 + 3}
         \put(\theflashx,\theflashy){\line(0,-1){3}}
         \put(\theflashx,\theflashy){\vector(2,-1){\theflashlength}}
        } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Flash nach rechts unten (Bezugspunkt: Startpunkt) 
% Steigung: -14 deg, d.h. (x=4, y=-1)
% ! Mindestl"ange schr"ager Linien und Vektoren beachten
% ! Gesamtl"ange mu"s durch 8 teilbar sein
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
% Parameter 3: Gesamtl"ange in x-Richtung
\newcommand{\flashrdc}[3]{
         \setcounter{flashlength}{(#3)/2}
         \put(#1,#2){\line(4,-1){\theflashlength}}
         \setcounter{flashx}{(#1)+(\theflashlength)}
         \setcounter{flashy}{(#2)-(#3)/8 + 3}
         \put(\theflashx,\theflashy){\line(0,-1){3}}
         \put(\theflashx,\theflashy){\vector(4,-1){\theflashlength}}
        } 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Zelle (Bezugspunkt, Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
\newcommand{\cell}[2]{\put(#1,#2){\begin{picture}(30,26)
        \multiput(-7.5,-12.99)(0,25.98){2}{\lnr{0}{0}{15}}
        \drawline(-15,0)(-7.5,12.99) \drawline(-15,0)(-7.5,-12.99)
        \drawline(15,0)(7.5,12.99)   \drawline(15,0)(7.5,-12.99)
        \end{picture}}} 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 7-er Cluster 
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\clusterseven}[2]{\put(#1,#2){%
 \cell{0}{0} \cell{0}{25.98} \cell{0}{-25.98}  
 \cell{22.5}{12.99} \cell{22.5}{-12.99}
 \cell{-22.5}{12.99} \cell{-22.5}{-12.99} }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 7-er Cluster numbered
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\clustersevennum}[2]{\put(#1,#2){%
 \cell{0}{0} \cell{0}{25.98} \cell{0}{-25.98}  
 \cell{22.5}{12.99} \cell{22.5}{-12.99}
 \cell{-22.5}{12.99} \cell{-22.5}{-12.99} 
 \txt{0}{0}{1}         \txt{0}{25.98}{2}  \txt{22.5}{12.99}{3} 
 \txt{22.5}{-12.99}{4} \txt{0}{-25.98}{5} \txt{-22.5}{-12.99}{6}
 \txt{-22.5}{12.99}{7} }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Schraffur 120 grad, 1mm Linienabstand 
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\shadeaa}[2]{\put(#1,#2){\drawline(0,0)(15,0)
\drawline(0,0)(-7.5,12.99)
\drawline(3.75,6.495)(15,0)  
\drawline(3.25,5.629)(13,0)\drawline(4.25,7.361)(14,1.732)
\drawline(2.75,4.763)(11,0)\drawline(4.75,8.227)(13,3.464) 
\drawline(2.25,3.897)(9,0) \drawline(5.25,9.093)(12,5.196)
\drawline(1.75,3.031)(7,0) \drawline(5.75,9.959)(11,6.928)
\drawline(1.25,2.165)(5,0) \drawline(6.25,10.825)(10,8.660)
\drawline(0.75,1.299)(3,0) \drawline(6.75,11.691)(9,10.392)
\drawline(0.25,0.433)(1,0) \drawline(7.25,12.557)(8,12.124)
\drawline(3.75,6.495)(-7.5,12.99)  
\drawline(3.25,5.629)(-6.5,11.258) \drawline(4.25,7.361)(-5.5,12.99)
\drawline(2.75,4.763)(-5.5,9.526)  \drawline(4.75,8.227)(-3.5,12.99) 
\drawline(2.25,3.897)(-4.5,7.794)  \drawline(5.25,9.093)(-1.5,12.99)
\drawline(1.75,3.031)(-3.5,6.062)  \drawline(5.75,9.959)(0.5,12.99)
\drawline(1.25,2.165)(-2.5,4.330)  \drawline(6.25,10.825)(2.5,12.99)
\drawline(0.75,1.299)(-1.5,2.598)  \drawline(6.75,11.691)(4.5,12.99)
\drawline(0.25,0.433)(-0.5,0.866)  \drawline(7.25,12.557)(6.5,12.99)
 }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Schraffur 120 grad, 2mm Linienabstand 
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\shadeab}[2]{\put(#1,#2){\drawline(0,0)(15,0)
\drawline(0,0)(-7.5,12.99)
\drawline(3.75,6.495)(15,0)  
\drawline(2.75,4.763)(11,0)\drawline(4.75,8.227)(13,3.464) 
\drawline(1.75,3.031)(7,0) \drawline(5.75,9.959)(11,6.928)
\drawline(0.75,1.299)(3,0) \drawline(6.75,11.691)(9,10.392)
\drawline(3.75,6.495)(-7.5,12.99)  
\drawline(2.75,4.763)(-5.5,9.526)  \drawline(4.75,8.227)(-3.5,12.99) 
\drawline(1.75,3.031)(-3.5,6.062)  \drawline(5.75,9.959)(0.5,12.99)
\drawline(0.75,1.299)(-1.5,2.598)  \drawline(6.75,11.691)(4.5,12.99)
 }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Schraffur 60 grad, 1mm Linienabstand 
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\shadeba}[2]{\put(#1,#2){\drawline(0,0)(15,0)
\drawline(0,0)(7.5,12.99)
\drawline(3.75,6.495)(15,0)  
\drawline(3.25,5.629)(13,0) \drawline(4.25,7.361)(14,1.732)
\drawline(2.75,4.763)(11,0) \drawline(4.75,8.227)(13,3.464) 
\drawline(2.25,3.897)(9,0)  \drawline(5.25,9.093)(12,5.196)
\drawline(1.75,3.031)(7,0)  \drawline(5.75,9.959)(11,6.928)
\drawline(1.25,2.165)(5,0)  \drawline(6.25,10.825)(10,8.660)
\drawline(0.75,1.299)(3,0)  \drawline(6.75,11.691)(9,10.392)
\drawline(0.25,0.433)(1,0)  \drawline(7.25,12.557)(8,12.124)
 }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Schraffur 60 grad, 2mm Linienabstand 
%        Bezugspunkt: Mitte, Zellradius 15mm 
%        Abstand zum Mittelpunkt der n"achsten Zelle: 25.98 mm
%        in x: +- 22.5mm, in y: +- 12.99mm
% Parameter 1: x-Koordinate des Bezugspunktes
% Parameter 2: y-Koordinate des Bezugspunktes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcommand{\shadebb}[2]{\put(#1,#2){\drawline(0,0)(15,0)
\drawline(0,0)(7.5,12.99)
\drawline(3.75,6.495)(15,0)  
\drawline(2.75,4.763)(11,0)\drawline(4.75,8.227)(13,3.464) 
\drawline(1.75,3.031)(7,0) \drawline(5.75,9.959)(11,6.928)
\drawline(0.75,1.299)(3,0) \drawline(6.75,11.691)(9,10.392)
 }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%










