colors_samples Subroutine

  1. face.F90
  2. face
  3. colors_samples

public subroutine colors_samples()

Arguments

None

Calls

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

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