%% PhS + gh 
%% rotation : formule de détermination de l'angle

%% È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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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# $D$
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# $P$
2.5 -2.5 0 [2.5 dup] cctexlabel3d


/e1 {2 0 0} def
/e2 {0 2 0} def
/e3 {0 0 2} def
#latex# $e_{1}$
e1 [2 dup] cltexlabel3d
#latex# $e_{3}\wedge e_{1}$
e2 [2 dup] urtexlabel3d
#latex# $e_{3}$
e3 [2 dup] dltexlabel3d

/alpha {50} def
/cosa {alpha cos} def
/sina {alpha sin} def
/x {2 cosa mul} def
/y {2 sina mul} def

/origine {0 0 0} def
/u {x y 0} def
#latex# $f(e_{1})$
u [2 dup] drtexlabel3d

bleu
continu
3 setlinewidth
[origine e1] (->) ligne3d
[origine e2] (->) ligne3d
[origine e3] (->) ligne3d


rouge
continu
3 setlinewidth
[origine u] (->) ligne3d

1.5 setlinewidth
pointilles
[u 0 y 0] (-) ligne3d
[u x 0 0] (-) ligne3d



noir
continu

(node_cos) node
#latex# $\cos \alpha$
0 -1.5 0 [2 dup] cltexlabel3d

(node1) node
() x 0 0 cctext3d

(node_sin) node
#latex# $\sin \alpha$
-2 1 0[2 dup] dltexlabel3d

(node2) node
() 0 y 0 cctext3d

(node_cos) (node1) (->) ncarc
(node_sin) (node2) (->) ncarc