colors_samples Subroutine

  1. face.F90
  2. face
  3. colors_samples

public subroutine colors_samples()

Arguments

None

Calls

proc~~colors_samples~~CallsGraph proc~colors_samples colors_samples interface~colorize colorize proc~colors_samples->interface~colorize proc~colorize_default colorize_default interface~colorize->proc~colorize_default proc~color_index color_index proc~colorize_default->proc~color_index proc~upper upper proc~colorize_default->proc~upper proc~style_index style_index proc~colorize_default->proc~style_index

Called by

proc~~colors_samples~~CalledByGraph proc~colors_samples colors_samples program~face_test_basic face_test_basic program~face_test_basic->proc~colors_samples program~face_test_basic~2 face_test_basic program~face_test_basic~2->proc~colors_samples program~face_test_basic~3 face_test_basic program~face_test_basic~3->proc~colors_samples program~face_test_basic~4 face_test_basic program~face_test_basic~4->proc~colors_samples

Contents

Source Code

colors_samples

Source Code

   subroutine colors_samples()
   !< Print to standard output all colors samples.
   integer(int32) :: c !< Counter.

   print '(A)', colorize('Foreground colors samples', color_fg='red_intense')
   do c=1, size(COLORS_FG, dim=2)
      print '(A)', '  colorize("'//COLORS_FG(1, c)//'", color_fg="'//COLORS_FG(1, c)//'") => '//&
         colorize(COLORS_FG(1, c), color_fg=COLORS_FG(1, c))//&
         ' code: '//colorize(trim(COLORS_FG(2, c)), color_fg=COLORS_FG(1, c), style='inverse_on')
   enddo
   print '(A)', colorize('Background colors samples', color_fg='red_intense')
   do c=1, size(COLORS_BG, dim=2)
      print '(A)', '  colorize("'//COLORS_BG(1, c)//'", color_bg="'//COLORS_BG(1, c)//'") => '//&
         colorize(COLORS_BG(1, c), color_bg=COLORS_BG(1, c))//&
         ' code: '//colorize(trim(COLORS_BG(2, c)), color_bg=COLORS_BG(1, c), style='inverse_on')
   enddo
   endsubroutine colors_samples