\input{../../Headers/KonstruktionPDFLaTeX.tex}

\begin{document}
\begin{frame}
\centering
\begin{tikzpicture}

   %Die Blattgröße festlegen.
   \tkzInit[xmin=0,xmax=21,ymin=0,ymax=29.7]
   \tkzClip

   %Rahmen, Überschrift, Angabe und Copyright.
   \tkzDrawPolygon[line width=0.25mm]({0.1,0.1},{20.9,0.1},{20.9,29.6},{0.1,29.6})
   \tkzDrawSegment[line width=0.25mm]({0.1,28.6},{20.9,28.6})
   \tkzTextHead{Ü1.1 Würfel}
   \tkzTextData{Ebene $\epsilon \left( 50/-70/70 \right)$, Diagonale $AC \left[ A\left( 10/-10/z \right), C\left( 40/20/z \right) \right]$ \\ Ursprung $U\left( 90/170 \right)^{\ast}$, Maßstab 12:10}
   \tkzTextName{Lothar Schäfer}

   %Den Maßstab festlegen.
   \def\m{1.2}   

   %----------------------------------------------------------------------------
   %Blatt 1 - Würfel
   %----------------------------------------------------------------------------

   %Den Ursprung festlegen.
   \begin{scope}[shift=({9,17})]

      \visible<1-> {
      \only<1> {
      \begin{scope}}

   %Die 12-Rissachse zeichnen.
   \tkzDefPoint( 0.0,0){U}
   \tkzDefPoint(-8.8,0){R12L}
   \tkzDefPoint( 3.9,0){R12R}
   \tkzDrawSegment[aline](R12L,R12R)
   \tkzLabelSegment[sloped,pos=0.96,above=-1mm](R12L,R12R){$\scriptstyle 12=\pi_{1}^{II}=\pi_{2}^{I}$}

      \only<1> {
      \end{scope}}}
      \visible<2-> {
      \only<2> {
      \begin{scope}}

   %Die Punkte aus der Angabe übernehmen.
   %Ebene Epsilon e(50/-70/70)
   \tkzDefPoint( 0*\m,-5*\m){ex}
   \tkzDefPoint(-7*\m, 0*\m){ey}
   \tkzDefPoint( 0*\m, 7*\m){ez}
   \tkzDrawSegment[aline,add=0mm and 30mm](ey,ex)
   \tkzLabelSegment[pos=0.2,below=2mm](ey,ex){$\scriptstyle e_{1}$}
   \tkzDrawSegment[aline,add=0mm and 20mm](ey,ez)
   \tkzLabelSegment[pos=0.2,above=2mm](ey,ez){$\scriptstyle e_{2}$}
   %Punkt A(10/-10/z)
   \tkzDefPoint(-1*\m,-1*\m){A1}
   \tkzDrawPoint(A1)
   \tkzLabelPoint[above right=0mm and -1mm](A1){$A^{I}$}
   %Punkt C(40/20/z)
   \tkzDefPoint(2*\m,-4*\m){C1}
   \tkzDrawPoint(C1)
   \tkzLabelPoint[above right](C1){$C^{I}$}

      \only<2> {
      \end{scope}}}
      \visible<3-> {
      \only<3> {
      \begin{scope}[highlight]}

   %Den Punkt A durch Angittern mit einer ersten Hauptgerade in den Aufriss bringen.
   \tkzDefLine[parallel=through A1](ex,ey) \tkzGetPoint{X1}
   \tkzInterLL(A1,X1)(R12L,R12R) \tkzGetPoint{gA1}
   \tkzDefLine[orthogonal=through gA1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(gA1,X2)(ey,ez) \tkzGetPoint{gA2}
   \tkzDefLine[parallel=through gA2](R12L,R12R) \tkzGetPoint{X3}
   \tkzDefLine[orthogonal=through A1](R12L,R12R) \tkzGetPoint{X4}
   \tkzInterLL(gA2,X3)(A1,X4) \tkzGetPoint{A2}
   \tkzDrawPolygon[hline](A1,gA1,gA2,A2)
   \tkzDrawPoint(A2)
   \tkzLabelPoint[above right=1mm and -1mm](A2){$A^{II}$}

      \only<3> {
      \end{scope}}}
      \visible<4-> {
      \only<4> {
      \begin{scope}[highlight]}

   %Den Punkt C durch Angittern mit einer ersten Hauptgerade in den Aufriss bringen.
   \tkzDefLine[parallel=through C1](ex,ey) \tkzGetPoint{X1}
   \tkzInterLL(C1,X1)(R12L,R12R) \tkzGetPoint{gC1}
   \tkzDefLine[orthogonal=through gC1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(gC1,X2)(ey,ez) \tkzGetPoint{gC2}
   \tkzDefLine[parallel=through gC2](R12L,R12R) \tkzGetPoint{X3}
   \tkzDefLine[orthogonal=through C1](R12L,R12R) \tkzGetPoint{X4}
   \tkzInterLL(gC2,X3)(C1,X4) \tkzGetPoint{C2}
   \tkzDrawPolygon[hline](C1,gC1,gC2,C2)
   \tkzDrawPoint(C2)
   \tkzLabelPoint[above right](C2){$C^{II}$}

      \only<4> {
      \end{scope}}}
      \visible<5-> {
      \only<5> {
      \begin{scope}[highlight]}

   %Die 13-Rissachse zeichnen.
   %Abstand 10mm von C1 entfernt.
   \tkzDefPointBy[projection=onto ex--ey](C1) \tkzGetPoint{X1}
   \tkzDefPointWith[linear normed,K=-1](X1,ey) \tkzGetPoint{R13C}
   \tkzDefPointWith[orthogonal normed,K= 8.6](R13C,ey) \tkzGetPoint{R13L}
   \tkzDefPointWith[orthogonal normed,K=-4.6](R13C,ey) \tkzGetPoint{R13R}
   \tkzDrawSegment[aline](R13L,R13R)
   \tkzLabelSegment[sloped,pos=0.1,above=-1mm](R13L,R13R){$\scriptstyle 13=\pi_{1}^{III}=\pi_{3}^{I}$}
   \tkzMarkAngle[size=0.4](ey,R13C,R13L)
   \tkzLabelAngle[pos=-0.22](ey,R13C,R13L){$\cdot$}

   %Den Blickrichtungspfeil b13 zeichnen.
   \tkzDefPointWith[linear normed,K=0.8](R13C,R13R) \tkzGetPoint{X1}
   \tkzDefPointWith[orthogonal normed,K=10](X1,R13R) \tkzGetPoint{X2}
   \tkzDefPointWith[orthogonal normed,K= 8](X1,R13R) \tkzGetPoint{X3}
   \tkzDrawSegment[arrows=-{Triangle[angle=20:5mm]}](X2,X3)
   \tkzLabelSegment(X2,X3){$b_{13}$}

      \only<5> {
      \end{scope}}}
      \visible<6-> {
      \only<6> {
      \begin{scope}[highlight]}

   %Den 13-Seitenriss konstruieren.
   \tkzDefPointBy[projection=onto R12L--R12R](A1) \tkzGetPoint{PA_R12}
   \tkzDefPointBy[projection=onto R12L--R12R](C1) \tkzGetPoint{PC_R12}
   \tkzDefPointBy[projection=onto R13L--R13R](A1) \tkzGetPoint{PA_R13}
   \tkzDefPointBy[projection=onto R13L--R13R](C1) \tkzGetPoint{PC_R13}
   \tkzCalcLength[cm](PA_R12,A2) \tkzGetLength{rA}
   \tkzCalcLength[cm](PC_R12,C2) \tkzGetLength{rC}
   \tkzInterLC[R](A1,PA_R13)(PA_R13,\rA cm) \tkzGetSecondPoint{A3}
   \tkzInterLC[R](C1,PC_R13)(PC_R13,\rC cm) \tkzGetSecondPoint{C3}
   \tkzDrawSegments[hline](A1,A3 C1,C3)
   \tkzDrawPoint(A3)
   \tkzLabelPoint[above right](A3){$A^{III}$}
   \tkzDrawPoint(C3)
   \tkzLabelPoint[above right](C3){$C^{III}$}

      \only<6> {
      \end{scope}}}
      \visible<7-> {
      \only<7> {
      \begin{scope}[highlight]}

   %Die Ebene einzeichnen.
   \tkzDrawSegment[hline,add=0mm and 27mm](R13C,A3)
   \tkzLabelSegment[pos=1.4,above right](R13C,A3){$\epsilon^{III}$}

      \only<7> {
      \end{scope}}}
      \visible<8-> {
      \only<8> {
      \begin{scope}[highlight]}

   %Den Punkt A in die 1. Bildebene paralleldrehen.
   \tkzCalcLength[cm](R13C,A3) \tkzGetLength{rA}
   \tkzInterLC[R](R13L,R13R)(R13C,\rA cm) \tkzGetFirstPoint{RA13}
   \tkzDefLine[orthogonal=through RA13](R13L,R13R) \tkzGetPoint{X1}
   \tkzDefPointBy[projection=onto RA13--X1](A1) \tkzGetPoint{A0}
   \begin{scope}[decoration={markings,mark=at position 0.3 with {\arrow[rotate=180,xshift=1.75mm]{Triangle[angle=15:3.5mm]}}}]
      \tkzDrawArc[hline,postaction={decorate}](R13C,RA13)(A3)
   \end{scope}
   \tkzDrawSegments[hline](RA13,A0 A0,A1)
   \tkzDrawPoint(A0)
   \tkzLabelPoint[left=1mm](A0){$A_{0}$}

   %Den Punkt C in die 1. Bildebene paralleldrehen.
   \tkzCalcLength[cm](R13C,C3) \tkzGetLength{rC}
   \tkzInterLC[R](R13L,R13R)(R13C,\rC cm) \tkzGetFirstPoint{RC13}
   \tkzDefLine[orthogonal=through RC13](R13L,R13R) \tkzGetPoint{X1}
   \tkzDefPointBy[projection=onto RC13--X1](C1) \tkzGetPoint{C0}
   \begin{scope}[decoration={markings,mark=at position 0.3 with {\arrow[rotate=180,xshift=1.75mm]{Triangle[angle=15:3.5mm]}}}]
      \tkzDrawArc[hline,postaction={decorate}](R13C,RC13)(C3)
   \end{scope}
   \tkzDrawSegments[hline](RC13,C0 C0,C1)
   \tkzDrawPoint(C0)
   \tkzLabelPoint[right=1mm](C0){$C_{0}$}

      \only<8> {
      \end{scope}}}
      \visible<9-> {
      \only<9> {
      \begin{scope}[highlight]}

   %Das Quadrat in seiner wahren Größe konstruieren.
   \tkzDefMidPoint(A0,C0) \tkzGetPoint{M0}
   \tkzCalcLength[cm](M0,A0) \tkzGetLength{rQ}
   \tkzDefLine[orthogonal=through M0](A0,C0) \tkzGetPoint{X1}
   \tkzInterLC[R](M0,X1)(M0,\rQ cm) \tkzGetPoints{D0}{B0}
   \tkzDrawPolygon[pline](A0,B0,C0,D0)
   \tkzDrawSegments[hline](A0,C0 B0,D0)
   \tkzShowLine[mediator,gap=1,length=0.75,ratio=1](A0,C0)
   \tkzDrawCircle[hline](M0,A0)
   \tkzMarkAngle[size=0.4](B0,M0,A0)
   \tkzLabelAngle[pos=0.22](B0,M0,A0){$\cdot$}
   \tkzDrawPoint(B0)
   \tkzLabelPoint[above=1mm](B0){$B_{0}$}
   \tkzDrawPoint(D0)
   \tkzLabelPoint[below=1mm](D0){$D_{0}$}

      \only<9> {
      \end{scope}}}
      \visible<10-> {
      \only<10> {
      \begin{scope}[highlight]}

   %Die Punkte B und D in den 13-Seitenriss zurückdrehen.
   %Projektion auf die 13-Rissachse.
   \tkzDefPointBy[projection=onto R13L--R13R](B0) \tkzGetPoint{RB13}
   \tkzDefPointBy[projection=onto R13L--R13R](D0) \tkzGetPoint{RD13}
   %Radius bestimmen.
   \tkzCalcLength[cm](R13C,RB13) \tkzGetLength{rB}
   \tkzCalcLength[cm](R13C,RD13) \tkzGetLength{rD}
   %Punkte auf die Ebene drehen.
   \tkzInterLC[R](A3,C3)(R13C,\rB cm) \tkzGetFirstPoint{B3}
   \tkzInterLC[R](A3,C3)(R13C,\rD cm) \tkzGetFirstPoint{D3}
   %Projektion zeichnen.
   \tkzDrawSegment[hline](B0,RB13)
   \tkzDrawSegment[hline](D0,RD13)
   %Rotationspfeile zeichnen.
   \begin{scope}[decoration={markings,mark=at position 0.3 with {\arrow[xshift=1.75mm]{Triangle[angle=15:3.5mm]}}}]
      \tkzDrawArc[hline,postaction={decorate}](R13C,RB13)(B3)
      \tkzDrawArc[hline,postaction={decorate}](R13C,RD13)(D3)
   \end{scope}
   \tkzDrawPoint(B3)
   \tkzLabelPoint[above right](B3){$B^{III}$}
   \tkzDrawPoint(D3)
   \tkzLabelPoint[above right](D3){$D^{III}$}

      \only<10> {
      \end{scope}}}
      \visible<11-> {
      \only<11> {
      \begin{scope}[highlight]}

   %Den 13-Seitenriss konstruieren.
   \tkzCalcLength[cm](A0,B0) \tkzGetLength{a}
   \tkzDefPointWith[orthogonal normed,K=-\a](A3,D3) \tkzGetPoint{Aq3}
   \tkzDefPointWith[orthogonal normed,K=-\a](B3,D3) \tkzGetPoint{Bq3}
   \tkzDefPointWith[orthogonal normed,K=-\a](C3,D3) \tkzGetPoint{Cq3}
   \tkzDefPointWith[orthogonal normed,K= \a](D3,A3) \tkzGetPoint{Dq3}
   \tkzDrawPolygon[hline](A3,B3,C3,D3)
   \tkzDrawPolygon[hline](Aq3,Bq3,Cq3,Dq3)
   \tkzDrawSegments[hline](A3,Aq3 B3,Bq3 C3,Cq3 D3,Dq3)
   \tkzDrawPoint(Aq3)
   \tkzLabelPoint[below left=1mm and -1mm](Aq3){$\bar{A}^{III}$}
   \tkzDrawPoint(Bq3)
   \tkzLabelPoint[below left=1mm and -1mm](Bq3){$\bar{B}^{III}$}
   \tkzDrawPoint(Cq3)
   \tkzLabelPoint[below left=1mm and -1mm](Cq3){$\bar{C}^{III}$}
   \tkzDrawPoint(Dq3)
   \tkzLabelPoint[below left=1mm and -1mm](Dq3){$\bar{D}^{III}$}

      \only<11> {
      \end{scope}}}
      \visible<12-> {
      \only<12> {
      \begin{scope}[highlight]}

   %Die Punkte in den Grundriss bringen.
   %Punkt B
   \tkzDefLine[orthogonal=through B0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through B3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(B0,X1)(B3,X2) \tkzGetPoint{B1}
   \tkzDrawSegments[hline](B0,B1 B1,B3)
   \tkzDrawPoint(B1)
   \tkzLabelPoint[above right=0mm and -0.5mm](B1){$B^{I}$}
   %Punkt D
   \tkzDefLine[orthogonal=through D0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through D3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(D0,X1)(D3,X2) \tkzGetPoint{D1}
   \tkzDrawSegments[hline](D0,D1 D1,D3)
   \tkzDrawPoint(D1)
   \tkzLabelPoint[above right=0mm and -1mm](D1){$D^{I}$}
   %Punkt Aq
   \tkzDefLine[orthogonal=through A0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Aq3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(A0,X1)(Aq3,X2) \tkzGetPoint{Aq1}
   \tkzDrawSegments[hline](Aq1,Aq3)
   \tkzDrawPoint(Aq1)
   \tkzLabelPoint[above left=1.5mm and -1mm](Aq1){$\bar{A}^{I}$}
   %Punkt Bq
   \tkzDefLine[orthogonal=through B0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Bq3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(B0,X1)(Bq3,X2) \tkzGetPoint{Bq1}
   \tkzDrawSegments[hline](Bq1,Bq3)
   \tkzDrawPoint(Bq1)
   \tkzLabelPoint[below=1mm](Bq1){$\bar{B}^{I}$}
   %Punkt Cq
   \tkzDefLine[orthogonal=through C0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Cq3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(C0,X1)(Cq3,X2) \tkzGetPoint{Cq1}
   \tkzDrawSegments[hline](Cq1,Cq3)
   \tkzDrawPoint(Cq1)
   \tkzLabelPoint[below=1mm](Cq1){$\bar{C}^{I}$}
   %Punkt Dq
   \tkzDefLine[orthogonal=through D0](ex,ey) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Dq3](R13L,R13R) \tkzGetPoint{X2}
   \tkzInterLL(D0,X1)(Dq3,X2) \tkzGetPoint{Dq1}
   \tkzDrawSegments[hline](Dq1,Dq3)
   \tkzDrawPoint(Dq1)
   \tkzLabelPoint[above left=1.5mm and -1mm](Dq1){$\bar{D}^{I}$}

      \only<12> {
      \end{scope}}}
      \visible<13-> {
      \only<13> {
      \begin{scope}[highlight]}

   %Den Würfel im Grundriss darstellen.
   \tkzDrawPolygon[hline](A1,B1,C1,D1)
   \tkzDrawPolygon[hline](Aq1,Bq1,Cq1,Dq1)
   \tkzDrawSegments[hline](A1,Aq1 B1,Bq1 C1,Cq1 D1,Dq1)

      \only<13> {
      \end{scope}}}
      \visible<14-> {
      \only<14> {
      \begin{scope}[highlight]}

   %Die Punkte der Grundfläche durch die Abstände im 13-Seitenriss in den Aufriss bringen.
   %Punkt B
   \tkzDefPointBy[projection=onto R12L--R12R](B1) \tkzGetPoint{PB_R12}
   \tkzDefPointBy[projection=onto R13L--R13R](B3) \tkzGetPoint{PB_R13}
   \tkzCalcLength[cm](PB_R13,B3) \tkzGetLength{rB}
   \tkzInterLC[R](B1,PB_R12)(PB_R12,\rB cm) \tkzGetSecondPoint{B2}
   \tkzDrawSegments[hline](B1,B2)
   \tkzDrawPoint(B2)
   \tkzLabelPoint[above right=1mm and 0mm](B2){$B^{II}$}
   %Punkt D
   \tkzDefPointBy[projection=onto R12L--R12R](D1) \tkzGetPoint{PD_R12}
   \tkzDefPointBy[projection=onto R13L--R13R](D3) \tkzGetPoint{PD_R13}
   \tkzCalcLength[cm](PD_R13,D3) \tkzGetLength{rD}
   \tkzInterLC[R](D1,PD_R12)(PD_R12,\rD cm) \tkzGetSecondPoint{D2}
   \tkzDrawSegments[hline](D1,D2)
   \tkzDrawPoint(D2)
   \tkzLabelPoint[above right](D2){$D^{II}$}

      \only<14> {
      \end{scope}}}
      \visible<15-> {
      \only<15> {
      \begin{scope}[highlight]}

   %Die Punkte auf die Fallgeraden im Aufriss bringen.
   %Punkt Aq
   \tkzDefPointBy[projection=onto ey--ez](A2) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Aq1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(A2,X1)(Aq1,X2) \tkzGetPoint{Aq2}
   \tkzDrawSegments[hline](Aq1,Aq2 A2,Aq2)
   \tkzDrawPoint(Aq2)
   \tkzLabelPoint[above](Aq2){$\bar{A}^{II}$}
   %Punkt Bq
   \tkzDefPointBy[projection=onto ey--ez](B2) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Bq1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(B2,X1)(Bq1,X2) \tkzGetPoint{Bq2}
   \tkzDrawSegments[hline](Bq1,Bq2 B2,X1)
   \tkzDrawPoint(Bq2)
   \tkzLabelPoint[above right=1mm and 0mm](Bq2){$\bar{B}^{II}$}
   %Punkt Cq
   \tkzDefPointBy[projection=onto ey--ez](C2) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Cq1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(C2,X1)(Cq1,X2) \tkzGetPoint{Cq2}
   \tkzDrawSegments[hline](Cq1,Cq2 C2,X1)
   \tkzDrawPoint(Cq2)
   \tkzLabelPoint[above right=-1.5mm and 0mm](Cq2){$\bar{C}^{II}$}
   %Punkt Dq
   \tkzDefPointBy[projection=onto ey--ez](D2) \tkzGetPoint{X1}
   \tkzDefLine[orthogonal=through Dq1](R12L,R12R) \tkzGetPoint{X2}
   \tkzInterLL(D2,X1)(Dq1,X2) \tkzGetPoint{Dq2}
   \tkzDrawSegments[hline](Dq1,Dq2 D2,Dq2)
   \tkzDrawPoint(Dq2)
   \tkzLabelPoint[above](Dq2){$\bar{D}^{II}$}

      \only<15> {
      \end{scope}}}
      \visible<16-> {
      \only<16> {
      \begin{scope}[highlight]}

   %Den Würfel im Aufriss darstellen.
   \tkzDrawPolygon[hline](A2,B2,C2,D2)
   \tkzDrawPolygon[hline](Aq2,Bq2,Cq2,Dq2)
   \tkzDrawSegments[hline](A2,Aq2 B2,Bq2 C2,Cq2 D2,Dq2)

      \only<16> {
      \end{scope}}}
      \visible<17-> {
      \only<17> {
      \begin{scope}[highlight]}

   %Kontrolle mittels perspektiver Affinität.
   \tkzInterLL(A1,B1)(ey,ex) \tkzGetPoint{aff1}
   \tkzInterLL(A2,B2)(R12L,R12R) \tkzGetPoint{aff2}
   \tkzInterLL(A0,B0)(ey,ex) \tkzGetPoint{aff3}
   \tkzDrawSegments[aline,red](B1,aff1 B2,aff2 B0,aff3 aff1,aff2)

      \only<17> {
      \end{scope}}}
      \visible<18-> {
      \only<18> {
      \begin{scope}[highlight]}

   %Die Sichtbarkeit im Grundriss bestimmen.
   \tkzDrawPolygon[vline](Aq1,Bq1,Cq1,Dq1)
   \tkzDrawSegments[vline](C1,D1 D1,A1)
   \tkzDrawSegments[uline](A1,B1 B1,C1)
   \tkzDrawSegments[vline](A1,Aq1 C1,Cq1 D1,Dq1)
   \tkzDrawSegments[uline](B1,Bq1)

      \only<18> {
      \end{scope}}}
      \visible<19-> {
      \only<19> {
      \begin{scope}[highlight]}

   %Die Sichtbarkeit im Aufriss bestimmen.
   \tkzDrawPolygon[vline](Aq2,Bq2,Cq2,Dq2)
   \tkzDrawSegments[vline](B2,C2 C2,D2)
   \tkzDrawSegments[uline](A2,B2 D2,A2)
   \tkzDrawSegments[vline](B2,Bq2 C2,Cq2 D2,Dq2)
   \tkzDrawSegments[uline](A2,Aq2)

      \only<19> {
      \end{scope}}}
      \visible<20-> {
      \only<20> {
      \begin{scope}[highlight]}

   %Die Sichtbarkeit im 13-Seitenriss bestimmen.
   \tkzDrawPolygon[vline](A3,B3,C3,D3)
   \tkzDrawPolygon[vline](Aq3,Bq3,Cq3,Dq3)
   \tkzDrawSegments[vline](A3,Aq3 B3,Bq3 D3,Dq3)
   \tkzDrawSegments[uline](C3,Cq3)

      \only<20> {
      \end{scope}}}
      \only<21> {

   %Den Grundriss färben.
   \begin{scope}[on background layer]
      \tkzFillPolygon[fill=blue,fill opacity=0.2](Aq1,Bq1,Cq1,Dq1)
      \tkzFillPolygon[fill=red,fill opacity=0.2](C1,Cq1,Dq1,D1)
      \tkzFillPolygon[fill=yellow,fill opacity=0.2](D1,Dq1,Aq1,A1)
   \end{scope}

   %Den Aufriss färben.
   \begin{scope}[on background layer]
      \tkzFillPolygon[fill=blue,fill opacity=0.2](Aq2,Bq2,Cq2,Dq2)
      \tkzFillPolygon[fill=orange,fill opacity=0.3](B2,Bq2,Cq2,C2)
      \tkzFillPolygon[fill=red,fill opacity=0.2](C2,Cq2,Dq2,D2)
   \end{scope}

   %Den 13-Seitenriss färben.
   \begin{scope}[on background layer]
      \tkzFillPolygon[fill=green,fill opacity=0.2](A3,Aq3,Bq3,B3)
      \tkzFillPolygon[fill=yellow,fill opacity=0.2](D3,Dq3,Aq3,A3)
   \end{scope}

   %Alle Punkte neu zeichnen.
   \tkzDrawPoints(A1,B1,C1,D1,Aq1,Bq1,Cq1,Dq1)
   \tkzDrawPoints(A2,B2,C2,D2,Aq2,Bq2,Cq2,Dq2)
   \tkzDrawPoints(A3,B3,C3,D3,Aq3,Bq3,Cq3,Dq3)
   \tkzDrawPoints(A0,B0,C0,D0)

      }

   \end{scope}

\end{tikzpicture}
\end{frame}
\end{document}