Как сгенерировать тексты в файлы postscript из объекта Canvas библиотеки Tcl / Tk ?

Я не мог решить эту проблему несколько дней: Я пытаюсь сгенерировать текст из объекта холста, используя его опцию «postscript», чтобы получить файл .ps. Я обнаружил, что он отлично работает, если я рисую линии, овалы и т. Д. На холсте, и они были показаны в файле .ps, однако мне не повезло с текстовыми объектами - даже если они были показаны на холсте (на дисплее ), в выходном файле .ps не было.

У кого-нибудь есть мысли по этому поводу? Вы можете предположить, что все переменные четко определены.

wm geometry . +0+0
wm resizable . false false
set wtitle "Drawing Chinese Character"
frame .frm -width $pad_width -height $pad_height -relief raised -bd 2
canvas .p0 -width $pad_width -height $pad_height -relief raised -bd 0 
.p0 create rectangle 0 0 $pad_width $pad_height -outline gray -fill white -width 0 
.p0 create text $akx $aky -text "\u9177" -font -Adobe-Times-Bold-R-Normal-*-$fontsize-*  
.p0 create line 0 0 $pad_width $pad_height -fill red -width 2 -arrow last
pack .p0 -in .frm -fill both
pack .frm -side bottom 

update;
.p0 postscript -fontmap fontMap -file "char.ps"