face_test_colors Program

Uses

  • program~~face_test_colors~4~~UsesGraph program~face_test_colors~4 face_test_colors module~face face program~face_test_colors~4->module~face iso_fortran_env iso_fortran_env module~face->iso_fortran_env

Calls

program~~face_test_colors~4~~CallsGraph program~face_test_colors~4 face_test_colors interface~colorize colorize program~face_test_colors~4->interface~colorize proc~colorize_default colorize_default interface~colorize->proc~colorize_default proc~color_index color_index proc~colorize_default->proc~color_index proc~upper upper proc~colorize_default->proc~upper proc~style_index style_index proc~colorize_default->proc~style_index

Contents

Source Code


Source Code

program face_test_colors
!< FACE test.
use face

implicit none

print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='black'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='red'            )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='green'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='yellow'         )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue'           )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='magenta'        )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='cyan'           )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='white'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='default'        )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='black_intense'  )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='red_intense'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='green_intense'  )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='yellow_intense' )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue_intense'   )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='magenta_intense')
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='cyan_intense'   )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='white_intense'  )

print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='black'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='red'            )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='green'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='yellow'         )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='blue'           )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='magenta'        )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='cyan'           )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='white'          )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='default'        )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='black_intense'  )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='red_intense'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='green_intense'  )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='yellow_intense' )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='blue_intense'   )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='magenta_intense')
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='cyan_intense'   )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_bg='white_intense'  )
endprogram face_test_colors