' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2026.05.16.03.15]) on 2026.10.25 at 00:19 (Coordinated Universal Time)
' This program by Charlie Veniot
' Just a quick "brain age" exercise playing around with DRAW and the SIN function
' to draw circular sinusoidal waves

s% = 200
SCREEN _NEWIMAGE(s% * 2 + 1, s% * 2 + 1,17)
fau% = 17
CONST fa%(fau%) = {2,3,4,5,6,8,9,10,12,15,18,20,30,45,60,90,120}
sa% = 0
f% = fa%( INT( RND * fau% ) )

Another_Rendering:

  xlast% = 0 : ylast% = 0 : xnow% = 0 : ynow% = 0

  COLOR INT( RND * 62 + 1)
  FOR a% = 0 TO ( 360 )  step 1
      DRAW "TA " + ( a% )
      PSET (s%, s%), 0
      DRAW "BU " + ( s% - 41 + SIN( _D2R( a% * f% ) ) * 40 - sa%  )
      xnow% = POINT(0) : ynow% = POINT(1)
      PSET( xnow%, ynow% )
      IF xlast% <> 0 THEN LINE (xlast%, ylast%) TO (xnow%, ynow%)
       xlast% = xnow% : ylast% = ynow%
      sleep 0.01
  NEXT a%

  SLEEP 5
  sa% = ( sa% + (INT( RND * 35 ) + 5) MOD s% )
  IF INT( RND * 7 ) = 0 THEN sa% = 0: f% = fa%( INT( RND * fau% ) ) : CLS

GOTO Another_Rendering