-4.5 5 setxrange
-3 3 setyrange
20 setxunit
3 -6 5 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 
0 3 1 axesRVB

%% on fait le chemin
newpath
-5 dup Sin smoveto
-5 5 {Sin} Courbe_

%% projete, avec vecteur normal
gsave
   bleu
   0 0 0 [0 0 1] projpath
stroke
grestore
%% projete, avec vecteur normal + rotation
gsave
orange
   0 0 0 [0 0 1 45] projpath
stroke
grestore
%% projete, avec images de I et K
0 0 0 [0 1 0 0 0 1] projpath
stroke