Así lo he solucionado yo:
Function float float_get_distx(angle,distancia);
Begin
resolution=1000;
advance(distancia*1000);
return (float) x/resolution;
End
Function float float_get_disty(angle,distancia);
Begin
resolution=1000;
advance(distancia*1000);
return (float) y/resolution;
End
Intenté solucionarlo primero así, pero no me funcionó como yo quería:
Const
m_pi=3.14159265358979323846;;
End
Function float float_get_distx(float angulo,float distancia);
Begin
return (float)(cos(angulo * m_pi / 180000) * distancia);
End
Function float float_get_disty(float angulo,float distancia);
Begin
return (float)(-sin(angulo * m_pi / 180000) * distancia);
End