summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/pythagor.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/pythagor.tex')
-rw-r--r--macros/latex/contrib/lapdf/pythagor.tex80
1 files changed, 80 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/pythagor.tex b/macros/latex/contrib/lapdf/pythagor.tex
new file mode 100644
index 0000000000..053d4c5104
--- /dev/null
+++ b/macros/latex/contrib/lapdf/pythagor.tex
@@ -0,0 +1,80 @@
+\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}