A buncha SmileBASIC functions

DEF REC2POL X,Y OUT R,A
 R=SQR(X*X+Y*Y)
 A=ATAN(Y/X)
 RETURN
END

DEF POL2REC R,A OUT X,Y
 X=R*COS(RAD(A))
 Y=R*SIN(RAD(A))
 RETURN
END

DEF ROTCOORD X,Y,A OUT X2,Y2
 CS=COS(RAD(A))
 SN=SIN(RAD(A))
 X2=X*CS-Y*SN
 Y2=X*SN+Y*CS
 RETURN
END