colors_samples Subroutine

  1. face.F90
  2. face
  3. colors_samples

public subroutine colors_samples()

Arguments

None

Calls

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

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