例1

 
extends TextChar;
while (1) {
   dx=x-$mouseX;
   dy=y-$mouseY;
   text=sqrt(dx*dx+dy*dy); 
   update();
}