src/terraservermapsource.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
/*
 * viking
 * Copyright (C) 2009, Guilhem Bonnefille <guilhem.bonnefille@gmail.com>
 *
 * viking is free software: you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * viking is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#ifdef HAVE_MATH_H
#include <math.h>
#endif

#include "globals.h"
#include "terraservermapsource.h"

static gboolean _coord_to_mapcoord ( VikMapSource *self, const VikCoord *src, gdouble xzoom, gdouble yzoom, MapCoord *dest );
static void _mapcoord_to_center_coord ( VikMapSource *self, MapCoord *src, VikCoord *dest );
static int _download ( VikMapSource *self, MapCoord *src, const gchar *dest_fn, void *handle );
static void * _download_handle_init ( VikMapSource *self );
static void _download_handle_cleanup ( VikMapSource *self, void *handle );

/* FIXME Huge gruik */
static DownloadMapOptions terraserver_options = { FALSE, FALSE, NULL, 0, a_check_map_file };

typedef struct _TerraserverMapSourcePrivate TerraserverMapSourcePrivate;
struct _TerraserverMapSourcePrivate
{
  guint8 type;
};

#define TERRASERVER_MAP_SOURCE_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), TERRASERVER_TYPE_MAP_SOURCE, TerraserverMapSourcePrivate))

/* properties */
enum
{
  PROP_0,

  PROP_TYPE,
};

G_DEFINE_TYPE (TerraserverMapSource, terraserver_map_source, VIK_TYPE_MAP_SOURCE_DEFAULT);

static void
terraserver_map_source_init (TerraserverMapSource *self)
{
	/* initialize the object here */
	g_object_set (G_OBJECT (self),
	              "tilesize-x", 200,
	              "tilesize-y", 200,
	              "drawmode", VIK_VIEWPORT_DRAWMODE_UTM,
	              NULL);
}

static void
terraserver_map_source_finalize (GObject *object)
{
	/* TODO: Add deinitalization code here */

	G_OBJECT_CLASS (terraserver_map_source_parent_class)->finalize (object);
}

static void
terraserver_map_source_set_property (GObject      *object,
                                     guint         property_id,
                                     const GValue *value,
                                     GParamSpec   *pspec)
{
  TerraserverMapSource *self = TERRASERVER_MAP_SOURCE (object);
  TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE (self);

  switch (property_id)
    {
    case PROP_TYPE:
      priv->type = g_value_get_uint (value);
      break;

    default:
      /* We don't have any other property... */
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
      break;
    }
}

static void
terraserver_map_source_get_property (GObject    *object,
                                     guint       property_id,
                                     GValue     *value,
                                     GParamSpec *pspec)
{
  TerraserverMapSource *self = TERRASERVER_MAP_SOURCE (object);
  TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE (self);

  switch (property_id)
    {
    case PROP_TYPE:
      g_value_set_uint (value, priv->type);
      break;

    default:
      /* We don't have any other property... */
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
      break;
    }
}

static void
terraserver_map_source_class_init (TerraserverMapSourceClass *klass)
{
	GObjectClass* object_class = G_OBJECT_CLASS (klass);
	VikMapSourceClass* parent_class = VIK_MAP_SOURCE_CLASS (klass);
    GParamSpec *pspec = NULL;

	object_class->set_property = terraserver_map_source_set_property;
    object_class->get_property = terraserver_map_source_get_property;

	/* Overiding methods */
	parent_class->coord_to_mapcoord =        _coord_to_mapcoord;
	parent_class->mapcoord_to_center_coord = _mapcoord_to_center_coord;
	parent_class->download =                 _download;
	parent_class->download_handle_init =     _download_handle_init;
	parent_class->download_handle_cleanup =  _download_handle_cleanup;

	pspec = g_param_spec_uint ("type",
	                           "Type",
                               "Type of Terraserver map",
                               0  /* minimum value */,
                               G_MAXUINT8 /* maximum value */,
                               0  /* default value */,
                               G_PARAM_CONSTRUCT_ONLY | G_PARAM_READWRITE);
	g_object_class_install_property (object_class, PROP_TYPE, pspec);

	g_type_class_add_private (klass, sizeof (TerraserverMapSourcePrivate));

	object_class->finalize = terraserver_map_source_finalize;
}

