rgb Function

public function rgb(c) result(num)

Arguments

Type IntentOptional Attributes Name
type(rgb_color), intent(in) :: c

Return Value integer


Source Code

  function rgb(c) result(num)
    type(rgb_color),intent(in) :: c
    integer :: num
    num = int(c%r)*65536 + int(c%g)*256 + int(c%b)
  end function rgb