Extended IDL Help pro merk (Rodenacker)

This page was created by the IDL library routine mk_html_help. For more information on this routine, refer to the IDL Online Help Navigator or type: 

     ? mk_html_help

at the IDL command line prompt.

Last modified: 13.07.2004

List of Routines

Routine Descriptions

CDTP

 [Next Routine] [List of Routines] 
 NAME:
       CDTP

 PURPOSE:
       Displays DTP-Image files 

 CATEGORY:
       INPUT/OUTPUT of images

 CALLING SEQUENCE:

       CDTP, name 

 INPUTS:
       Name:   Image file name with wild cards (string)

 OUTPUTS:
       none

 KEYWORDS:

       MASK:   =1 Bitplane 0 is displayed with exor and mask in yellow
		=2 Binary image is displayed with border in red
		=3 Mask generated from threshold from PIC File
       SMASK:  extension.plane 
               Bitplane plane from dtp-file.extension is displayed 
               with exor and mask in yellow or with border in red (MASK=2)
       CT:     Colortable number, default is 3
       GREY:   Colortable number 0
       XSIZE:  Window size, default is 640
       YSIZE:  Window size, default is 512
       MAX:    Window size = 1024x768
       ZOOM:   Zoom size, default is 1
       ORDER:  Reverse display order (see TV)
       FILE:   Image file names from file are resolved
       NONAME: No name printing in the display
       LOCATE: Stores mouseclicks on images and returns image name
		=1 Start of schwelle_k
		=2 Set a second diagnosis (button left=a/middel=b/right=d)
		=3 Print the project,device and cell name
	VERBOSE:Prints at some points
	LUN:	Opened logical unit for printing

 MODIFICATION HISTORY:
       Written by:     K. Rodenacker, 20.7.93.
       Modified by:     K. Rodenacker, 08.11.95.
       Modified by:     K. Rodenacker, 13.11.95.

(See /IDL/pro_src/RODENA/pro/merk/cdtp.pro)

C_THR_Z

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		C_THR_Z

 pro c_thr_z,name

	Hilfsaufruf um PIC-File name durchzuzaehlen auf Schwelle 0

 r=read_pic(name)
 sz=size(where(r(2,*) eq 0.0))
 if sz(0) gt 0 then print,name,'contains',sz(1),'Zeros', $
   format='(2(a,x),i3,x,a)'
 end

(See /IDL/pro_src/RODENA/pro/merk/c_thr_z.pro)

LOAD_SAVE

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		 LOAD_SAVE

 LOAD_SAVE, Name

 Laden eines SAVE-Files $1$dia1:[iliad.idl]'Name'.sav
 wenn nicht die Funktion AAAAAA_'Name' bereits definiert ist.
 Ohne Parameter wird Name='feature' gesetzt.

(See /IDL/pro_src/RODENA/pro/merk/load_save.pro)

PARAMETER AND PARAMETER_SET

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
		PARAMETER and PARAMETER_SET

 PURPOSE:
	1.	Listing of the choosen calculation parameters
	2.	Modification of the choosen calculation parameters

 CATEGORY:
	Featuring

 CALLING SEQUENCE:

	1.	PARAMETER, Project, device, [USER=user]
	2.	PARAMETER_SET, Project, device, num, val, [USER=user]

 INPUTS:
	Project:	Project name
	Device:		Device name
	Num:		Parameter number

 KEYWORD PARAMETERS:
	USER:		User name (default actual user)
	PRINT:		Direction of output to file 'project.dat'

 OUTPUTS:
	Listing of Parameters

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 22, Dec 1994.

(See /IDL/pro_src/RODENA/pro/merk/parameter.pro)

