Fichier 333.jps — Modifié le 29 Juin 2006 à 12 h 13

333.pdf
Source
%% D'apres un fichier original en PSTricks de François Meria.
%% http://melusine.eu.org/syracuse/texpng/cprl/meria/doc92/

%% \psset{unit=0.46cm}
20 setxunit

%% \pspicture(-4,-2.2)(16,14.5)
-4 16 setxrange
-2.2 14.5 setyrange

setTimes  %% selection de la police

%%     \pstGeonode[PointSymbol=none,PosAngle={-135,-45},PointName=none](0,0){B}(12,0){C}            %,PointName=none
/B {0 0} def
/C {12 0} def

%%     \pstRotation[PointSymbol=none,RotAngle=60,PosAngle=90,PointName=none]{B}{C}{A}
C B 60 rotatepoint /A defpoint

%%     \pstMiddleAB[PointSymbol=none,PosAngle=-45,PointName=none]{B}{C}{J}
B C milieu /J defpoint

%%     \pstMiddleAB[PointSymbol=none,PosAngle=45,PointName=none]{A}{C}{K}
A C milieu /K defpoint

%%     \pstMiddleAB[PointSymbol=none,PosAngle=135,PointName=none]{B}{A}{I}
B A milieu /I defpoint

%%     \pstInterLL[PointName=none,PointSymbol=none]{A}{J}{B}{K}{O}
A J B K interdroite /O defpoint

%%     \pstInterLC[Radius=\pstDistVal{2},PointName=none,PointSymbol=none,PosAngle=-90]{A}{O}{J}{}{Z_3}{D}
%%     \pstInterLC[Radius=\pstDistVal{2},PointName=none,PointSymbol=none,PosAngle=135]{C}{O}{I}{}{Z_1}{E}
%%     \pstInterLC[Radius=\pstDistVal{2},PointName=none,PointSymbol=none,PosAngle=45]{B}{O}{K}{}{Z_2}{F}

%% je n'ai pas compris. tant pis, on definit D, E, F avec une homothetie
1.15 C I ABpoint /E defpoint
1.15 B K ABpoint /F defpoint
1.15 A J ABpoint /D defpoint

%%     \pstTranslation[PointName=none,PointSymbol=none]{I}{E}{A}{t}
%%     \pstTranslation[PointName=none,PointSymbol=none]{K}{F}{A}{p}
%%     \pstTranslation[PointName=none,PointSymbol=none]{J}{D}{B}{q}
%%     \pstInterLL[PointName=none,PointSymbol=none]{D}{q}{E}{t}{B'}
%%     \pstInterLL[PointName=none,PointSymbol=none]{D}{q}{p}{F}{C'}
%%     \pstInterLL[PointName=none,PointSymbol=none]{F}{p}{E}{t}{A'}

%% on ne fait pas pareil : on definit les droites d1, d2, d3, cotes du
%% triangle

C I E perp /d1 defdroite  %% prependiculaire a (CI) passant par E
A J D perp /d2 defdroite
B K F perp /d3 defdroite

%% les points A', B' et C' sont les intersections de ces droites
d1 d2 interdroite /B' defpoint
d3 d2 interdroite /C' defpoint
d1 d3 interdroite /A' defpoint

1.5 setlinewidth

%%     \pspolygon[linewidth=1.5pt](A')(B')(C') %[fillstyle=solid,fillcolor=yellow]
/fillstyle {jaune fill} def
[A' B' C'] polygone*

%%     \pstArcOAB[linewidth=1.5pt]{I}{B}{A}
%%     \pstArcOAB[linewidth=1.5pt]{E}{B}{A}
I B A arcp
E B A arcp
%%     \pstArcOAB[linewidth=1.5pt]{K}{A}{C}
%%     \pstArcOAB[linewidth=1.5pt]{F}{A}{C}
K A C arcp
F A C arcp
%%     \pstArcOAB[linewidth=1.5pt]{J}{C}{B}
%%     \pstArcOAB[linewidth=1.5pt]{D}{C}{B}
J C B arcp
D C B arcp
%%     \put(5,-3.8){Figure $2$}
%% \endpspicture

%% on affiche
(B') B' dltext   (B) B dltext
(C') C' drtext	 (C) C drtext
(A') A' uctext	 (A) A uctext
(J) J dctext     (E) E ultext
(K) K urtext	 (F) F urtext
(I) I ultext	 (D) D dctext