;analysis of image 'parts' (consisting of electronic parts)
;shows:      fast segmentation, using min filter
;            in 'parts1': classification using CLP-op's
;expects:    image in a
;            Output LUT's initialized using 'ini'
;********************************************
parms
  int windisplay
endparms
int err

era 
err = chk lut 2 1
dest p
show p
cstr a
era 1 2 3       ;to keep colour bitplanes free
*windispl h (windisplay+1)
dest q
min a 5          ;segmentation
cstr             ;increase contrast
comp q < 140     ;thresholding
save b           ;store binary image in b
*dparts1 windisplay        ;further processing
stop

