Canvas-> Dreieck darstellen (Formeln?)?

Übersicht

BlitzBasic

BlitzPlus

	maxinet Betreff: Canvas-> Dreieck darstellen (Formeln?)?	Di, Jul 04, 2006 17:33 Antworten mit Zitat
Liebe Forengemeinde! Ich bin nun schon etwas länger dabei, eine möglichkeit zu finden, wie ich ein Dreieck zu zeichnen (alle seitenlängen gegeben..). Irgnedwie bekomme ich es nicht hin. Hier mal der Source-Code: Code: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow("Graphic Application",100,100,400,600,0,11) can=CreateCanvas(10,10,373,373,window) SetBuffer CanvasBuffer(can) ClsColor 255,255,255 : Cls Color 0,0,0 Rect 0,0,373,373,0 a=150 b=50 c=150 p=0 q=0 x=90 y=300 Line x,y,x+a,y Color 250,0,78 Line x+a,y, x+a,y-b Color 0,0,255 Line x,y,x,y-c FlipCanvas can Repeat Select WaitEvent(10) Case $803 End Case $401 Select EventSource() End Select End Select Forever Die rote und die Blaue linie müssen sich oben noch zu einem "Dreieck" treffen, nur wie soll ich es ausrechnen lassen? keine lösung mehr weiß Gruß, Maxi

maxinet

Betreff: Canvas-> Dreieck darstellen (Formeln?)?

Di, Jul 04, 2006 17:33
Antworten mit Zitat

Liebe Forengemeinde!
Ich bin nun schon etwas länger dabei, eine möglichkeit zu finden, wie ich ein Dreieck zu zeichnen (alle seitenlängen gegeben..).
Irgnedwie bekomme ich es nicht hin. Hier mal der Source-Code:

Code: [AUSKLAPPEN]

window=CreateWindow("Graphic Application",100,100,400,600,0,11)
can=CreateCanvas(10,10,373,373,window)
SetBuffer CanvasBuffer(can)
ClsColor 255,255,255 : Cls
Color 0,0,0
Rect 0,0,373,373,0

a=150
b=50
c=150

p=0
q=0

x=90
y=300

Line x,y,x+a,y
Color 250,0,78
Line x+a,y, x+a,y-b
Color 0,0,255
Line x,y,x,y-c

FlipCanvas can
Repeat
Select WaitEvent(10)
Case $803 End
Case $401
Select EventSource()

End Select
End Select
Forever

Die rote und die Blaue linie müssen sich oben noch zu einem "Dreieck" treffen, nur wie soll ich es ausrechnen lassen? *keine lösung mehr weiß*

Gruß, Maxi