XProfan

Español

p.specht

Lo son sí Programas, wo Schaltflächen no rechtwinkelig son,
pero z.B. Polygone. Diese puede ser stets en un Menge Dreiecke
zerlegen, para el una continuación bastante simplemente INNEN y AUSSEN ermitteln kann.
Selbstverständlich hay en el Windows-API ebenfalls entsprechende Möglichkeiten - hier dagegen es sólo veces um´s Principio:

Kompilieren Marca Separación

Título de la ventana "Maus en el Dreieck?":cls
declarar x!,y!,x1!,y1!,x2!,y2!,x3!,y3!
x1!=240:y1!=40: x2!=400:y2!=200: x3!=240:y3!=300

proc PTEST : parámetros x!,y!

    declarar fab!,fca!,fbc!
    fAB!=(y!-y1!)*(x2!-x1!)-(x!-x1!)*(y2!-y1!)
    fCA!=(y!-y3!)*(x1!-x3!)-(x!-x3!)*(y1!-y3!)
    fBC!=(y!-y2!)*(x3!-x2!)-(x!-x2!)*(y3!-y2!)
    volver ((fAB!*fBC!)>0) & ((fBC!*fCA!)>0)

ENDPROC

proc TRIANG : parámetros x1!,y1!,x2!,y2!,x3!,y3!

    usepen 0,1,@rgb(255,0,0):line x1!,y1!-x2!,y2!
    line x2!,y2!-x3!,y3!:line x3!,y3!-x1!,y1!

ENDPROC

triang(x1!,y1!,x2!,y2!,x3!,y3!)' Init
imprimir:imprimir "ESC final.": Imprimir : imprimir "Deine Ratón es ahora..."

WHILENOT %Key=27:settimer 100:WaitInput'Main

    x!=%MouseX:y!=%Mousey

    IF PTest(x!,y!):Localizar 10,10:Imprimir "Innen "

        ELSE:Localizar 10,10:Imprimir "Aussen":ENDIF

    ENDWHILE'Exit

    killtimer
    End