N fx:
4
 0
192
432
1
50
0
0
0
0
0
0
0
0
 1
544
416
0
0
0
0
0
0
0
0
0
0
 258
440
432
' DON'T DELETE COMMENTED LINES%vbCr%
' MAINTAIN the Strucure and edit only inside '***'%vbCr%
' Input is INP() Array%vbCr%
' Output is OUT() Array%vbCr%
%vbCr%
%vbCr%
Sub Process(W%comma% H%comma% INP%comma% OUT%comma% P1%comma% P2%comma% P3%comma% P4%comma% P5)%vbCr%
Dim X %vbCr%
Dim Y %vbCr%
ReDim OUT(W%comma% H)%vbCr%
%vbCr%
Dim X2%comma% Y2%vbCr%
Dim XF%comma% XT%vbCr%
Dim YF%comma% YT%vbCr%
Dim R%vbCr%
Dim C%comma% V%vbCr%
%vbCr%
R = 5%vbCr%
%vbCr%
For X = 0 To W%vbCr%
%vbCr%
XF = X - R: if XF < 0 Then XF = 0 %vbCr%
XT = X + R: if XT > W Then XT = W%vbCr%
 %vbCr%
       For Y = 0 To H%vbCr%
%vbCr%
       YF = Y - R: if YF < 0 Then YF = 0     %vbCr%
       YT = Y + R: if YT > H Then YT = H%vbCr%
%vbCr%
V = 0%vbCr%
C = 0 %vbCr%
For X2 = XF to XT%vbCr%
For Y2 = YF to YT%vbCr%
C = C + 1%vbCr%
V = V + INP(X2%comma% Y2)%vbCr%
Next%vbCr%
Next%vbCr%
%vbCr%
       OUT(X%comma% Y) = V / C%vbCr%
%vbCr%
       Next%vbCr%
Next%vbCr%
%vbCr%
End Sub%vbCr%

0
0
0
0
0
0
0
0
0
 7
320
432
0
50
50
50
0
0
0
0
0
0
Nlinks
7
-
1
1
-
2
1
-
2
1
-
2
1
-
3
1
-
2
1
-
1
1
-
0
3
-
2
2
-
0
3
-
3
3
-
0
3
-
1
1
-
3
2
EXTRA
0.3.2795
SCRIPT TEST 02.txt
Testing Script Node ( A VERY SLOW Blur Algo )
X
X
X
X
X
