styles_samples Subroutine

public subroutine styles_samples()

Print to standard output all styles samples.

Arguments

None

Calls

proc~~styles_samples~~CallsGraph proc~styles_samples face::styles_samples interface~colorize face::colorize proc~styles_samples->interface~colorize proc~colorize_default face::colorize_default interface~colorize->proc~colorize_default proc~color_index face::color_index proc~colorize_default->proc~color_index proc~style_index face::style_index proc~colorize_default->proc~style_index proc~upper face::upper proc~colorize_default->proc~upper

Called by

proc~~styles_samples~~CalledByGraph proc~styles_samples face::styles_samples program~face_test_basic face_test_basic program~face_test_basic->proc~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