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

  1. canvas .c -bg white -width 600 -height 400
  2.  
  3. pack .c
  4.  
  5. .c create line 300 0 300 400
  6. .c create line 0 200 600 200
  7.  
  8. .c create text 300 200 -text Hello -angle 90 -font {Courier 72 bold} -anchor c
  9. .c create text 300 200 -text Hello -font {Courier 72 bold} -anchor c
  10.  
  11. after 1000 {
  12. .c postscript -file output.ps
  13. exit
  14. }