face_test_styles Program

Uses

  • program~~face_test_styles~~UsesGraph program~face_test_styles face_test_styles module~face face program~face_test_styles->module~face iso_fortran_env iso_fortran_env module~face->iso_fortran_env

FACE test.


Calls

program~~face_test_styles~~CallsGraph program~face_test_styles face_test_styles interface~colorize face::colorize program~face_test_styles->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

Source Code

program face_test_styles
!< FACE test.
use face

implicit none

print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='bold_on'         )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='italics_on'      )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='underline_on'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='inverse_on'      )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='strikethrough_on')
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='framed_on'       )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='encircled_on'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='overlined_on'    )
endprogram face_test_styles