Construction in GCLC language

dim 120 120

point M_{a} 65 40
point T_{a} 70.86 40

color 220 0 0
fontsize 11

cmark_b M_{a}
cmark_b T_{a}
color 0 0 0
fontsize 10


% point C is given by the problem setting, but it has to belong to the line a which is constructible from the others objects given 
% DET:  points M_{a} and T_{a} are not the same
% Constructing a line a which passes through point M_{a} and point T_{a}
line a M_{a} T_{a} 

color 200 200 200
drawline a
color 0 0 0




% Constructing a point C such that M_{a}C/M_{a}T_{a}=0.7839352750028029
towards C M_{a} T_{a} 0.7839352750028029 
color 220 0 0
fontsize 11
cmark_b C
color 0 0 0
fontsize 10

color 200 200 200
drawsegment M_{a} T_{a} 
color 0 0 0



% Constructing a point B such that CB/CM_{a}=2
towards B C M_{a} 2 
cmark_b B
color 200 200 200
drawsegment C B 
color 0 0 0


% NDG:  points B and C are not the same; points C and T_{a} are not the same; points C and midpoint([B,T_{a}]) are not the same
% Constructing a point P_{\_G55614} which is an image of the point C in a rotation around the point T_{a} for the angle 90
rotate P_{\_G55614} T_{a} 90 C 
cmark_r P_{\_G55614}
color 200 200 200
drawarc_p T_{a} C 90 
color 0 0 0

% Constructing a line L_{\_G55617} which passes through point T_{a} and point P_{\_G55614}
line L_{\_G55617} T_{a} P_{\_G55614} 

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


% Constructing midpoint P_{\_G55620} of the segment CP_{\_G55614}
midpoint P_{\_G55620} C P_{\_G55614} 
cmark_r P_{\_G55620}

% Constructing a line L_{\_G55623} which passes through point B and point P_{\_G55620}
line L_{\_G55623} B P_{\_G55620} 

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


% Constructing a line L_{\_G55626} which passes through point C and point P_{\_G55620}
line L_{\_G55626} C P_{\_G55620} 

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


% Constructing a point P_{\_G55629} which belongs to line L_{\_G55617} and line L_{\_G55623}
intersec P_{\_G55629} L_{\_G55617} L_{\_G55623} 
cmark_r P_{\_G55629}

% Constructing a point P_{\_G55632} which belongs to line L_{\_G55617} and line L_{\_G55626}
intersec P_{\_G55632} L_{\_G55617} L_{\_G55626} 
cmark_r P_{\_G55632}

% Constructing a line L_{\_G55635} which passes through point B and point P_{\_G55632}
line L_{\_G55635} B P_{\_G55632} 

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


% Constructing a line L_{\_G55638} which passes through point C and point P_{\_G55629}
line L_{\_G55638} C P_{\_G55629} 

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


% Constructing a point P_{\_G55641} which belongs to line L_{\_G55635} and line L_{\_G55638}
intersec P_{\_G55641} L_{\_G55635} L_{\_G55638} 
cmark_r P_{\_G55641}

% Constructing a line L_{\_G55644} which passes through point P_{\_G55620} and point P_{\_G55641}
line L_{\_G55644} P_{\_G55620} P_{\_G55641} 

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


% Constructing a point T`_{a} which belongs to line L_{\_G55644} and line a
intersec T`_{a} L_{\_G55644} a 
cmark_r T`_{a}



% Constructing midpoint P_{\_G56514} of the segment T_{a}T`_{a}
midpoint P_{\_G56514} T_{a} T`_{a} 
cmark_r P_{\_G56514}

% Generating number V[_G56462] with value 0.7839352750028029
number V[_G56462] 0.7839352750028029 


% Calculating value V[_G56483] using formula V[_G56462]*360
expression V[_G56483]  { V[_G56462]*360  } 


% Constructing a point A which is an image of the point V[_G56483] in a rotation around the point T_{a} for the angle T`_{a}
rotate A T_{a} V[_G56483] T`_{a} 
cmark_t A
color 200 200 200
drawarc_p T_{a} T`_{a} V[_G56483] 
color 0 0 0



drawsegment A B
drawsegment A C
drawsegment B C

% Non-degenerate conditions:  points B and C are not the same; points C and T_{a} are not the same; points C and midpoint([B,T_{a}]) are not the same
% Determination conditions:  points M_{a} and T_{a} are not the same