   [main(doc,op)
{
 var dist=(vlen(cursor-curpos));
	curpos+=sin(dist/(bscale*100))*curnorm;
} 