|
Jak tedy? Toto je funkce kterou vytvářím pixely Vámi popsaným způsobem. Dynamický systém vrací proměnou X a Y, to se přímo nabízí vykreslování pomocí pixelů :D
Private Function Martin(ByVal X As Double, ByVal Y As Double, ByVal A As Double, ByVal Zvetseni As Double, ByVal PosunX As Integer, ByVal PosunY As Integer, ByVal Iter As Integer) As Rectangle()
Dim X2 As Double
Dim Body(Iter) As Rectangle
While Iter > 0
Iter -= 1
X2 = X
X = Y - Sin(X)
Y = A - X2
Body(Iter) = New Rectangle(CInt(X * Zvetseni + PosunX), CInt(Y * Zvetseni + PosunY), 1, 1)
End While
Return Body
End Function
Jinak tohle pracuje velice pomalu. Pro pěkný obrázek potřebuju cca 590000 iterací. A to je sakra hodně bodů!
|