#!/bin/sh
# the next line restarts using wish \
exec tclsh $0 $@
                                                                                
# THIS is a basic module which will convert a Tk generated postscript
#   which does not handle unicode glyphs to onw which will.
                                                                                
source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GPHUTILS 

if { $argc < 5 } {
   puts stderr "Too few inputs for ConvertTkPS"
   puts stderr "Usage: ConvertTkPS Infile OutFile HSz SSz DSz"
} else {
   GPUsizeHelvetica
   GPUsizeSymbol
   GPUsizeDingbat
   GPUreadPSfile $argc $argv
   exit 1 
}
