![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to globe.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / src / lib / pot|
Return to globe.c CVS log | Up to [Research Unix] / researchv9 / jerq / src / lib / pot |
1.1 root 1: #include <CC/jerq.h>
2: #include "pot.pri"
3:
4: extern void circle(Bitmap *, Point, short, int);
5: extern void disc(Bitmap *, Point, short, int);
6:
7: #define P_H_STRING 0x8000
8: #define P_H_VALUE 0x4000
9:
10: Globepot.Globepot(Rectangle rect, short fl, short lat, short lon) : (rect, fl, lat)
11: {
12: w = lon;
13: ctop();
14: }
15:
16: Globepot.Globepot(Rectangle rect, short fl, short lat, short lon, Point sp, char *s) : (rect, fl, lat)
17: {
18: w = lon;
19: ctop();
20: flags |= P_H_STRING;
21: stroffset = sp;
22: str = s;
23: }
24:
25: Globepot.Globepot(Rectangle rect, short fl, short lat, short lon, Point vp) : (rect, fl, lat)
26: {
27: w = lon;
28: ctop();
29: flags |= P_H_VALUE;
30: valoffset = vp;
31: }
32:
33: Globepot.Globepot(Rectangle rect, short fl, short lat, short lon, Point vp, Point sp, char *s) : (rect, fl, lat)
34: {
35: w = lon;
36: ctop();
37: flags |= P_H_STRING|P_H_VALUE;
38: valoffset = vp;
39: stroffset = sp;
40: str = s;
41: }
42:
43: void
44: Globepot.resize(Rectangle rect)
45: {
46: r = rect;
47: calc();
48: ctop();
49: draw();
50: }
51:
52: void
53: Globepot.calc()
54: {
55: radius = min(r.c.x-r.o.x, r.c.y-r.o.y)/2;
56: offset = max(1, radius/4);
57: center = div(add(r.o, r.c), 2);
58: }
59:
60: #define blob (*(front? &disc:&circle))(&display, pt, 6, F_XOR)
61:
62: void
63: Globepot.draw()
64: {
65: Point a, b;
66: long black = 0xFFFFFFFF, dashed = 0xF0F0F0F0;
67:
68: circle(&display, center, radius, F_OR);
69: a = add(center, Pt(0, -radius));
70: b = add(center, Pt(0, radius));
71: elarc(&display, center, offset, radius, a, b, F_OR, black);
72: elarc(&display, center, offset, radius, b, a, F_OR, dashed);
73: a = add(center, Pt(-radius, 0));
74: b = add(center, Pt(radius, 0));
75: elarc(&display, center, radius, offset, a, b, F_OR, black);
76: elarc(&display, center, radius, offset, b, a, F_OR, dashed);
77: blob;
78: if(flags&P_H_STRING) string(&defont, str, &display, r.o+stroffset, F_OR);
79: if(flags&P_H_VALUE) prvals();
80: }
81:
82: void
83: Globepot.mod(int but)
84: {
85: Point p, lp;
86: int d, outside = 0;
87:
88: while(button(but))
89: {
90: p = mouse.xy-center;
91: d = max(1, sqrt(p.x*(long)p.x + p.y*(long)p.y));
92: if(outside)
93: {
94: if(d < radius-20)
95: outside = 0;
96: }
97: else
98: {
99: if(d > radius+20)
100: {
101: outside = 1;
102: blob;
103: front = !front;
104: blob;
105: }
106: }
107: if(d > radius)
108: {
109: p.x = muldiv(p.x, radius, d);
110: p.y = muldiv(p.y, radius, d);
111: }
112: p = add(p, center);
113: if(p != pt)
114: {
115: blob;
116: pt = p;
117: blob;
118: if(flags&P_H_VALUE) prvals();
119: ptoc();
120: if(flags&P_H_VALUE) prvals();
121: nap(2);
122: }
123: }
124: outside = 0;
125: }
126:
127: void
128: Globepot.setval(short lat, short lon)
129: {
130: blob;
131: if(flags&P_H_VALUE) prvals();
132: val = lat;
133: w = lon;
134: ctop();
135: if(flags&P_H_VALUE) prvals();
136: blob;
137: }
138:
139: #define FUDGE 12
140:
141: void
142: Globepot.ptoc()
143: {
144: Point p = sub(pt, center);
145: int q, sx, sy, fudge;
146:
147: q = sx = sqrt(radius*(long)radius - p.x*(long)p.x);
148: sy = sqrt(radius*(long)radius - p.y*(long)p.y);
149: fudge = muldiv(FUDGE, sy, radius);
150: if(front == 0) q = -q;
151: w = (450 - atan2(p.x, q) + fudge)%360;
152: fudge = muldiv(FUDGE, sx, radius);
153: val = atan2(sy, p.y);
154: val = (val > 90)? (360-val):-val;
155: if(front)
156: if(val+fudge > 90)
157: val = 180-val-fudge;
158: else
159: val += fudge;
160: else
161: if(val-fudge < -90)
162: val = -180-val+fudge;
163: else
164: val -= fudge;
165: }
166:
167: void
168: Globepot.ctop()
169: {
170: Point p;
171: int a, h, fudge;
172:
173: front = (w <= 90+FUDGE) || (w > 270+FUDGE);
174: calc();
175: fudge = FUDGE/2;
176: if(front)
177: if(val-fudge < -90)
178: a = -180-val+fudge;
179: else
180: a = val-fudge;
181: else
182: if(val+fudge > 90)
183: a = 180-val-fudge;
184: else
185: a = val+fudge;
186: a = (a < 0)? -a:(360-a);
187: p.y = muldiv(sin(a), radius, 1024);
188: h = muldiv(radius, cos(a), 1024);
189: p.x = muldiv(cos((450-w+fudge)%360), h, 1024);
190:
191: #define delta(z, rad) muldiv(FUDGE, sqrt(rad*(long)rad-z*(long)z), rad)
192:
193: p.x -= delta(p.y, radius);
194: p.y -= delta(p.x, h);
195: pt = add(center, p);
196: }
197:
198: void
199: Globepot.prvals()
200: {
201: char buf[128];
202:
203: sprintf(buf, "lat=%d long=%d", val, w);
204: string(&defont, buf, &display, add(r.o, valoffset), F_XOR);
205: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.