Graphics 800,600
SeedRnd MilliSecs()

 
Dim eckpunkt(2,1)         ;Die Eckpunkte des Dreiecks ,der linke Wert ist der Punkt, der rechte wert x u. y

Const iterationen = 20000

Type punkt 
	Field x
	Field y
End Type

p.punkt  = New punkt 

startpunkt.punkt = New punkt 
startpunkt\x = 400
startpunkt\y = 300





p.punkt = startpunkt 


SetBuffer BackBuffer() 

Repeat 
Cls

winkel# = winkel + 0.5 Mod 360


;Die Eckpunkte berechnen
eckpunkt(0,0) = Sin(eckpunkt(0,1) )*150+400
eckpunkt(0,1) = Cos(winkel)*150+400

eckpunkt(1,0) = Sin((eckpunkt(1,1)+120))*150+400
eckpunkt(1,1) = Cos(winkel+120)*150+300

eckpunkt(2,0) =Sin(eckpunkt(2,1)+240)*150+400
eckpunkt(2,1) =Cos(winkel+240)*150+300


LockBuffer BackBuffer()

;Der Hauptteil, nämlich der Algorhytmus, wie das Dreieck gebildet wird 
For i = 0 To iterationen

zufall = Rnd(2)
p\x = p\x +(eckpunkt(zufall,0)-p\x)/2
p\y = p\y +(eckpunkt(zufall,1)-p\y)/2

WritePixelFast p\x,p\y,rgb(255,0,0)
Next 

UnlockBuffer BackBuffer()




Flip 
Until KeyHit(1)


Function rgb(rot,gruen,blau)
Return blau Or(gruen Shl 8) Or (rot Shl 16)
End Function