Context Navigation

source: geovis/trunk/RendererCmd.cpp @ 5105

Last change on this file since 5105 was 5105, checked in by ldelgass, 10 years ago
geovis updates for NSF demo
File size: 81.9 KB

Line
1	/* -- mode: c++; c-basic-offset: 4; indent-tabs-mode: nil -- */
2	/*
3	* Copyright (C) 2004-2013 HUBzero Foundation, LLC
4	*
5	* Author: Leif Delgass <ldelgass@purdue.edu>
6	*/
7
8	#include <cstdlib>
9	#include <cstdio>
10	#include <cstring>
11	#include <cfloat>
12	#include <cerrno>
13	#include <string>
14	#include <sstream>
15	#include <limits>
16	#include <vector>
17	#include <unistd.h>
18	#include <sys/select.h>
19	#include <sys/uio.h>
20	#include <tcl.h>
21
22	#include <osgDB/FileUtils>
23	#include <osgDB/FileNameUtils>
24
25	#include <osgEarth/Version>
26	#include <osgEarth/Registry>
27	#include <osgEarthFeatures/FeatureModelSource>
28	#include <osgEarthSymbology/Color>
29	#include <osgEarthSymbology/Style>
30	#include <osgEarthSymbology/StyleSheet>
31	#include <osgEarthSymbology/IconSymbol>
32	#include <osgEarthSymbology/LineSymbol>
33	#include <osgEarthSymbology/RenderSymbol>
34
35	#if OSGEARTH_MIN_VERSION_REQUIRED(2, 5, 1)
36	#include <osgEarthDrivers/osg/ColorRampOptions>
37	#endif
38	#include <osgEarthDrivers/debug/DebugOptions>
39	#include <osgEarthDrivers/gdal/GDALOptions>
40	#include <osgEarthDrivers/tms/TMSOptions>
41	#include <osgEarthDrivers/wms/WMSOptions>
42	#include <osgEarthDrivers/xyz/XYZOptions>
43	#include <osgEarthDrivers/model_feature_geom/FeatureGeomModelOptions>
44	#include <osgEarthDrivers/feature_ogr/OGRFeatureOptions>
45
46	#include "Trace.h"
47	#include "CmdProc.h"
48	#include "ReadBuffer.h"
49	#include "Types.h"
50	#include "RendererCmd.h"
51	#include "RenderServer.h"
52	#include "Renderer.h"
53	#include "Stats.h"
54	#include "PPMWriter.h"
55	#include "TGAWriter.h"
56	#include "ResponseQueue.h"
57	#ifdef USE_READ_THREAD
58	#include "CommandQueue.h"
59	#endif
60
61	using namespace GeoVis;
62
63	static int lastCmdStatus;
64
65	#ifndef USE_THREADS
66	static ssize_t
67	SocketWrite(const void *bytes, size_t len)
68	{
69	size_t ofs = 0;
70	ssize_t bytesWritten;
71	while ((bytesWritten = write(g_fdOut, (const char *)bytes + ofs, len - ofs)) > 0) {
72	ofs += bytesWritten;
73	if (ofs == len)
74	break;
75	}
76	if (bytesWritten < 0) {
77	ERROR("write: %s", strerror(errno));
78	}
79	return bytesWritten;
80	}
81	#endif
82
83	static bool
84	SocketRead(char *bytes, size_t len)
85	{
86	ReadBuffer::BufferStatus status;
87	status = g_inBufPtr->followingData((unsigned char *)bytes, len);
88	TRACE("followingData status: %d", status);
89	return (status == ReadBuffer::OK);
90	}
91
92	ssize_t
93	GeoVis::queueResponse(const void *bytes, size_t len,
94	Response::AllocationType allocType,
95	Response::ResponseType type)
96	{
97	#ifdef USE_THREADS
98	Response *response = new Response(type);
99	response->setMessage((unsigned char *)bytes, len, allocType);
100	g_outQueue->enqueue(response);
101	return (ssize_t)len;
102	#else
103	return SocketWrite(bytes, len);
104	#endif
105	}
106
107	static int
108	ExecuteCommand(Tcl_Interp interp, Tcl_DString dsPtr)
109	{
110	int result;
111	#ifdef WANT_TRACE
112	char *str = Tcl_DStringValue(dsPtr);
113	std::string cmd(str);
114	cmd.erase(cmd.find_last_not_of(" \n\r\t")+1);
115	TRACE("command %lu: '%s'", g_stats.nCommands, cmd.c_str());
116	#endif
117	lastCmdStatus = TCL_OK;
118	result = Tcl_EvalEx(interp, Tcl_DStringValue(dsPtr),
119	Tcl_DStringLength(dsPtr),
120	TCL_EVAL_DIRECT \| TCL_EVAL_GLOBAL);
121	Tcl_DStringSetLength(dsPtr, 0);
122	if (lastCmdStatus == TCL_BREAK) {
123	return TCL_BREAK;
124	}
125	lastCmdStatus = result;
126	if (result != TCL_OK) {
127	TRACE("Error: %d", result);
128	}
129	return result;
130	}
131
132	static int
133	GetBooleanFromObj(Tcl_Interp interp, Tcl_Obj objPtr, bool *boolPtr)
134	{
135	int value;
136
137	if (Tcl_GetBooleanFromObj(interp, objPtr, &value) != TCL_OK) {
138	return TCL_ERROR;
139	}
140	*boolPtr = (bool)value;
141	return TCL_OK;
142	}
143
144	static int
145	GetFloatFromObj(Tcl_Interp interp, Tcl_Obj objPtr, float *valuePtr)
146	{
147	double value;
148
149	if (Tcl_GetDoubleFromObj(interp, objPtr, &value) != TCL_OK) {
150	return TCL_ERROR;
151	}
152	*valuePtr = (float)value;
153	return TCL_OK;
154	}
155
156	static int
157	CameraDeleteViewpointOp(ClientData clientData, Tcl_Interp *interp, int objc,
158	Tcl_Obj const objv)
159	{
160	char *name = Tcl_GetString(objv[2]);
161
162	g_renderer->removeNamedViewpoint(name);
163	return TCL_OK;
164	}
165
166	static int
167	CameraGetViewpointOp(ClientData clientData, Tcl_Interp *interp, int objc,
168	Tcl_Obj const objv)
169	{
170	osgEarth::Viewpoint view = g_renderer->getViewpoint();
171
172	std::ostringstream oss;
173	size_t len = 0;
174	oss << "nv>camera get "
175	<< view.x() << " "
176	<< view.y() << " "
177	<< view.z() << " "
178	<< view.getHeading() << " "
179	<< view.getPitch() << " "
180	<< view.getRange()
181	<< " {" << ((view.getSRS() == NULL) ? "" : view.getSRS()->getHorizInitString()) << "}"
182	<< " {" << ((view.getSRS() == NULL) ? "" : view.getSRS()->getVertInitString()) << "}"
183	<< "\n";
184	std::string ostr = oss.str();
185	len = ostr.size();
186	#ifdef USE_THREADS
187	queueResponse(ostr.c_str(), len, Response::VOLATILE);
188	#else
189	ssize_t bytesWritten = SocketWrite(ostr.c_str(), len);
190
191	if (bytesWritten < 0) {
192	return TCL_ERROR;
193	}
194	#endif /USE_THREADS/
195	return TCL_OK;
196	}
197
198	static int
199	CameraGoOp(ClientData clientData, Tcl_Interp *interp, int objc,
200	Tcl_Obj const objv)
201	{
202	int x, y;
203	if (Tcl_GetIntFromObj(interp, objv[2], &x) != TCL_OK \|\|
204	Tcl_GetIntFromObj(interp, objv[3], &y) != TCL_OK) {
205	return TCL_ERROR;
206	}
207	double zoom = 1.0;
208	if (objc > 4) {
209	if (Tcl_GetDoubleFromObj(interp, objv[4], &zoom) != TCL_OK) {
210	return TCL_ERROR;
211	}
212	}
213	double duration = 1.0;
214	if (objc > 5) {
215	if (Tcl_GetDoubleFromObj(interp, objv[5], &duration) != TCL_OK) {
216	return TCL_ERROR;
217	}
218	}
219
220	osgEarth::GeoPoint mapPoint;
221	if (g_renderer->mapMouseCoords(x, y, mapPoint)) {
222	osgEarth::Viewpoint vpt = g_renderer->getViewpoint();
223	vpt.x() = mapPoint.x();
224	vpt.y() = mapPoint.y();
225	vpt.z() = mapPoint.z();
226	vpt.setRange(vpt.getRange() * zoom);
227	g_renderer->setViewpoint(vpt, duration);
228	} else {
229	// Out of map bounds
230	}
231	return TCL_OK;
232	}
233
234	static int
235	CameraOrientOp(ClientData clientData, Tcl_Interp *interp, int objc,
236	Tcl_Obj const objv)
237	{
238	double quat[4];
239
240	if (Tcl_GetDoubleFromObj(interp, objv[2], &quat[0]) != TCL_OK \|\|
241	Tcl_GetDoubleFromObj(interp, objv[3], &quat[1]) != TCL_OK \|\|
242	Tcl_GetDoubleFromObj(interp, objv[4], &quat[2]) != TCL_OK \|\|
243	Tcl_GetDoubleFromObj(interp, objv[5], &quat[3]) != TCL_OK) {
244	return TCL_ERROR;
245	}
246
247	g_renderer->setCameraOrientation(quat);
248	return TCL_OK;
249	}
250
251	static int
252	CameraPanOp(ClientData clientData, Tcl_Interp *interp, int objc,
253	Tcl_Obj const objv)
254	{
255	double x, y;
256
257	if (Tcl_GetDoubleFromObj(interp, objv[2], &x) != TCL_OK \|\|
258	Tcl_GetDoubleFromObj(interp, objv[3], &y) != TCL_OK) {
259	return TCL_ERROR;
260	}
261
262	g_renderer->panCamera(x, y);
263	return TCL_OK;
264	}
265
266	static int
267	CameraResetOp(ClientData clientData, Tcl_Interp *interp, int objc,
268	Tcl_Obj const objv)
269	{
270	if (objc == 3) {
271	const char *string = Tcl_GetString(objv[2]);
272	char c = string[0];
273	if ((c != 'a') \|\| (strcmp(string, "all") != 0)) {
274	Tcl_AppendResult(interp, "bad camera reset option \"", string,
275	"\": should be all", (char*)NULL);
276	return TCL_ERROR;
277	}
278	g_renderer->resetCamera(true);
279	} else {
280	g_renderer->resetCamera(false);
281	}
282	return TCL_OK;
283	}
284
285	static int
286	CameraRestoreViewpointOp(ClientData clientData, Tcl_Interp *interp, int objc,
287	Tcl_Obj const objv)
288	{
289	char *name = Tcl_GetString(objv[2]);
290
291	double duration = 0.0;
292	if (objc > 3) {
293	if (Tcl_GetDoubleFromObj(interp, objv[3], &duration) != TCL_OK) {
294	return TCL_ERROR;
295	}
296	}
297	if (!g_renderer->restoreNamedViewpoint(name, duration)) {
298	Tcl_AppendResult(interp, "camera viewpoint \"", name,
299	"\" not found", (char*)NULL);
300	return TCL_ERROR;
301	}
302	return TCL_OK;
303	}
304
305	static int
306	CameraRotateOp(ClientData clientData, Tcl_Interp *interp, int objc,
307	Tcl_Obj const objv)
308	{
309	double x, y;
310
311	if (Tcl_GetDoubleFromObj(interp, objv[2], &x) != TCL_OK \|\|
312	Tcl_GetDoubleFromObj(interp, objv[3], &y) != TCL_OK) {
313	return TCL_ERROR;
314	}
315
316	g_renderer->rotateCamera(x, y);
317	return TCL_OK;
318	}
319
320	static int
321	CameraSaveViewpointOp(ClientData clientData, Tcl_Interp *interp, int objc,
322	Tcl_Obj const objv)
323	{
324	char *name = Tcl_GetString(objv[2]);
325
326	g_renderer->saveNamedViewpoint(name);
327	return TCL_OK;
328	}
329
330	static int
331	CameraSetDistanceOp(ClientData clientData, Tcl_Interp *interp, int objc,
332	Tcl_Obj const objv)
333	{
334	double dist;
335
336	if (Tcl_GetDoubleFromObj(interp, objv[2], &dist) != TCL_OK) {
337	return TCL_ERROR;
338	}
339
340	g_renderer->setCameraDistance(dist);
341	return TCL_OK;
342	}
343
344	static int
345	CameraSetViewpointOp(ClientData clientData, Tcl_Interp *interp, int objc,
346	Tcl_Obj const objv)
347	{
348	double x, y, z, heading, pitch, distance;
349	double duration = 0.0;
350	if (Tcl_GetDoubleFromObj(interp, objv[2], &x) != TCL_OK \|\|
351	Tcl_GetDoubleFromObj(interp, objv[3], &y) != TCL_OK \|\|
352	Tcl_GetDoubleFromObj(interp, objv[4], &z) != TCL_OK \|\|
353	Tcl_GetDoubleFromObj(interp, objv[5], &heading) != TCL_OK \|\|
354	Tcl_GetDoubleFromObj(interp, objv[6], &pitch) != TCL_OK \|\|
355	Tcl_GetDoubleFromObj(interp, objv[7], &distance) != TCL_OK) {
356	return TCL_ERROR;
357	}
358	if (objc > 8) {
359	if (Tcl_GetDoubleFromObj(interp, objv[8], &duration) != TCL_OK) {
360	return TCL_ERROR;
361	}
362	}
363	if (objc > 9) {
364	char *srsInit = Tcl_GetString(objv[9]);
365	if (strlen(srsInit) > 0) {
366	osgEarth::SpatialReference *srs = NULL;
367	if (objc > 10) {
368	char *vertDatum = Tcl_GetString(objv[10]);
369	srs = osgEarth::SpatialReference::get(srsInit, vertDatum);
370	} else {
371	srs = osgEarth::SpatialReference::get(srsInit);
372	}
373	if (srs == NULL) {
374	return TCL_ERROR;
375	}
376	osgEarth::Viewpoint view(x, y, z, heading, pitch, distance, srs);
377	g_renderer->setViewpoint(view, duration);
378	} else {
379	osgEarth::Viewpoint view(x, y, z, heading, pitch, distance);
380	g_renderer->setViewpoint(view, duration);
381	}
382	} else {
383	osgEarth::Viewpoint view(x, y, z, heading, pitch, distance);
384	g_renderer->setViewpoint(view, duration);
385	}
386	return TCL_OK;
387	}
388
389	static int
390	CameraThrowOp(ClientData clientData, Tcl_Interp *interp, int objc,
391	Tcl_Obj const objv)
392	{
393	bool state;
394
395	if (GetBooleanFromObj(interp, objv[2], &state) != TCL_OK) {
396	return TCL_ERROR;
397	}
398
399	g_renderer->setThrowingEnabled(state);
400	return TCL_OK;
401	}
402
403	static int
404	CameraZoomOp(ClientData clientData, Tcl_Interp *interp, int objc,
405	Tcl_Obj const objv)
406	{
407	double z;
408
409	if (Tcl_GetDoubleFromObj(interp, objv[2], &z) != TCL_OK) {
410	return TCL_ERROR;
411	}
412
413	g_renderer->zoomCamera(z);
414	return TCL_OK;
415	}
416
417	static CmdSpec cameraOps[] = {
418	{"delete", 2, CameraDeleteViewpointOp, 3, 3, "name"},
419	{"dist", 2, CameraSetDistanceOp, 3, 3, "distance"},
420	{"get", 2, CameraGetViewpointOp, 2, 2, ""},
421	{"go", 2, CameraGoOp, 4, 6, "x y ?zoomFactor? ?duration?"},
422	{"orient", 1, CameraOrientOp, 6, 6, "qw qx qy qz"},
423	{"pan", 1, CameraPanOp, 4, 4, "panX panY"},
424	{"reset", 4, CameraResetOp, 2, 3, "?all?"},
425	{"restore", 4, CameraRestoreViewpointOp, 3, 4, "name ?duration?"},
426	{"rotate", 2, CameraRotateOp, 4, 4, "azimuth elevation"},
427	{"save", 2, CameraSaveViewpointOp, 3, 3, "name"},
428	{"set", 2, CameraSetViewpointOp, 8, 11, "x y z heading pitch distance ?duration? ?srs? ?vertDatum?"},
429	{"throw", 1, CameraThrowOp, 3, 3, "bool"},
430	{"zoom", 1, CameraZoomOp, 3, 3, "zoomAmount"}
431	};
432	static int nCameraOps = NumCmdSpecs(cameraOps);
433
434	static int
435	CameraCmd(ClientData clientData, Tcl_Interp *interp, int objc,
436	Tcl_Obj const objv)
437	{
438	Tcl_ObjCmdProc *proc;
439
440	proc = GetOpFromObj(interp, nCameraOps, cameraOps,
441	CMDSPEC_ARG1, objc, objv, 0);
442	if (proc == NULL) {
443	return TCL_ERROR;
444	}
445	return (*proc) (clientData, interp, objc, objv);
446	}
447
448	static int
449	ClientInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc,
450	Tcl_Obj const objv)
451	{
452	Tcl_DString ds;
453	Tcl_Obj objPtr, listObjPtr, **items;
454	int numItems;
455	char buf[BUFSIZ];
456	const char *string;
457	int length;
458	int result;
459	static bool first = true;
460
461	/* Client arguments. */
462	if (Tcl_ListObjGetElements(interp, objv[1], &numItems, &items) != TCL_OK) {
463	return TCL_ERROR;
464	}
465
466	/* First try to see if we already have an open descriptor */
467	int fd = getStatsFile();
468	if (fd < 0) {
469	/* Use the initial client key value pairs as the parts for generating
470	* a unique file name. */
471	fd = GeoVis::getStatsFile(Tcl_GetString(objv[1]));
472	if (fd < 0) {
473	Tcl_AppendResult(interp, "can't open stats file: ",
474	Tcl_PosixError(interp), (char *)NULL);
475	return TCL_ERROR;
476	}
477	}
478	listObjPtr = Tcl_NewListObj(0, (Tcl_Obj **)NULL);
479	Tcl_IncrRefCount(listObjPtr);
480	if (first) {
481	first = false;
482	objPtr = Tcl_NewStringObj("render_start", 12);
483	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
484	/* renderer */
485	objPtr = Tcl_NewStringObj("renderer", 8);
486	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
487	objPtr = Tcl_NewStringObj("geovis", 6);
488	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
489	/* pid */
490	objPtr = Tcl_NewStringObj("pid", 3);
491	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
492	Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj(getpid()));
493	/* host */
494	objPtr = Tcl_NewStringObj("host", 4);
495	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
496	gethostname(buf, BUFSIZ-1);
497	buf[BUFSIZ-1] = '\0';
498	objPtr = Tcl_NewStringObj(buf, -1);
499	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
500	} else {
501	objPtr = Tcl_NewStringObj("render_info", 11);
502	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
503	}
504	/* date */
505	Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewStringObj("date", 4));
506	strcpy(buf, ctime(&GeoVis::g_stats.start.tv_sec));
507	buf[strlen(buf) - 1] = '\0';
508	Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewStringObj(buf, -1));
509	/* date_secs */
510	Tcl_ListObjAppendElement(interp, listObjPtr,
511	Tcl_NewStringObj("date_secs", 9));
512	Tcl_ListObjAppendElement(interp, listObjPtr,
513	Tcl_NewLongObj(GeoVis::g_stats.start.tv_sec));
514	/* client items */
515	for (int i = 0; i < numItems; i++) {
516	Tcl_ListObjAppendElement(interp, listObjPtr, items[i]);
517	}
518	Tcl_DStringInit(&ds);
519	string = Tcl_GetStringFromObj(listObjPtr, &length);
520	Tcl_DStringAppend(&ds, string, length);
521	Tcl_DStringAppend(&ds, "\n", 1);
522	result = GeoVis::writeToStatsFile(fd, Tcl_DStringValue(&ds),
523	Tcl_DStringLength(&ds));
524	Tcl_DStringFree(&ds);
525	Tcl_DecrRefCount(listObjPtr);
526	return result;
527	}
528
529	static int
530	ColorMapAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
531	Tcl_Obj const objv)
532	{
533	const char *name = Tcl_GetString(objv[2]);
534	int cmapc;
535	Tcl_Obj **cmapv = NULL;
536
537	if (Tcl_ListObjGetElements(interp, objv[3], &cmapc, &cmapv) != TCL_OK) {
538	return TCL_ERROR;
539	}
540	if ((cmapc % 5) != 0) {
541	Tcl_AppendResult(interp, "wrong # elements in colormap: should be ",
542	"{ value r g b a... }", (char*)NULL);
543	return TCL_ERROR;
544	}
545
546	osg::TransferFunction1D *colorMap = new osg::TransferFunction1D;
547	colorMap->allocate(256);
548
549	for (int i = 0; i < cmapc; i += 5) {
550	double val[5];
551	for (int j = 0; j < 5; j++) {
552	if (Tcl_GetDoubleFromObj(interp, cmapv[i+j], &val[j]) != TCL_OK) {
553	delete colorMap;
554	return TCL_ERROR;
555	}
556	// Need to permit un-normalized values
557	if (j > 0 && (val[j] < 0.0 \|\| val[j] > 1.0)) {
558	Tcl_AppendResult(interp, "bad colormap value \"",
559	Tcl_GetString(cmapv[i+j]),
560	"\": should be in the range [0,1]", (char*)NULL);
561	delete colorMap;
562	return TCL_ERROR;
563	}
564	}
565	colorMap->setColor(val[0], osg::Vec4f(val[1], val[2], val[3], val[4]), false);
566	}
567
568	colorMap->updateImage();
569
570	g_renderer->addColorMap(name, colorMap);
571	return TCL_OK;
572	}
573
574	static int
575	ColorMapDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
576	Tcl_Obj const objv)
577	{
578	if (objc == 3) {
579	const char *name = Tcl_GetString(objv[2]);
580	g_renderer->deleteColorMap(name);
581	} else {
582	g_renderer->deleteColorMap("all");
583	}
584
585	return TCL_OK;
586	}
587
588	static int
589	ColorMapNumTableEntriesOp(ClientData clientData, Tcl_Interp *interp, int objc,
590	Tcl_Obj const objv)
591	{
592	int numEntries;
593	if (Tcl_GetIntFromObj(interp, objv[2], &numEntries) != TCL_OK) {
594	const char *str = Tcl_GetString(objv[2]);
595	if (str[0] == 'd' && strcmp(str, "default") == 0) {
596	numEntries = -1;
597	} else {
598	Tcl_AppendResult(interp, "bad colormap resolution value \"", str,
599	"\": should be a positive integer or \"default\"", (char*)NULL);
600	return TCL_ERROR;
601	}
602	} else if (numEntries < 1) {
603	Tcl_AppendResult(interp, "bad colormap resolution value \"", Tcl_GetString(objv[2]),
604	"\": should be a positive integer or \"default\"", (char*)NULL);
605	return TCL_ERROR;
606	}
607	if (objc == 4) {
608	const char *name = Tcl_GetString(objv[3]);
609
610	g_renderer->setColorMapNumberOfTableEntries(name, numEntries);
611	} else {
612	g_renderer->setColorMapNumberOfTableEntries("all", numEntries);
613	}
614	return TCL_OK;
615	}
616
617	static CmdSpec colorMapOps[] = {
618	{"add", 1, ColorMapAddOp, 4, 4, "colorMapName colormap"},
619	{"define", 3, ColorMapAddOp, 4, 4, "colorMapName colormap"},
620	{"delete", 3, ColorMapDeleteOp, 2, 3, "?colorMapName?"},
621	{"res", 1, ColorMapNumTableEntriesOp, 3, 4, "numTableEntries ?colorMapName?"}
622	};
623	static int nColorMapOps = NumCmdSpecs(colorMapOps);
624
625	static int
626	ColorMapCmd(ClientData clientData, Tcl_Interp *interp, int objc,
627	Tcl_Obj const objv)
628	{
629	Tcl_ObjCmdProc *proc;
630
631	proc = GetOpFromObj(interp, nColorMapOps, colorMapOps,
632	CMDSPEC_ARG1, objc, objv, 0);
633	if (proc == NULL) {
634	return TCL_ERROR;
635	}
636	return (*proc) (clientData, interp, objc, objv);
637	}
638
639	static int
640	FilePutOp(ClientData clientData, Tcl_Interp *interp, int objc,
641	Tcl_Obj const objv)
642	{
643	long size;
644	const char *path = Tcl_GetString(objv[2]);
645	if (Tcl_GetLongFromObj(interp, objv[4], &size) != TCL_OK \|\|
646	size < 1) {
647	return TCL_ERROR;
648	}
649	char data = (char )malloc((size_t)size);
650	if (!SocketRead(data, size)) {
651	free(data);
652	return TCL_ERROR;
653	}
654	std::ostringstream fullPath;
655	//fullPath << "/tmp/" << path;
656	fullPath << path;
657	FILE *fp = fopen(fullPath.str().c_str(), "wb");
658	if (fp == NULL) {
659	free(data);
660	return TCL_ERROR;
661	}
662	int bytesWritten = fwrite(data, 1, (size_t)size, fp);
663	fclose(fp);
664	free(data);
665	return (bytesWritten == size) ? TCL_OK : TCL_ERROR;
666	}
667
668	static CmdSpec fileOps[] = {
669	{"put", 1, FilePutOp, 5, 5, "name type size"}
670	};
671	static int nFileOps = NumCmdSpecs(fileOps);
672
673	static int
674	FileCmd(ClientData clientData, Tcl_Interp *interp, int objc,
675	Tcl_Obj const objv)
676	{
677	Tcl_ObjCmdProc *proc;
678
679	proc = GetOpFromObj(interp, nFileOps, fileOps,
680	CMDSPEC_ARG1, objc, objv, 0);
681	if (proc == NULL) {
682	return TCL_ERROR;
683	}
684	return (*proc) (clientData, interp, objc, objv);
685	}
686
687	static int
688	ImageFlushCmd(ClientData clientData, Tcl_Interp *interp, int objc,
689	Tcl_Obj const objv)
690	{
691	lastCmdStatus = TCL_BREAK;
692	return TCL_OK;
693	}
694
695	static int
696	KeyPressOp(ClientData clientData, Tcl_Interp *interp, int objc,
697	Tcl_Obj const objv)
698	{
699	int key;
700	if (Tcl_GetIntFromObj(interp, objv[2], &key) != TCL_OK) {
701	return TCL_ERROR;
702	}
703
704	g_renderer->keyPress(key);
705	return TCL_OK;
706	}
707
708	static int
709	KeyReleaseOp(ClientData clientData, Tcl_Interp *interp, int objc,
710	Tcl_Obj const objv)
711	{
712	int key;
713	if (Tcl_GetIntFromObj(interp, objv[2], &key) != TCL_OK) {
714	return TCL_ERROR;
715	}
716
717	g_renderer->keyRelease(key);
718	return TCL_OK;
719	}
720
721	static CmdSpec keyOps[] = {
722	{"press", 1, KeyPressOp, 3, 3, "key"},
723	{"release", 1, KeyReleaseOp, 3, 3, "key"},
724	};
725	static int nKeyOps = NumCmdSpecs(keyOps);
726
727	static int
728	KeyCmd(ClientData clientData, Tcl_Interp *interp, int objc,
729	Tcl_Obj const objv)
730	{
731	Tcl_ObjCmdProc *proc;
732
733	proc = GetOpFromObj(interp, nKeyOps, keyOps,
734	CMDSPEC_ARG1, objc, objv, 0);
735	if (proc == NULL) {
736	return TCL_ERROR;
737	}
738	return (*proc) (clientData, interp, objc, objv);
739	}
740
741	static int
742	LegendCmd(ClientData clientData, Tcl_Interp *interp, int objc,
743	Tcl_Obj const objv)
744	{
745	if (objc != 4) {
746	Tcl_AppendResult(interp, "wrong # args: should be \"",
747	Tcl_GetString(objv[0]), " colormapName width height\"", (char*)NULL);
748	return TCL_ERROR;
749	}
750	const char *colorMapName = Tcl_GetString(objv[1]);
751
752	int width, height;
753	if (Tcl_GetIntFromObj(interp, objv[2], &width) != TCL_OK \|\|
754	Tcl_GetIntFromObj(interp, objv[3], &height) != TCL_OK) {
755	return TCL_ERROR;
756	}
757
758	bool opaque = true;
759	float bgColor[3];
760	memset(bgColor, 0, sizeof(float)*3);
761	osg::ref_ptr<osg::Image> imgData = new osg::Image();
762
763	#if defined(RENDER_TARGA) \|\| defined(DEBUG)
764	if (!g_renderer->renderColorMap(colorMapName, width, height, imgData, opaque,
765	bgColor, true)) {
766	Tcl_AppendResult(interp, "Color map \"",
767	colorMapName, "\" was not found", (char*)NULL);
768	return TCL_ERROR;
769	}
770	#else
771	if (!g_renderer->renderColorMap(colorMapName, width, height, imgData, opaque,
772	bgColor)) {
773	Tcl_AppendResult(interp, "Color map \"",
774	colorMapName, "\" was not found", (char*)NULL);
775	return TCL_ERROR;
776	}
777	#endif
778
779	#ifdef DEBUG
780	# ifdef RENDER_TARGA
781	writeTGAFile("/tmp/legend.tga", imgData->data(), width, height,
782	TARGA_BYTES_PER_PIXEL);
783	# else
784	writeTGAFile("/tmp/legend.tga", imgData->data(), width, height,
785	TARGA_BYTES_PER_PIXEL, true);
786	# endif
787	#else
788	char cmd[256];
789	float min, max;
790	g_renderer->getColorMapRange(colorMapName, &min, &max);
791	snprintf(cmd, sizeof(cmd), "nv>legend {%s} %g %g", colorMapName, min, max);
792
793	# ifdef USE_THREADS
794	# ifdef RENDER_TARGA
795	queueTGA(g_outQueue, cmd, imgData->data(), width, height,
796	TARGA_BYTES_PER_PIXEL);
797	# else
798	queuePPM(g_outQueue, cmd, imgData->data(), width, height);
799	# endif
800	# else
801	# ifdef RENDER_TARGA
802	writeTGA(g_fdOut, cmd, imgData->data(), width, height,
803	TARGA_BYTES_PER_PIXEL);
804	# else
805	writePPM(g_fdOut, cmd, imgData->data(), width, height);
806	# endif
807	# endif // USE_THREADS
808	#endif // DEBUG
809
810	return TCL_OK;
811	}
812
813	static int
814	MapAttributionOp(ClientData clientData, Tcl_Interp *interp, int objc,
815	Tcl_Obj const objv)
816	{
817	g_renderer->setAttribution(Tcl_GetString(objv[2]));
818	return TCL_OK;
819	}
820
821	static int
822	MapBoxClearOp(ClientData clientData, Tcl_Interp *interp, int objc,
823	Tcl_Obj const objv)
824	{
825	g_renderer->clearBoxSelection();
826	return TCL_OK;
827	}
828
829	static int
830	MapBoxInitOp(ClientData clientData, Tcl_Interp *interp, int objc,
831	Tcl_Obj const objv)
832	{
833	int x, y;
834	if (Tcl_GetIntFromObj(interp, objv[3], &x) != TCL_OK \|\|
835	Tcl_GetIntFromObj(interp, objv[4], &y) != TCL_OK) {
836	return TCL_ERROR;
837	}
838	g_renderer->initBoxSelection(x, y);
839	return TCL_OK;
840	}
841
842	static int
843	MapBoxUpdateOp(ClientData clientData, Tcl_Interp *interp, int objc,
844	Tcl_Obj const objv)
845	{
846	int x, y;
847	if (Tcl_GetIntFromObj(interp, objv[3], &x) != TCL_OK \|\|
848	Tcl_GetIntFromObj(interp, objv[4], &y) != TCL_OK) {
849	return TCL_ERROR;
850	}
851	g_renderer->updateBoxSelection(x, y);
852	return TCL_OK;
853	}
854
855	static CmdSpec mapBoxOps[] = {
856	{"clear", 1, MapBoxClearOp, 3, 3, ""},
857	{"init", 1, MapBoxInitOp, 5, 5, "x y"},
858	{"update", 1, MapBoxUpdateOp, 5, 5, "x y"},
859	};
860	static int nMapBoxOps = NumCmdSpecs(mapBoxOps);
861
862	static int
863	MapBoxOp(ClientData clientData, Tcl_Interp *interp, int objc,
864	Tcl_Obj const objv)
865	{
866	Tcl_ObjCmdProc *proc;
867
868	proc = GetOpFromObj(interp, nMapBoxOps, mapBoxOps,
869	CMDSPEC_ARG2, objc, objv, 0);
870	if (proc == NULL) {
871	return TCL_ERROR;
872	}
873	return (*proc) (clientData, interp, objc, objv);
874	}
875
876	static int
877	MapCoordsOp(ClientData clientData, Tcl_Interp *interp, int objc,
878	Tcl_Obj const objv)
879	{
880	int tokenLength;
881	const char *token = Tcl_GetStringFromObj(objv[2], &tokenLength);
882	int numCoords;
883	Tcl_Obj **coords;
884	if (Tcl_ListObjGetElements(interp, objv[3], &numCoords, &coords) != TCL_OK) {
885	return TCL_ERROR;
886	}
887	if (numCoords == 0) {
888	Tcl_AppendResult(interp, "no x,y coordinates in list", (char *)NULL);
889	return TCL_ERROR;
890	}
891	if (numCoords & 1) {
892	Tcl_AppendResult(interp, "odd number of x, y coordinates in list",
893	(char *)NULL);
894	return TCL_ERROR;
895	}
896	const osgEarth::SpatialReference *outSRS = NULL;
897	if (objc > 4) {
898	std::string srsInit;
899	std::string verticalDatum;
900	srsInit = Tcl_GetString(objv[4]);
901	if (objc > 5) {
902	verticalDatum = Tcl_GetString(objv[5]);
903	}
904	outSRS = osgEarth::SpatialReference::get(srsInit, verticalDatum);
905	if (outSRS == NULL) {
906	Tcl_AppendResult(interp, "bad SRS \"", srsInit.c_str(), "\"",
907	(char*)NULL);
908	return TCL_ERROR;
909	}
910	}
911	Tcl_Obj listObjPtr = Tcl_NewListObj(0, (Tcl_Obj *)NULL);
912	std::vector<osg::Vec3d> coordVec;
913	for (int i = 0; i < numCoords; i += 2) {
914	int x, y;
915	if ((Tcl_GetIntFromObj(interp, coords[i], &x) != TCL_OK) \|\|
916	(Tcl_GetIntFromObj(interp, coords[i+1], &y) != TCL_OK)) {
917	return TCL_ERROR;
918	}
919	osgEarth::GeoPoint mapPoint;
920	if (g_renderer->mapMouseCoords(x, y, mapPoint)) {
921	// altmode absolute
922	coordVec.push_back(osg::Vec3d(mapPoint.x(), mapPoint.y(), mapPoint.z()));
923	} else {
924	coordVec.push_back(osg::Vec3d(std::numeric_limits<double>::quiet_NaN(),
925	std::numeric_limits<double>::quiet_NaN(),
926	std::numeric_limits<double>::quiet_NaN()));
927	}
928	}
929	if (outSRS != NULL) {
930	g_renderer->getMapSRS()->transform(coordVec, outSRS);
931	} else {
932	outSRS = g_renderer->getMapSRS();
933	}
934	for (std::vector<osg::Vec3d>::iterator itr = coordVec.begin();
935	itr != coordVec.end(); ++itr) {
936	Tcl_Obj *objPtr = Tcl_NewDoubleObj(itr->x());
937	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
938	objPtr = Tcl_NewDoubleObj(itr->y());
939	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
940	objPtr = Tcl_NewDoubleObj(itr->z());
941	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
942	}
943	// send coords to client
944	int listLength;
945	const char *string = Tcl_GetStringFromObj(listObjPtr, &listLength);
946	size_t length = listLength + tokenLength +
947	outSRS->getHorizInitString().length() +
948	outSRS->getVertInitString().length() +
949	25;
950	char *mesg = new char[length];
951	length = snprintf(mesg, length, "nv>map coords %s {%s} {%s} {%s}\n", token, string,
952	outSRS->getHorizInitString().c_str(),
953	outSRS->getVertInitString().c_str());
954	Tcl_DecrRefCount(listObjPtr);
955	queueResponse(mesg, length, Response::VOLATILE);
956	delete [] mesg;
957	return TCL_OK;
958	}
959
960	static int
961	MapGraticuleOp(ClientData clientData, Tcl_Interp *interp, int objc,
962	Tcl_Obj const objv)
963	{
964	bool state;
965	if (GetBooleanFromObj(interp, objv[2], &state) != TCL_OK) {
966	return TCL_ERROR;
967	}
968	if (objc > 3) {
969	Renderer::GraticuleType type;
970	char *typeStr = Tcl_GetString(objv[3]);
971	if (typeStr[0] == 'g' && strcmp(typeStr, "geodetic") == 0) {
972	type = Renderer::GRATICULE_GEODETIC;
973	} else if (typeStr[0] == 'u' && strcmp(typeStr, "utm") == 0) {
974	type = Renderer::GRATICULE_UTM;
975	} else if (typeStr[0] == 'm' && strcmp(typeStr, "mgrs") == 0) {
976	type = Renderer::GRATICULE_MGRS;
977	} else {
978	return TCL_ERROR;
979	}
980	g_renderer->setGraticule(state, type);
981	} else {
982	g_renderer->setGraticule(state);
983	}
984	return TCL_OK;
985	}
986
987	static int
988	MapLayerAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
989	Tcl_Obj const objv)
990	{
991	char *name = Tcl_GetString(objv[3]);
992	char *type = Tcl_GetString(objv[4]);
993	if (type[0] == 'i' && strcmp(type, "image") == 0) {
994	bool ret;
995	char *driver = Tcl_GetString(objv[5]);
996	std::string url;
997	if (objc > 6) {
998	char *urlIn = Tcl_GetString(objv[6]);
999	url = g_renderer->getCanonicalPath(std::string(urlIn));
1000	if (url.empty()) {
1001	Tcl_AppendResult(interp, "file not found: \"",
1002	urlIn, "\"", (char*)NULL);
1003	return TCL_ERROR;
1004	}
1005	}
1006	bool cache = true;
1007	if (objc > 7) {
1008	if (GetBooleanFromObj(interp, objv[7], &cache) != TCL_OK) {
1009	return TCL_ERROR;
1010	}
1011	}
1012	bool shared = false;
1013	bool visible = true;
1014	int minLOD = 0;
1015	int maxLOD = 23;
1016	float minRange = 0.f;
1017	float maxRange = FLT_MAX;
1018	#if OSGEARTH_MIN_VERSION_REQUIRED(2, 5, 1)
1019	if (driver[0] == 'c' && strcmp(driver, "colorramp") == 0) {
1020	osgEarth::Drivers::ColorRampOptions colorRampOpts;
1021	osgEarth::Drivers::GDALOptions opts;
1022	opts.url() = url;
1023	char *profile = Tcl_GetString(objv[8]);
1024	char *colormap = Tcl_GetString(objv[9]);
1025	osgEarth::ElevationLayerOptions elevOpts(name, opts);
1026	if (!cache) {
1027	elevOpts.cachePolicy() = osgEarth::CachePolicy(osgEarth::CachePolicy::USAGE_NO_CACHE);
1028	}
1029	if (profile != NULL) {
1030	//elevOpts.driver()->profile()->srsString() = "epsg:4326";
1031	elevOpts.driver()->profile() = osgEarth::ProfileOptions(profile);
1032	}
1033	colorRampOpts.elevationLayer() = elevOpts;
1034	colorRampOpts.ramp() = g_renderer->getColorMapFilePath(colormap);
1035	ret = g_renderer->addImageLayer(name, colorRampOpts, cache, shared, visible, minLOD, maxLOD);
1036	} else
1037	#endif
1038	if (driver[0] == 'd' && strcmp(driver, "debug") == 0) {
1039	osgEarth::Drivers::DebugOptions opts;
1040	ret = g_renderer->addImageLayer(name, opts, cache, shared, visible, minLOD, maxLOD);
1041	} else if (driver[0] == 'g' && strcmp(driver, "gdal") == 0) {
1042	osgEarth::Drivers::GDALOptions opts;
1043	opts.url() = url;
1044	ret = g_renderer->addImageLayer(name, opts, cache, shared, visible, minLOD, maxLOD);
1045	g_renderer->setImageLayerVisibleRange(name, minRange, maxRange);
1046	} else if (driver[0] == 't' && strcmp(driver, "tms") == 0) {
1047	osgEarth::Drivers::TMSOptions opts;
1048	//char *tmsType = Tcl_GetString(objv[8]);
1049	//char *format = Tcl_GetString(objv[9]);
1050	opts.url() = url;
1051	//opts.tmsType() = tmsType;
1052	//opts.format() = format;
1053	ret = g_renderer->addImageLayer(name, opts, cache, shared, visible, minLOD, maxLOD);
1054	g_renderer->setImageLayerVisibleRange(name, minRange, maxRange);
1055	} else if (driver[0] == 'w' && strcmp(driver, "wms") == 0) {
1056	osgEarth::Drivers::WMSOptions opts;
1057	char *wmsLayers = Tcl_GetString(objv[8]);
1058	char *format = Tcl_GetString(objv[9]);
1059	bool transparent;
1060	if (GetBooleanFromObj(interp, objv[10], &transparent) != TCL_OK) {
1061	return TCL_ERROR;
1062	}
1063	opts.url() = url;
1064	opts.layers() = wmsLayers;
1065	opts.format() = format;
1066	opts.transparent() = transparent;
1067
1068	ret = g_renderer->addImageLayer(name, opts, cache, shared, visible, minLOD, maxLOD);
1069	g_renderer->setImageLayerVisibleRange(name, minRange, maxRange);
1070	} else if (driver[0] == 'x' && strcmp(driver, "xyz") == 0) {
1071	osgEarth::Drivers::XYZOptions opts;
1072	opts.url() = url;
1073	opts.profile() = osgEarth::ProfileOptions("global-mercator");
1074	//bool invertY = false;
1075	//opts.invertY() = invertY;
1076	//opts.format() = Tcl_GetString(objv[8]);
1077	ret = g_renderer->addImageLayer(name, opts, cache, shared, visible, minLOD, maxLOD);
1078	g_renderer->setImageLayerVisibleRange(name, minRange, maxRange);
1079	} else {
1080	Tcl_AppendResult(interp, "unknown image driver \"", driver,
1081	"\": should be 'debug', 'gdal', 'tms', 'wms' or 'xyz'", (char*)NULL);
1082	return TCL_ERROR;
1083	}
1084	if (!ret) {
1085	Tcl_AppendResult(interp, "Failed to add image layer \"", name, "\"", (char*)NULL);
1086	return TCL_ERROR;
1087	}
1088	} else if (type[0] == 'e' && strcmp(type, "elevation") == 0) {
1089	char *driver = Tcl_GetString(objv[5]);
1090	char *urlIn = Tcl_GetString(objv[6]);
1091	std::string url = g_renderer->getCanonicalPath(std::string(urlIn));
1092	if (url.empty()) {
1093	Tcl_AppendResult(interp, "file not found: \"",
1094	urlIn, "\"", (char*)NULL);
1095	return TCL_ERROR;
1096	}
1097	bool cache = true;
1098	bool visible = true;
1099	int minLOD = 0;
1100	int maxLOD = 23;
1101	if (driver[0] == 'g' && strcmp(driver, "gdal") == 0) {
1102	osgEarth::Drivers::GDALOptions opts;
1103	opts.url() = url;
1104	g_renderer->addElevationLayer(name, opts, cache, visible, minLOD, maxLOD);
1105	} else if (driver[0] == 't' && strcmp(driver, "tms") == 0) {
1106	osgEarth::Drivers::TMSOptions opts;
1107	//char *tmsType = Tcl_GetString(objv[7]);
1108	//char *format = Tcl_GetString(objv[8]);
1109	opts.url() = url;
1110	//opts.tmsType() = tmsType;
1111	//opts.format() = format;
1112	g_renderer->addElevationLayer(name, opts, cache, visible, minLOD, maxLOD);
1113	} else {
1114	Tcl_AppendResult(interp, "unknown elevation driver \"", driver,
1115	"\": should be 'gdal' or 'tms'", (char*)NULL);
1116	return TCL_ERROR;
1117	}
1118	} else if (type[0] == 'p' && strcmp(type, "point") == 0) {
1119	osgEarth::Drivers::OGRFeatureOptions opts;
1120	char *urlIn = Tcl_GetString(objv[5]);
1121	std::string url = g_renderer->getCanonicalPath(std::string(urlIn));
1122	if (url.empty()) {
1123	Tcl_AppendResult(interp, "file not found: \"",
1124	urlIn, "\"", (char*)NULL);
1125	return TCL_ERROR;
1126	}
1127	float r, g, b;
1128	if (GetFloatFromObj(interp, objv[6], &r) != TCL_OK \|\|
1129	GetFloatFromObj(interp, objv[7], &g) != TCL_OK \|\|
1130	GetFloatFromObj(interp, objv[8], &b) != TCL_OK) {
1131	return TCL_ERROR;
1132	}
1133	float ptSize;
1134	if (GetFloatFromObj(interp, objv[9], &ptSize) != TCL_OK) {
1135	return TCL_ERROR;
1136	}
1137	opts.url() = url;
1138
1139	osgEarth::Symbology::Style style;
1140	osgEarth::Symbology::PointSymbol *ps = style.getOrCreateSymbol<osgEarth::Symbology::PointSymbol>();
1141	ps->fill()->color() = osgEarth::Symbology::Color(r, g, b);
1142	ps->size() = ptSize;
1143
1144	osgEarth::Symbology::RenderSymbol* rs = style.getOrCreateSymbol<osgEarth::Symbology::RenderSymbol>();
1145	rs->depthOffset()->enabled() = true;
1146	rs->depthOffset()->minBias() = 1000;
1147
1148	osgEarth::Drivers::FeatureGeomModelOptions geomOpts;
1149	geomOpts.featureOptions() = opts;
1150	geomOpts.styles() = new osgEarth::Symbology::StyleSheet();
1151	geomOpts.styles()->addStyle(style);
1152	geomOpts.enableLighting() = false;
1153	geomOpts.minRange() = 0.f;
1154	geomOpts.maxRange() = FLT_MAX;
1155	//geomOpts.renderOrder = int;
1156	//geomOpts.depthTestEnabled = bool;
1157	g_renderer->addModelLayer(name, geomOpts);
1158	} else if (type[0] == 'p' && strcmp(type, "polygon") == 0) {
1159	osgEarth::Drivers::OGRFeatureOptions opts;
1160	char *urlIn = Tcl_GetString(objv[5]);
1161	std::string url = g_renderer->getCanonicalPath(std::string(urlIn));
1162	if (url.empty()) {
1163	Tcl_AppendResult(interp, "file not found: \"",
1164	urlIn, "\"", (char*)NULL);
1165	return TCL_ERROR;
1166	}
1167	float r, g, b;
1168	if (GetFloatFromObj(interp, objv[6], &r) != TCL_OK \|\|
1169	GetFloatFromObj(interp, objv[7], &g) != TCL_OK \|\|
1170	GetFloatFromObj(interp, objv[8], &b) != TCL_OK) {
1171	return TCL_ERROR;
1172	}
1173	opts.url() = url;
1174
1175	osgEarth::Symbology::Style style;
1176	osgEarth::Symbology::PolygonSymbol *ps = style.getOrCreateSymbol<osgEarth::Symbology::PolygonSymbol>();
1177	ps->fill()->color() = osgEarth::Symbology::Color(r, g, b);
1178	#if 1
1179	osgEarth::Symbology::AltitudeSymbol *alt = style.getOrCreateSymbol<osgEarth::Symbology::AltitudeSymbol>();
1180	alt->clamping() = osgEarth::Symbology::AltitudeSymbol::CLAMP_TO_TERRAIN;
1181	alt->technique() = osgEarth::Symbology::AltitudeSymbol::TECHNIQUE_DRAPE;
1182	//alt->technique() = osgEarth::Symbology::AltitudeSymbol::TECHNIQUE_GPU;
1183	#endif
1184	osgEarth::Symbology::RenderSymbol* rs = style.getOrCreateSymbol<osgEarth::Symbology::RenderSymbol>();
1185	rs->depthOffset()->enabled() = true;
1186	rs->depthOffset()->minBias() = 1000;
1187
1188	osgEarth::Drivers::FeatureGeomModelOptions geomOpts;
1189	geomOpts.featureOptions() = opts;
1190	geomOpts.styles() = new osgEarth::Symbology::StyleSheet();
1191	geomOpts.styles()->addStyle(style);
1192	geomOpts.enableLighting() = false;
1193	geomOpts.minRange() = 0.f;
1194	geomOpts.maxRange() = FLT_MAX;
1195	g_renderer->addModelLayer(name, geomOpts);
1196	} else if (type[0] == 'l' && strcmp(type, "line") == 0) {
1197	osgEarth::Drivers::OGRFeatureOptions opts;
1198	char *urlIn = Tcl_GetString(objv[5]);
1199	std::string url = g_renderer->getCanonicalPath(std::string(urlIn));
1200	if (url.empty()) {
1201	Tcl_AppendResult(interp, "file not found: \"",
1202	urlIn, "\"", (char*)NULL);
1203	return TCL_ERROR;
1204	}
1205	float r, g, b;
1206	if (GetFloatFromObj(interp, objv[6], &r) != TCL_OK \|\|
1207	GetFloatFromObj(interp, objv[7], &g) != TCL_OK \|\|
1208	GetFloatFromObj(interp, objv[8], &b) != TCL_OK) {
1209	return TCL_ERROR;
1210	}
1211	float lineWidth;
1212	if (GetFloatFromObj(interp, objv[9], &lineWidth) != TCL_OK) {
1213	return TCL_ERROR;
1214	}
1215	opts.url() = url;
1216
1217	osgEarth::Symbology::Style style;
1218	osgEarth::Symbology::LineSymbol *ls = style.getOrCreateSymbol<osgEarth::Symbology::LineSymbol>();
1219	ls->stroke()->color() = osgEarth::Symbology::Color(r, g, b);
1220	ls->stroke()->width() = lineWidth;
1221	#if 1
1222	osgEarth::Symbology::AltitudeSymbol *alt = style.getOrCreateSymbol<osgEarth::Symbology::AltitudeSymbol>();
1223	alt->clamping() = osgEarth::Symbology::AltitudeSymbol::CLAMP_TO_TERRAIN;
1224	//alt->technique() = osgEarth::Symbology::AltitudeSymbol::TECHNIQUE_DRAPE;
1225	alt->technique() = osgEarth::Symbology::AltitudeSymbol::TECHNIQUE_GPU;
1226	#endif
1227	#if 1
1228	osgEarth::Symbology::RenderSymbol* rs = style.getOrCreateSymbol<osgEarth::Symbology::RenderSymbol>();
1229	rs->depthOffset()->enabled() = true;
1230	rs->depthOffset()->minBias() = 1000;
1231	#endif
1232	osgEarth::Drivers::FeatureGeomModelOptions geomOpts;
1233	geomOpts.featureOptions() = opts;
1234	geomOpts.styles() = new osgEarth::Symbology::StyleSheet();
1235	geomOpts.styles()->addStyle(style);
1236	geomOpts.enableLighting() = false;
1237	geomOpts.minRange() = 0.f;
1238	geomOpts.maxRange() = FLT_MAX;
1239	if (objc > 10) {
1240	float min, max;
1241	if (GetFloatFromObj(interp, objv[10], &min) != TCL_OK \|\|
1242	GetFloatFromObj(interp, objv[11], &max) != TCL_OK) {
1243	return TCL_ERROR;
1244	}
1245	geomOpts.minRange() = min;
1246	geomOpts.maxRange() = max;
1247	}
1248	g_renderer->addModelLayer(name, geomOpts);
1249	} else if (type[0] == 't' && strcmp(type, "text") == 0) {
1250	osgEarth::Drivers::OGRFeatureOptions opts;
1251	char *urlIn = Tcl_GetString(objv[5]);
1252	std::string url = g_renderer->getCanonicalPath(std::string(urlIn));
1253	if (url.empty()) {
1254	Tcl_AppendResult(interp, "file not found: \"",
1255	urlIn, "\"", (char*)NULL);
1256	return TCL_ERROR;
1257	}
1258	char *content = Tcl_GetString(objv[6]);
1259	char *priority = Tcl_GetString(objv[7]);
1260	float fgR, fgG, fgB;
1261	float bgR, bgG, bgB;
1262	float haloWidth, ftSize;
1263	if (GetFloatFromObj(interp, objv[8], &fgR) != TCL_OK \|\|
1264	GetFloatFromObj(interp, objv[9], &fgG) != TCL_OK \|\|
1265	GetFloatFromObj(interp, objv[10], &fgB) != TCL_OK \|\|
1266	GetFloatFromObj(interp, objv[11], &bgR) != TCL_OK \|\|
1267	GetFloatFromObj(interp, objv[12], &bgG) != TCL_OK \|\|
1268	GetFloatFromObj(interp, objv[13], &bgB) != TCL_OK \|\|
1269	GetFloatFromObj(interp, objv[14], &haloWidth) != TCL_OK \|\|
1270	GetFloatFromObj(interp, objv[15], &ftSize) != TCL_OK) {
1271	return TCL_ERROR;
1272	}
1273	bool removeDupes, declutter;
1274	if (GetBooleanFromObj(interp, objv[16], &removeDupes) != TCL_OK \|\|
1275	GetBooleanFromObj(interp, objv[17], &declutter) != TCL_OK) {
1276	return TCL_ERROR;
1277	}
1278	opts.url() = url;
1279
1280	osgEarth::Symbology::Style style;
1281	osgEarth::Symbology::TextSymbol *ts = style.getOrCreateSymbol<osgEarth::Symbology::TextSymbol>();
1282	ts->halo()->color() = osgEarth::Symbology::Color(bgR, bgG, bgB);
1283	ts->halo()->width() = haloWidth;
1284	ts->fill()->color() = osgEarth::Symbology::Color(fgR, fgG, fgB);
1285	ts->content() = osgEarth::Symbology::StringExpression(content);
1286	ts->priority() = osgEarth::Symbology::NumericExpression(priority);
1287	ts->removeDuplicateLabels() = removeDupes;
1288	//ts->font() = "Arial";
1289	ts->size() = ftSize;
1290	ts->alignment() = osgEarth::Symbology::TextSymbol::ALIGN_CENTER_CENTER;
1291	ts->declutter() = declutter;
1292	ts->encoding() = osgEarth::Symbology::TextSymbol::ENCODING_UTF8;
1293
1294	osgEarth::Symbology::RenderSymbol* rs = style.getOrCreateSymbol<osgEarth::Symbology::RenderSymbol>();
1295	rs->depthOffset()->enabled() = true;
1296	rs->depthOffset()->minBias() = 1000;
1297
1298	osgEarth::Drivers::FeatureGeomModelOptions geomOpts;
1299	geomOpts.featureOptions() = opts;
1300	geomOpts.styles() = new osgEarth::Symbology::StyleSheet();
1301	geomOpts.styles()->addStyle(style);
1302	geomOpts.enableLighting() = false;
1303	geomOpts.minRange() = 0.f;
1304	geomOpts.maxRange() = FLT_MAX;
1305	if (objc > 10) {
1306	float min, max;
1307	if (GetFloatFromObj(interp, objv[18], &min) != TCL_OK \|\|
1308	GetFloatFromObj(interp, objv[19], &max) != TCL_OK) {
1309	return TCL_ERROR;
1310	}
1311	geomOpts.minRange() = min;
1312	geomOpts.maxRange() = max;
1313	}
1314	g_renderer->addModelLayer(name, geomOpts);
1315	} else {
1316	Tcl_AppendResult(interp, "unknown map layer type \"", type,
1317	"\": should be 'image', 'elevation' or 'model'", (char*)NULL);
1318	return TCL_ERROR;
1319	}
1320	return TCL_OK;
1321	}
1322
1323	static int
1324	MapLayerDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
1325	Tcl_Obj const objv)
1326	{
1327	if (objc > 3) {
1328	char *name = Tcl_GetString(objv[3]);
1329	g_renderer->removeImageLayer(name);
1330	g_renderer->removeElevationLayer(name);
1331	g_renderer->removeModelLayer(name);
1332	} else {
1333	g_renderer->clearMap();
1334	}
1335
1336	return TCL_OK;
1337	}
1338
1339	static int
1340	MapLayerMoveOp(ClientData clientData, Tcl_Interp *interp, int objc,
1341	Tcl_Obj const objv)
1342	{
1343	int pos;
1344	if (Tcl_GetIntFromObj(interp, objv[3], &pos) != TCL_OK) {
1345	return TCL_ERROR;
1346	}
1347	char *name = Tcl_GetString(objv[4]);
1348	if (pos < 0) {
1349	Tcl_AppendResult(interp, "bad layer pos ", pos,
1350	": must be positive", (char*)NULL);
1351	return TCL_ERROR;
1352	}
1353	g_renderer->moveImageLayer(name, (unsigned int)pos);
1354	g_renderer->moveElevationLayer(name, (unsigned int)pos);
1355	g_renderer->moveModelLayer(name, (unsigned int)pos);
1356
1357	return TCL_OK;
1358	}
1359
1360	static int
1361	MapLayerOpacityOp(ClientData clientData, Tcl_Interp *interp, int objc,
1362	Tcl_Obj const objv)
1363	{
1364	double opacity;
1365	if (Tcl_GetDoubleFromObj(interp, objv[3], &opacity) != TCL_OK) {
1366	return TCL_ERROR;
1367	}
1368	char *name = Tcl_GetString(objv[4]);
1369	if (opacity < 0.0 \|\| opacity > 1.0) {
1370	Tcl_AppendResult(interp, "bad layer opacity ", opacity,
1371	": must be [0,1]", (char*)NULL);
1372	return TCL_ERROR;
1373	}
1374	g_renderer->setImageLayerOpacity(name, opacity);
1375	g_renderer->setModelLayerOpacity(name, opacity);
1376
1377	return TCL_OK;
1378	}
1379
1380	static int
1381	MapLayerNamesOp(ClientData clientData, Tcl_Interp *interp, int objc,
1382	Tcl_Obj const objv)
1383	{
1384	std::vector<std::string> layers;
1385	if (objc < 4) {
1386	g_renderer->getImageLayerNames(layers);
1387	g_renderer->getElevationLayerNames(layers);
1388	g_renderer->getModelLayerNames(layers);
1389	} else {
1390	char *type = Tcl_GetString(objv[3]);
1391	if (type[0] == 'i' && strcmp(type, "image") == 0) {
1392	g_renderer->getImageLayerNames(layers);
1393	} else if (type[0] == 'e' && strcmp(type, "elevation") == 0) {
1394	g_renderer->getElevationLayerNames(layers);
1395	} else if (type[0] == 'm' && strcmp(type, "model") == 0) {
1396	g_renderer->getModelLayerNames(layers);
1397	} else {
1398	Tcl_AppendResult(interp, "uknown type \"", type,
1399	"\": must be image, elevation or model", (char*)NULL);
1400	return TCL_ERROR;
1401	}
1402	}
1403	std::ostringstream oss;
1404	size_t len = 0;
1405	oss << "nv>map names {";
1406	len += 18;
1407	for (size_t i = 0; i < layers.size(); i++) {
1408	oss << "\"" << layers[i] << "\"";
1409	len += 2 + layers[i].length();
1410	if (i < layers.size() - 1) {
1411	oss << " ";
1412	len++;
1413	}
1414	}
1415	oss << "}\n";
1416	len += 2;
1417	#ifdef USE_THREADS
1418	queueResponse(oss.str().c_str(), len, Response::VOLATILE);
1419	#else
1420	ssize_t bytesWritten = SocketWrite(oss.str().c_str(), len);
1421
1422	if (bytesWritten < 0) {
1423	return TCL_ERROR;
1424	}
1425	#endif /USE_THREADS/
1426	return TCL_OK;
1427	}
1428
1429	static int
1430	MapLayerVisibleOp(ClientData clientData, Tcl_Interp *interp, int objc,
1431	Tcl_Obj const objv)
1432	{
1433	bool visible;
1434	if (GetBooleanFromObj(interp, objv[3], &visible) != TCL_OK) {
1435	return TCL_ERROR;
1436	}
1437	char *name = Tcl_GetString(objv[4]);
1438
1439	g_renderer->setImageLayerVisibility(name, visible);
1440	g_renderer->setElevationLayerVisibility(name, visible);
1441	g_renderer->setModelLayerVisibility(name, visible);
1442
1443	return TCL_OK;
1444	}
1445
1446	static CmdSpec mapLayerOps[] = {
1447	{"add", 1, MapLayerAddOp, 6, 0, "name type driver ?url? ?args?"},
1448	{"delete", 1, MapLayerDeleteOp, 3, 4, "?name?"},
1449	{"move", 1, MapLayerMoveOp, 5, 5, "pos name"},
1450	{"names", 1, MapLayerNamesOp, 3, 4, "?type?"},
1451	{"opacity", 1, MapLayerOpacityOp, 5, 5, "opacity ?name?"},
1452	{"visible", 1, MapLayerVisibleOp, 5, 5, "bool ?name?"},
1453	};
1454	static int nMapLayerOps = NumCmdSpecs(mapLayerOps);
1455
1456	static int
1457	MapLayerOp(ClientData clientData, Tcl_Interp *interp, int objc,
1458	Tcl_Obj const objv)
1459	{
1460	Tcl_ObjCmdProc *proc;
1461
1462	proc = GetOpFromObj(interp, nMapLayerOps, mapLayerOps,
1463	CMDSPEC_ARG2, objc, objv, 0);
1464	if (proc == NULL) {
1465	return TCL_ERROR;
1466	}
1467	return (*proc) (clientData, interp, objc, objv);
1468	}
1469
1470	static int
1471	MapLoadOp(ClientData clientData, Tcl_Interp *interp, int objc,
1472	Tcl_Obj const objv)
1473	{
1474	char *opt = Tcl_GetString(objv[2]);
1475	if (opt[0] == 'f' && strcmp(opt, "file") == 0) {
1476	g_renderer->loadEarthFile(Tcl_GetString(objv[3]));
1477	} else if (opt[0] == 'u' && strcmp(opt, "url") == 0) {
1478	std::ostringstream path;
1479	path << "server:" << Tcl_GetString(objv[3]);
1480	g_renderer->loadEarthFile(path.str().c_str());
1481	} else if (opt[0] == 'd' && strcmp(opt, "data") == 0) {
1482	opt = Tcl_GetString(objv[3]);
1483	if (opt[0] != 'f' \|\| strcmp(opt, "follows") != 0) {
1484	return TCL_ERROR;
1485	}
1486	int len;
1487	if (Tcl_GetIntFromObj(interp, objv[4], &len) != TCL_OK) {
1488	return TCL_ERROR;
1489	}
1490	// Read Earth file from socket
1491	char buf = (char )malloc((size_t)len);
1492	SocketRead(buf, (size_t)len);
1493	std::ostringstream path;
1494	path << "/tmp/tmp" << getpid() << ".earth";
1495	const char *pathStr = path.str().c_str();
1496	FILE *tmpFile = fopen(pathStr, "w");
1497	fwrite(buf, len, 1, tmpFile);
1498	fclose(tmpFile);
1499	g_renderer->loadEarthFile(pathStr);
1500	unlink(pathStr);
1501	free(buf);
1502	} else {
1503	return TCL_ERROR;
1504	}
1505	return TCL_OK;
1506	}
1507
1508	static int
1509	MapPinAddOp(ClientData clientData, Tcl_Interp *interp, int objc,
1510	Tcl_Obj const objv)
1511	{
1512	int x, y;
1513	if (Tcl_GetIntFromObj(interp, objv[3], &x) != TCL_OK \|\|
1514	Tcl_GetIntFromObj(interp, objv[4], &y) != TCL_OK) {
1515	return TCL_ERROR;
1516	}
1517	char *label = NULL;
1518	if (objc > 5) {
1519	label = Tcl_GetString(objv[5]);
1520	}
1521
1522	if (g_renderer->getMapSRS() == NULL) {
1523	Tcl_AppendResult(interp, "Could not get map SRS", (char*)NULL);
1524	return TCL_ERROR;
1525	}
1526
1527	// Get lat/long
1528	double latitude, longitude;
1529	if (!g_renderer->mouseToLatLong(x, y, &latitude, &longitude)) {
1530	USER_ERROR("Can't add pin here");
1531	return TCL_OK;
1532	}
1533
1534	g_renderer->addPlaceNode(latitude, longitude, label);
1535	return TCL_OK;
1536	}
1537
1538	static int
1539	MapPinDeleteOp(ClientData clientData, Tcl_Interp *interp, int objc,
1540	Tcl_Obj const objv)
1541	{
1542	int x, y;
1543	if (Tcl_GetIntFromObj(interp, objv[3], &x) != TCL_OK \|\|
1544	Tcl_GetIntFromObj(interp, objv[4], &y) != TCL_OK) {
1545	return TCL_ERROR;
1546	}
1547
1548	g_renderer->deletePlaceNode(x, y);
1549	return TCL_OK;
1550	}
1551
1552	static int
1553	MapPinHoverOp(ClientData clientData, Tcl_Interp *interp, int objc,
1554	Tcl_Obj const objv)
1555	{
1556	int x, y;
1557	if (Tcl_GetIntFromObj(interp, objv[3], &x) != TCL_OK \|\|
1558	Tcl_GetIntFromObj(interp, objv[4], &y) != TCL_OK) {
1559	return TCL_ERROR;
1560	}
1561
1562	g_renderer->hoverPlaceNode(x, y);
1563	return TCL_OK;
1564	}
1565
1566	static CmdSpec mapPinOps[] = {
1567	{"add", 1, MapPinAddOp, 5, 6, "x y ?label?"},
1568	{"delete", 1, MapPinDeleteOp, 5, 5, "x y"},
1569	{"hover", 1, MapPinHoverOp, 5, 5, "x y"},
1570	};
1571	static int nMapPinOps = NumCmdSpecs(mapPinOps);
1572
1573	static int
1574	MapPinOp(ClientData clientData, Tcl_Interp *interp, int objc,
1575	Tcl_Obj const objv)
1576	{
1577	Tcl_ObjCmdProc *proc;
1578
1579	proc = GetOpFromObj(interp, nMapPinOps, mapPinOps,
1580	CMDSPEC_ARG2, objc, objv, 0);
1581	if (proc == NULL) {
1582	return TCL_ERROR;
1583	}
1584	return (*proc) (clientData, interp, objc, objv);
1585	}
1586
1587	static int
1588	MapPositionDisplayOp(ClientData clientData, Tcl_Interp *interp, int objc,
1589	Tcl_Obj const objv)
1590	{
1591	bool state;
1592	if (GetBooleanFromObj(interp, objv[2], &state) != TCL_OK) {
1593	return TCL_ERROR;
1594	}
1595	Renderer::CoordinateDisplayType type = Renderer::COORDS_LATLONG_DECIMAL_DEGREES;
1596	if (state && objc > 3) {
1597	const char *str = Tcl_GetString(objv[3]);
1598	if (str[0] == 'l' && strcmp(str, "latlong_decimal_degrees") == 0) {
1599	type = Renderer::COORDS_LATLONG_DECIMAL_DEGREES;
1600	} else if (str[0] == 'l' && strcmp(str, "latlong_degrees_decimal_minutes") == 0) {
1601	type = Renderer::COORDS_LATLONG_DEGREES_DECIMAL_MINUTES;
1602	} else if (str[0] == 'l' && strcmp(str, "latlong_degrees_minutes_seconds") == 0) {
1603	type = Renderer::COORDS_LATLONG_DEGREES_MINUTES_SECONDS;
1604	} else if (str[0] == 'm' && strcmp(str, "mgrs") == 0) {
1605	type = Renderer::COORDS_MGRS;
1606	} else {
1607	Tcl_AppendResult(interp, "invalid type: \"", str,
1608	"\": should be 'latlong_decimal_degrees', 'latlong_degrees_decimal_minutes', 'latlong_degrees_minutes_seconds', or 'mgrs'",
1609	(char*)NULL);
1610	return TCL_ERROR;
1611	}
1612	}
1613	if (state && objc > 4) {
1614	int precision;
1615	if (Tcl_GetIntFromObj(interp, objv[4], &precision) != TCL_OK) {
1616	return TCL_ERROR;
1617	}
1618	g_renderer->setCoordinateReadout(state, type, precision);
1619	} else {
1620	g_renderer->setCoordinateReadout(state, type);
1621	}
1622
1623	return TCL_OK;
1624	}
1625
1626	static int
1627	MapResetOp(ClientData clientData, Tcl_Interp *interp, int objc,
1628	Tcl_Obj const objv)
1629	{
1630	char *typeStr = Tcl_GetString(objv[2]);
1631	osgEarth::MapOptions::CoordinateSystemType type;
1632	if (typeStr[0] == 'g' && strcmp(typeStr, "geocentric") == 0) {
1633	type = osgEarth::MapOptions::CSTYPE_GEOCENTRIC;
1634	} else if (typeStr[0] == 'g' && strcmp(typeStr, "geocentric_cube") == 0) {
1635	type = osgEarth::MapOptions::CSTYPE_GEOCENTRIC_CUBE;
1636	} else if (typeStr[0] == 'p' && strcmp(typeStr, "projected") == 0) {
1637	type = osgEarth::MapOptions::CSTYPE_PROJECTED;
1638	} else {
1639	Tcl_AppendResult(interp, "bad map type \"", typeStr,
1640	"\": must be geocentric or projected", (char*)NULL);
1641	return TCL_ERROR;
1642	}
1643	float color[3];
1644	if (GetFloatFromObj(interp, objv[3], &color[0]) != TCL_OK \|\|
1645	GetFloatFromObj(interp, objv[4], &color[1]) != TCL_OK \|\|
1646	GetFloatFromObj(interp, objv[5], &color[2]) != TCL_OK) {
1647	return TCL_ERROR;
1648	}
1649
1650	osg::Vec4f bgColor(color[0],color[1],color[2],1);
1651	if (type == osgEarth::MapOptions::CSTYPE_PROJECTED) {
1652	if (objc < 7) {
1653	Tcl_AppendResult(interp, "wrong # arguments: profile required for projected maps", (char*)NULL);
1654	return TCL_ERROR;
1655	}
1656	char *profile = Tcl_GetString(objv[6]);
1657	if (objc > 7) {
1658	if (objc < 11) {
1659	Tcl_AppendResult(interp, "wrong # arguments: 4 bounds arguments required", (char*)NULL);
1660	return TCL_ERROR;
1661	}
1662	double bounds[4];
1663	for (int i = 0; i < 4; i++) {
1664	if (Tcl_GetDoubleFromObj(interp, objv[7+i], &bounds[i]) != TCL_OK) {
1665	return TCL_ERROR;
1666	}
1667	}
1668	#if 1
1669	// Check if min > max
1670	if (bounds[0] > bounds[2] \|\|
1671	bounds[1] > bounds[3]) {
1672	Tcl_AppendResult(interp, "invalid bounds", (char*)NULL);
1673	return TCL_ERROR;
1674	}
1675	// Note: plate-carre generates same SRS as others, but with
1676	// _is_plate_carre flag set
1677	// In map profile, _is_plate_carre is forced on for
1678	// geographic+projected SRS
1679	if (strcmp(profile, "geodetic") == 0 \|\|
1680	strcmp(profile, "epsg:4326") == 0 \|\|
1681	strcmp(profile, "wgs84") == 0 \|\|
1682	strcmp(profile, "plate-carre") == 0) {
1683	if (bounds[0] < -180. \|\| bounds[0] > 180. \|\|
1684	bounds[2] < -180. \|\| bounds[2] > 180. \|\|
1685	bounds[1] < -90. \|\| bounds[1] > 90. \|\|
1686	bounds[3] < -90. \|\| bounds[3] > 90.) {
1687	Tcl_AppendResult(interp, "invalid bounds", (char*)NULL);
1688	return TCL_ERROR;
1689	}
1690	} else if (strcmp(profile, "spherical-mercator") == 0 \|\|
1691	strcmp(profile, "epsg:900913") == 0 \|\|
1692	strcmp(profile, "epsg:3785") == 0 \|\|
1693	strcmp(profile, "epsg:3857") == 0 \|\|
1694	strcmp(profile, "epsg:102113") == 0) {
1695	for (int i = 0; i < 4; i++) {
1696	if (bounds[i] < -20037508.34 \|\| bounds[i] > 20037508.34) {
1697	Tcl_AppendResult(interp, "invalid bounds", (char*)NULL);
1698	return TCL_ERROR;
1699	}
1700	}
1701	} else if (strcmp(profile, "epsg:32662") == 0 \|\|
1702	strcmp(profile, "epsg:32663") == 0) {
1703	if (bounds[0] < -20037508.3428 \|\| bounds[0] > 20037508.3428 \|\|
1704	bounds[2] < -20037508.3428 \|\| bounds[2] > 20037508.3428 \|\|
1705	bounds[1] < -10018754.1714 \|\| bounds[1] > 10018754.1714 \|\|
1706	bounds[3] < -10018754.1714 \|\| bounds[3] > 10018754.1714) {
1707	Tcl_AppendResult(interp, "invalid bounds", (char*)NULL);
1708	return TCL_ERROR;
1709	}
1710	}
1711	#endif
1712	g_renderer->resetMap(type, bgColor, profile, bounds);
1713	} else {
1714	if (osgEarth::Registry::instance()->getNamedProfile(profile) == NULL) {
1715	Tcl_AppendResult(interp, "bad named profile \"", profile,
1716	"\": must be e.g. 'global-geodetic', 'global-mercator'...", (char*)NULL);
1717	return TCL_ERROR;
1718	}
1719	g_renderer->resetMap(type, bgColor, profile);
1720	}
1721	} else {
1722	// No profile required for geocentric (3D) maps
1723	g_renderer->resetMap(type, bgColor);
1724	}
1725
1726	return TCL_OK;
1727	}
1728
1729	static int
1730	MapScaleBarOp(ClientData clientData, Tcl_Interp *interp, int objc,
1731	Tcl_Obj const objv)
1732	{
1733	bool state;
1734	if (GetBooleanFromObj(interp, objv[2], &state) != TCL_OK) {
1735	return TCL_ERROR;
1736	}
1737	g_renderer->setScaleBar(state);
1738	if (state && objc > 3) {
1739	const char *unitStr = Tcl_GetString(objv[3]);
1740	ScaleBarUnits units;
1741	if (unitStr[0] == 'm' && strcmp(unitStr, "meters") == 0) {
1742	units = UNITS_METERS;
1743	} else if (unitStr[0] == 'f' && strcmp(unitStr, "feet") == 0) {
1744	units = UNITS_INTL_FEET;
1745	} else if (unitStr[0] == 'u' && strcmp(unitStr, "us_survey_feet") == 0) {
1746	units = UNITS_US_SURVEY_FEET;
1747	} else if (unitStr[0] == 'n' && strcmp(unitStr, "nautical_miles") == 0) {
1748	units = UNITS_NAUTICAL_MILES;
1749	} else {
1750	Tcl_AppendResult(interp, "bad units \"", unitStr,
1751	"\": must be 'meters', 'feet', 'us_survey_feet' or 'nautical_miles'", (char*)NULL);
1752	return TCL_ERROR;
1753	}
1754	g_renderer->setScaleBarUnits(units);
1755	}
1756	return TCL_OK;
1757	}
1758
1759	static int
1760	MapSetPositionOp(ClientData clientData, Tcl_Interp *interp, int objc,
1761	Tcl_Obj const objv)
1762	{
1763	if (objc < 3) {
1764	g_renderer->clearReadout();
1765	} else {
1766	int x, y;
1767	if (Tcl_GetIntFromObj(interp, objv[2], &x) != TCL_OK \|\|
1768	Tcl_GetIntFromObj(interp, objv[3], &y) != TCL_OK) {
1769	return TCL_ERROR;
1770	}
1771	g_renderer->setReadout(x, y);
1772	}
1773	return TCL_OK;
1774	}
1775
1776	static int
1777	MapTerrainColorOp(ClientData clientData, Tcl_Interp *interp, int objc,
1778	Tcl_Obj const objv)
1779	{
1780	float color[3];
1781	if (GetFloatFromObj(interp, objv[3], &color[0]) != TCL_OK \|\|
1782	GetFloatFromObj(interp, objv[4], &color[1]) != TCL_OK \|\|
1783	GetFloatFromObj(interp, objv[5], &color[2]) != TCL_OK) {
1784	return TCL_ERROR;
1785	}
1786	g_renderer->setTerrainColor(osg::Vec4f(color[0],color[1],color[2],1));
1787	return TCL_OK;
1788	}
1789
1790	static int
1791	MapTerrainEdgesOp(ClientData clientData, Tcl_Interp *interp, int objc,
1792	Tcl_Obj const objv)
1793	{
1794	bool state;
1795	if (GetBooleanFromObj(interp, objv[3], &state) != TCL_OK) {
1796	return TCL_ERROR;
1797	}
1798	g_renderer->setTerrainEdges(state);
1799	return TCL_OK;
1800	}
1801
1802	static int
1803	MapTerrainLightingOp(ClientData clientData, Tcl_Interp *interp, int objc,
1804	Tcl_Obj const objv)
1805	{
1806	bool state;
1807	if (GetBooleanFromObj(interp, objv[3], &state) != TCL_OK) {
1808	return TCL_ERROR;
1809	}
1810
1811	g_renderer->setTerrainLighting(state);
1812	return TCL_OK;
1813	}
1814
1815	static int
1816	MapTerrainLineColorOp(ClientData clientData, Tcl_Interp *interp, int objc,
1817	Tcl_Obj const objv)
1818	{
1819	float color[3];
1820	if (GetFloatFromObj(interp, objv[3], &color[0]) != TCL_OK \|\|
1821	GetFloatFromObj(interp, objv[4], &color[1]) != TCL_OK \|\|
1822	GetFloatFromObj(interp, objv[5], &color[2]) != TCL_OK) {
1823	return TCL_ERROR;
1824	}
1825	g_renderer->setTerrainLineColor(osg::Vec4f(color[0], color[1], color[2],1));
1826	return TCL_OK;
1827	}
1828
1829	static int
1830	MapTerrainLineWidthOp(ClientData clientData, Tcl_Interp *interp, int objc,
1831	Tcl_Obj const objv)
1832	{
1833	float width;
1834	if (GetFloatFromObj(interp, objv[3], &width) != TCL_OK) {
1835	return TCL_ERROR;
1836	}
1837	g_renderer->setTerrainLineWidth(width);
1838	return TCL_OK;
1839	}
1840
1841	static int
1842	MapTerrainVertScaleOp(ClientData clientData, Tcl_Interp *interp, int objc,
1843	Tcl_Obj const objv)
1844	{
1845	double scale;
1846	if (Tcl_GetDoubleFromObj(interp, objv[3], &scale) != TCL_OK) {
1847	return TCL_ERROR;
1848	}
1849
1850	g_renderer->setTerrainVerticalScale(scale);
1851	return TCL_OK;
1852	}
1853
1854	static int
1855	MapTerrainWireframeOp(ClientData clientData, Tcl_Interp *interp, int objc,
1856	Tcl_Obj const objv)
1857	{
1858	bool state;
1859	if (GetBooleanFromObj(interp, objv[3], &state) != TCL_OK) {
1860	return TCL_ERROR;
1861	}
1862
1863	g_renderer->setTerrainWireframe(state);
1864	return TCL_OK;
1865	}
1866
1867	static CmdSpec mapTerrainOps[] = {
1868	{"color", 1, MapTerrainColorOp, 6, 6, "r g b"},
1869	{"edges", 1, MapTerrainEdgesOp, 4, 4, "bool"},
1870	{"lighting", 2, MapTerrainLightingOp, 4, 4, "bool"},
1871	{"linecolor", 5, MapTerrainLineColorOp, 6, 6, "r g b"},
1872	{"linewidth", 5, MapTerrainLineWidthOp, 4, 4, "val"},
1873	{"vertscale", 1, MapTerrainVertScaleOp, 4, 4, "val"},
1874	{"wireframe", 1, MapTerrainWireframeOp, 4, 4, "bool"},
1875	};
1876	static int nMapTerrainOps = NumCmdSpecs(mapTerrainOps);
1877
1878	static int
1879	MapTerrainOp(ClientData clientData, Tcl_Interp *interp, int objc,
1880	Tcl_Obj const objv)
1881	{
1882	Tcl_ObjCmdProc *proc;
1883
1884	proc = GetOpFromObj(interp, nMapTerrainOps, mapTerrainOps,
1885	CMDSPEC_ARG2, objc, objv, 0);
1886	if (proc == NULL) {
1887	return TCL_ERROR;
1888	}
1889	return (*proc) (clientData, interp, objc, objv);
1890	}
1891
1892	static int
1893	MapTimeOp(ClientData clientData, Tcl_Interp *interp, int objc,
1894	Tcl_Obj const objv)
1895	{
1896	osgEarth::DateTime now;
1897	int year, month, day;
1898	double hours;
1899	year = now.year();
1900	month = now.month();
1901	day = now.day();
1902	hours = now.hours();
1903	if (objc > 2) {
1904	if (Tcl_GetDoubleFromObj(interp, objv[2], &hours) != TCL_OK) {
1905	return TCL_ERROR;
1906	}
1907	}
1908	if (objc > 3) {
1909	if (Tcl_GetIntFromObj(interp, objv[3], &day) != TCL_OK) {
1910	return TCL_ERROR;
1911	}
1912	}
1913	if (objc > 4) {
1914	if (Tcl_GetIntFromObj(interp, objv[4], &month) != TCL_OK) {
1915	return TCL_ERROR;
1916	}
1917	}
1918	if (objc > 5) {
1919	if (Tcl_GetIntFromObj(interp, objv[5], &year) != TCL_OK) {
1920	return TCL_ERROR;
1921	}
1922	}
1923
1924	g_renderer->setEphemerisTime(year, month, day, hours);
1925	return TCL_OK;
1926	}
1927
1928	static CmdSpec mapOps[] = {
1929	{"attrib", 1, MapAttributionOp, 3, 3, "string"},
1930	{"box", 1, MapBoxOp, 3, 0, "op ?params..."},
1931	{"coords", 1, MapCoordsOp, 4, 6, "token coords ?srs? ?verticalDatum?"},
1932	{"grid", 1, MapGraticuleOp, 3, 4, "bool ?type?"},
1933	{"layer", 2, MapLayerOp, 3, 0, "op ?params...?"},
1934	{"load", 2, MapLoadOp, 4, 5, "options"},
1935	{"pin", 2, MapPinOp, 3, 0, "op ?params...?"},
1936	{"posdisp", 2, MapPositionDisplayOp, 3, 5, "bool ?format? ?precision?"},
1937	{"reset", 1, MapResetOp, 6, 11, "type r g b ?profile xmin ymin xmax ymax?"},
1938	{"scalebar", 1, MapScaleBarOp, 3, 4, "bool ?units?"},
1939	{"setpos", 1, MapSetPositionOp, 2, 4, "x y"},
1940	{"terrain", 1, MapTerrainOp, 3, 0, "op ?params...?"},
1941	{"time", 1, MapTimeOp, 2, 6, "?hours? ?day? ?month? ?year?"},
1942	};
1943	static int nMapOps = NumCmdSpecs(mapOps);
1944
1945	static int
1946	MapCmd(ClientData clientData, Tcl_Interp *interp, int objc,
1947	Tcl_Obj const objv)
1948	{
1949	Tcl_ObjCmdProc *proc;
1950
1951	proc = GetOpFromObj(interp, nMapOps, mapOps,
1952	CMDSPEC_ARG1, objc, objv, 0);
1953	if (proc == NULL) {
1954	return TCL_ERROR;
1955	}
1956	return (*proc) (clientData, interp, objc, objv);
1957	}
1958
1959	static int
1960	MouseClickOp(ClientData clientData, Tcl_Interp *interp, int objc,
1961	Tcl_Obj const objv)
1962	{
1963	int button;
1964	double x, y;
1965
1966	if (Tcl_GetIntFromObj(interp, objv[2], &button) != TCL_OK) {
1967	return TCL_ERROR;
1968	}
1969	if (Tcl_GetDoubleFromObj(interp, objv[3], &x) != TCL_OK \|\|
1970	Tcl_GetDoubleFromObj(interp, objv[4], &y) != TCL_OK) {
1971	return TCL_ERROR;
1972	}
1973
1974	g_renderer->mouseClick(button, x, y);
1975	return TCL_OK;
1976	}
1977
1978	static int
1979	MouseDoubleClickOp(ClientData clientData, Tcl_Interp *interp, int objc,
1980	Tcl_Obj const objv)
1981	{
1982	int button;
1983	double x, y;
1984
1985	if (Tcl_GetIntFromObj(interp, objv[2], &button) != TCL_OK) {
1986	return TCL_ERROR;
1987	}
1988	if (Tcl_GetDoubleFromObj(interp, objv[3], &x) != TCL_OK \|\|
1989	Tcl_GetDoubleFromObj(interp, objv[4], &y) != TCL_OK) {
1990	return TCL_ERROR;
1991	}
1992
1993	g_renderer->mouseDoubleClick(button, x, y);
1994	return TCL_OK;
1995	}
1996
1997	static int
1998	MouseDragOp(ClientData clientData, Tcl_Interp *interp, int objc,
1999	Tcl_Obj const objv)
2000	{
2001	int button;
2002	double x, y;
2003
2004	if (Tcl_GetIntFromObj(interp, objv[2], &button) != TCL_OK) {
2005	return TCL_ERROR;
2006	}
2007	if (Tcl_GetDoubleFromObj(interp, objv[3], &x) != TCL_OK \|\|
2008	Tcl_GetDoubleFromObj(interp, objv[4], &y) != TCL_OK) {
2009	return TCL_ERROR;
2010	}
2011
2012	g_renderer->mouseDrag(button, x, y);
2013	return TCL_OK;
2014	}
2015
2016	static int
2017	MouseMotionOp(ClientData clientData, Tcl_Interp *interp, int objc,
2018	Tcl_Obj const objv)
2019	{
2020	double x, y;
2021
2022	if (Tcl_GetDoubleFromObj(interp, objv[2], &x) != TCL_OK \|\|
2023	Tcl_GetDoubleFromObj(interp, objv[3], &y) != TCL_OK) {
2024	return TCL_ERROR;
2025	}
2026
2027	g_renderer->mouseMotion(x, y);
2028	return TCL_OK;
2029	}
2030
2031	static int
2032	MouseReleaseOp(ClientData clientData, Tcl_Interp *interp, int objc,
2033	Tcl_Obj const objv)
2034	{
2035	int button;
2036	double x, y;
2037
2038	if (Tcl_GetIntFromObj(interp, objv[2], &button) != TCL_OK) {
2039	return TCL_ERROR;
2040	}
2041	if (Tcl_GetDoubleFromObj(interp, objv[3], &x) != TCL_OK \|\|
2042	Tcl_GetDoubleFromObj(interp, objv[4], &y) != TCL_OK) {
2043	return TCL_ERROR;
2044	}
2045
2046	g_renderer->mouseRelease(button, x, y);
2047	return TCL_OK;
2048	}
2049
2050	static int
2051	MouseScrollOp(ClientData clientData, Tcl_Interp *interp, int objc,
2052	Tcl_Obj const objv)
2053	{
2054	int direction;
2055
2056	if (Tcl_GetIntFromObj(interp, objv[2], &direction) != TCL_OK) {
2057	return TCL_ERROR;
2058	}
2059
2060	g_renderer->mouseScroll(direction);
2061	return TCL_OK;
2062	}
2063
2064	static CmdSpec mouseOps[] = {
2065	{"click", 1, MouseClickOp, 5, 5, "button x y"},
2066	{"dblclick", 2, MouseDoubleClickOp, 5, 5, "button x y"},
2067	{"drag", 2, MouseDragOp, 5, 5, "button x y"},
2068	{"motion", 1, MouseMotionOp, 4, 4, "x y"},
2069	{"release", 1, MouseReleaseOp, 5, 5, "button x y"},
2070	{"scroll", 1, MouseScrollOp, 3, 3, "direction"},
2071	};
2072	static int nMouseOps = NumCmdSpecs(mouseOps);
2073
2074	static int
2075	MouseCmd(ClientData clientData, Tcl_Interp *interp, int objc,
2076	Tcl_Obj const objv)
2077	{
2078	Tcl_ObjCmdProc *proc;
2079
2080	proc = GetOpFromObj(interp, nMouseOps, mouseOps,
2081	CMDSPEC_ARG1, objc, objv, 0);
2082	if (proc == NULL) {
2083	return TCL_ERROR;
2084	}
2085	return (*proc) (clientData, interp, objc, objv);
2086	}
2087
2088	static int
2089	RendererRenderOp(ClientData clientData, Tcl_Interp *interp, int objc,
2090	Tcl_Obj const objv)
2091	{
2092	g_renderer->eventuallyRender();
2093	return TCL_OK;
2094	}
2095
2096	static CmdSpec rendererOps[] = {
2097	{"render", 1, RendererRenderOp, 2, 2, ""},
2098	};
2099	static int nRendererOps = NumCmdSpecs(rendererOps);
2100
2101	static int
2102	RendererCmd(ClientData clientData, Tcl_Interp *interp, int objc,
2103	Tcl_Obj const objv)
2104	{
2105	Tcl_ObjCmdProc *proc;
2106
2107	proc = GetOpFromObj(interp, nRendererOps, rendererOps,
2108	CMDSPEC_ARG1, objc, objv, 0);
2109	if (proc == NULL) {
2110	return TCL_ERROR;
2111	}
2112	return (*proc) (clientData, interp, objc, objv);
2113	}
2114
2115	static int
2116	ScreenBgColorOp(ClientData clientData, Tcl_Interp *interp, int objc,
2117	Tcl_Obj const objv)
2118	{
2119	float color[3];
2120
2121	if (GetFloatFromObj(interp, objv[2], &color[0]) != TCL_OK \|\|
2122	GetFloatFromObj(interp, objv[3], &color[1]) != TCL_OK \|\|
2123	GetFloatFromObj(interp, objv[4], &color[2]) != TCL_OK) {
2124	return TCL_ERROR;
2125	}
2126
2127	g_renderer->setBackgroundColor(color);
2128	return TCL_OK;
2129	}
2130
2131	static int
2132	ScreenCoordsOp(ClientData clientData, Tcl_Interp *interp, int objc,
2133	Tcl_Obj const objv)
2134	{
2135	int tokenLength;
2136	const char *token = Tcl_GetStringFromObj(objv[2], &tokenLength);
2137	int numCoords;
2138	Tcl_Obj **coords;
2139	if (Tcl_ListObjGetElements(interp, objv[3], &numCoords, &coords) != TCL_OK) {
2140	return TCL_ERROR;
2141	}
2142	if (numCoords == 0) {
2143	Tcl_AppendResult(interp, "no x,y,z coordinates in list", (char *)NULL);
2144	return TCL_ERROR;
2145	}
2146	if (numCoords % 3 != 0) {
2147	Tcl_AppendResult(interp, "invalid number of coordinates in list",
2148	(char *)NULL);
2149	return TCL_ERROR;
2150	}
2151
2152	const osgEarth::SpatialReference *srs = NULL;
2153	if (objc < 5) {
2154	srs = g_renderer->getMapSRS();
2155	if (srs == NULL) {
2156	Tcl_AppendResult(interp, "Could not determine map SRS", (char*)NULL);
2157	return TCL_ERROR;
2158	}
2159	} else {
2160	std::string srsInit(Tcl_GetString(objv[4]));
2161	std::string verticalDatum;
2162	if (objc > 5) {
2163	verticalDatum = Tcl_GetString(objv[5]);
2164	}
2165	srs = osgEarth::SpatialReference::get(srsInit, verticalDatum);
2166	if (srs == NULL) {
2167	Tcl_AppendResult(interp, "bad SRS \"", srsInit.c_str(), "\"", (char*)NULL);
2168	return TCL_ERROR;
2169	}
2170	}
2171	Tcl_Obj listObjPtr = Tcl_NewListObj(0, (Tcl_Obj *)NULL);
2172	std::vector<osg::Vec3d> coordVec;
2173	for (int i = 0; i < numCoords; i += 3) {
2174	double x, y, z;
2175	if (Tcl_GetDoubleFromObj(interp, coords[i], &x) != TCL_OK \|\|
2176	Tcl_GetDoubleFromObj(interp, coords[i+1], &y) != TCL_OK \|\|
2177	Tcl_GetDoubleFromObj(interp, coords[i+2], &z) != TCL_OK) {
2178	return TCL_ERROR;
2179	}
2180	// ALTMODE_RELATIVE is height above terrain, ALTMODE_ABSOLUTE means
2181	// relative to the vertical datum
2182	osgEarth::GeoPoint mapPoint(srs, x, y, z, osgEarth::ALTMODE_ABSOLUTE);
2183	osg::Vec3d world;
2184	if (g_renderer->getWorldCoords(mapPoint, &world)) {
2185	coordVec.push_back(world);
2186	} else {
2187	coordVec.push_back(osg::Vec3d(std::numeric_limits<double>::quiet_NaN(),
2188	std::numeric_limits<double>::quiet_NaN(),
2189	std::numeric_limits<double>::quiet_NaN()));
2190	}
2191	}
2192	g_renderer->worldToScreen(coordVec);
2193	for (std::vector<osg::Vec3d>::iterator itr = coordVec.begin();
2194	itr != coordVec.end(); ++itr) {
2195	Tcl_Obj *objPtr = Tcl_NewDoubleObj(itr->x());
2196	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
2197	objPtr = Tcl_NewDoubleObj(itr->y());
2198	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
2199	objPtr = Tcl_NewDoubleObj(itr->z());
2200	Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
2201	}
2202	// send coords to client
2203	int listLength;
2204	const char *string = Tcl_GetStringFromObj(listObjPtr, &listLength);
2205	size_t length = listLength + tokenLength + 22;
2206	char *mesg = new char[length];
2207	length = snprintf(mesg, length, "nv>screen coords %s {%s}\n", token, string);
2208	Tcl_DecrRefCount(listObjPtr);
2209	queueResponse(mesg, length, Response::VOLATILE);
2210	delete [] mesg;
2211	return TCL_OK;
2212	}
2213
2214	static int
2215	ScreenSizeOp(ClientData clientData, Tcl_Interp *interp, int objc,
2216	Tcl_Obj const objv)
2217	{
2218	int width, height;
2219
2220	if (Tcl_GetIntFromObj(interp, objv[2], &width) != TCL_OK \|\|
2221	Tcl_GetIntFromObj(interp, objv[3], &height) != TCL_OK) {
2222	return TCL_ERROR;
2223	}
2224
2225	g_renderer->setWindowSize(width, height);
2226	return TCL_OK;
2227	}
2228
2229	static CmdSpec screenOps[] = {
2230	{"bgcolor", 1, ScreenBgColorOp, 5, 5, "r g b"},
2231	{"coords", 1, ScreenCoordsOp, 4, 6, "token coords ?srs? ?verticalDatum?"},
2232	{"size", 1, ScreenSizeOp, 4, 4, "width height"}
2233	};
2234	static int nScreenOps = NumCmdSpecs(screenOps);
2235
2236	static int
2237	ScreenCmd(ClientData clientData, Tcl_Interp *interp, int objc,
2238	Tcl_Obj const objv)
2239	{
2240	Tcl_ObjCmdProc *proc;
2241
2242	proc = GetOpFromObj(interp, nScreenOps, screenOps,
2243	CMDSPEC_ARG1, objc, objv, 0);
2244	if (proc == NULL) {
2245	return TCL_ERROR;
2246	}
2247	return (*proc) (clientData, interp, objc, objv);
2248	}
2249
2250	#ifdef USE_READ_THREAD
2251	int
2252	GeoVis::queueCommands(Tcl_Interp *interp,
2253	ClientData clientData,
2254	ReadBuffer *inBufPtr)
2255	{
2256	Tcl_DString commandString;
2257	Tcl_DStringInit(&commandString);
2258	fd_set readFds;
2259
2260	FD_ZERO(&readFds);
2261	FD_SET(inBufPtr->file(), &readFds);
2262	while (inBufPtr->isLineAvailable() \|\|
2263	(select(inBufPtr->file()+1, &readFds, NULL, NULL, NULL) > 0)) {
2264	size_t numBytes;
2265	unsigned char *buffer;
2266
2267	/* A short read is treated as an error here because we assume that we
2268	* will always get commands line by line. */
2269	if (inBufPtr->getLine(&numBytes, &buffer) != ReadBuffer::OK) {
2270	/* Terminate the server if we can't communicate with the client
2271	* anymore. */
2272	if (inBufPtr->status() == ReadBuffer::ENDFILE) {
2273	TRACE("Exiting server on EOF from client");
2274	return -1;
2275	} else {
2276	ERROR("Exiting server, failed to read from client: %s",
2277	strerror(errno));
2278	return -1;
2279	}
2280	}
2281	Tcl_DStringAppend(&commandString, (char *)buffer, numBytes);
2282	if (Tcl_CommandComplete(Tcl_DStringValue(&commandString))) {
2283	// Add to queue
2284	Command *command = new Command(Command::COMMAND);
2285	command->setMessage((unsigned char *)Tcl_DStringValue(&commandString),
2286	Tcl_DStringLength(&commandString), Command::VOLATILE);
2287	g_inQueue->enqueue(command);
2288	Tcl_DStringSetLength(&commandString, 0);
2289	}
2290	FD_SET(inBufPtr->file(), &readFds);
2291	}
2292
2293	return 1;
2294	}
2295	#endif
2296
2297	/**
2298	* \brief Execute commands from client in Tcl interpreter
2299	*
2300	* In this threaded model, the select call is for event compression. We
2301	* want to execute render server commands as long as they keep coming.
2302	* This lets us execute a stream of many commands but render once. This
2303	* benefits camera movements, screen resizing, and opacity changes
2304	* (using a slider on the client). The down side is you don't render
2305	* until there's a lull in the command stream. If the client needs an
2306	* image, it can issue an "imgflush" command. That breaks us out of the
2307	* read loop.
2308	*/
2309	int
2310	GeoVis::processCommands(Tcl_Interp *interp,
2311	ClientData clientData,
2312	ReadBuffer *inBufPtr,
2313	int fdOut,
2314	long timeout)
2315	{
2316	int ret = 1;
2317	int status = TCL_OK;
2318
2319	Tcl_DString command;
2320	Tcl_DStringInit(&command);
2321	fd_set readFds;
2322	struct timeval tv, *tvPtr;
2323
2324	FD_ZERO(&readFds);
2325	FD_SET(inBufPtr->file(), &readFds);
2326	tvPtr = NULL; /* Wait for the first read. This is so
2327	* that we don't spin when no data is
2328	* available. */
2329	if (timeout >= 0L) {
2330	tv.tv_sec = 0L;
2331	tv.tv_usec = timeout;
2332	tvPtr = &tv;
2333	} else {
2334	TRACE("Blocking on select()");
2335	}
2336	while (inBufPtr->isLineAvailable() \|\|
2337	(ret = select(inBufPtr->file()+1, &readFds, NULL, NULL, tvPtr)) > 0) {
2338	size_t numBytes;
2339	unsigned char *buffer;
2340
2341	/* A short read is treated as an error here because we assume that we
2342	* will always get commands line by line. */
2343	if (inBufPtr->getLine(&numBytes, &buffer) != ReadBuffer::OK) {
2344	/* Terminate the server if we can't communicate with the client
2345	* anymore. */
2346	if (inBufPtr->status() == ReadBuffer::ENDFILE) {
2347	TRACE("Exiting server on EOF from client");
2348	return -1;
2349	} else {
2350	ERROR("Exiting server, failed to read from client: %s",
2351	strerror(errno));
2352	return -1;
2353	}
2354	}
2355	Tcl_DStringAppend(&command, (char *)buffer, numBytes);
2356	if (Tcl_CommandComplete(Tcl_DStringValue(&command))) {
2357	struct timeval start, finish;
2358	gettimeofday(&start, NULL);
2359	g_stats.nCommands++;
2360	status = ExecuteCommand(interp, &command);
2361	gettimeofday(&finish, NULL);
2362	g_stats.cmdTime += (MSECS_ELAPSED(start, finish) / 1.0e+3);
2363	if (status == TCL_BREAK) {
2364	return 2; /* This was caused by a "imgflush"
2365	* command. Break out of the read loop
2366	* and allow a new image to be
2367	* rendered. */
2368	} else { //if (status != TCL_OK) {
2369	ret = 0;
2370	if (handleError(interp, clientData, status, fdOut) < 0) {
2371	return -1;
2372	}
2373	}
2374	if (status == TCL_OK) {
2375	ret = 3;
2376	}
2377	}
2378
2379	tv.tv_sec = tv.tv_usec = 0L; /* On successive reads, we break out
2380	* if no data is available. */
2381	FD_SET(inBufPtr->file(), &readFds);
2382	tvPtr = &tv;
2383	}
2384
2385	return ret;
2386	}
2387
2388	/**
2389	* \brief Send error message to client socket
2390	*/
2391	int
2392	GeoVis::handleError(Tcl_Interp *interp,
2393	ClientData clientData,
2394	int status, int fdOut)
2395	{
2396	const char *string;
2397	int nBytes;
2398
2399	if (status != TCL_OK) {
2400	string = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY);
2401	nBytes = strlen(string);
2402	if (nBytes > 0) {
2403	TRACE("status=%d errorInfo=(%s)", status, string);
2404
2405	std::ostringstream oss;
2406	oss << "nv>viserror -type internal_error -token " << g_stats.nCommands << " -bytes " << nBytes << "\n" << string;
2407	std::string ostr = oss.str();
2408	nBytes = ostr.length();
2409
2410	if (queueResponse(ostr.c_str(), nBytes, Response::VOLATILE, Response::ERROR) < 0) {
2411	return -1;
2412	}
2413	}
2414	}
2415
2416	std::string msg = getUserMessages();
2417	nBytes = msg.length();
2418	if (nBytes > 0) {
2419	string = msg.c_str();
2420	TRACE("userError=(%s)", string);
2421
2422	std::ostringstream oss;
2423	oss << "nv>viserror -type error -token " << g_stats.nCommands << " -bytes " << nBytes << "\n" << string;
2424	std::string ostr = oss.str();
2425	nBytes = ostr.length();
2426
2427	if (queueResponse(ostr.c_str(), nBytes, Response::VOLATILE, Response::ERROR) < 0) {
2428	return -1;
2429	}
2430
2431	clearUserMessages();
2432	}
2433
2434	return 0;
2435	}
2436
2437	/**
2438	* \brief Create Tcl interpreter and add commands
2439	*
2440	* \return The initialized Tcl interpreter
2441	*/
2442	void
2443	GeoVis::initTcl(Tcl_Interp *interp, ClientData clientData)
2444	{
2445	Tcl_MakeSafe(interp);
2446	Tcl_CreateObjCommand(interp, "camera", CameraCmd, clientData, NULL);
2447	Tcl_CreateObjCommand(interp, "clientinfo", ClientInfoCmd, clientData, NULL);
2448	Tcl_CreateObjCommand(interp, "colormap", ColorMapCmd, clientData, NULL);
2449	Tcl_CreateObjCommand(interp, "file", FileCmd, clientData, NULL);
2450	Tcl_CreateObjCommand(interp, "imgflush", ImageFlushCmd, clientData, NULL);
2451	Tcl_CreateObjCommand(interp, "key", KeyCmd, clientData, NULL);
2452	Tcl_CreateObjCommand(interp, "legend", LegendCmd, clientData, NULL);
2453	Tcl_CreateObjCommand(interp, "map", MapCmd, clientData, NULL);
2454	Tcl_CreateObjCommand(interp, "mouse", MouseCmd, clientData, NULL);
2455	Tcl_CreateObjCommand(interp, "renderer", RendererCmd, clientData, NULL);
2456	Tcl_CreateObjCommand(interp, "screen", ScreenCmd, clientData, NULL);
2457	}
2458
2459	/**
2460	* \brief Delete Tcl commands and interpreter
2461	*/
2462	void GeoVis::exitTcl(Tcl_Interp *interp)
2463	{
2464	Tcl_DeleteCommand(interp, "camera");
2465	Tcl_DeleteCommand(interp, "clientinfo");
2466	Tcl_DeleteCommand(interp, "colormap");
2467	Tcl_DeleteCommand(interp, "file");
2468	Tcl_DeleteCommand(interp, "imgflush");
2469	Tcl_DeleteCommand(interp, "key");
2470	Tcl_DeleteCommand(interp, "legend");
2471	Tcl_DeleteCommand(interp, "map");
2472	Tcl_DeleteCommand(interp, "mouse");
2473	Tcl_DeleteCommand(interp, "renderer");
2474	Tcl_DeleteCommand(interp, "screen");
2475
2476	Tcl_DeleteInterp(interp);
2477	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: