XProfan

Français

p.specht

il y a oui Programme, wohin Schaltflächen pas rechtwinkelig sommes,
mais z.B. Polygone. cet peux on stets dans un la quantité Dreiecke
décomposer, pour qui on ensuite droite simple INNEN et AUSSEN ermitteln peux.
bien sûr gibt es dans qui Windows-API également entsprechende Opportunités - ici dagegen ca va seulement la fois um´s Prinzip:

Kompilieren Marque Séparation

Titre de la fenêtre "Maus im Dreieck?":cls
declare x!,y!,x1!,y1!,x2!,y2!,x3!,y3!
x1!=240:y1!=40: x2!=400:y2!=200: x3!=240:y3!=300

proc PTEST : parameters x!,y!

    declare 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!)
    return ((fAB!*fBC!)>0) & ((fBC!*fCA!)>0)

endproc

proc TRIANG : parameters 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
imprimer:imprimer "ESC finissez.": Imprimer : imprimer "Deine souris ist maintenant..."

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

    x!=%MouseX:y!=%Mousey

    IF PTest(x!,y!):Localiser 10,10:Imprimer "Innen "

        ELSE:Localiser 10,10:Imprimer "Aussen":ENDIF

    ENDWHILE'Exit

    killtimer
    Fin