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

!!FP1.0 
#Tex0----Current Velocity 
#Tex0.x---u 
#Tex0.y---v 
DECLARE TexPARA = {0,0,0,0}; 
#V 
ADD R0, f[WPOS], {1,0,-1,0}; 
TEX R1, R0.xyww, TEX0, RECT; 
TEX R2, R0.zwww, TEX0, RECT; 
SUB R3.y, R1.y, R2.y; 
 
#U 
ADD R0, f[WPOS], {0,1,0,-1}; 
TEX R1, R0.xyww, TEX0, RECT; 
TEX R2, R0.zwww, TEX0, RECT; 
SUB R3.x, R1.x, R2.x; 
 
MUL R3.xy, R3, TexPARA; 
 
SUB o[COLR], R3.y, R3.x; 
 
END