-- Exemplo 1
module Main(main) where

import TerraHS

host = "localhost";
dbname =  "db5";
user = "root";
password = "root";

layername ="Untitled_1";


main :: IO()
main  = do

	-- abre o banco de dados
	db <- open (TeMySQL host user password dbname)
	
	-- carrega o raster do banco de dados
	rs <- (retrieve db "cbers_b2")::(IO (TeRaster Double))
	
	store db "new_raster" rs
	-- imprime o resultado
	--print (getValues rs)
	
	-- fecha banco de dados
	close db