Règle et équerre
Author: Paul
Date: 2006

Déplacer

Pivoter

Glisser

E = (10.566666666666665, 4.53333333333333)
c = Circle(E, 14)
D = Point(c)
b = Line(E, D)
a = OrthogonalLine(D, b)
G = Point(a)
u = Vector(D, E)
F = Translate(G, u)
Poly1, e, f, c_1, d_1 = Polygon(E, D, G, F)
A = Point(e)
v = Vector(F, E)
B = Translate(A, Vector[6 * v])
C = Translate(A, Vector[-0.35 * u])
Poly2, c_2, a_1, b_1 = Polygon(A, B, C)