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

// Trois fonctions à connaitre : arctime, dirtime, reltime.
// Illustrons dans cet exemple l'utilisation de arctime et arcpoint.
 
/* real arctime(path p, real L);
        renvoie le "time" du point à la distance curviligne L du noeud 0 sur le chemin p.
        
   pair arcpoint(path p, real L);
        renvoie le couple de coordonnées du point à la distance curviligne L du noeud 0 sur le chemin p.
*/
usepackage("xcolor");
import markers;
import geometry;
show(defaultcoordsys);
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 le debut de la ligne, sur une longueur 10, en 10...
// ... en mettant donc 11 points rouges espacés de 1.
draw(subpath(ligne,0,arctime(ligne,10)),
     nullpen, // << pour ne pas tracer la restriction de la ligne
     StickIntervalMarker(i=10,n=2,size=1mm,space=.5mm,dotframe(1.9bp+red))
     );
/* arctime(ligne,10) a permis d'avoir le "time" du point qui est à une distance 
   curviligne 10 du début de la ligne... qui était attendu par la fonction subpath.
*/
draw(Label(minipage("\footnotesize\textcolor{red}{\tt arcpoint(ligne,10)}\color{purple}\\
                     (point situ\'e à une distance curviligne 10 du noeud 0)
                     dont le \emph{time} est donn\'e\\
                     par \textcolor{red}{\tt arctime(ligne,10)}.\\
                     {\tt arctime(ligne,10)}$\approx 1,71$",4.2cm),position=BeginPoint),
                     (2.2,2.5)--arcpoint(ligne,10),Arrow); 

// write(arctime(ligne,10)); // Affichage en console : 1.70681592073236
                     
shipout(bbox(1mm,white));