x_max=1024	;Auflösung festlegen
y_max=768

Dim x_start(3),y_start(3) 	;Platz freihalten für die 3
							;Eckpunkte des Anfangs-Dreiecks
Graphics x_max,y_max
SetBuffer DesktopBuffer()	
SeedRnd MilliSecs()			

For lauf=0 To 2				;Koordinaten für das Startdreieck festlegen

	x_start(lauf)=Rnd(0,x_max-1)	;-1, um sicher zu gehen, das der Startpunkt
									;wirklich außerhalb des Dreiecks liegt
	y_start(lauf)=Rnd(0,y_max-1)
	Plot x_start(lauf),y_start(lauf)
Next

;	Die folgenden Zeilen aktivieren, wenn man das Startdreieck angezeigt bekommen möchte
;	Line x_start(0),y_start(0),x_start(1),y_start(1)
;	Line x_start(1),y_start(1),x_start(2),y_start(2)
;	Line x_start(2),y_start(2),x_start(0),y_start(0)

det_start=Rnd(0,3)	;Der Startpunkt befindet sich an einer der 4 Randseiten

Select det_start
	Case 0
		x=Rnd(0,x_max)
		y=0
	Case 1
		x=0
		y=Rnd(0,y_max)
	Case 2
		x=Rnd(0,x_max)
		y=600
	Case 3
		x=800
		y=Rnd(0,y_max)
End Select



; Die eigentliche Berechnung

Repeat

	Color Rnd(255),Rnd(255),Rnd(255)	;Zufällige Farben benutzen
	Plot x,y		;Einen Punkt an der aktuellen Stelle zeichnen
	
	newdir=Rnd(0,2)	;Eine zufällige Richtung festlegen zu einem der 3 Eckpunkte
					
	x=(x+x_start(newdir))/2	;Exakt auf der Hälfte der Strecke
	y=(y+y_start(newdir))/2 ;liegt der neue Ausgangspunkt
	
Until KeyHit(1) ;Wiederholen, bis ESCAPE gedrückt wird