#define TERRASERVER_SITE "msrmaps.com"
#define MARGIN_OF_ERROR 0.001

static int mpp_to_scale ( gdouble mpp, guint8 type )
{
  mpp *= 4;
  gint t = (gint) mpp;
  if ( ABS(mpp - t) > MARGIN_OF_ERROR )
    return FALSE;

  switch ( t ) {
    case 1: return (type == 4) ? 8 : 0;
    case 2: return (type == 4) ? 9 : 0;
    case 4: return (type != 2) ? 10 : 0;
    case 8: return 11;
    case 16: return 12;
    case 32: return 13;
    case 64: return 14;
    case 128: return 15;
    case 256: return 16;
    case 512: return 17;
    case 1024: return 18;
    case 2048: return 19;
    default: return 0;
  }
}

static gdouble scale_to_mpp ( gint scale )
{
  return pow(2,scale - 10);
}

static gboolean
_coord_to_mapcoord ( VikMapSource *self, const VikCoord *src, gdouble xmpp, gdouble ympp, MapCoord *dest )
{
	g_return_val_if_fail(TERRASERVER_IS_MAP_SOURCE(self), FALSE);

	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE(self);
	int type = priv->type;
	if ( src->mode != VIK_COORD_UTM )
		return FALSE;

	if ( xmpp != ympp )
		return FALSE;

	dest->scale = mpp_to_scale ( xmpp, type );
	if ( ! dest->scale )
		return FALSE;

	dest->x = (gint)(((gint)(src->east_west))/(200*xmpp));
	dest->y = (gint)(((gint)(src->north_south))/(200*xmpp));
	dest->z = src->utm_zone;
	return TRUE;
}

static void
_mapcoord_to_center_coord ( VikMapSource *self, MapCoord *src, VikCoord *dest )
{
	// FIXME: slowdown here!
	gdouble mpp = scale_to_mpp ( src->scale );
	dest->mode = VIK_COORD_UTM;
	dest->utm_zone = src->z;
	dest->east_west = ((src->x * 200) + 100) * mpp;
	dest->north_south = ((src->y * 200) + 100) * mpp;
}

static int
_download ( VikMapSource *self, MapCoord *src, const gchar *dest_fn, void *handle )
{
	g_return_val_if_fail(TERRASERVER_IS_MAP_SOURCE(self), FALSE);

	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE(self);  int res = -1;
	int type = priv->type;
	gchar *uri = g_strdup_printf ( "/tile.ashx?T=%d&S=%d&X=%d&Y=%d&Z=%d", type,
                                  src->scale, src->x, src->y, src->z );
	res = a_http_download_get_url ( TERRASERVER_SITE, uri, dest_fn, &terraserver_options, handle );
	g_free ( uri );
	return res;
}

static void *
_download_handle_init ( VikMapSource *self )
{
	return a_download_handle_init ();
}


static void
_download_handle_cleanup ( VikMapSource *self, void *handle )
{
	return a_download_handle_cleanup ( handle );
}

