styles_samples Subroutine

  1. face.F90
  2. face
  3. styles_samples

public subroutine styles_samples()

Arguments

None

Calls

proc~~styles_samples~4~~CallsGraph proc~styles_samples~4 styles_samples interface~colorize~4 colorize proc~styles_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

styles_samples

Source Code

   subroutine styles_samples()
   !< Print to standard output all styles samples.
   integer(int32) :: s !< Counter.

   print '(A)', colorize('Styles samples', color_fg='red_intense')
   do s=1, size(STYLES, dim=2)
      print '(A)', '  colorize("'//STYLES(1, s)//'", style="'//STYLES(1, s)//'") => '//&
         colorize(STYLES(1, s), style=STYLES(1, s))//&
         ' code: '//colorize(trim(STYLES(2, s)), color_fg='magenta', style='inverse_on')
   enddo
   endsubroutine styles_samples