closest_color_name Subroutine

public subroutine closest_color_name(r, g, b, closestname)

NAME

closest_color_name(3f) - [M_color] returns the closest name for the
given RGB values.
(LICENSE:PD)

SYNOPSIS

subroutine closest_color_name(r,g,b,closestname)

 real,intent(in)               :: r,g,b
 character(len=20),intent(out) :: closestname

DESCRIPTION

CLOSEST_COLOR_NAME(3f) returns the closest name for the given RGB values.
Most X11 Windows color names are supported.

OPTIONS

R   red component, range of 0 to 100
G   green component, range of 0 to 100
B   blue component, range of 0 to 100

RETURNS

CLOSESTNAME   name of color found closest to given RGB value

EXAMPLE

Sample program

program demo_closest_color_name
use M_color, only : closest_color_name
character(len=100) :: string ! at least 20 characters
   string=' '

   call closest_color_name(100.0,  0.0,  0.0,string)
   write(*,*)trim(string)

   call closest_color_name(  0.0,100.0,  0.0,string)
   write(*,*)trim(string)

   call closest_color_name(  0.0,  0.0,100.0,string)
   write(*,*)trim(string)

end program demo_closest_color_name

Results:

red
green
blue

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: r
real, intent(in) :: g
real, intent(in) :: b
character(len=*), intent(out) :: closestname

Contents

Source Code

closest_color_name

Source Code

subroutine closest_color_name(r,g,b,closestname)

! ident_13="@(#) M_color closest_color_name(3f) given RGB values try to find closest named color"

real,intent(in)               :: r,g,b
character(len=*),intent(out) :: closestname
real                          :: rn,gn,bn
real                          :: distance, minimum_distance
character(len=20)             :: echoname
integer                       :: i
character(len=20)             :: string
!-----------------------------------------------------------------------------------------------------------------------------------
   minimum_distance=1000.0
   closestname='Unknown'
   INFINITE: do i=1,1000
      write(string,'(i0)')i
      call color_name2rgb(string,rn,gn,bn,echoname)       ! get next color
      if(echoname == 'Unknown') exit INFINITE
      distance=sqrt( (r-rn)**2 + (g-gn)**2 + (b-bn)**2 )
      if(distance < minimum_distance)then
         closestname=echoname
         minimum_distance=min(minimum_distance,distance)
      endif
   enddo INFINITE
end subroutine closest_color_name