\input preamble.tex

\def\Disk(#1,#2){\Circle(16)(#1,#2,0.03) \Gfill(0)}

% ---------------------------------------------------------------------------
\begin{document}
\unitlength1.25cm

\begin{center}
{\Huge\bf{Pythagoras I}}
\bigskip

\begin{lapdf}(14.9,16.4)(-8.5,-7.8)
 \Setwidth(0.01)
 \Dash(1)
 \Line(0,0)(0,3.6) \Stroke
 \Dash(0)
 \Arc(8)(+0.0,+3.6)(216.87,90)(0.4)
 \Disk(+0.0,+3.4)
 \Arc(8)(+0.0,+0.0)(90,90)(0.4)
 \Disk(-0.18,+0.18)
 \Varc(8)(-4.8,+0.0)(0,36.87)(1)
 \Varc(8)(+2.7,+0.0)(180,-53.13)(1)
 \Setwidth(0.02)
 \Red
 \Rectangle(-4.8,0)(6,6)(36.87) \Fill(1,0.9,0.9)
 \Green
 \Rectangle(2.7,0)(4.5,4.5)(36.87) \Fill(0.9,1,0.9)
 \Blue
 \Rectangle(2.7,0)(7.5,7.5)(180) \Fill(0.9,0.9,1)
 \Text(+1.4,+2.1,c){$a$}
 \Text(-2.6,+2.1,c){$b$}
 \Text(-1.0,-0.3,c){$c$}
 \Text(+0.8,+0.2,c){$p$}
 \Text(-2.2,+0.2,c){$q$}
 \Text(+0.2,+1.5,c){$h$}
 \Text(+3.0,+3.1,c){$A_1$}
 \Text(-4.5,+4.2,c){$A_2$}
 \Text(-1.1,-3.7,c){$A_3=A_1+A_2$}
 \Text(-4.2,+0.2,c){$\alpha$}
 \Text(+2.1,+0.25,c){$\beta$}
\end{lapdf}

\newpage

{\Huge\bf{Pythagoras II}}
\bigskip

\begin{lapdf}(12.5,11.8)(-7.5,-5.2)
 \Setwidth(0.01)
 \Dash(1)
 \Line(0,0)(0,4.8) \Stroke
 \Dash(0)
 \Arc(8)(+0.0,+4.8)(216.87,90)(0.4)
 \Disk(+0.0,+4.6)
 \Arc(8)(+0.0,+0.0)(90,90)(0.4)
 \Disk(-0.15,+0.15)
 \Varc(8)(-6.4,+0.0)(0,36.87)(1.2)
 \Varc(8)(+3.6,+0.0)(180,-53.13)(1.2)
 \Setwidth(0.02)
 \Red
 \Sector(64)(-3.2,+2.4)(36.87,180)(4.0) \Fill(1,0.9,0.9)
 \Green
 \Sector(64)(+1.8,+2.4)(-53.13,180)(3.0) \Fill(0.9,1,0.9)
 \Blue
 \Sector(64)(-1.4,+0.0)(180,180)(5.0) \Fill(0.9,0.9,1)
 \Text(+1.9,+2.7,c){$a$}
 \Text(-3.4,+2.7,c){$b$}
 \Text(-1.0,-0.3,c){$c$}
 \Text(+1.2,+0.2,c){$p$}
 \Text(-3.0,+0.2,c){$q$}
 \Text(+0.2,+2.0,c){$h$}
 \Text(+2.9,+3.1,c){$A_1$}
 \Text(-4.7,+3.8,c){$A_2$}
 \Text(-1.4,-2.3,c){$A_3=A_1+A_2$}
 \Text(-5.7,+0.2,c){$\alpha$}
 \Text(+2.9,+0.25,c){$\beta$}
\end{lapdf}
\end{center}
\end{document}