1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
/* Convert radian argument to DMS ascii format */
/*
** Copyright (c) 2003, 2006 Gerald I. Evenden
*/
/*
** Permission is hereby granted, free of charge, to any person obtaining
** a copy of this software and associated documentation files (the
** "Software"), to deal in the Software without restriction, including
** without limitation the rights to use, copy, modify, merge, publish,
** distribute, sublicense, and/or sell copies of the Software, and to
** permit persons to whom the Software is furnished to do so, subject to
** the following conditions:
**
** The above copyright notice and this permission notice shall be
** included in all copies or substantial portions of the Software.
**
** THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
** EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
** IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
** CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
** TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
** SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
static const char RCS_ID[] = "Id";
#include <lib_proj.h>
#include <stdio.h>
#include <string.h>
/*
** RES is fractional second figures
** RES60 = 60 * RES
** CONV = 180 * 3600 * RES / PI (radians to RES seconds)
*/
static double
RES = 1000.,
RES60 = 60000.,
CONV = 206264806.24709635515796003417;
static char
format[50] = "%dd%d'%.3f\"%c";
static int
dolong = 0;
void
proj_set_rtodms(int fract, int con_w) {
int i;
if (fract >= 0 && fract < 9 ) {
RES = 1.;
/* following not very elegant, but used infrequently */
for (i = 0; i < fract; ++i)
RES *= 10.;
RES60 = RES * 60.;
CONV = 180. * 3600. * RES / PI;
if (! con_w)
(void)sprintf(format,"%%dd%%d'%%.%df\"%%c", fract);
else
(void)sprintf(format,"%%dd%%02d'%%0%d.%df\"%%c",
fract+2+(fract?1:0), fract);
dolong = con_w;
}
}
char *
proj_rtodms(char *s, double r, const char * csign) {
int deg, min, sign;
char *ss = s;
double sec;
if (r < 0) {
r = -r;
if (!csign) {
*ss++ = '-';
sign = 0;
} else
sign = csign[1];
} else
sign = csign ? csign[0] : 0;
r = floor(r * CONV + .5);
sec = fmod(r / RES, 60.);
r = floor(r / RES60);
min = (int)fmod(r, 60.);
deg = (int)(r / 60.);
if (dolong)
(void)sprintf(ss,format,deg,min,sec,sign);
else if (sec) {
char *p, *q;
(void)sprintf(ss,format,deg,min,sec,sign);
for (q = p = ss + strlen(ss) - (sign ? 3 : 2); *p == '0'; --p) ;
if (*p != '.')
++p;
if (++q != p)
(void)strcpy(p, q);
} else if (min)
(void)sprintf(ss,"%dd%d'%c",deg,min,sign);
else
(void)sprintf(ss,"%dd%c",deg, sign);
return s;
}
/*
** Log: proj_rtodms.c
** Revision 3.1 2006/01/11 01:38:18 gie
** Initial
**
*/
|
