Waves (волны)

Великолепный исходник анимации волн. Даже поражает, что при таком маленьком размере, программа выполняет столько функций. В ней четыре типа анимации. И все они создают ощущение 3D графики.

Платформы: Windows, Linux
Автор: lrcvs

'Autor: lrcvs
Dim As Double t,d,h
Dim As Integer x,y,y1, x1,z

Cls
Screenres 700,700
For t=40 To 120 Step .1
    Cls
    Screenlock
    For y1 = 0 To 24
        For x1 = 0 To 24
            x=12*(24-x1)+12*y1
            y=-6*(24-x1)+6*y1+300
            d= ((10-x1)^2+(10-y1)^2)^.5
            If t>40 And t<60 Then h=60*Sin((x1-y1)/4+t)+65
            If t>60 And t<80 Then h=60*Sin(x1/2+t)+60*Cos(y1/2+t)+65
            If t>80 And t<100 Then h=60*Sin((x1+y1)/4+t)+65
            If t>100 And t<120 Then h=60*Sin(d*.5+t)+65
            Color Rgb (y1+75, 255, 75-y1)
            Circle ( x+75,y-h),25,,,,,f
        Next x1
    Next y1
    Screenunlock
    Sleep 40
Next t
End

FreeBasic

Waves (волны)