%This find Dots Equal to The 2nd color and replaces them with the 1st color
Draw.FillOval (25,25,25,25,black)%This is just to show you that it works
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%The program%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
var Xvalue,Yvalue : int := 0
procedure ChangeDotColorArea (X1value : real, Y1value : real, X2value : real, Y2value : real, Color1 : int, Color2 : int)
Xvalue:= round (X1value)
Yvalue:= round (Y1value)
    for z : round (X1value * Y1value) .. round (X2value * Y2value)
    Xvalue+=1
    if Xvalue > X2value then
    Xvalue:= round (X1value)
    Yvalue+= 1
    end if
        if View.WhatDotColor (Xvalue,Yvalue) = Color2 then
            Draw.Dot (Xvalue,Yvalue,Color1)
        end if
    end for
end ChangeDotColorArea
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%End of the program%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ChangeDotColorArea (0,0,25,25,blue,black) %This is also just to show you that it works
ChangeDotColorArea (25,25,50,50,blue,black)
ChangeDotColorArea (25,0,50,25,red,black)
ChangeDotColorArea (0,25,25,50,red,black)

Draw.Line(100,100,100,200, black)
Draw.Line(100,200,200,200, black)
Draw.Line(200,200,100,100, black)
Draw.Fill(150,175, red, black)

Draw.Line(300,100,300,200, black)
Draw.Line(300,200,400,200, black)
Draw.Line(400,200,300,100, black)
ChangeDotColorArea(275,75,425,125, red, white)

proc ColourReplace (x1, y1, x2, y2, c1, c2 : int)
    for x : x1 .. x2
        for y : y1 .. y2
            if View.WhatDotColour (x, y) = c2 then
                Draw.Dot (x, y, c1)
            end if
        end for
    end for
end ColourReplace

View.Set ("graphics:500,500")
module Fill
    export FillArea
    type coor :
        record
            x, y : int
        end record
    var open_list : flexible array 1 .. 0 of coor
    var curr : coor
    proc Next (x, y, c1, c2 : int)
        if View.WhatDotColour (x, y) = c2 then
            Draw.Dot (x, y, c1)
            new open_list, upper (open_list) + 1
            open_list (upper (open_list)).x := x
            open_list (upper (open_list)).y := y
        end if
    end Next
    proc FillArea (x, y, c1, c2 : int)
        new open_list, 1
        open_list (1).x := x
        open_list (1).y := y
        loop
            exit when upper (open_list) = 0
            curr.x := open_list (upper (open_list)).x
            curr.y := open_list (upper (open_list)).y
            new open_list, upper (open_list) - 1
            Next (curr.x + 1, curr.y, c1, c2)
            Next (curr.x - 1, curr.y, c1, c2)
            Next (curr.x, curr.y + 1, c1, c2)
            Next (curr.x, curr.y - 1, c1, c2)
        end loop
    end FillArea
end Fill
Draw.MapleLeaf (0, 0, maxx, maxy, 7)
Fill.FillArea (maxx div 2, maxy div 2, 12, 0)
cls
Draw.Oval (maxx div 2, maxy div 2, maxx div 2, maxy div 2, 7)
Fill.FillArea (maxx div 2, maxy div 2, 12, 0)
cls
Draw.Star (0, 0, maxx, maxy, 7)
Fill.FillArea (maxx div 2, maxy div 2, 12, 0)