function mm_filter,vt,start,ende,LINEAR=linear,ST_TYPE=typ,FIRST=first
;
; Ouverture und Fermeture nach Sternberg (Morphological filters ?)
;
if keyword_set(linear) then stern=0 else stern=1
if not keyword_set(typ) then typ=0	;dreieck
if not keyword_set(first) then first=0	;ouverture am Anfang
svt=size(vt)
xvt=[vt[svt[1]-indgen(svt[1])-1],vt,vt[svt[1]-indgen(svt[1])-1]]
low=xvt
upp=xvt
for l=start,ende do begin
  kerg=gen_sphere(l,typ=typ)
  if not first then begin
    if stern then begin
      low=dilate(erode(low,kerg ge 0,val=kerg),kerg gt 0,val=kerg)
      upp=erode(dilate(upp,kerg ge 0,val=kerg),kerg gt 0,val=kerg)
    endif else begin
      low=dilate(erode(low,kerg ge 0,/gr),kerg ge 0,/gr)
      upp=erode(dilate(upp,kerg ge 0,/gr),kerg ge 0,/gr)
    endelse
  endif else begin
    if stern then begin
      low=erode(dilate(low,kerg ge 0,val=kerg),kerg ge 0,val=kerg)
      upp=dilate(erode(upp,kerg ge 0,val=kerg),kerg ge 0,val=kerg)
    endif else begin
      low=erode(dilate(low,kerg ge 0,/gr),kerg ge 0,/gr)
      upp=dilate(erode(upp,kerg ge 0,/gr),kerg ge 0,/gr)
    endelse
  endelse
  first=(not first) and 1
  endfor
  return,[[upp[svt[1]:svt[1]*2-1]],[low[svt[1]:svt[1]*2-1]]]
end
res=mm_filter(vt4,1,4,fir=0,st_typ=1)&plot,vt4,col=1,psym=5,syms=0.25&oplot,res[*,0],col=2&oplot,res[*,1],col=2&wshow,1
end