segment_Koch LT n 0 P1 P2 local_tFinaux P1 P2 P1 local_tFinaux 0 MINUS 1 n 1 local_tFinaux 0 local_tFinaux 2 MINUS 1 n 1 local_tFinaux 2 local_tFinaux 1 MINUS 1 n 1 local_tFinaux 1 P2 MINUS 1 n 1 macro_Koch var C1=Circle("C1",P1,P2); var C2=Circle("C2",P2,P1); var S1=Segment("S1",P1,P2); var P3=OrderedIntersection("P3",C2,C1,1); var Symc1=Symmetry("Symc1",P3,P1); var Symc2=Symmetry("Symc2",Symc1,P3); var L1=Line("L1",P2,Symc2); var Par1=Parallel("Par1",L1,Symc1); var Par2=Parallel("Par2",L1,P3); var P4=OrderedIntersection("P4",S1,Par2,0); var P5=OrderedIntersection("P5",S1,Par1,0); var C3=Circle("C3",P4,P5); var C4=Circle("C4",P5,P4); var P6=OrderedIntersection("P6",C4,C3,1); STL(P4,"c:#0000b2;s:6;f:30"); STL(P5,"c:#0000b2;s:6;f:30"); STL(P6,"c:#0000b2;s:6;f:30"); STL(C1,"h:1"); STL(C2,"h:1"); STL(S1,"h:1"); STL(P3,"h:1"); STL(Symc1,"h:1"); STL(Symc2,"h:1"); STL(L1,"h:1"); STL(Par1,"h:1"); STL(Par2,"h:1"); STL(C3,"h:1"); STL(C4,"h:1"); return [P4,P5,P6]; A -4 0 B 4 0 A B 3