TerraserverMapSource *
terraserver_map_source_new_with_id (guint8 id, const char *label, int type)
{
	return g_object_new(TERRASERVER_TYPE_MAP_SOURCE, "id", id, "label", label, "type", type, NULL);
}
Commit	Line	Data
	1	/* -- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -- */
	2	/*
	3	* viking
	4	* Copyright (C) 2009, Guilhem Bonnefille <guilhem.bonnefille@gmail.com>
	5	*
	6	* viking is free software: you can redistribute it and/or modify it
	7	* under the terms of the GNU General Public License as published by the
	8	* Free Software Foundation, either version 3 of the License, or
	9	* (at your option) any later version.
	10	*
	11	* viking is distributed in the hope that it will be useful, but
	12	* WITHOUT ANY WARRANTY; without even the implied warranty of
	13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	14	* See the GNU General Public License for more details.
	15	*
	16	* You should have received a copy of the GNU General Public License along
	17	* with this program. If not, see <http://www.gnu.org/licenses/>.
	18	*/
	19	#ifdef HAVE_CONFIG_H
	20	#include "config.h"
	21	#endif
	22
	23	#ifdef HAVE_MATH_H
	24	#include <math.h>
	25	#endif
	26
	27	#include "globals.h"
	28	#include "terraservermapsource.h"
	29
	30	static gboolean _coord_to_mapcoord ( VikMapSource self, const VikCoord src, gdouble xzoom, gdouble yzoom, MapCoord *dest );
	31	static void _mapcoord_to_center_coord ( VikMapSource self, MapCoord src, VikCoord *dest );
	32	static int _download ( VikMapSource self, MapCoord src, const gchar dest_fn, void handle );
	33	static void * _download_handle_init ( VikMapSource *self );
	34	static void _download_handle_cleanup ( VikMapSource self, void handle );
	35
	36	/* FIXME Huge gruik */
	37	static DownloadMapOptions terraserver_options = { FALSE, FALSE, NULL, 0, a_check_map_file };
	38
	39	typedef struct _TerraserverMapSourcePrivate TerraserverMapSourcePrivate;
	40	struct _TerraserverMapSourcePrivate
	41	{
	42	guint8 type;
	43	};
	44
	45	#define TERRASERVER_MAP_SOURCE_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), TERRASERVER_TYPE_MAP_SOURCE, TerraserverMapSourcePrivate))
	46
	47	/* properties */
	48	enum
	49	{
	50	PROP_0,
	51
	52	PROP_TYPE,
	53	};
	54
	55	G_DEFINE_TYPE (TerraserverMapSource, terraserver_map_source, VIK_TYPE_MAP_SOURCE_DEFAULT);
	56
	57	static void
	58	terraserver_map_source_init (TerraserverMapSource *self)
	59	{
	60	/* initialize the object here */
	61	g_object_set (G_OBJECT (self),
	62	"tilesize-x", 200,
	63	"tilesize-y", 200,
	64	"drawmode", VIK_VIEWPORT_DRAWMODE_UTM,
	65	NULL);
	66	}
	67
	68	static void
	69	terraserver_map_source_finalize (GObject *object)
	70	{
	71	/* TODO: Add deinitalization code here */
	72
	73	G_OBJECT_CLASS (terraserver_map_source_parent_class)->finalize (object);
	74	}
	75
	76	static void
	77	terraserver_map_source_set_property (GObject *object,
	78	guint property_id,
	79	const GValue *value,
	80	GParamSpec *pspec)
	81	{
	82	TerraserverMapSource *self = TERRASERVER_MAP_SOURCE (object);
	83	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE (self);
	84
	85	switch (property_id)
	86	{
	87	case PROP_TYPE:
	88	priv->type = g_value_get_uint (value);
	89	break;
	90
	91	default:
	92	/* We don't have any other property... */
	93	G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
	94	break;
	95	}
	96	}
	97
	98	static void
	99	terraserver_map_source_get_property (GObject *object,
	100	guint property_id,
	101	GValue *value,
	102	GParamSpec *pspec)
	103	{
	104	TerraserverMapSource *self = TERRASERVER_MAP_SOURCE (object);
	105	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE (self);
	106
	107	switch (property_id)
	108	{
	109	case PROP_TYPE:
	110	g_value_set_uint (value, priv->type);
	111	break;
	112
	113	default:
	114	/* We don't have any other property... */
	115	G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
	116	break;
	117	}
	118	}
	119
	120	static void
	121	terraserver_map_source_class_init (TerraserverMapSourceClass *klass)
	122	{
	123	GObjectClass* object_class = G_OBJECT_CLASS (klass);
	124	VikMapSourceClass* parent_class = VIK_MAP_SOURCE_CLASS (klass);
	125	GParamSpec *pspec = NULL;
	126
	127	object_class->set_property = terraserver_map_source_set_property;
	128	object_class->get_property = terraserver_map_source_get_property;
	129
	130	/* Overiding methods */
	131	parent_class->coord_to_mapcoord = _coord_to_mapcoord;
	132	parent_class->mapcoord_to_center_coord = _mapcoord_to_center_coord;
	133	parent_class->download = _download;
	134	parent_class->download_handle_init = _download_handle_init;
	135	parent_class->download_handle_cleanup = _download_handle_cleanup;
	136
	137	pspec = g_param_spec_uint ("type",
	138	"Type",
	139	"Type of Terraserver map",
	140	0 /* minimum value */,
	141	G_MAXUINT8 /* maximum value */,
	142	0 /* default value */,
	143	G_PARAM_CONSTRUCT_ONLY \| G_PARAM_READWRITE);
	144	g_object_class_install_property (object_class, PROP_TYPE, pspec);
	145
	146	g_type_class_add_private (klass, sizeof (TerraserverMapSourcePrivate));
	147
	148	object_class->finalize = terraserver_map_source_finalize;
	149	}
	150
	151	#define TERRASERVER_SITE "msrmaps.com"
	152	#define MARGIN_OF_ERROR 0.001
	153
	154	static int mpp_to_scale ( gdouble mpp, guint8 type )
	155	{
	156	mpp *= 4;
	157	gint t = (gint) mpp;
	158	if ( ABS(mpp - t) > MARGIN_OF_ERROR )
	159	return FALSE;
	160
	161	switch ( t ) {
	162	case 1: return (type == 4) ? 8 : 0;
	163	case 2: return (type == 4) ? 9 : 0;
	164	case 4: return (type != 2) ? 10 : 0;
	165	case 8: return 11;
	166	case 16: return 12;
	167	case 32: return 13;
	168	case 64: return 14;
	169	case 128: return 15;
	170	case 256: return 16;
	171	case 512: return 17;
	172	case 1024: return 18;
	173	case 2048: return 19;
	174	default: return 0;
	175	}
	176	}
	177
	178	static gdouble scale_to_mpp ( gint scale )
	179	{
	180	return pow(2,scale - 10);
	181	}
	182
	183	static gboolean
	184	_coord_to_mapcoord ( VikMapSource self, const VikCoord src, gdouble xmpp, gdouble ympp, MapCoord *dest )
	185	{
	186	g_return_val_if_fail(TERRASERVER_IS_MAP_SOURCE(self), FALSE);
	187
	188	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE(self);
	189	int type = priv->type;
	190	if ( src->mode != VIK_COORD_UTM )
	191	return FALSE;
	192
	193	if ( xmpp != ympp )
	194	return FALSE;
	195
	196	dest->scale = mpp_to_scale ( xmpp, type );
	197	if ( ! dest->scale )
	198	return FALSE;
	199
	200	dest->x = (gint)(((gint)(src->east_west))/(200*xmpp));
	201	dest->y = (gint)(((gint)(src->north_south))/(200*xmpp));
	202	dest->z = src->utm_zone;
	203	return TRUE;
	204	}
	205
	206	static void
	207	_mapcoord_to_center_coord ( VikMapSource self, MapCoord src, VikCoord *dest )
	208	{
	209	// FIXME: slowdown here!
	210	gdouble mpp = scale_to_mpp ( src->scale );
	211	dest->mode = VIK_COORD_UTM;
	212	dest->utm_zone = src->z;
	213	dest->east_west = ((src->x * 200) + 100) * mpp;
	214	dest->north_south = ((src->y * 200) + 100) * mpp;
	215	}
	216
	217	static int
	218	_download ( VikMapSource self, MapCoord src, const gchar dest_fn, void handle )
	219	{
	220	g_return_val_if_fail(TERRASERVER_IS_MAP_SOURCE(self), FALSE);
	221
	222	TerraserverMapSourcePrivate *priv = TERRASERVER_MAP_SOURCE_PRIVATE(self); int res = -1;
	223	int type = priv->type;
	224	gchar *uri = g_strdup_printf ( "/tile.ashx?T=%d&S=%d&X=%d&Y=%d&Z=%d", type,
	225	src->scale, src->x, src->y, src->z );
	226	res = a_http_download_get_url ( TERRASERVER_SITE, uri, dest_fn, &terraserver_options, handle );
	227	g_free ( uri );
	228	return res;
	229	}
	230
	231	static void *
	232	_download_handle_init ( VikMapSource *self )
	233	{
	234	return a_download_handle_init ();
	235	}
	236
	237
	238	static void
	239	_download_handle_cleanup ( VikMapSource self, void handle )
	240	{
	241	return a_download_handle_cleanup ( handle );
	242	}
	243
	244	TerraserverMapSource *
	245	terraserver_map_source_new_with_id (guint8 id, const char *label, int type)
	246	{
	247	return g_object_new(TERRASERVER_TYPE_MAP_SOURCE, "id", id, "label", label, "type", type, NULL);
	248	}