' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2024.03.28 at 21:57 (Coordinated Universal Time)
' Program by Charlie Veniot
' Demonstration of how to draw a vesica piscis with the help of DRAW statements
' https://en.wikipedia.org/wiki/Vesica_piscis

DoDrawingCycle:

color1 = INT(RND*9)
color2 = INT(RND*7) + 9

SCREEN _NEWIMAGE(401,311,12)
FOR A# = 0 TO 360 STEP 0.5
  ' draw bottom part
    DRAW "B M 200,205"
    DRAW "B U 100"
    DRAW "B TA" + A# + "U 100"
    IF NOT BETWEEN(A#,120,240) _
       THEN PSET (POINT(0),POINT(1)),color1 _
       ELSE CIRCLE (POINT(0),POINT(1)),9,color2, , , ,T
  ' draw top part
    DRAW "B M 200,105"
    DRAW "B D 100"
    DRAW "B TA" + A# + "D 100"
    IF NOT BETWEEN(A#,120,240) _
       THEN PSET (POINT(0),POINT(1)),color1 _
       ELSE CIRCLE (POINT(0),POINT(1)),9,color2, , , ,T
  SLEEP 0.001
NEXT A#  

SLEEP 2

GOTO DoDrawingCycle