www.pudn.com > DemoFluid2D.zip > smVelocityFactor2D.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 H0, f[WPOS], TEX0, RECT; 
TEX H1, f[WPOS], TEX1, RECT; 
 
#Type 0====> 
SEQ H2.x, H0.x, 0; 
MUL R0, H2.x, {1,1,1,1}; 
 
#Type 1 AND Type 2 
SEQ H2.x, H0.x, 1; 
MUL H3, H2.x, {-1,-1,1,1}; 
SEQ H4.x, H0.x, 2; 
MUL H2.y, H2.x, H4.x; 
MAD H3, H4.x, {1,1,1,1}, H3; 
 
#HERE,we take H1.zw = 0, so subtract -1 to get 1 for density and temperature 
SUB H4, |H1|, {1,1,-1,-1}; 
ADD H2.x, |H1.x|, |H1.y|; 
SEQ H2.x, H2.x, 2; 
LRP H4, H2.x, H3, H4; 
MAD R0, H4, H2.y, R0; 
 
MOV o[COLR], R0; 
 
END