Этюд на PureBasic

 

попалась на глаза  одна картинка:

Хорошо, что удалось разобрать текст:

s=128;512
x0=320
y0=240
If InitSprite() And OpenWindow(0,0,0,640,480,"SineWave",#PB_Window_SystemMenu) And OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) 
  Repeat 
    StartDrawing(ScreenOutput()) 
    a.f=0
    While a<=126
      x=Int( s*Sin(a)+320 )
      y=Int( s*Cos(a)*Sin(0.95*a)+240 )
      LineXY(x0,y0,x,y,255)
      ;Box(x0,y0,1,1,255)
      x0=x
      y0=y
      a=a+0.25
    Wend
        StopDrawing() 
      FlipBuffers() 
  Until WindowEvent()=#PB_Event_CloseWindow 
EndIf
; IDE Options = PureBasic 5.30 (Windows - x86)
; CursorPosition = 10