summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex')
-rw-r--r--macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex23
1 files changed, 23 insertions, 0 deletions
diff --git a/macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex b/macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex
new file mode 100644
index 0000000000..d157b65d28
--- /dev/null
+++ b/macros/latex/contrib/tkz/tkz-euclide/examples/tkzEuclide-19-1-6.tex
@@ -0,0 +1,23 @@
+\input{preamble-standalone.ltx}
+\begin{document}
+
+% Ex. No. 123 (Section 19.1.6 : Coloured Apollonius circles for a given segment)
+
+\begin{tikzpicture}[scale=0.75]
+ \tkzDefPoint(0,0){A}
+ \tkzDefPoint(4,0){B}
+ \tkzDefCircle[apollonius,K=2](A,B)
+ \tkzGetPoint{K1}
+ \tkzGetLength{rAp}
+ \tkzDrawCircle[R,color = blue!50!black,
+ fill=blue!20,opacity=.4](K1,\rAp pt)
+ \tkzDefCircle[apollonius,K=3](A,B)
+ \tkzGetPoint{K2} \tkzGetLength{rAp}
+ \tkzDrawCircle[R,color=red!50!black,
+ fill=red!20,opacity=.4](K2,\rAp pt)
+ \tkzLabelPoints[below](A,B,K1,K2)
+ \tkzDrawPoints(A,B,K1,K2)
+ \tkzDrawLine[add=.2 and 1](A,B)
+\end{tikzpicture}
+
+\end{document}