Construction in GCLC language

dim 120 120

point B 20 40
point O 65 51.14
point H 80 72.73

color 220 0 0
fontsize 11

cmark_b B
cmark_t O
cmark_rt H
color 0 0 0
fontsize 10


% Constructing a line L_{\_G31684} which passes through point O and point H
line L_{\_G31684} O H 

color 200 200 200
drawline L_{\_G31684}
color 0 0 0


% Constructing a point P_{\_G31785} with coordinates (0,0)
point P_{\_G31785} 0 0 
cmark_r P_{\_G31785}

% Constructing a point P_{\_G31709} such that OP_{\_G31709}/OP_{\_G31785}=1
towards P_{\_G31709} O P_{\_G31785} 1 
cmark_r P_{\_G31709}
color 200 200 200
drawsegment O P_{\_G31709} 
color 0 0 0

% Constructing a point P_{\_G31754} such that OP_{\_G31754}/OP_{\_G31785}=3
towards P_{\_G31754} O P_{\_G31785} 3 
cmark_r P_{\_G31754}
color 200 200 200
drawsegment O P_{\_G13560} 
color 0 0 0

% Constructing a line L_{\_G31715} which passes through point H and point P_{\_G31754}
line L_{\_G13559} H P_{\_G13560} 

color 200 200 200
drawline L_{\_G13559}
color 0 0 0


% Constructing a line L_{\_G31678} which contains the point P_{\_G31709} and is parallel to the line L_{\_G31715}
parallel L_{\_G13556} P_{\_G13558} L_{\_G13559} 

color 200 200 200
drawline L_{\_G13556}
color 0 0 0


% Constructing a point G which belongs to line L_{\_G31678} and line L_{\_G31684}
intersec G L_{\_G13556} L_{\_G13557} 
cmark_t G



% Constructing a point M_{b} such that BM_{b}/BG=1.5
towards M_{b} B G 1.5 
cmark_rt M_{b}
color 200 200 200
drawsegment B M_{b} 
color 0 0 0


% DET:  points B and H are not the same
% Constructing a line h_{b} which passes through point B and point H
line h_{b} B H 

color 200 200 200
drawline h_{b}
color 0 0 0



% NDG:  points B and O are not the same
% Constructing a circle k(O,C) whose center is at point O and which passes through point B
circle k(O,C) O B 

color 200 200 200
drawcircle k(O,C)
color 0 0 0




% Constructing a line b which is perpendicular to line h_{b} and which passes through point M_{b}
perp b M_{b} h_{b} 

color 200 200 200
drawline b
color 0 0 0



% NDG:  line b and circle k(O,C) intersect
% Constructing points C and A which are in intersection of k(O,C) and b
intersec2 C A k(O,C) b 
cmark_b C
cmark_t A



drawsegment A B
drawsegment A C
drawsegment B C

% Non-degenerate conditions:  line b and circle k(O,C) intersect; points B and O are not the same
% Determination conditions:  points B and H are not the same