www.pudn.com > DemoFluid2D.zip > smVelocityFactor2Dcg.psh

!!FP1.0 
#2d FLUID Boundary Codition Processing Part for velocity 
#TEX0 -- BoundaryTexID FOR boundary condition Information 
#TEX0 ---=0, fluid itself------->Factor=(1,1,1,1) 
#        =1, nonslip boundary--->Factor=(?-1) 
#        =2, slip boundary------>Factor=(?1) 
#        =3, movable boundary or static boundary 
#TEX1 -- RealOffset 
TEX R0.x, f[WPOS].xyxx, TEX0, RECT; 
TEX R1.xy, f[WPOS].xyxx, TEX1, RECT; 
SEQR H0.x, R0.x, {1}.x; 
SEQR H0.y, R0.x, {2}.x; 
ADDX H0.z, -H0.x, {1}.x; 
MULX H0.y, H0.z, H0.y; 
ADDR R0.xy, |R1.xyxx|, -{1, 1}.xyxx; 
ADDR R0.w, |R1.x|, |R1.y|; 
SEQR H0.z, R0.w, {2}.x; 
MULX H0.z, H0.x, H0.z; 
ADDR R1.xy, |R1.xyxx|, -{1, 1}.xyxx; 
MOVR o[COLR], {1, 1, 1, 1}; 
MOVXC HC.x, H0.x; 
MOVR o[COLR].xy(GT.x), R0.xyxx; 
MOVXC HC.x, H0.z; 
MOVR o[COLR].xy(GT.x), {-1, -1}.xyxx; 
MOVXC HC.x, H0.y; 
MOVR o[COLR].xy(GT.x), |R1.xyxx|; 
END