%a more advanced version of the Blur Filter.
%This includes the direction and magnitude of the blur
%so that motion blurs can be created

procedure Blur(direction:int, magnitude:int)
var d:array 1..maxx, 1..maxy of int %vertual image, holds pixel colors
var c:int:=255 %just a variable for color
var cr,cb,cg:array 1..magnitude of real %temporary colors
var acr,acb,acg:real %used for average color calculation

for x:1..maxx
for y:1..maxy
d(x,y):=whatdotcolor(x,y) %records pixel colors
end for
end for

for x:magnitude..maxx-magnitude
for y:magnitude..maxy-magnitude

for m:1..magnitude
RGB.GetColor(d(x+round(cosd(direction)*m),y+round(sind(direction)*m)),cr(m),cg(m),cb(m))
end for

acr:=0
for i:1..magnitude
acr+=cr(i)
end for
acr:=acr/magnitude %average color

acg:=0
for i:1..magnitude
acg+=cg(i)
end for
acg:=acg/magnitude %average color

acb:=0
for i:1..magnitude
acb+=cb(i)
end for
acb:=acb/magnitude %average color


RGB.SetColor(c,acr,acg,acb) %create the new color
Draw.Dot(x,y,c) %draw that color
end for
end for

end Blur