Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

Require "1DPAK.REL" load!module;

Require "SAIFIX.MAC" load!module;

External List Procedure LISTFY(Real array shapetriples;
				Integer Numtriples);
External Real Procedure ALENGT(List X);
External List Procedure ODTAVG(List X;Integer window!width);
External Procedure ODBAVG(Reference Integer Array boundary,
				output!boundary;
			 Integer window!size);
External Procedure SAMP(Integer array Boundary,Newbound;
			Integer sample!distance,Perim;
		 	Reference Integer new!bound!size);
External Procedure DRAWCIRCLE(Real xpos,
					ypos,
					x,
					y;
				Integer xmin,
					ymin,
					last!row;
				Real	Radius,
					Circum;
				String	Name;
				Integer appendit);
External Procedure SORT(Real Array input!array;
	Reference Integer Array Order!output;
	Integer number!features);
External Procedure CIRT(Integer Array Boundary;
		Real Array Shapetriples;
	        Reference Integer Numtriples,
			Displayflag,
			Autoflag,
			Oscflag,
			Sample;
		Real Xpos, Ypos;
		Integer Perim,
			Last!row;
		Reference Integer Piccount);
External Procedure ICIRT(Integer array Boundary;
		Real array Shapedata;
		Reference Integer Numtriples;
		Reference Integer Perim;
		Real Startangle;
		Reference Integer Xdiff,Ydiff;
		Real Xpos,
		     Ypos,
		     Segcount);
External Procedure POLAR(Reference Integer array Boundary;
			Reference Real array Rbuffer,Anglebuffer;
			Integer Ix,Iy,Perim);
External Procedure CENTROID(Reference Integer array Boundary;
				Reference Integer Ix,Iy;
				Integer Perim);
External Recursive Real Procedure WALBAS(Integer k; Real x);
External Procedure WALSH(Reference Integer Array Boundary;
		Reference Real Array Wcoef;
		Integer Perimeter;
		Integer number!walsh!coefficients;
		Reference Integer Wcoef!array!size);
External Procedure IWALSH(Reference Integer Array boundary;
		Real Array Wcoef;
		Reference Integer Perim;
		Integer total!walsh!coefficients;
		Integer number!walsh!coefficients,
			Last!column,
			xpos, ypos);
External Procedure CENTFOURIER(Reference integer array Boundary;
			Reference Real array Fcoef;
			Integer Perimeter;
			Integer Num!coef;
			Reference Integer Fcoef!array!size);
External Procedure ICENTFOURIER(Reference integer array Boundary;
			Reference real array Fcoef;
			Integer	Tnumber!Fourier!coef,
				Number!coef,
				Last!column,
				Xpos,
				Ypos;
			Reference Integer Perim);
External Procedure CFOURIER(Reference Integer Array boundary;
		Reference Real Array cpxcoeff;
		Integer lower!bound, upper!bound, actual!perimeter;
		Reference Integer  transform!array!size);
External Procedure ICFOURIER(Reference Integer Array boundary;
		Reference Real Array cpxcoeff;
		Integer total!number!coefficients,
			lower!bound, upper!bound;
		Reference Integer n!perimeter);