Task

Using the data storage type defined on this page for raster images,
write an implementation of the midpoint circle algorithm   (also known as Bresenham's circle algorithm).

(definition on Wikipedia).




interface draw_circle
   module procedure draw_circle_sc, draw_circle_rgb
end interface
 
private :: plot, draw_circle_toch