----------------------------------- Catalyst Fri May 30, 2003 3:24 pm [source] Edge Detection ----------------------------------- this is a little edge detection prog i made lower edgeVal is , more edges show up %% Edge Detection const edgeVal := 50 var pic : int := Pic.FileNew ("house.jpg") View.Set ("nobuttonbar,graphics:" + intstr (Pic.Width (pic)) + ";" + intstr (Pic.Height (pic))) var source, dest : array 1 ..maxx, 1 .. maxy of int proc LoadBuffer (var x : array 1 .. *, 1 .. * of int) for i : 1 .. maxx for k : 1 .. maxy x (i, k) := whatdotcolor (i, k) end for end for end LoadBuffer proc DrawBuffer (var x : array 1 .. *, 1 .. * of int) for i : 2 .. maxx - 1 for k : 2 .. maxy - 1 drawdot (i, k, x (i, k)) end for end for end DrawBuffer Pic.Draw (pic, 0, 0, picMerge) LoadBuffer (source) for i : 2 .. maxx - 1 for j : 2 .. maxy - 1 dest (i, j) := (source (i - 1, j - 1) + source (i - 1, j + 1) + source (i + 1, j - 1) + source (i + 1, j + 1) + 4.0 * (source (i - 1, j) + source (i, j - 1) + source (i, j + 1) + source (i + 1, j)) - 20.0 * source (i, j)) div 6 if dest (i, j) > edgeVal then dest (i, j) := 0 else dest (i, j) := 7 end if end for end for DrawBuffer (dest) ----------------------------------- thoughtful Sun Nov 09, 2003 2:49 pm ----------------------------------- Hey very kool, i c you always have to come back at tony :twisted: :twisted: 8) . I m wondering if n e one would make a motion blur filter :idea: :idea: ----------------------------------- Tony Sun Nov 09, 2003 3:52 pm ----------------------------------- heh, Catalyst's post dates back to May 30, 2003 :lol: But thx for the idea of motion blur :wink: [url=http://www.compsci.ca/v2/viewtopic.php?p=18609]I've made it 8)