На главную
Назад
Снежинка
;Blitz3D
Graphics 1024,768
Global x0=512
Global y0=384
Global x=0
Global y=0
ClsColor 255,255,255
Cls
Color 0,0,0
While Not KeyDown(1)
For n= 1 To 10000
t = Tan(n)
t0 = zero(Tan(n))
t01 = 1/zero(Tan(n))
x = x0+100*Sin(n/10)-30*Sin(n/2)
y = y0+100*Cos(n/10)+30*Cos(n/2)
Plot x,y
Next
Wend
Function zero(i)
If i = 0 Then
Return 1
Else
Return i
EndIf
End Function