styles_samples Subroutine

  1. face.F90
  2. face
  3. styles_samples

public subroutine styles_samples()

Arguments

None

Calls

proc~~styles_samples~3~~CallsGraph proc~styles_samples~3 styles_samples interface~colorize~3 colorize proc~styles_samples~3->interface~colorize~3 proc~colorize_default~3 colorize_default interface~colorize~3->proc~colorize_default~3 proc~color_index~3 color_index proc~colorize_default~3->proc~color_index~3 proc~upper~4 upper proc~colorize_default~3->proc~upper~4 proc~style_index~3 style_index proc~colorize_default~3->proc~style_index~3

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