// EXEMPLE COMPLETEMENT REVU - POUR SIMPLIFICATION - LE 21/11/12

// Trois fonctions à connaitre : arctime, dirtime, reltime.
// Illustrons dans cet exemple l'utilisation de reltime et relpoint.
 
/* real reltime(path p, real l);
        renvoie le "time" du point de p situé à une distance 
        relative l (comprise entre 0 et 1) du noeud 0.
        
   pair relpoint(path p, real l);
        renvoie le couple de coordonnées du point de p situé à une distance 
        relative l (comprise entre 0 et 1) du noeud 0.
*/
usepackage("xcolor");
import markers;
size(8cm,0);

path ligne=(-3,5.5){dir(60)}..(-.5,6)..(3.5,-1.5)..{dir(80)}(5,1);
     
draw(ligne,blue,dot);
for(int k=0; k<size(ligne); ++k) label(string(k),point(ligne,k),N);

// Subdivisons, en 7, les premiers 70\% de la ligne... 
// ... en mettant donc 8 points rouges \'egalement espac\'es.
draw(subpath(ligne,0,reltime(ligne,0.7)),
     nullpen, // << pour ne pas tracer la restriction de la ligne
     StickIntervalMarker(i=7,n=3,size=1mm,space=.5mm,dotframe(1.9bp+red))
     );
// reltime(ligne,0.7) a permis d'avoir le "time" du point qui est à 70% de la longueur 
// de la ligne à partir du noeud 0... qui était attendu par la fonction subpath.

draw(Label(minipage("\footnotesize\textcolor{red}{\tt relpoint(ligne,0.7)}\color{purple}\\
                     (point situ\'e à une distance relative de 70\% du noeud 0)\\
                     dont le \emph{time} est donn\'e\\
                     par \textcolor{red}{\tt reltime(ligne,0.7)}.\\
                     {\tt reltime(ligne,0.7)}$\approx 1,85$",4.4cm),position=BeginPoint),
                     (2.7,2.7)--relpoint(ligne,0.7),Arrow); 

write(reltime(ligne,0.7)); // Affichage en console : 1.84697282506223
                     
shipout(bbox(1mm,white));