Simple mathematical routine

Function should calculate X & Y for points around the central point (see the picture). Specification: Function CalcSurX (X1, X2, Ray, NumberOfPoints, CurrentPoint) 'Calculates X2 of the current point End Function Function CalcSurY (X1, X2, Ray, NumberOfPoints, CurrentPoint) 'Calculates Y2 of the current point End Function ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. ## Platform VB 6.0