LePtSlope Definition

# The line through Point P with Slope m

LePtSlope:=proc(P,m):

expand((y-P[2])-m*(x-P[1])):

end: