slope(y_,x_,x0_):=d(y,x,x0,1);
slope(y_,x_):=d(y,x);
slope(y_,x_=x0_):=d(y,x,x0,1);
slope(vector(x_,y_)):=y/x;
slope(point(x_,y_)):=y/x;