Fichier 1292.jps — Modifié le 25 Octobre 2007 à 09 h 29
%% auteur : Gilles Mora
-3 3 setxrange
-3 3 setyrange
70 setxunit
%tracerepere
/O{0 0} def
/cerc{O 2} def
/C{-30 cerc cpoint} def
/A{95 cerc cpoint} def
/B{180 cerc cpoint} def
/E{-85 cerc cpoint} def
/dotscale {2 dup} def
/H {A B C orthoproj} def
[A O B H C E] {times} plot
cerc cercle
[A B] ligne
[B C] ligne
[A E] ligne
[A C] ligne
A H B angledroit
[A H] ligne
[E C] ligne
setTimesItalic
(A) A [2 2] utext
(B) B [2 2] ltext
(O) O [2 2] ultext
(H) H [2 2] dltext
(C) C [2 2] drtext
(E) E [2 2] dtext