a
x new=$1[xclamp(a_polar(x,y)*5/2), yclamp(r_polar(x,y)*5/2)]
