	subroutine param
#
#	Wahl der Verfahrens-Parameter fuer die Segmentierungs-Operationen
#
# Die folgenden Konstanten werden hier in Common-Bloecke geschrieben.
#
# Im Common-Block 'zpunkt' stehen die Parameter
# - fuer die Zentralpunktsbestimmung
#   zx,zy  = iterierter Zentralpunkt
#   kx,ky  = momentaner Z'punktskandidat
#   dx,dy  = Inkremente des Suchschemas
#
# Im Common-Block 'params' stehen die Parameter
# - fuer die Bestimmung des Winkelinkrements zwischen zwei Strahlen:
#   bog    = absolute Bogenlaenge in Pixels
#   minbog = Bogenlaenge fuer min. Winkelinkrement
# - fuer die Erkennung von Luecken:
#   maxgap = max. Laenge einer Luecke im Rand
# - fuer die Feinaufloesung:
#   minabs = Mindestabstand der Endpunkte zur Winkelhalbierenden
#
# Im Common-Block 'tolrnc' stehen die Toleranzwerte
# - fuer die Segmentierung von Durchtrittspunkten:
#   imax  = Hoechstbreite einer Flanke
#   dimin = Mindestbreite des Peaks
#   dgmin = Mindest-Grauwertdifferenz fuer Flanke
#   schfak= Faktor (<1) fuer Schulterhoehe der Flanke
# - fuer die Segmentierung von Markscheidenstuecken:
#   imin  = Mindestlaenge einer potentiellen solchen Strecke
#   dimax = max.erlaubter Abstand zwischen zwei Flanken (Luecke)
#   dgmax = max.erlaubte Grauwertdifferenz innerhalb der Strecke
#
# Externe Routinen:
# Name		File,Bibliothek
#
# Version 0.1 vom 16.05.85
#
byte	char			# Einzelzeichen
byte	y,yy
#
integer	zx,zy,kx,ky,dx,dy	# Z'punkt, Kandidat und Inkremente
integer	imin,dimax,dgmax	# Analyse-Toleranzen
integer	imax,dimin,dgmin
integer bog,minbog		# und -Parameter
integer	maxgap,minabs
#
real	schfak			# Schulterfaktor fuer Flanke
#
common	/zpunkt/zx,zy,kx,ky,dx,dy
common	/params/bog,minbog,maxgap,minabs
common	/tolrnc/imin,dimax,dgmax,imax,dimin,dgmin,schfak
#
data	y,yy/'y','Y'/
#
write(1,10)
10 format(' *** PARAM ***')
#
char='N'
repeat
[	kx=0 ; ky=0
	write(1,30)
	30 format(' Zentralpunkt-Inkremente dx,dy = ')
	read(1,32) dx,dy
	32 format(2i4)
	write(1,40)
	40 format('+Analyse-Toleranzen')
	write(1,42)
	42 format('+bog,minbog,maxgap,minabs = ')
	read(1,44) bog,minbog,maxgap,minabs
	44 format(4i4)
	write(1,46)
	46 format('+imin,dimax,dgmax = ')
	read(1,48) imin,dimax,dgmax
	48 format(3i3)
	write(1,50)
	50 format('+imax,dimin,dgmin,schfak = ')
	read(1,52) imax,dimin,dgmin,schfak
	52 format(3i3,f6.3)
	write(1,32) dx,dy
	write(1,44) bog,minbog,maxgap,minabs
	write(1,48) imin,dimax,dgmax
	write(1,52) imax,dimin,dgmin,schfak
	write(1,60)
	60 format(' Okay ? (Y/N) ')
	read(1,62) char
	62 format(a1)
] until (char==y !! char==yy)
#
write(1,80)
80 format(' *** PARAM - Ende ***')
end
