type RGBColor:
    record
        r,g,b:real
    end record

proc DrawBar (x1_, y1_, x2_, y2_, BorderThk_, BackColor_, TrimColor_, Value1_, Value2_ : int, Col1_, Col2_ : RGBColor)
    const percent : real := Value1_ / Value2_
    const width : real := abs ((x2_ - 2 - BorderThk_) - (x1_ + 2 + BorderThk_))
    var FinalColor : int
    var ColFactor : RGBColor
    ColFactor.r := ((Col2_.r - Col1_.r) / 100)
    ColFactor.g := ((Col2_.g - Col1_.g) / 100)
    ColFactor.b := ((Col2_.b - Col1_.b) / 100)

    if BackColor_ not= -1 then
        Draw.FillBox (x1_, y1_, x2_, y2_, BackColor_)
    end if

    for i : 1 .. BorderThk_ %%Draws the border between the black outlines.
        Draw.Box (x1_ + i, y1_ + i, x2_ - i, y2_ - i, TrimColor_)
    end for
    Draw.Box (x1_, y1_, x2_, y2_, black) %%Outermost black line.
    Draw.Box (x1_ + BorderThk_ + 1, y1_ + BorderThk_ + 1, x2_ - BorderThk_ - 1, y2_ - BorderThk_ - 1, black) %%Innermost black line.

    if Value1_ > 0 then %%The inner fill bar color.
        FinalColor := RGB.AddColor (
            Col2_.r - (percent * 100 * (percent * ColFactor.r)),
            Col2_.g - (percent * 100 * (percent * ColFactor.g)),
            Col2_.b - (percent * 100 * (percent * ColFactor.b)))
        Draw.FillBox (
            x1_ + BorderThk_ + 2,
            y1_ + BorderThk_ + 2,
            x1_ + BorderThk_ + 2 + floor (min (percent, 1) * width),
            y2_ - BorderThk_ - 2,
            FinalColor)
    end if
end DrawBar

View.Set ("offscreenonly")
var col1, col2 : RGBColor
col1.r := 0
col1.g := 1
col1.b := 0
col2.r := 0
col2.g := 1
col2.b := 0
for i : 0 .. 100
    cls
    DrawBar (200, 200, 310, 220, 4, blue, grey, i, 100, col1, col2)
    View.Update ()
    delay (20)
end for