From 68f1153940094c6e1451d2de873eb0b1c074254a Mon Sep 17 00:00:00 2001
From: Frank Warmerdam <warmerdam@pobox.com>
Date: Sat, 14 Dec 2002 20:14:00 +0000
Subject: added pj_is_geocent, added +pm support to pj_get_def

git-svn-id: http://svn.osgeo.org/metacrs/proj/trunk@1052 4e78687f-474d-0410-85f9-8d5e500ac6b2
---
 src/pj_utils.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'src')

diff --git a/src/pj_utils.c b/src/pj_utils.c
index d0fed2b9..a3293b61 100644
--- a/src/pj_utils.c
+++ b/src/pj_utils.c
@@ -29,6 +29,9 @@
  ******************************************************************************
  *
  * $Log$
+ * Revision 1.3  2002/12/14 20:14:00  warmerda
+ * added pj_is_geocent, added +pm support to pj_get_def
+ *
  * Revision 1.2  2002/04/30 17:01:51  warmerda
  * Removed printf() statement.
  *
@@ -56,6 +59,18 @@ int pj_is_latlong( PJ *pj )
     return pj == NULL || pj->is_latlong;
 }
 
+/************************************************************************/
+/*                           pj_is_geocent()                            */
+/*                                                                      */
+/*      Returns TRUE if this coordinate system object is geocentric.    */
+/************************************************************************/
+
+int pj_is_geocent( PJ *pj )
+
+{
+    return pj != NULL && pj->is_geocent;
+}
+
 /************************************************************************/
 /*                        pj_latlong_from_proj()                        */
 /*                                                                      */
@@ -147,6 +162,11 @@ PJ *pj_latlong_from_proj( PJ *pj_in )
         sprintf( defn+strlen(defn), " +R_lat_g=%s", 
                  pj_param(pj_in->params,"sR_lat_g").s );
 
+    /* copy over prime meridian */
+    if( pj_param(pj_in->params, "tpm").i )
+        sprintf( defn+strlen(defn), " +pm=%s", 
+                 pj_param(pj_in->params,"spm").s );
+
     return pj_init_plus( defn );
 }
 
-- 
cgit v1.2.3