32: f
$0:	old	b&w  		resident	(0,0,512,512)
$1:	td	b&w    resident xo 0 yo 0 ll 512 nl 512 (0,0,512,512)
$2:	base	b&w    resident xo 0 yo 0 ll 512 nl 512 (0,0,512,512)
$3:	work	b&w    resident xo 0 yo 0 ll 512 nl 512 (0,0,512,512)
$4:	nose.matte	b&w    resident xo 0 yo 0 ll 512 nl 512 (0,0,512,512)
33: x new=zclamp(($4[x,clamp(y-20)]*$1[x-22,clamp(y-20)] + (Z-$4[x,clamp(y-20)])*$2)/Z)
