PROGRAM no_circle
LET r = 1                         ! radius of circle
SET WINDOW -r,r,-r,r
SET COLOR "blue"
BOX CIRCLE -r,r,-r,r
! FLOOD 0,0: start from the point 0,0 and color continuous pixels 
! until boundary of region is reached
FLOOD 0,0
END