раздел демосцены слегка пропал, но я рискну начать здесь.
Код:
n=200 r.f=#PI*2/235 x.f=0 y.f=0 v.f=0 t.f=0.22 s=240/2 If InitSprite() And OpenWindow(0,0,0,640,480,"Bubble Universe",#PB_Window_SystemMenu) And OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) Repeat StartDrawing(ScreenOutput()) Box (0,0,640,480,0) For i=0 To n Step 2 For j=0 To n Step 2 u.f=Sin(i+v)+Sin(r*i+x) v.f=Cos(i+v)+Cos(r*i+x) x=u+t col=RGB(i*2,j*2,99) Box (320+u*s,240+v*s,2,2,col) Next j Next i t+0.025 StopDrawing() FlipBuffers() Until WindowEvent()=#PB_Event_CloseWindow EndIf
идея не моя, Tronix писал нечто под олдовую машинку - 8086+CGA