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.
REQUIRE "LINPAK.REL" LOAD!MODULE;
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);