vec3Tovec4 function