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

!!FP1.0 
#2d FLUID Boundary Codition Processing Part for velocity 
#TEX0 -- BoundaryTexID FOR boundary condition Information 
#TEX0 ---=0, nonslip boundary 
#        =1, slip boundary 
#        =2, movable boundary or static boundary 
#TEX1 -- offset 
TEX R0, f[WPOS], TEX0, RECT; 
SEQ R1.x, R0.x, {0}; 
 
#B_N--1 
SEQ R0.x, R2.x, 1; 
MUL R3, R0.x, {0,1,0,-1}; 
 
#B_O--8 
SEQ R0.x, R2.x, 8; 
MAD R3, R0.x, {-1,0,1,0}, R3; 
 
#B_S--2 
SEQ R0.x, R2.x, 2; 
MAD R3, R0.x, {0,-1,0,1}, R3; 
 
#B_W--4 
SEQ R0.x, R2.x, 4; 
MAD R3, R0.x, {1,0,-1,0}, R3; 
 
#B_NO--9 
SEQ R0.x, R2.x, 9; 
MAD R3, R0.x, {-1,-1,-1,-1}, R3; 
 
#B_SO--10 
SEQ R0.x, R2.x, 10; 
MAD R3, R0.x, {-1,1,1,0}, R3; 
 
#B_SW--6 
SEQ R0.x, R2.x, 6; 
MAD R3, R0.x, {0,-1,-1,0}, R3; 
 
#B_NW--5 
SEQ R0.x, R2.x, 5; 
MAD o[COLR], R0.x, {0,1,1,-1}, R3; 
 
END