paintObjects             package:EBImage             R Documentation

_M_a_r_k_s _o_b_j_e_c_t_s _i_n _i_m_a_g_e_s

_D_e_s_c_r_i_p_t_i_o_n:

     This function marks objects in images.

_U_s_a_g_e:

       paintObjects(x, tgt, opac=c(1, 1), col=c('red', NA))

_A_r_g_u_m_e_n_t_s:

       x: An 'Image' object in 'Grayscale' color mode or an array
          containing object masks. Object masks are sets of pixels with
          the same unique integer value.

     tgt: An 'Image' object or an array, containing the intensity
          values of the objects.

    opac: A numeric vector of two opacity values for drawing object
          boundaries and object bodies. Opacity ranges from 0 to 1,
          with 0 being fully transparent and 1 fully opaque.

     col: A character vector of two R colors for drawing object
          boundaries and object bodies. By default, object boundaries
          are painted in 'red' while object bodies are not painted.

_V_a_l_u_e:

     An 'Image' object or an array, containing the painted version of
     'tgt'.

_A_u_t_h_o_r(_s):

     Oleg Sklyar, osklyar@ebi.ac.uk, 2006-2007

_S_e_e _A_l_s_o:

     'bwlabel', 'watershed', 'link{getFeatures}'

_E_x_a_m_p_l_e_s:

       ## load images
       nuc = readImage(system.file('images', 'nuclei.tif', package='EBImage'))
       cel = readImage(system.file('images', 'cells.tif', package='EBImage'))
       img = rgbImage(green=cel, blue=nuc)
       if (interactive()) display(img, title='Cells')

       ## segment nuclei
       nmask = thresh(nuc, 10, 10, 0.05)
       nmask = opening(nmask, makeBrush(5, shape='disc'))
       nmask = fillHull(nmask)
       nmask = bwlabel(nmask)
       if (interactive()) display(normalize(nmask), title='Cell nuclei mask')

       ## segment cells, using propagate and nuclei as 'seeds'
       ctmask = opening(cel>0.1, makeBrush(5, shape='disc'))
       cmask = propagate(cel, nmask, ctmask)
       if (interactive()) display(normalize(cmask), title='Cell mask')

       ## using paintObjects to highlight objects
       res = paintObjects(cmask, img, col='#ff00ff')
       res = paintObjects(nmask, res, col='#ffff00')
       if (interactive()) display(res, title='Segmented cells')

