Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0110/linpak.req
There are 2 other files named linpak.req in the archive. Click here to see a list.
External Simple Procedure LINE(Real X1,Y1,X2,Y2;
	Reference Real  M,B);
External Simple Procedure MIDPOINT(Real X1,Y1,X2,Y2;
	Reference Real Xm,Ym);
External Simple Procedure PERPENDICULAR(Real M,B,X,Y;
	Reference Real Mp,Bp);
External Procedure INTERSECTION(Real M1,M2,B1,B2;
	Reference Real Xi,Yi);
External Real Simple Procedure DCOSX(Real X1,Y1,X2,Y2);
External Real Simple Procedure DCOSY(Real X1,Y1,X2,Y2);
External Real Simple Procedure EDISTANCE(Real X1,Y1,X2,Y2);
External Real Simple Procedure SIGN(Real Num);
External Real Simple Procedure VECTORANGLE(
	Real X1h,Y1h,X1t,Y1t,X2h,Y2h, X2t,Y2t);
External Simple Procedure DEFLECTVECTOR(Real Xh,Yh,Xc,Yc,Dangle;
		Reference Real NewXh,NewYh);
External Simple Procedure SCALEVECTOR(Real Xh,Yh,Xt,Yt,Scale;
	        Reference Real Xnew,Ynew);
External Simple Procedure FIND!REC(Integer Array Boundary;
		Integer Size;
		Reference Integer Xmin,Xmax,Ymin,Ymax);