Math-Set to slope

From Vectorlab

Modify the slope between two vectors. Returns a new vector. You need to load the routines M_OffsetPt and M_GetDistance before this. By Orso B. Schmid

{ Orso ***************************** }
{ sets two points to a slope }
FUNCTION M_SetToSlope(v1, v2 : VECTOR; Slope: REAL): VECTOR;
    BEGIN
        M_SetToSlope := M_OffsetPt(v1, M_GetDistance(v1, v2), Slope);
    END;