N fx:
3
 0
576
544
350
50
100
0
1
0
0
0
0
0
 251
832
528
0
0
0
0
0
0
0
0
0
0
 258
704
528
' AFTER EDIT DO SAVE PROJECT BEFORE RUN %vbCr%%vbLf%' MAINTAIN the Strucure and edit mainly only inside '***'%vbCr%%vbLf%' Input is  INP() Array%vbCr%%vbLf%' Output is OUT() Array%vbCr%%vbLf%%vbCr%%vbLf%' You can use custom parameter P1 to P5%vbCr%%vbLf%%vbCr%%vbLf%%vbCr%%vbLf%' --- Absolutely Don't touch code from Here%vbCr%%vbLf%%vbCr%%vbLf%Sub Process(W%comma% H%comma% INP%comma% OUT%comma% P1%comma% P2%comma% P3%comma% P4%comma% P5)%vbCr%%vbLf%Dim X %vbCr%%vbLf%Dim Y %vbCr%%vbLf%ReDim OUT(W%comma% H)%vbCr%%vbLf%%vbCr%%vbLf%' --- TO HERE%vbCr%%vbLf%Dim xx%vbCr%%vbLf%Dim yy%vbCr%%vbLf%dim v%vbCr%%vbLf%%vbCr%%vbLf%For X = 0 To W%vbCr%%vbLf%       xx=((X/W)-.5)*1.75%vbCr%%vbLf%%vbCr%%vbLf%       xx=xx*.9%vbCr%%vbLf%        %vbCr%%vbLf%       For Y = 0 To H%vbCr%%vbLf%       %vbCr%%vbLf%           yy = ((Y/H)-.55)*1.75 + sqr(abs(xx))*.5%vbCr%%vbLf%      %vbCr%%vbLf%           v = xx*xx + yy*yy%vbCr%%vbLf%%vbCr%%vbLf%           OUT(X%comma% Y) =INP(X%comma%Y)- 4*v%vbCr%%vbLf%%vbCr%%vbLf%       Next%vbCr%%vbLf%Next%vbCr%%vbLf%%vbCr%%vbLf%End Sub%vbCr%%vbLf%
0
0
0
0
0
0
0
0
0
Nlinks
4
-
1
1
-
0
2
-
1
1
-
2
1
-
2
1
-
2
1
-
3
1
-
2
1
EXTRA
0.3.4565
ScriptHeart.txt

X
X
X
X
X
