#!/usr/bin/env tclsh

lappend auto_path [pwd]/../..
package require pdf4tcl

pdf4tcl::new p1
p1 startPage 595 842
p1 setTextPosition 100 100
p1 drawText "Ein Test"
p1 drawText "Zweite Zeile"
p1 write -file test2.pdf
p1 cleanup

