matvectorrectf.fp

PDE simulator on GPU.

!!FP1.0
#Date:2003/10/23
#try to compute General Matrix - Vector Multiplication Just For TEXRECT
#So this fragment program is shorter than TEX2D
# Vector X     ----TEX0
# Vector result----TEX1
# Matrix Ai    ----TEX2(Diagonal Data)

#TexPARA.X = Width;
#TexPARA.Y = 1.0/Width;
#TexPARA.Z = DimensionS;
#TexPARA.W = 1.0/DimensionS;
DECLARE TexPARA ={0, 0, 0, 0};
#PassNo = I
DECLARE PassNo ={0, 0, 0, 0};

FLR R1, f[WPOS];

MAD R1.x, R1.y, TexPARA.x, R1.x;

ADD R1.x, R1.x, PassNo.x;

SUBC R2.x, R1.x, TexPARA.z;
KIL GE.x;

MUL R2.y, R1.x, TexPARA.y;
FLR R2.y, R2.y;
MUL R2.x, R2.y, TexPARA.x;
SUB R2.x, R1.x, R2.x;
FLR R2.x, R2.x;

TEX R0, R2, TEX0, RECT;
TEX R0, f[WPOS], TEX2, RECT;
MOV o[COLR], R0;

END