Guru
Joined: 01/10/2023
Location: UkrainePosts: 606
| Posted: 05:21pm 19 May 2025 |
Evil Fractal
CLS
Do
If Cint(Rnd) Then
T=(X+Y)/2
Y=(Y-X)/1.333
X=T
Else
T=(X+Y+1)/2
Y=(Y-X+1)/4
X=T
EndIf
Pixel 240+X*350,170-Y*290
Loop While Inkey$=""
Do
If Cint(Rnd) Then
T=(X+Y)/2
Y=(Y-X)/1.333
X=T
Else
T=(X+Y+1)/2
Y=(Y-X+1)/4
X=T
EndIf
Pixel 240+X*350,170-Y*290
Loop While Inkey$=""