Approximatrix Forums — How to fill the area between two circles?

Re: How to fill the area between two circles?

null@example.com (EricE) — Wed, 22 Feb 2017 10:02:02 +0000

Thank you jeff.

Re: How to fill the area between two circles?

null@example.com (jeff) — Tue, 21 Feb 2017 17:45:49 +0000

Flood-filling circles can be problematic because of the nature how AppGraphics (or really any graphics library) draws circles. Often, like you've witnessed, the circumference line is not continuous, allowing the flood fill to "escape."

I would suggest perhaps using fillellipse instead to create an already-filled circle. To create the opposite effect for the inner circle, you could change the fill color and call fillellipse again. It would probably be more reliable than relying on a fill algorithm that is bound to be problematic whenever lines are not exactly horizontal or vertical.

Re: How to fill the area between two circles?

null@example.com (EricE) — Tue, 21 Feb 2017 03:05:32 +0000

Now this does work!
Any ideas why?
All I did was add an additional circle with radius=201.

Did the original outer circle (R=200) have some gaps that the second outer circle (R=201) closed?
Increasing R=201 to 202 and the program still works in filling in only the annular region, but at R=203 the code fails again and the color floods past the outermost circle

!--------------------------------------------------------------------------------------
program main
use appgraphics
implicit none

    integer::myscreen
    myscreen = initwindow(800, 800,title='Graphics test 2',closeflag=.TRUE.)
    call setbkcolor(WHITE)
    call clearviewport()
    
    call setcolor(BLACK)
    call circle(300,300,100)
    call circle(300,300,200) 

    call circle(300,300,201)  
    
    call setfillstyle(SOLID_FILL, GREEN)
    call floodfill(300,450,BLACK)

    call loop()
    
    call closewindow(myscreen)
    
end program main
!--------------------------------------------------------------------------------------

How to fill the area between two circles?

null@example.com (EricE) — Mon, 20 Feb 2017 07:27:37 +0000

I am trying to color fill the area between two concentric circles.

My code is below, but it does not work.
The color fill goes beyond the outer circle.

!--------------------------------------------------------------------------------------
program main
use appgraphics
implicit none

    integer::myscreen
    myscreen = initwindow(800, 800,title='Graphics test 2',closeflag=.TRUE.)
    call setbkcolor(WHITE)
    call clearviewport()
    
    call setcolor(BLACK)
    call circle(300,300,100)     ! inner circle
    call circle(300,300,200)     ! outer circle
    
    call setfillstyle(SOLID_FILL, GREEN)
    call floodfill(300,450,BLACK)

    call loop()
    
    call closewindow(myscreen)
    
end program main
!--------------------------------------------------------------------------------------