lappend auto_path $fGIS_HOME/tcl
array set fgis_font {
1 -cronyx-times-medium-r-normal--10-100-75-75-p-54-koi8-r
1b -cronyx-times-bold-r-normal--10-100-75-75-p-54-koi8-r
2 -cronyx-times-medium-r-normal--12-120-75-75-p-64-koi8-r
2b -cronyx-times-bold-r-normal--12-120-75-75-p-64-koi8-r
3 -cronyx-times-medium-r-normal--14-100-100-100-p-54-koi8-r
3b -cronyx-times-bold-r-normal--14-100-100-100-p-54-koi8-r
4 -cronyx-times-medium-r-normal--18-180-75-75-p-94-koi8-r
4b -cronyx-times-bold-r-normal--18-180-75-75-p-94-koi8-r
}
array set fgis_fontmap [list \
$fgis_font(1) {Times-Roman 10}\
$fgis_font(2) {Times-Roman 12}\
$fgis_font(3) {Times-Roman 14}\
$fgis_font(4) {Times-Roman 18}\
$fgis_font(1b) {Times-Bold 10}\
$fgis_font(2b) {Times-Bold 12}\
$fgis_font(3b) {Times-Bold 14}\
$fgis_font(4b) {Times-Bold 18}]
array set fgis {
printer lp 
printcmd /usr/bin/lpr
orient n
print_colormode color
shift_factor 0.75
undefined_legend "Not defined"
coordformat "X=%0.8g Y=%0.8g"
}
if [file exists ~/.fgisrc] {source ~/.fgisrc}