%% PhS + gh 
%% rotation

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


% Définition de l'antécédent
/x {2} def
/y {0} def
/z {2} def
/alpha {120} def
/cosa {alpha cos} def
/sina {alpha sin} def
% /x' {x cosa mul y sina sub} def % ça ne marche pas comme ça!!!
% /y' {x sina mul y cosa add} def % j'impose à y d'être nul
% /z' {z} def
/x' {x cosa mul} def
/y' {x sina mul} def
/z' {z} def

/origine {0 0 0} def
/u {x y z} def
/u' {x' y' z'} def
/u1 {x y 0} def
/u1' {x' y' 0} def

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

3 setlinewidth
continu
[origine u'] (->) ligne3d
1.5 setlinewidth
pointilles
[origine u1'] (->) ligne3d
[u' u1'] (-) ligne3d

#latex# $x$
u [2.5 dup] dltexlabel

#latex# $r(x)$
u' [2.5 dup] cltexlabel


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Pour représenter l'angle
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 
%% on donne ici x(t)
/xdet {
1 dict begin
	/t exch def
	t cos
end
	} def

%% on donne ici y(t)
/ydet {
1 dict begin
	/t exch def
	t sin
end
	} def

noir 
continu
/ahcoeff 0 def
0 alpha settrange
{dup xdet exch ydet 0 CamView pop} {dup xdet exch ydet 0 CamView exch
pop} (->) courbeparam

#latex# $\alpha$
alpha 2 div dup cos sin 0 [2.5 dup] drtexlabel