INCLUDE canvas-gd.bac WINDOW("vaccuum", 600, 400) DECLARE x1=200, yy=200, a=200 SUB redraw INK(255,255,255,255) CLS FOR i = 4 TO 255 x2 = x1 + COS(i + a) * i * 6 y2 = yy + SIN(i + a) * i * 6 INK(255 - i, 255 - i, 255 - i, 255) CIRCLE(80 + x2, y2, i, i, TRUE) INK(55, 255, 55, 255) CIRCLE(80 + x2, y2, i, i, FALSE) NEXT INCR a IF a > 360 THEN a = -a INK(0,0,0,255) PRINT HOUR(NOW), MINUTE(NOW), SECOND(NOW) FORMAT "%02ld:%02ld:%02ld" TO t$ TEXT(t$, 10, 20) TEXT("Particles Cleaner",60, 375) ENDSUB FRAMES(44) CALLBACK(30, redraw) WAITKEY