Amoe

 

Небольшая идея посетила вчера вечером.

an.f=0
If InitSprite() And OpenWindow(0,0,0,640,480,"Amoe",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget) And OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) 
  Repeat 
    StartDrawing(ScreenOutput())
    Box(0,0,640,480,0)
    For i=0 To 360
      r.f=50+10*Sin(7*i*#PI/180)+5*Sin(5*i*#PI/180+an*3)
      x=r*Cos(i*#PI/180+an)+320
      y=r*Sin(i*#PI/180+an)+240
      If i=0
        ;       Box(x+320,y+240,1,1,$FFFFFF)
        x0=x
        y0=y
      Else
        LineXY(x0,y0,x,y,$FFFFFF)
        x0=x
        y0=y
      EndIf
      
    Next i
    FillArea(320, 240, $FFFFFF, $FFFFFF)
    an+0.017
    StopDrawing() 
    FlipBuffers()
    If GetAsyncKeyState_(#VK_ESCAPE)&32768
      Break
    EndIf
    
  Until WindowEvent()=#PB_Event_CloseWindow 
EndIf
; IDE Options = PureBasic 5.30 (Windows - x86)
; CursorPosition = 18
; Executable = amoe.exe

сырок+программа