OGR_Simplify.tcl

#!/bin/sh
# the next line restarts using tclsh \
exec ${SPI_PATH}/tclsh "$0" "$@"
#============================================================================
# Environnement Canada
# Centre Meteorologique Canadien
# 2100 Trans-Canadienne
# Dorval, Quebec
#
# Projet     : Exemple de scripts.
# Fichier    : OGR_Simplify.tcl
# Creation   : Mai 2008 - J.P. Gauthier - CMC/CMOE
# Description: Simplifier un polygone
#
# Parametres :
#
# Retour:
#
# Remarques  :
#
#============================================================================

package require TclData
#package require TclGeoEER
package require Logger

Log::Start [info script] 0.1

#----- Open the shapefile to symplify
set layer [ogrfile open SHPFILE read $env(CI_DATA_IN)/ghy_000f06a_e.shp]
eval ogrlayer read SPHLAYER [lindex $layer 0]

#----- Open the destination file
catch { eval file delete -force [glob $env(CI_DATA_OUT)/OGR_Simplify.*]  }
ogrfile open NEWSHPFILE write $env(CI_DATA_OUT)/OGR_Simplify.shp "ESRI Shapefile"

#----- Simplify the polygons with 0.1 degrees of tolerance (file is in latlon)
ogrlayer stats SPHLAYER -simplify 0.01

#----- Save result
ogrlayer write SPHLAYER NEWSHPFILE

#----- Close the files
ogrfile close NEWSHPFILE SHPFILE

Log::End