¿Cómo hacer que el mouse se mueva circularmente en el círculo hasta encontrar la imagen?
Los parámetros específicos de la espiral los puedes modificar tú mismo.
Evoluta subcircular (centro x-cordina, centro y-cordina, distancia entre dos puntos, radio incremental, número de vueltas)
//Ejemplo: Llamar a lib.Circular Involuta( 400,300,20,20,20)
Dim x0,y0,rr,l,n,r,x,y
//Establece las coordenadas del centro del círculo
x0=coordenada x del centro del círculo: y0=coordenada y del centro del círculo
//Establecer radio incremental
rr= Radio creciente
//Establecer espaciado de puntos
l= distancia entre dos puntos
//Inicializar ángulo
n=0
//Establecer el radio del primer círculo
r=30
//Establece el número de círculos que se dibujarán
Para Número de círculos
Mientras que n< 3.1415926*2
/ /Fórmula para dibujar un círculo
x=xr*cos(n)
y=y0-r*sin(n)
MoveTo x,
Retraso 10
var = GetCursorShape(0)
Si var = 1055991329 Entonces
Clic izquierdo 1
Finalizar si
n=n+l/r
Fin
//Restablecer el ángulo después de un giro
n=0 p>
//Incrementa el radio en rr después de un giro
r=r+rr
Siguiente
Fin del sub.