styles_samples Subroutine

  1. face.F90
  2. face
  3. styles_samples

public subroutine styles_samples()

Arguments

None

Calls

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

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