Posted to tcl by emiliano at Mon Apr 20 23:46:06 GMT 2009view pretty

canvas .c -bg white -width 600 -height 400

pack .c

.c create line 300 0 300 400
.c create line 0 200 600 200

.c create text 300 200 -text Hello -angle 90 -font {Courier 72 bold} -anchor c
.c create text 300 200 -text Hello -font {Courier 72 bold} -anchor c

after 1000 {
.c postscript -file output.ps
exit
}