gradation_processing Module


Functions

public pure function make_histogram(layer, maximum_number) result(hist)

Make magnitude histogram

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: layer(:,:)

The layer of image.
integer, intent(in) :: maximum_number

The max value of pixel.

Return Value integer, (0:maximum_number)

The magnitude histogram.

public pure function linear_translation(img, maximum_value, low_threshold, high_threshold) result(translated)

Translate Linear

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: img(:,:,:)

Image array has pixel values.
integer, intent(in), optional :: maximum_value

The max value of image pixel.
integer, intent(in), optional :: low_threshold

Threshold to cut min.
integer, intent(in), optional :: high_threshold

Threshold to cut max.

Return Value integer, allocatable, (:,:,:)

The image applied linear transition.

public pure function brightness_translation(img, shift, maximum_value) result(translated)

Apply brightness transition

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: img(:,:,:)

Image array has pixel value.
integer, intent(in) :: shift

Shift width.
integer, intent(in), optional :: maximum_value

Max value to truncate. default to 255.

Return Value integer, allocatable, (:,:,:)

The image applied brightness transition.

public pure function contrast_translation(img, maximum_value, K) result(translated)

Apply contrast transition

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: img(:,:,:)

Image array has pixel value.
integer, intent(in) :: maximum_value

Max value of image pixels.
real, intent(in) :: K

K

Return Value integer, allocatable, (:,:,:)

The image applied contrast transition.

public pure function gamma_correction(img, maximum_value, g) result(translated)

Apply gamma correction

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: img(:,:,:)

Image array has pixel values.
integer, intent(in) :: maximum_value

The max value of pixels.
real, intent(in) :: g

Gamma value.

Return Value integer, allocatable, (:,:,:)

The image applied gamma correction.

public pure function histogram_equalization(img, maximum_value) result(translated)

Apply histgram equalization

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: img(:,:,:)

Image array has pixel values.
integer, intent(in) :: maximum_value

The max value of pixels.

Return Value integer, allocatable, (:,:,:)

The image applied histogram equalization.