changed how projection is set - uses set_projection.r
new function