PICKPROJECT

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	PICKPROJECT

 PURPOSE:
	Simple user interface for feature evaluation and idl usage

 CATEGORY:
	Featuring

 CALLING SEQUENCE:

	PICKPROJECT [, /NEW, PREFIX='...', USER='...'] 
	or 
	PP

 KEYWORD PARAMETERS:

	NEW:	New file naming format

	USER:	only VMS: for users different from default(=getenv("USER")

	PREFIX:	only Unix: for different mountpoints

 OUTPUTS:

	Depending from executed functions

 SIDE EFFECTS:

	Strong influences on featuring projects !!

 RESTRICTIONS:

 PROCEDURE:

 EXAMPLE:

		PICKPROJECT,/NEW

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 26.09.1995

(See /IDL/pro_src/RODENA/pro/merk/pickproject.pro)

PIN2PIC

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		PIN2PIC

 pro pin2pic,prae,von,nach
 a=read_pic(von+prae+'.pin')
 b=a(0:255,*)
 write_pic,nach+prae+'.pic',b
 end

(See /IDL/pro_src/RODENA/pro/merk/pin2pic.pro)

PP

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		PP
	Kurzaufruf von Prozedure PICKPROJECT (siehe dort)

 pro pp,_EXTRA=tt
 pickproject,_EXTRA=tt
 end

(See /IDL/pro_src/RODENA/pro/merk/pp.pro)

PRAEPARAT_PURGEN

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	PRAEPARAT_PURGEN
 PURPOSE:
	Purgen of images of one specimen
	only VMS
 CATEGORY:
       Featuring
 CALLING SEQUENCE:

	PRAEPARAT_PURGEN, Projekt, Device, praeparat
		[,/NEW,/SELECT='...',USER='...',/CONFIRM]

 INPUTS:
		Projekt:	Name of projekt (top level directory)
		Device:		Device name (VMS)
				directory root (non VMS)
		Praeparat:	Name of specimen

 KEYWORD PARAMETERS:
		USER:		(only VMS) Username if not default
		NEW:		New image file names (only numbers)
		SELECT:		Selection criteria, .e.g. '13*'
		CONFIRM:	Confirmation is requested

 RESTRICTIONS:
	Only under VMS

 PROCEDURE:

 EXAMPLE:

	PRAEPARAT_PURGEN,'test1','$1$dia0','ttt',/NEW,USER='ILIAD',SEL='0*0'

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 09, Nov 1994.

(See /IDL/pro_src/RODENA/pro/merk/praeparat_purgen.pro)

PRAEPARAT_RECHNEN

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	PRAEPARAT_RECHNEN
 PURPOSE:
	Feature extraction of one specimen
	only VMS
 CATEGORY:
       Featuring
 CALLING SEQUENCE:

	PRAEPARAT_RECHNEN, Projekt, Device, Praeparat
		[,/NEW,USER='...',/DISP,NUM=...]

 INPUTS:
		Projekt:	Name of projekt (top level directory)
		Device:		Device name (VMS)
		Praeparat:	Name of specimen

 KEYWORD PARAMETERS:
		USER:		='xyz' Username if not default
				Will fail without write-access
		NEW:		New image file names (only numbers)
		DISP:		Display and wait for keyboard input
		NUM:		=x Starting number x
		PIN:		New PIC-File will be used
		PATH_PIC:	='path' Path for new pic-file
               SUBIMAGE:       =Rand um die MAske 

 RESTRICTIONS:
	Only under VMS

 PROCEDURE:

 EXAMPLE:

	PRAEPARAT_RECHNEN,'test1','$1$dia0','ttt',/NEW

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 29, Nov 1994.

 pro praeparat_rechnen, proj, dev, praep, $
                        NUMBER=num, NEW=nw, DISP=disp, PIN=pin, $
                        PATH_PIC=path_pic, SUBIMAGE=subimage, $
                        USER=user, PARAMETER=xpara, $
                        ON_ERROR=onerr

(See /IDL/pro_src/RODENA/pro/merk/praeparat_rechnen.pro)

PRAEPARAT_RECHNEN_VC

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		PRAEPARAT_RECHNEN_VC

 pro praeparat_rechnen_vc,proj,dev,praep,USER=user,DISP=disp, $
                          IMAGE=image, PATH_PIC=path_pic, $
                          OVER_READ=star

	Rechnen von BCCancer Daten Files

 if not keyword_set(disp) then disp=0
 wait=disp

 if not keyword_set(user) then user=getenv('USER')
 if not keyword_set(star) then star=0
 if star ne 0 then first=1 else first=0

 nf=fltarr(384)
 nf(1:2)=1.
 head=bytarr(68)
 svcf={vc_feature,feature:nf,head:head}

 sprae=make_praep(proj,dev,praep,user=user)
 sproj=sprae.project
 para=parameter_read(sproj)
 sprae.project=sproj

 if keyword_set(image) then na=image+sprae.name+'.img' else na=nn+'.img'
 x=findfile(na,count=nx)
 if nx eq 0 then message,na+' not found !'

 if keyword_set(path_pic) then nn=path_pic+sprae.name $
 else nn=sprae.project.device+'['+sprae.project.user+'.'+ $
          sprae.project.name+']'+sprae.name
 naf=nn+'.PVC'
 x=findfile(naf,count=nx)
 if nx eq 0 then write_pic,naf,svcf,/pvc

 openr,lun,na,/get_lun
 si=fstat(lun)

 openr,flun,naf,/get_lun
 sf=fstat(flun)
 close,flun
 openu,flun,naf,sf.rec_len,/fixed
 fh=assoc(flun,lonarr(12))
 lfh=fh(0)
 ff=assoc(flun,{vc_feature},1)

 nr=0
 ch=' '
 while not eof(lun) and ch ne 'q' do begin
  if read_img(lun,nr,b,m,shead,smhead) eq 0 then goto,endi
  head=byte(shead)
  slide=''&class=''&iod=''&diag=''&dz=''
  reads,shead,slide,class,iod,diag,kx,ky,dx,dy,dz, $
        format="(T3,A10,T14,A5,A10,T31,A2,T41,I6,T47,I6,T59,I3,T63,I3,T66,A3)"
  if nr gt star then begin
    im=m eq b(1,0)
    sotra=size(b)
    if disp then begin 
     se_disp,0,sotra(1),sotra(2),4,4,title=slide+class+diag 
     tvlct,0,0,255,0 
    end
    pnf=feat_eval(nf,b,b,im,para,disp=disp,BG_MASK=m eq 0B,WHITE=b(0,0))
    pnf([0,35,47,382,383])=[nr,kx,ky,dx,dy]
				; NUM
				; TKX TKY Colums, Rows
    pnf([4,59])=b([0,1],0)	; WW2 = White value from BC
				; SNUM =Mask number from BC
    pnf(23)=byte(strmid(class,0,1))*1000.+byte(strmid(class,1,1))
				; DIA = Classification 1-2.digit from BC
    vcpnf={vc_feature,pnf,head}

    ff(nr-1)=vcpnf & lfh(0)=nr & fh(0)=lfh	; Actualisieren PVC File

    if first ne 0 then print,' '
    first=0
    print,nr,strmid(systime(),11,5),string(vcpnf.head),b(0,0),b(1,0), $
          format='(i3,"|",a5,"|",a,"|",2i3)'
    if disp or wait then begin
aloop:a=get_kbrd(wait)
     case a of
     '?': begin
          print,"x=Abort/w=toggle wait/d=toggle display/p=print ?/..=cont :"
          goto, aloop
        endcase
     'x': begin
          message,'Aborted by user request !',/contin
          goto,endi
          endcase
     'w': wait=(not wait) and 1
     's': stop,'Number: ',nr
     'd': disp=(not disp) and 1
     'p': begin
            sfv=feat2st(pnf)
            nsfv=tag_names(sfv)
            snsfv=size(nsfv)
            na=nsfv(0)
            for i=1,snsfv(1)-1 do na=na+'/'+nsfv(i)
            na=na+'/'+string(snsfv(1)-1)+'..0/-1/-2:'
 loop:       read,set,format='(a)',prompt=na
            if strlen(set) eq 0 then set=-2 else set=long(set)
            if set gt -2 then begin
              if set ge snsfv(1) then goto,loop
              if set eq -1 then prst,sfv else prst,sfv.(set),nsfv(set)
              goto,loop
            endif
        endcase
     else:
     endcase
    endif
  endif else if nr le star and (nr mod 10) eq 0 then print,format="(1H.,$)"
 endwhile
endi:
 free_lun,lun
 free_lun,flun
 end

(See /IDL/pro_src/RODENA/pro/merk/praeparat_rechnen_vc.pro)

PRAEPARAT_ZEIGEN

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	PRAEPARAT_ZEIGEN
 PURPOSE:
	Display of the images of one specimen
 CATEGORY:
       Featuring
 CALLING SEQUENCE:

	PRAEPARAT_ZEIGEN, Projekt, Device, praeparat
		[,/NEW,/SELECT='...',USER='...']

 INPUTS:
		Projekt:	Name of projekt (top level directory)
		Device:		Device name (VMS)
				directory root (non VMS)
		Praeparat:	Name of specimen

 KEYWORD PARAMETERS:
		USER:		(only VMS) Username if not default
		NEW:		New image file names (only numbers)
		SELECT:		Selection criteria, .e.g. '13*'
	very useful from CDTP
		MASK		for display of object mask
		MAX		for large display area

 RESTRICTIONS:
	Mostly useful under VMS

 PROCEDURE:

 EXAMPLE:

	PRAEPARAT_ZEIGEN,'test1','$1$dia0','ttt',/NEW,USER='ILIAD',SEL='0*0'

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 09, Nov 1994.

(See /IDL/pro_src/RODENA/pro/merk/praeparat_zeigen.pro)

PROJEKT_RECHNEN

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		PROJEKT_RECHNEN

 PRO PROJEKT_RECHNEN, xproj, devi, WILDSPEC=wspec, NOTEST=test, $
                      USER=user, PIN=kpin, NEW=new, $
                      PATH_PIC=pathp, _EXTRA=tt, VERBOSE=verbo, $
                      BATCH=batch

	Hilfsaufruf um ganze Projekte zu rechnen
	WILDSPEC:	Wildcard zur Auswahl
	NEW:		=1	Neues Namenschema
	NOTEST:		=1	Rechnen
	PIN:		=1	PIN File benutzen
	PATH_PIC:	Anderer Path fuer PIN-File
	VERBOSE:	Ablisten der gefundenen Praeparate
	BATCH:		=1	Starten auf VSISS
			=2	   "     "  NVISS
			=3	   "    mit /KEEP/HOLD auf VSISS
			=4	   "    mit /KEEP/HOLD auf NVISS
	alle weiteren Keyword-Parameter werden bei BATCH <> 0 an das
	BATCH-Kommando gehaengt (siehe help @xv BAT unter DCL)
	
 proj=strupcase(strtrim(xproj,2))
 if not DEV_TEST(devi) then message,'Device not found'
 if not keyword_set(user) then user=getenv("USER")
 if not keyword_set(new) then new=0
 if not keyword_set(kpin) then kpin=0
 wild=string(devi,user,proj,format='(a,"[",a,".",a,"]")')
 if keyword_set(wspec) then pf=findfile(wild+wspec+'.dir',count=spf) $
                       else pf=findfile(wild+'*.dir',cou=spf)
 if keyword_set(batch) then begin
   if !version.os_family eq 'vms' then b_suf='.*' else b_suf=''
   b_fn=filepath('pp_batch_'+ $
     strmid(string(systime(1),format='(i10)'),6,4)+'.pro',/tmp)
   openw,ft,b_fn,/get_lun
   add_com=''
   if typeof(tt) gt 0 then begin
     qual=tag_names(tt)
     for i=0,n_tags(tt)-1 do add_com=add_com+','+qual(i)+'='+string(tt.(i))
     add_com=strcompress(add_com)
   endif
 endif
 for i=0,spf-1 do begin
   sct=0
   spe=nam_ext(pf(i),ext='DIR')
   if specimen_test(proj,devi,spe,new=new,USER=user, $
                    NMAX=nipz) eq 0 then begin
   ip=findfile(wild+spe+'.pic',count=nipc)
   ip=findfile(wild+spe+'.pin',count=nipn)
   wildc=string(devi,user,proj,spe,format='(a,"[",a,".",a,".",a,"]")')
   if keyword_set(new) then wildcc=wildc+'%%%.cel' $
                       else wildcc=wildc+spe+'%%%.cel'
   ip=findfile(wildcc,count=nipz)
   if keyword_set(kpin) then flag=(nipn gt 0) and (nipz gt 0) $ 
                        else flag=(nipc gt 0) and (nipz gt 0)
   if flag then begin
     if keyword_set(verbo) then print,i,spe,nipz,format='(i,x,a15,x,i3)'
     com=string('PRAEPARAT_RECHNEN,',proj,devi,spe, $
                'NEW=',new,'USER=',user,$
             format='(a,3("''",a,"''",","),a,i1,",",a,"''",a,"''")')
     if keyword_set(pathp) then com=com+",PATH_PIC='"+pathp+"'"
     print,com
     if keyword_set(test) and not keyword_set(batch) then $
       print,execute(com+',_extra=tt') $
     else if keyword_set(batch) then printf,ft,com+add_com      
   endif else if keyword_set(verb) then $
     print,i,spe,' not possible to calculate !',format='(i,x,a15,x,a)'
 endfor
 if keyword_set(batch) then begin
   close,ft
   case batch of
   1:spawn,'bat/que=sys$batch_vs'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
   2:spawn,'bat/que=sys$batch_nv'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
   3:begin
     print,'IDL File: ',b_fn,' created !'
     spawn,'bat/que=sys$batch_vs/hold/keep'+ $
     ' set nover|idl '+b_fn+'
     end
   4:begin
     print,'IDL File: ',b_fn,' created !'
     spawn,'bat/que=sys$batch_nv/hold/keep'+ $
     ' set nover|idl '+b_fn+'
     end
   else:
   endcase
 endif
 end

(See /IDL/pro_src/RODENA/pro/merk/projekt_rechnen.pro)

PROJEKT_SCHWELLEN

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		PROJEKT_SCHWELLEN

 PRO PROJEKT_SCHWELLEN, xproj, devi, WILDSPEC=wspec, NOTEST=test, $
                      USER=user, NEW=new, _EXTRA=tt, VERBOSE=verbo, $
                      BATCH=batch, ALL_SPECIMENS=alls

	Hilfsaufruf um ganze Projekte zu schwellen
	siehe auch PROJEKT_RECHNEN
	
 proj=strupcase(strtrim(xproj,2))
 if not DEV_TEST(devi) then message,'Device not found'
 if not keyword_set(user) then user=getenv("USER")
 if not keyword_set(new) then new=0
 wild=string(devi,user,proj,format='(a,"[",a,".",a,"]")')
 if keyword_set(wspec) then pf=findfile(wild+wspec+'.dir',count=spf) $
                       else pf=findfile(wild+'*.dir',cou=spf)
 if keyword_set(batch) then begin
   if !version.os_family eq 'vms' then b_suf='.*' else b_suf=''
   b_fn=filepath('pp_batch_'+ $
     strmid(string(systime(1),format='(i10)'),6,4)+'.pro',/tmp)
   openw,ft,b_fn,/get_lun
   add_com=''
   if typeof(tt) gt 0 then begin
     qual=tag_names(tt)
     for i=0,n_tags(tt)-1 do add_com=add_com+','+qual(i)+'='+string(tt.(i))
     add_com=strcompress(add_com)
   endif
 endif
 for i=0,spf-1 do begin
   sct=0
   spe=nam_ext(pf(i),ext='DIR')
   nipc=1
   sp_t=specimen_test(proj,devi,spe,new=new,USER=user,NMAX=nipz,LPIC=nipc) 
   flag=(sp_t eq 0) and (nipz gt 0) and ((nipc eq 0) or keyword_set(alls))
   if flag then begin
     if keyword_set(verbo) then print,i,spe,nipz,format='(i,x,a15,x,i3)'
     com=string('SCHWELLE_A,',proj,devi,spe, $
                'NEW=',new,'USER=',user,$
             format='(a,3("''",a,"''",","),a,i1,",",a,"''",a,"''")')
     print,com
     if keyword_set(test) and not keyword_set(batch) then $
       print,execute(com+',_extra=tt') $
     else if keyword_set(batch) then printf,ft,com+add_com      
   endif else if keyword_set(verb) then $
     print,i,spe,' not possible to threshold !',format='(i,x,a15,x,a)'
 endfor
 if keyword_set(batch) then begin
   close,ft
   case batch of
   1:spawn,'bat/que=sys$batch_vs'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
   2:spawn,'bat/que=sys$batch_nv'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
   3:begin
     print,'IDL File: ',b_fn,' created !'
     spawn,'bat/que=sys$batch_vs/hold/keep'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
     end
   4:begin
     print,'IDL File: ',b_fn,' created !'
     spawn,'bat/que=sys$batch_nv/hold/keep'+ $
     ' set nover|idl '+b_fn+'|delete '+b_fn+'.*'
     end
   else:
   endcase
 endif
 end

(See /IDL/pro_src/RODENA/pro/merk/projekt_schwellen.pro)

PROJEKT_TEST

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	PROJEKT_TEST
 PURPOSE:
	Listing of projekt structure including cell numbers, 
	feature file sizes, PPP file sizes etc.
 CATEGORY:
       Featuring
 CALLING SEQUENCE:

	PROJEKT_TEST, Projekt, Device
		[,/VERBOSE,/NEW,/PRINT,USER='...']

 INPUTS:
		Projekt:	Name of projekt (top level directory)
		Device:		Device name (VMS)
				directory root (non VMS)

 KEYWORD PARAMETERS:
		USER:		(only VMS) Username if not default
		VERBOSE:	Each directory will be listed
				default (only such with errors)
		PRINT:		Output will be printed and stored in
				file 'Projekt.lis'
		NEW:		New image file names (only numbers)

 OUTPUTS:
	Listing of the projekt
	E.G. in Verbose mode:

	NR.        Specimen ERR   Anf End PIC PPP
	  1           501a2   0     1 163 163 163
	  2            bild  -2 *   0   0   0   0
	  3              cc  -2 *   0   0   0   0
	  4             dtp  -2 *   0   0   0   0
	  5             ild  -2 *   0   0   0   0
	  6           invar  -2 *   0   0   0   0
	  7            merk  -2 *   0   0   0   0
	  8             nnn  -2     0   0   8   0

 RESTRICTIONS:
	Mostly useful under VMS

 PROCEDURE:

 EXAMPLE:

	PROJEKT_TEST,'test1','$1$dia0',/VER,/NEW,USER='ILIAD'

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 09, Nov 1994.

(See /IDL/pro_src/RODENA/pro/merk/projekt_test.pro)

RGHUHL

 [Previous Routine] [Next Routine] [List of Routines] 
	NAME:
		RGHUHL

 pro rghuhl,prae,von,nach,DISPLAY=disp
 a=read_pic(von+prae+'.pic')
 b=read_pic(nach+prae+'.pin')
 sa=size(a)
 sb=size(b)
 if sa(1) lt 256 or sb(1) lt 384 then message,'Zuwenig Spalten'
 if sa(2) ne sb(2) then message,'Anzahl Zeilen ungleich'
 b(240:250,*)=a(240:250,*)
 b(216:227,*)=a(216:227,*)
 b(228:239,*)=a(228:239,*)
 write_pic,nach+prae+'.pin',b
 if keyword_set(disp) then print,prae+' combined'
 end

(See /IDL/pro_src/RODENA/pro/merk/rghuhl.pro)

SCHWELLE_A

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	SCHWELLE_A

 PURPOSE:
	Schwellberechnung der Bilder eines Praeparates

 CATEGORY:
	Featuring
	
 CALLING SEQUENCE:
	
	SCHWELLE_A, Project, Device, Praeparat 
			[,USER=user, NEW, DISPLAY]


 INPUTS:
	Projekt:	ProjektName
	Device:		Bildspeicher Device
	Praeparat:	PraeparatName

 KEYWORD PARAMETERS:

	USER:	Username (default=f$user())
	NEW:	Neue kurze Filenamen
       SMASK:  Separates Maskenfile (default=cem.0)
               (file extension.ebene)
	DISPLAY:
	PARAMETER:external given parameter structure

 OUTPUTS:
	1. Merkmalsfile wird erzeugt
	2. Wenn Maske im Bild werden die Bilder auch veraendert

	Falls ein Merkmalfile bereits vorhanden ist, kann, wenn mehr Bilder
	vorhanden sind, dieses File fortgesetzt (f) und verlaengert werden.

 PROCEDURE:
	
	

 EXAMPLE:
		SCHWELLE_A, 'TEST1', 'SYS$SYSDEVICE:', 'TTT', /NEW

 MODIFICATION HISTORY:
 	Written by:	K.Rodenacker 21.10.93
	Last Modification:           11.11.94

(See /IDL/pro_src/RODENA/pro/merk/schwelle_a.pro)

SCHWELLE_K

 [Previous Routine] [Next Routine] [List of Routines] 
 NAME:
	SCHWELLE_K

 PURPOSE:
	Schwellkontrolle der Bilder eines Praeparates

 CATEGORY:
	Featuring
	
 CALLING SEQUENCE:
	
	SCHWELLE_K, Project, Device, Praeparat
		[, NUM=Start, USER=user, /NEW, /UPGRADE]

 INPUTS:
	Projekt:	ProjektName
	Device:		Bildspeicher Device
	Praeparat:	PraeparatName

 KEYWORD PARAMETERS:
	NUM:	Startnummer (default=1)
	USER:	Username (default=f$user())
	NEW:	Neu Filenamen
	UPGRADE:update_dtp anstelle vom write_dtp, recommended for harddisk
	MASK:	Binary Mask in bitplane 0 of greyscale image
	SMASK:	1..8 Binary Mask in bitplane x of separat image ext='cem'
	SCROLL: Scolling enabled
	S_SCROLL:Viewport size (default=128), switches on SRCOLL
	I_SIZE: Maximum Image Size (default=128)

 OUTPUTS:
	1. Merkmalsfile wird ueberschrieben
	2. Wenn Maske im Bild werden die Bilder auch veraendert

 COMMON BLOCKS:
	SCHWELLE
	SCHWELLM

 PROCEDURE:
	Benutzt werden SCHWELLE bei reiner Schwellkontrolle und
	SCHWELLM bei Masken SchwellKontrolle

 EXAMPLE:
		SCHWELLE_K, 'TEST1', 'SYS$SYSDEVICE:', 'SSS', /NEW

 MODIFICATION HISTORY:
 	Written by:	K.Rodenacker 19.10.93
 	Last Modification:	K.Rodenacker 11.11.94

(See /IDL/pro_src/RODENA/pro/merk/schwelle_k.pro)

W_TEST

 [Previous Routine] [List of Routines] 
 NAME:
	W_TEST
 PURPOSE:
	Visual test of shading images
 CATEGORY:
       Featuring
 CALLING SEQUENCE:

	W_TEST, Projekt, Device [,/NEW,USER='...']

 INPUTS:
		Projekt:	Name of projekt (top level directory)
		Device:		Device name (VMS)
				directory root (non VMS)

 KEYWORD PARAMETERS:
		USER:		(only VMS) Username if not default
		NEW:		New image file names (only numbers)

 OUTPUTS:
	Names of shadingimages

 RESTRICTIONS:
	Only useful under VMS

 PROCEDURE:

 EXAMPLE:

	W_TEST,'test1','$1$dia0',/NEW,USER='ILIAD'

 MODIFICATION HISTORY:
 	Written by:	K. Rodenacker, 23, May 1995.

(See /IDL/pro_src/RODENA/pro/merk/w_test.pro)