\input fig4tex % 1. Definition des points caracteristiques de la geometrie \figinit{cm,realistic} % Sommets \def\L{4} % Longueur des axes \def\Rayon{2} % du cerlce \figpt 0:(0,0,0) % Origine \figptsaxes 1 : 0(\L) % 1, 2 et 3 extremites des axes \figptcirc 4 :$S(\vartheta)$: 0,1,2;\Rayon (20) \figvectP 100 [4,0] % vecteur SO \figpttra 5:=0/3,100/ % centre de l'ecran % Construction de 2 autres points dans ce plan \figvectC 101(0,0,1) % vecteur OZ \figptrot 15 := 0 /5, 90, 101/ \figptrot 16 := 15 /5, -90, 100/ % Points definissant l'ecran carre \figptcirc 11 :: 5,15,16;4 (45)\figptcirc 12 :: 5,15,16;4 (135) \figptcirc 13 :: 5,15,16;4 (-135)\figptcirc 14 :: 5,15,16;4 (-45) % Point d'impact Pi \figptcirc 20 :$P_i$: 5,15,16;1.5 (120) % Extremite du vecteur directeur de SPi \figpthom 21 :$\alpha$= 20 /4, 0.22/ % \figset proj(psi=52,theta=20)\figshowsettings % 2. Creation du fichier graphique \figdrawbegin{} \figset (fill=yes,color=0.8)\figdrawline[11,12,13,14]\figset (fill=no,color=default) \figdrawline[11,12,13,14,11] % ecran \figset (fill=yes,color=1) \figdrawcirc 0,1,2(\Rayon) % Cercle dans le plan horizontal \figset (fill=no,color=default) \figdrawcirc 0,1,2(\Rayon) \figdrawaxes 0(\L) \figdrawaltitude 0.3[4,5,15] % equerre \figset (dash=8)\figdrawline[4,20] % X ray \figset (width=1,dash=default) \figset arrowhead(fillmode = yes)\figdrawarrow [4,21] \figdrawend \figshowsettings % 3. Inscription du texte sur le dessin \def\dist{2pt} \figvisu{\figBoxA}{}{% %\figshowpts[1,30] \figwritenw 21 :(\dist) \figwritew 1:(\dist)\figwritee 2:(\dist)\figwriten 3:(\dist) \figset write(mark={$\figBullet$}) \figwritesw 4 :(\dist)\figwritene 20 :(\dist) } % 4. Affichage \centerline{\box\figBoxA} \bye