% Dat je krug l(O,R) i u njegovoj ravni
% tacka H. U krug l upisati trougao ABC
% kojem je ortocentar tacka H, a stranica
% BC jednaka datoj duzi a.

number X1 160
number X2 160
dim X1 X2

point O 80 80
point H 65 70
% R - poluprecnik datog kruga
number R 40
% DUZINA _DUZI - duzina duzi a
number DUZINA_DUZI 60
point F 0 0
point FR 0 R
point FDUZINA_DUZI 0 DUZINA_DUZI



translate TACKA_KOJA_UZ_CENTAR_DEFINISE_KRUG F FR O
circle KRUG O TACKA_KOJA_UZ_CENTAR_DEFINISE_KRUG
translate B' F FR O
translate TACKA_KOJA_UZ_CENTAR_DEFINISE_KRUG2 F FDUZINA_DUZI B'
circle KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_C'_TAKVU_DA_JE_B'C'="DUZINA_DUZI" B' TACKA_KOJA_UZ_CENTAR_DEFINISE_KRUG2
intersec2 C" C' KRUG KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_C'_TAKVU_DA_JE_B'C'="DUZINA_DUZI"
midpoint D' B' C'
translate D" O D' H
sim TACKA_KOJA_UZ_H_DEFINISE_KRUG_KOJI_NAM_POMAZE_DA_NADJEMO_TACKU_A D" H
circle KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_A H TACKA_KOJA_UZ_H_DEFINISE_KRUG_KOJI_NAM_POMAZE_DA_NADJEMO_TACKU_A
intersec2 A' A KRUG KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_A
line p A H
parallel p' O p
circle KRUG_KOJI_NAM_POMAZE_DA_NA_PRAVOJ_p'_NADJEMO_TACKU_D O D'
intersec2 D"" D p' KRUG_KOJI_NAM_POMAZE_DA_NA_PRAVOJ_p'_NADJEMO_TACKU_D
perp q D p'
intersec2 B C q KRUG




% Tacke koje nam samo pomazu da obelezimo
% prave p, p', q i krug l
sim P H A
sim P' D O
sim Q C D
sim L O A



drawcircle KRUG
color 180 180 180
drawdashcircle KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_C'_TAKVU_DA_JE_B'C'="DUZINA_DUZI"
drawdashsegment B' C'
drawdashsegment O D'
drawdashcircle KRUG_KOJI_NAM_POMAZE_DA_NA_KRUGU_l_NADJEMO_TACKU_A
drawline p
drawline p'
drawdashcircle KRUG_KOJI_NAM_POMAZE_DA_NA_PRAVOJ_p'_NADJEMO_TACKU_D
drawline q
color 0 0 255
drawsegment A B
drawsegment B C
drawsegment C A
color 0 0 0



cmark_rt O
cmark_rt H
% Na vise mesta koristimo promenu boje i ponovno vracanje na crnu (i promenu fontsize-a)
% iz razloga sto insistiramo na odrzanju redosleda koraka koji odgovaraju istinskoj
% konstrukciji. Znaci - kako neki element nadjemo, obelezimo ga i nacrtamo i slicno
% medjutim, 'glavne' elemente obelezavamo crnom bojom, za razliku od svih pomocnih
color 180 180 180
cmark_lt B'
cmark_r C'
cmark_rt D'
color 0 0 255
fontsize 12
cmark_rt A
fontsize 8
color 180 180 180
cmark_lb D
fontsize 12
printat_l P {p}
printat_l P' {p'}
printat_t Q {q}
color 0 0 0
printat_b L {l}
fontsize 8
color 0 0 255
fontsize 12
cmark_lb B
cmark_b C
fontsize 8
color 0 0 0