# The line through Point P making angle a with the x-axis LePtAngle:=proc(P,a): expand((y-P[2])-tan(a)*(x-P[1])): end:
LePtAngle:=proc(P,a): expand((y-P[2])-tan(a)*(x-P[1])): end:
expand((y-P[2])-tan(a)*(x-P[1])): end:
end:
