Browse Source
Didn't notice the original R port had lat/lon mixed up
master
No known key found for this signature in database
GPG Key ID: 1D7529BE14E2BBA9
2 changed files with
26 additions and
26 deletions
-
README.Rmd
-
src/terminator-main.cpp
|
|
@ -67,7 +67,7 @@ term_seq <- terminator_lat_lon() |
|
|
|
|
|
|
|
chart <- ggplot(term_seq, aes(frame = frame)) + |
|
|
|
borders("world", colour = "gray90", fill = "gray85") + |
|
|
|
geom_ribbon(aes(lat, ymax = lon), ymin = 90, alpha = 0.2) + |
|
|
|
geom_ribbon(aes(lon, ymax = lat), ymin = 90, alpha = 0.2) + |
|
|
|
coord_equal(xlim = c(-180, 190), ylim = c(-58, 85), expand = 0) + |
|
|
|
ggthemes::theme_map() |
|
|
|
|
|
|
|
|
|
@ -114,8 +114,8 @@ DataFrame terminator(int time, double from = -180, double to = 180, double by = |
|
|
|
|
|
|
|
for (double i=from; i<=to; i+=by) { |
|
|
|
n += 1; |
|
|
|
out_lat.push_back(i); |
|
|
|
out_lon.push_back( |
|
|
|
out_lon.push_back(i); |
|
|
|
out_lat.push_back( |
|
|
|
longitude( |
|
|
|
hour_angle(i, sunEqPos, gst), |
|
|
|
sunEqPos |
|
|
|