//*********************************************** //fonction créant une bille et deux rayons lasers function OT(x,y,z) { newPhot(x-0.5,y-0.5,z,1,1,0); newPhot(x+0.5,y-0.5,z,-1,1,0); newBead(x-0.2,y,z,0.3,1); } //************************** MAIN PROGRAM print(commands); setScalablepG(1); setMovable(0); setMovablepG(1); //Debut du programme principal setViewXYpG(0,-1); // Vue centrée sur la pince setViewX(0.5); setViewY(-0.5); //Pince optique simple OT(0,0,0); // Graphique force extension Npt=1000; setWindow(0,0); newGraph(Npt); setBounds(-6,-20,12,40); g = lastGraph; colorGraph(0,0,0); setAxisX(1,0,2,0,0.1); setAxisY(1,0,5,0,0.1); setViewXYpG(0,-1); addLabel(1,16,'Force (~pN)'); addLabel(3.2,1.5,'Length (~µm)'); D=0.5; nhold=0; hasdragged=0; distdragging=0.3; dd2=distdragging*distdragging; sync(0<1) { kdrag=200; setBeadPosY(0,0); addPtGraph(getBeadPosX(0)*10,getBeadSFX(0)/5); // Reponse au dragging if (isMouseDragged==1) { if (hasdragged==1) { // continue to drag point setBeadForce(nhold,kdrag*(getMouseX-getBeadPosX(nhold)),0,0); //setPtY(nhold,-getMouseY); } else { // look for a point to drag found=0;i=0;gN=getNBille;mx=getMouseX; my=-getMouseY; while ((found==0)&(i<gN)) { px=getBeadPosX(i);py=getBeadPosY(i); if (((mx-px)*(mx-px)+(my-py)*(my-py))<dd2) { found=1; nhold=i;} i=i+1;} if (found==1) { hasdragged=1; } } } else { if (hasdragged==1) { // free dragged point hasdragged=0; setBeadForce(nhold,0,0,0); } } // reponse au clavier if (kP==1) { a=rK; if(a=='p') { // increase NA D=D+0.01; } if(a=='m') { // decrease NA D=D-0.01; } //phot0 setP(0,-D,-0.5,0); setD(0,D,0.5,0); //phot1 setP(1,D,-0.5,0); setD(1,-D,0.5,0); } }