ExpImage (version 0.10.1)

color_pallete: Creates a color palette from an image (Criar uma paleta de cores a partir de uma imagem).

Description

Creates a color palette from an image (Criar uma paleta de cores a partir de uma imagem)

Usage

color_pallete(im,number=8,mask=NULL,proportional=FALSE,plot=TRUE)

Value

Returns the segmented image (Retorna a imagem segmentada).

Arguments

im

:Image in ExpImage format (Imagem no formato do ExpImage).

number

:Number of color scales to be created (Numero de escalas de cores a serem criados)

mask

: Mask obtained by the segmentation process, default=NULL (Mascara obtida pelo processo de segmentacao).

proportional

:Logical variable indicating whether the pixel quantity of each color will be proportional to the original image (Variavel logica indicando se a quantidade pixel de cada cor sera proporcional à da imagem original).

plot

: Logical value, if TRUE, the image will be displayed (Valor logico, se for TRUE a imagem sera apresentada).

Author

Alcinei Mistico Azevedo (Instituto de ciencias agrarias da UFMG)

See Also

segmentation , calibration_palette

Examples

# \donttest{
name=example_image(3)
image=read_image(name,plot=TRUE)
pallete=color_pallete(im=image,number =5,plot = TRUE)
pallete=color_pallete(im=image,number =5,proportional = TRUE,plot = TRUE)

name=example_image(10)
image=read_image(name,plot=TRUE)
pallete=color_pallete(im=image,number =5,plot = TRUE)
pallete=color_pallete(im=image,number =5,proportional = TRUE,plot = TRUE)

m=gray_scale(image,method = "GLI",plot=TRUE)
seg=segmentation(m,treshold = 0.25,plot=TRUE)
pallete1=color_pallete(im=image,number =10,mask = seg,plot = TRUE)
pallete2=color_pallete(im=image,number =10,mask = seg,proportional = TRUE,plot = TRUE)


name=example_image(13)
image=read_image(name,plot=TRUE)
pallete1=color_pallete(im=image,number =10,plot = TRUE)
pallete2=color_pallete(im=image,number =10,proportional = TRUE,plot = TRUE)

m=gray_scale(image,method = "r",plot=TRUE)
seg=segmentation(m,treshold = "otsu",fillHull = TRUE,plot=TRUE)
pallete1=color_pallete(im=image,number =10,mask = seg,plot = TRUE)
pallete2=color_pallete(im=image,number =10,mask = seg,proportional = TRUE,plot = TRUE)

# }