%% PhS + gh 
%% Projecteur

%% Èchelle et Ètendue de l'image
60 setxunit
-5 5 setxrange
-3 2.5 setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%% en vrai
%%%%%%%%%%%%
/ScreenDist 0.1 def
/ZoomFactor_x 100 def
/ZoomFactor_y 100 def

8 3 3 SetCamPos
GetCamPos -1 mulv3d SetCamVec
0 0 1 SetCamUp
ComputeCamera

%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%


rouge

/tabprov [] def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% dÈfinitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def
/coul2 {255 255 div 240 255 div 240 255 div setrgbcolor} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracés
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% tracé du quadrillage
1.5 setlinewidth
17 setfontsize
noir
continu
qplanxy
/arrowscale {currentlinewidth dup} def

%% Tracé de F^\perp
[0 0 0 0 0 3] ligne3d
pointilles
[0 0 0 0 0 3 neg] ligne3d
#latex# $F^\perp$
0 0 2 [2.5 dup] crtexlabel3d

%% Tracé de F
continu
3 setlinewidth
[-3 -3 0 -3 3 0 3 3 0 3 -3 0 -3 -3 0] ligne3d
#latex# $F$
2.5 2.5 neg 0 [2.5 dup] cctexlabel3d


%% Tracé de x et proj(x)
/antecedent {1 neg 2 2} def
/image {1 neg 2 0} def
/origine {0 0 0} def

rouge
[origine antecedent] (->) ligne3d
[origine image] (->) ligne3d
1.5 setlinewidth
pointilles
[antecedent image] ligne3d
continu
#latex# $x$
origine antecedent milieu3d [2.5 dup] uctexlabel

#latex# $p_{F}(x)$
origine image milieu3d [2.5 dup] uctexlabel