Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0110/prcinv.req
There are 2 other files named prcinv.req in the archive. Click here to see a list.
00100	COMMENT
00200	.SOSPAGE_1
00300	.SEC(PRCINV.REQ - PROC10 External Variable Definitions)
00400	.index(PRCINV.REQ - PROC10 External Variable Definitions)
00500	
00600	File:	PRCINV.REQ
00700	
00800	
00900	           P. LEMKIN, B. SHAPIRO, R. GORDON, L. LIPKIN
01000	
01100	                     IMAGE PROCESSING UNIT
01200	
01300	           DIVISION OF CANCER BIOLOGY AND DIAGNOSIS
01400	                   NATIONAL CANCER INSTITUTE
01500	                 NATIONAL INSTITUTES OF HEALTH
01600	                      BETHESDA, MD 20014
01700	
01800	
01900	                         301-496-2394
02000	
02100	
02200	
02250	Rev Oct 12, 1976 - Lemkin removed I2- and I3
02300	Revised Aug 24, 1976 - Lemkin added thr!density.
02350	Revised May 17, 1976 - Lemkin, added TEXTURE cmds
02400	Revised April 21, 1976 - Shapiro added bnd!scale!factor
02500	Revised March 30, 1976 - Lemkin, added transforms OPR lists
02600	Revised March 26, 1976 - Lemkin, added transforms
02700	#	==================================
02800	#	= G L O B A L   V A R I A B L E S=
02900	#	==================================;
03000	
03100	
03200	Require "PRCINV.REL" Load!module;
03300	
03400	
03500	External String
03600		trm!name,
03700		file!name,
03800		com,
03900		operate,
04000		outfile, 
04100		cmd,
04200		s,
04300		ss,
04400		sss,
04500		Ifn,
04600		ofn,
04700		smsg,
04800		proj!programmer,
04900		dev!name,
05000		str,
05100		strcopy,
05200		sout,
05300		sip1,
05400		sip2,
05500		sip3,
05600		sip4,
05700		sip5,
05800		sip6;
05900	
06000	External String Array 
06100		pix!title[1:max!number!pix],
06200		cw!title[1:max!number!computing!windows],
06300		mask!title[1:max!number!masknames],
06400		bnd!title[1:max!number!boundaries],
06500		trn!title[1:max!number!transforms];
06600	
06700	External Boolean
06800		tim!switch,
06900		autoOMNInumber,
07000		setupOMNI,
07100		cross!hairs,
07200		auto!title,
07300		trn!rectangle,
07400		trn!window,
07500		ok,
07600		use!extrema;
07700	
07800	External Integer
07900		firstrow, firstcolumn, lastrow, lastcolumn,
08000		sampled,
08100		trunc!max,
08200		imsiz,
08300		imsiz1,
08400		imshift,
08500		imarray!size,
08600		usemask,
08700		I10, I11, I12, I13, I14, I15, I16, I17, I18, 
09000		row!side,
09100		column!side,
09200		rect!row!center,
09300		rect!column!center,
09400		next!free!boundary,
09500		p!index,
09600		m!index,
09700		b!index,
09800		t!index,
09900		w!index,
10000		r!cross,
10100		c!cross,
10200		ran!seed,
10300		dmin,
10400		dmax,
10500		density!value,
10600		npict,
10700		db,
10800		flag,
10900		index,
11000		dbsave,
11100		im!size,
11200		threshold,
11300		xp,
11400		yp,
11500		cur!window,
11550		thr!density;
11600	
11700	External Real	
11800		bnd!scale!fact,
11900		scaling,
12000		x0,
12100		y0,
12200		std!dev,
12300		runtime,
12400		cputime,
12500		t!runtime,
12600		t!cputime;
12700	
12800	External Integer Array 
12900		header[0:255],
13000		pix!in!use[1:max!number!pix],
13100		mask!in!use[1:max!number!masknames],
13200		bnd!in!use[1:max!number!boundaries],
13300		trn!in!use[1:max!number!transforms],
13400		cw!in!use[1:max!number!computing!windows],
13500		c!wind[1:7,1:max!number!computing!windows],
13600		hist[0:511],
13700		maxima[0:10],
13800		minima[0:10];
13900	
14000	
14100	External List
14200		movie;
14300	
14400	External Set 
14500		omni!active,
14600		omni!free,
14700		omni!post,
14800		omni!unpost;
14900	
15000	
15100	External Itemvar
15200		a!active,
15300		a!transform,
15400		v!circletransform,
15500		v!centfouriertransform,
15600		v!Fouriertransform,
15700		v!Walshtransform,
15800		v!HISTtransform,
15900		none;
16000	
16100	
16200	External Integer Array Itemvar
16300		mskimage,
16400		image1,
16500		image2,
16600		image3,
16700		iname,
16800		mask1,
16900		mask2,
17000		mask3,
17100		bnd1,
17200		bnd2,
17300		bnd3;
17400	
17500	External Real Array Itemvar
17600		riv,
17700		trn1,
17800		trn2,
17900		trn3;
18000		
18100	External Own String Array 
18200		lgl!spclcmds[1:max!number!special!commands];
18300	External Own String Array 
18400		l!spcstructures[1:max!number!special!commands];
18500	
18600	External Own String Array lgl!pnames[1:max!number!pix];
18700	External Own String Array 
18800		lgl!bnames[1:max!number!boundaries];
18900	External Own String Array lgl!mnames[1:max!number!masknames];
19000	External Own String Array lgl!tnames[1:max!number!transforms];
19100	External Own String Array 
19200		lgl!wnames[1:max!number!computing!windows];
19300	External Own String Array lgl!pops[1:max!number!pixops];
19400	External Own String Array lgl!mops[1:max!number!maskops];
19500	External Own String Array 
19600		lgl!bops[1:max!number!boundaries];
19700	External Own String Array 
19800		lgl!nINPUT!ops[1:max!number!pixops];
19900	External Own String Array lgl!nOUTPUT!ops[1:max!number!pixops];
20000	External Own String Array lglNoSHIFT!ops[1:max!number!pixops];
20100	External Own String Array l!T!input!ops[1:max!number!pixops];
20200	External Own String Array l!T!output!ops[1:max!number!pixops];