%% auteur : 

-1.5 1.5 setxrange
-1.5 1.5 setyrange
100 setxunit
100 setyunit
/cerc{O 1} def
cerc cercle
/I{1 0} def
[O I] (->) ligne
/J{0 1} def
[O J] (->) ligne
/K{-1 0} def
[O K] ligne
/L{0 -1} def
[O L] ligne
/A{25 cerc cpoint} def
A point
/B {65 cerc cpoint} def
B point
[O A] (->) ligne
[O B] (->) ligne
/arrowscale {1.5 dup} def
/arrowangle -8 def
I O B  0.6 (->) tripointarc
I O A 0.4 (->) tripointarc
pointilles
/B'{B projy } def
[B B'] ligne
/A'{A projx} def
[A A'] ligne
rouge
continu
1.5 setlinewidth
[O B'] ligne
[O A'] ligne
noir

#latex#$\vec{i}$
0.5 -0.1 [1.2 1.2] cctexlabel

#latex#$\vec{j}$
-0.1 0.5 [1.2 1.2] cctexlabel

#latex#$O$
0 0 [1.2 1.2] dltexlabel

#latex#$t$
0.5 0.1 [1.2 1.2] cctexlabel

#latex#$\frac{\pi}{2}-t$
0.6 0.5 [1.2 1.2] cctexlabel