<\body> <\session|eukleides|default> <\output> *K*\*EI \*H*\> A Euclidean Geometry Drawing Language 1. Angles are followed by ":" for degrees and "\" for radians. 2. Use "%" to comment a line. Eukleides version 1.5.4 Copyright (c) Christian Obrecht 2004-2010 <\unfolded-io> Eukleides]\ <|unfolded-io> A B C triangle;draw (A.B.C) <|unfolded-io> |ps>||||> \; <\unfolded-io> Eukleides]\ <|unfolded-io> O = point(2, 2) C = circle(O, 2) A = point(6.5, 2) \; c = circle(O.A) I.J = intersection(C, c) \; draw \ \ line(A, I) gray \ \ line(A, J) gray \ \ C ; c dashed, gray \ \ O plus ; A end <|unfolded-io> |ps>||||> <\unfolded-io> Eukleides]\ <|unfolded-io> A B C triangle \; A' = projection(A, line(B, C)) B' = projection(B, line(C, A)) C' = projection(C, line(A, B)) \; A_0 = midpoint(B.C) B_0 = midpoint(C.A) C_0 = midpoint(A.B) \; draw \ \ (A.B.C) \ \ circle(A', B', C') \ \ A'; B'; C' \ \ A_0 ; B_0 ; C_0 end draw dashed \ \ A.A' ; B.B' ; C.C' end \; label \ \ A -135: ; B -45: ; C 90: \ \ A' 45: ; B' 135: ; C' -90: \ \ A_0 30: ; B_0 150: ; C_0 -90: end <|unfolded-io> |ps>||||> <\unfolded-io> Eukleides]\ <|unfolded-io> box -3, -4, 7, 8 \; e = ellipse(point(0,0), 2, 1, 0 rad) \; A = point(e, 0 rad) B = point(e, pi/5 rad) C = point(e, 2*pi/3 rad) D = point(e, pi rad) E = point(e, 3*pi/2 rad) F = point(e, 11*pi/6 rad) \; AB = line(A, B) BC = line(B, C) CD = line(C, D) DE = line(D, E) EF = line(E, F) FA = line(F, A) \; I = intersection(AB,DE) J = intersection(FA,CD) \; draw dashed, gray \ \ AB ; BC ; CD ; DE ; EF ; FA end \; draw \ \ line(I, J) \ \ (A.B.C.D.E.F) gray \ \ e end <|unfolded-io> |ps>||||> <\input> Eukleides]\ <|input> \; <\initial> <\collection>