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

!!FP1.0 
#2d FLUID Dynamic Velocity Boundary condition 
#TEX0 -- Obstacle Information 
#Obstacle(i,j) 
TEX R0, f[WPOS], TEX0, RECT; 
#old velocity 
TEX R1, f[WPOS], TEX1, RECT; 
 
#if obstacle, then the velocity set to zero 
LRP o[COLR], R0.wwww, R1, {0,0,0,0}; 
 
END