}

PDF_set_info $p "Creator" "hello.tcl"

PDF_set_info $p "Author" "Thomas Merz"

PDF_set_info $p "Title" "Hello world (Tcl)"

PDF_begin_page_ext $p 595 842 ""

set font [PDF_load_font $p "Helvetica Bold" "unicode" ""]

PDF_setfont $p $font 24.0

PDF_set_text_pos $p 50 700

PDF_show $p "Hello world!"

PDF_continue_text $p "(says Tcl)"

PDF_end_page_ext $p ""

PDF_end_document $p ""

PDF_delete $p

2.13.3 Tcl                 

if [ catch { ...          

PDFlib    

... } result ] {

puts stderr "Exception caught!"

puts stderr $result

}

46

2   

:  PDFlib