Construction in GCLC language

dim 120 120

point C 110 40
point O 65 51.14
point H 80 72.73

color 220 0 0
fontsize 11

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


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

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


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

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

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

% Constructing a line L_{\_G56996} which passes through point H and point P_{\_G57035}
line L_{\_G56996} H P_{\_G57035} 

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


% Constructing a line L_{\_G56959} which contains the point P_{\_G56990} and is parallel to the line L_{\_G56996}
parallel L_{\_G56959} P_{\_G56990} L_{\_G56996} 

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


% Constructing a point G which belongs to line L_{\_G56959} and line L_{\_G56965}
intersec G L_{\_G56959} L_{\_G56965} 
cmark_t G



% Constructing a point M_{c} such that CM_{c}/CG=1.5
towards M_{c} C G 1.5 
cmark_lt M_{c}
color 200 200 200
drawsegment C M_{c} 
color 0 0 0


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

color 200 200 200
drawline h_{c}
color 0 0 0



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

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




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

color 200 200 200
drawline c
color 0 0 0



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



drawsegment A B
drawsegment A C
drawsegment B C

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