C Library Functions  - color_name2rgb (3)

NAME

COLOR_NAME2RGB(3f) - [M_color] returns the RGB values in the range 0 to 100 for a given known color name. (LICENSE:PD)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS

subroutine color_name2rgb(name,r,g,b,echoname)

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

DESCRIPTION

COLOR_NAME2RGB(3f) returns the RGB values in the range 0 to 100 for a given known color name. Most X11 Windows color names are supported. If the name is not found ECHONAME is set to "Unknown".

EXAMPLE

A sample program:

    program demo_color_name2rgb
    use M_color, only : hue, color_name2rgb
    implicit none
    !
    ! list colors known to colorname2rgb(3f) & corresponding RGB values
    !
    character(len=20) :: name
    character(len=20) :: echoname
    real              :: red,green,blue
    integer           :: i
    TRYALL: do i=1,10000
       ! weird little thing where the color names have aliases
       ! that are numeric strings
       write(name,’(i0)’)i
       ! get the RGB values and English name of the color
       call color_name2rgb(name,red,green,blue,echoname)
       ! the last color name is "Unknown" so the loop should exit
       if(echoname == ’Unknown’)exit TRYALL
       ! display the English name and RGB values for the name
       write(*,*)echoname,int([red,green,blue])
    enddo TRYALL
    !write(*,*)’Number of colors found is ’,i-1
    end program demo_color_name2rgb

AUTHOR

John S. Urban

LICENSE

Public Domain


Nemo Release 3.1 color_name2rgb (3) July 22, 2023
Generated by manServer 1.08 from c4369b12-ae8c-4511-9a85-18e6feca460c using man macros.