function myline(x1,y1,z1,x2,y2,z2,specification)
MESH = 10;
ONE = ones(1,MESH+1);

if nargin < 6
 if (nargin==5) specification = y2; end;
 y2 = x2;
 x2 = z1;
 if (x1==x2) x=x1*ONE; else x=x1:(x2-x1)/MESH:x2; end;
 if (y1==y2) y=y1*ONE; else y=y1:(y2-y1)/MESH:y2; end;
 if (nargin==5) plot(x,y,specification); else plot(x,y); end;
else
 if (x1==x2) x=x1*ONE; else x=x1:(x2-x1)/MESH:x2; end;
 if (y1==y2) y=y1*ONE; else y=y1:(y2-y1)/MESH:y2; end;
 if (z1==z2) z=z1*ONE; else z=z1:(z2-z1)/MESH:z2; end;
 if (nargin==7) plot3(x,y,z,specification); else plot3(x,y,z); end;
end;

