Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo hacer que el mouse se mueva circularmente en el círculo hasta encontrar la imagen?

¿Cómo hacer que el mouse se mueva circularmente en el círculo hasta encontrar la imagen?

Le proporciona una subrutina de involución circular. Esto es para hacer que el mouse haga un movimiento en espiral en el círculo y luego encuentre los lugares extraños a través del código de característica de la forma del mouse. Puede colocar la sección del código de característica de la forma del mouse en su declaración de imagen de búsqueda. . medio.

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

//Incrementa el radio en rr después de un giro

r=r+rr

Siguiente

Fin del sub.