initialize_colors Subroutine

private pure subroutine initialize_colors(colors)

Arguments

Type IntentOptional Attributes Name
type(color), intent(out), dimension(:), allocatable :: colors

Calls

proc~~initialize_colors~~CallsGraph proc~initialize_colors initialize_colors proc~convert color%convert proc~initialize_colors->proc~convert proc~cmyk_to_rgb cmyk_to_rgb proc~convert->proc~cmyk_to_rgb proc~decimal_to_rgb decimal_to_rgb proc~convert->proc~decimal_to_rgb proc~hex_to_rgb hex_to_rgb proc~convert->proc~hex_to_rgb proc~hsl_to_rgb hsl_to_rgb proc~convert->proc~hsl_to_rgb proc~hsv_to_rgb hsv_to_rgb proc~convert->proc~hsv_to_rgb proc~rgb_to_cmyk rgb_to_cmyk proc~convert->proc~rgb_to_cmyk proc~rgb_to_decimal rgb_to_decimal proc~convert->proc~rgb_to_decimal proc~rgb_to_hex rgb_to_hex proc~convert->proc~rgb_to_hex proc~rgb_to_hsl rgb_to_hsl proc~convert->proc~rgb_to_hsl proc~rgb_to_hsv rgb_to_hsv proc~convert->proc~rgb_to_hsv proc~rgb_to_xyz rgb_to_xyz proc~convert->proc~rgb_to_xyz proc~xyz_to_rgb xyz_to_rgb proc~convert->proc~xyz_to_rgb

Called by

proc~~initialize_colors~~CalledByGraph proc~initialize_colors initialize_colors proc~find_nearest color%find_nearest proc~find_nearest->proc~initialize_colors proc~print_available_colors color%print_available_colors proc~print_available_colors->proc~initialize_colors proc~save_available_colors color%save_available_colors proc~save_available_colors->proc~initialize_colors proc~set_by_name color%set_by_name proc~set_by_name->proc~initialize_colors proc~set color%set proc~set->proc~set_by_name program~demo_color demo_color program~demo_color->proc~find_nearest program~demo_color->proc~print_available_colors program~demo_color->proc~save_available_colors program~demo_color->proc~set program~example27 example27 program~example27->proc~find_nearest program~example27->proc~set program~example29 example29 program~example29->proc~print_available_colors program~example29->proc~save_available_colors program~example26 example26 program~example26->proc~set program~example28 example28 program~example28->proc~set

Source Code

   pure subroutine initialize_colors(colors)
      type(color), intent(out), dimension(:), allocatable :: colors

      allocate(colors(14))

      colors(1)%color_name  = 'red'    ; colors(1)%r  = 255_ik ; colors(1)%g  =   0_ik ; colors(1)%b  =   0_ik
      colors(2)%color_name  = 'green'  ; colors(2)%r  =   0_ik ; colors(2)%g  = 128_ik ; colors(2)%b  =   0_ik
      colors(3)%color_name  = 'blue'   ; colors(3)%r  =   0_ik ; colors(3)%g  =   0_ik ; colors(3)%b  = 255_ik
      colors(4)%color_name  = 'yellow' ; colors(4)%r  = 255_ik ; colors(4)%g  = 255_ik ; colors(4)%b  =   0_ik
      colors(5)%color_name  = 'cyan'   ; colors(5)%r  =   0_ik ; colors(5)%g  = 255_ik ; colors(5)%b  = 255_ik
      colors(6)%color_name  = 'magenta'; colors(6)%r  = 255_ik ; colors(6)%g  =   0_ik ; colors(6)%b  = 255_ik
      colors(7)%color_name  = 'black'  ; colors(7)%r  =   0_ik ; colors(7)%g  =   0_ik ; colors(7)%b  =   0_ik
      colors(8)%color_name  = 'white'  ; colors(8)%r  = 255_ik ; colors(8)%g  = 255_ik ; colors(8)%b  = 255_ik
      colors(9)%color_name  = 'gray'   ; colors(9)%r  = 128_ik ; colors(9)%g  = 128_ik ; colors(9)%b  = 128_ik
      colors(10)%color_name = 'brown'  ; colors(10)%r = 165_ik ; colors(10)%g =  42_ik ; colors(10)%b =  42_ik
      colors(11)%color_name = 'orange' ; colors(11)%r = 255_ik ; colors(11)%g = 165_ik ; colors(11)%b =   0_ik
      colors(12)%color_name = 'gold'   ; colors(12)%r = 255_ik ; colors(12)%g = 215_ik ; colors(12)%b =   0_ik
      colors(13)%color_name = 'pink'   ; colors(13)%r = 255_ik ; colors(13)%g = 192_ik ; colors(13)%b = 203_ik
      colors(14)%color_name = 'violet' ; colors(14)%r = 138_ik ; colors(14)%g =  43_ik ; colors(14)%b = 226_ik

      call colors(:)%convert('rgb2all')
   end subroutine initialize_colors