На главную

Назад

Цветок на занавеске
Цветок на занавеске

;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 1000000
t = Tan(n)
t0 = zero(Tan(n))
t01 = 1/zero(Tan(n))
x = x0+Cos(n/10)*300+Cos(n)*30+Cos(n*10)*10
y = y0+Sin(n/10)*300+Sin(n)*30+Sin(n*10)*t
Plot x,y
Next
Wend

Function zero(i)
If i = 0 Then
Return 1
Else
Return i
EndIf
End Function
Hosted by uCoz