summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-elements/doc/latex/sangaku.lua
blob: 777528540f8293d232bdfc2e5281cf4e819b13ea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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)