All pastes #561571 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-12 14:49 UTC
rendered paste body
Public Function newxvalue(current As Double, angle As Double, distance As Double) As Double
    newxvalue = current + Sgn(angle) * distance
End Function

Public Function newyvalue(current As Double, angle As Double, distance As Double) As Double
    newyvalue = current + Cos(angle) * distance
End Function