pick_color Function

  function pick_color(string) result(crgb)
    character(len=*)                                     :: string
    type(rgb_color)                                      :: crgb
    character(len=len_trim(trim(adjustl(trim(string))))) :: color_name
    color_name=trim(adjustl(trim(string)))
    select case(color_name)
    case("black")
       crgb=black
    case("red")
       crgb=red
    case("green")
       crgb=green
    case("orange")
       crgb=orange
    case("blue")
       crgb=blue
    case("yellow")
       crgb=yellow
    case("cyan")
       crgb=cyan
    case("magenta")
       crgb=magenta
    case default
       print*,"pick_color: color name ",color_name," does not exist"
       print*,"set color to black"
       crgb=black
    end select
  end function pick_color