fpraupos
ra = ((extru(ir,fpraupos,3)<<2)|(extru(ir,fpralpos,3)>>1)) *
ra = (extru(ir,fpraupos,3)<<3)|extru(ir,fpralpos,3);