XProfan

const myPI=3.1415926535897932384626433832795
float cos_outpx,cos_outpy,w

proc getcircp(float xp,yp,r,w)

    cos_outpx:=((((r*sin(((-1*(((-1+w)*myPI)+myPI))/180))))*-1)+xp)
    cos_outpy:=((((r*cos(((-1*(((-1+w)*myPI)+myPI))/180))))*-1)+yp)

end

const pi180=0.0174532925199433

proc getcircp(float xp,yp,r,w)

    cos_outpx=(r*(Sin(pi180*W)))+XP
    cos_outpy=yp-(r*(Sin(pi180*(90-W))))

endp