pro idl_fonts

set_plot,'x'
!p.charsize = 10
device, font = 'Helvetica Bold', /tt_font
xyouts, .2, .2, 'hello', /normal

device, font = 'Courier Bold', /tt_font
xyouts, .2, .3, 'hello', /normal

device, font = 'Times', /tt_font
xyouts, .2, .4, 'hello', /normal
 
set_plot,'z'
erase
!p.font = 1
!p.charsize = 5
device, font = 'Helvetica Bold'
xyouts, .4, .2, 'hello', /normal

device, font = 'Courier Bold'
xyouts, .4, .3, 'hello', /normal

device, font = 'Times'
xyouts, .4, .4, 'hello', /normal

pngimg = tvrd()
tvlct,reds,greens,blues,/get
write_png, '~/IDL/idl_style/Fonts.png', $
    PngImg,reds,greens,blues

stop

end