input courbes.mp;
%============================================================================
def fx(expr t) =
 			   t
enddef;
def fy(expr t) =
                sind(t*180/3.1415)
enddef;
%=============================================================================
verbatimtex 
%&latex 
\documentclass{article} 
\usepackage{palatino} 
\newcommand{\vect}[1]{\overrightarrow{#1}}
\newcommand{\Vect}[1]{\overrightarrow{\strut #1}}
\begin{document} 
etex 
                
beginfig(1);	   
path p; 
picture r;
repere(0,0,-7,7,-2,2,1cm,2cm);
quad_x(0.5);
quad_y(0.5);
r_axes;
r_origine;
r_unites;
r_labelxy;
pickup pencircle scaled 0.8pt;
p = f_courbe(-7,7,100);
draw p withcolor blue ;
pickup pencircle scaled 0.5pt;
r = thelabel.top(btex $y=\sin x$ etex, r_point(3,1));
unfill bbox r; draw r;draw bbox r; 
r_fin;
endfig;

end