summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua')
-rw-r--r--macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua14
1 files changed, 14 insertions, 0 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua b/macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua
new file mode 100644
index 0000000000..777528540f
--- /dev/null
+++ b/macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua
@@ -0,0 +1,14 @@
+xB = value(8)
+z.A = point : new ( 0,0 )
+z.B = point : new (
+xB,0 )
+L.AB = line : new ( z.A , z.B )
+S = L.AB : square ()
+_,_,z.C,z.D = get_points (S)
+z.F = S.ac : projection (z.B)
+L.BF = line : new (z.B,z.F)
+T.ABC = triangle : new ( z.A , z.B , z.C )
+L.bi = T.ABC : bisector (2)
+z.c = L.bi.pb
+L.Cc = line : new (z.C,z.c)
+z.I = intersection (L.Cc,L.BF) \ No newline at end of file