OpenCPN Partial API docs
Loading...
Searching...
No Matches
GribRequestDialog.cpp
Go to the documentation of this file.
1/***************************************************************************
2 * Copyright (C) 2010 by David S. Register *
3 * *
4 * This program is free software; you can redistribute it and/or modify *
5 * it under the terms of the GNU General Public License as published by *
6 * the Free Software Foundation; either version 2 of the License, or *
7 * (at your option) any later version. *
8 * *
9 * This program is distributed in the hope that it will be useful, *
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
12 * GNU General Public License for more details. *
13 * *
14 * You should have received a copy of the GNU General Public License *
15 * along with this program; if not, write to the *
16 * Free Software Foundation, Inc., *
17 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
18 ***************************************************************************/
23#include "wx/wx.h"
24#include <wx/utils.h>
25#include <sstream>
26#include "email.h"
27#include "XyGribModelDef.h"
28
29#include "pi_gl.h"
30
31#include "GribRequestDialog.h"
32#include "GribOverlayFactory.h"
33#include <wx/wfstream.h>
34#include "grib_pi.h"
35
36#include <unordered_map>
37
38#define RESOLUTIONS 4
39
40enum { SAILDOCS, ZYGRIB }; // grib providers
41enum { GFS, COAMPS, RTOFS, HRRR, ICON, ECMWF }; // forecast models
42
43wxString toMailFormat(int NEflag,
44 int a) // convert position to mail necessary format
45{
46 char c = NEflag == 1 ? a < 0 ? 'S' : 'N' : a < 0 ? 'W' : 'E';
47 wxString s;
48 s.Printf(_T ( "%01d%c" ), abs(a), c);
49 return s;
50}
51
52extern int m_SavedZoneSelMode;
53extern int m_ZoneSelMode;
54
55//----------------------------------------------------------------------------------------------------------
56// GRIB Request Implementation
57//----------------------------------------------------------------------------------------------------------
58GribRequestSetting::GribRequestSetting(GRIBUICtrlBar &parent)
59 : GribRequestSettingBase(&parent), m_parent(parent) {
60 m_VpFocus = nullptr;
61 m_VpMouse = nullptr;
62 m_oDC = nullptr;
63 m_boundingBoxCanvasIndex = -1;
64
65 m_displayScale = 1.0;
66#if defined(__WXOSX__) || defined(__WXGTK3__)
67 // Support scaled HDPI displays.
68 m_displayScale = GetContentScaleFactor();
69#endif
70
71 InitRequestConfig();
72 m_connected = false;
73 m_downloading = false;
74 m_bTransferSuccess = true;
75 m_downloadType = GribDownloadType::NONE;
76
77 auto bg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW)
78 .GetAsString(wxC2S_HTML_SYNTAX);
79 auto fg = wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOWTEXT)
80 .GetAsString(wxC2S_HTML_SYNTAX);
81 m_htmlWinWorld->SetBorders(10);
82 m_htmlWinWorld->SetPage(
83 "<html><body bgcolor="
84 "" +
85 bg +
86 ""
87 "><font color="
88 "" +
89 fg +
90 ""
91 ">" +
92 _("<h1>OpenCPN ECMWF forecast</h1>"
93 "<p>Free service based on ECMWF Open Data published under the terms of "
94 "Creative Commons CC-4.0-BY license</p>"
95 "<p>The IFS model GRIB files include information about surface "
96 "temperature, "
97 "atmospheric pressure, wind strength, wind direction, wave height and "
98 "direction for the whole world on a 0.25 degree resolution "
99 "grid with 3 hour "
100 "step in the first 144 hours and 6 hour step up to 10 days.</p>"
101 "The AIFS model contains data for wind, pressure and temperature on a "
102 "0.25 degree grid with 6 hour step for up to 15 days"
103 "<p>The data is updated twice a day as soon as the 00z and 12z model "
104 "runs finish and the "
105 "results are published by ECMWF, which usually means new forecast data "
106 "is available shortly after 8AM and 8PM UTC.</p>"
107 "<p>The grib downloaded covers the area of the primary chart "
108 "canvas.</p>"
109 "<p>The service is provided on best effort basis and comes with no "
110 "guarantees. The server is hosted by a volunteer and the service is "
111 "provided free of charge and without accepting any liability "
112 "whatsoever for its continuous availability, or for any loss or damage "
113 "arising from its use. If you find the service useful, please "
114 "consider making a donation to the OpenCPN project.</p>"
115 "<p>This service is based on data and products of the European Centre "
116 "for Medium-Range Weather Forecasts (ECMWF).</p>"
117 "<p>Source: www.ecmwf.int</p>"
118 "<p>Disclaimer: ECMWF does not accept any liability whatsoever for any "
119 "error or omission in the data, their availability, or for any loss or "
120 "damage arising from their use.</p>"
121 "</font></body></html>"));
122 m_htmlInfoWin->SetBorders(10);
123 m_htmlInfoWin->SetPage(
124 "<html><body bgcolor="
125 "" +
126 bg +
127 ""
128 "><font color="
129 "" +
130 fg +
131 ""
132 ">" +
133 _("<h1>Grib weather forecasts</h1>"
134 "<p>Collection of local weather models from various sources available "
135 "for download over the internet.</p>"
136 "</font></body></html>"));
137 ReadLocalCatalog();
138 m_bLocal_source_selected = false;
139 EnableDownloadButtons();
140
141 m_selectedAtmModelIndex = 0;
142 m_selectedWaveModelIndex = 0;
143 InitializeXygribDialog();
144}
145
146GribRequestSetting::~GribRequestSetting() {
147 if (m_downloading) {
148 OCPN_cancelDownloadFileBackground(m_download_handle);
149 }
150 if (m_connected) {
151 Disconnect(
152 wxEVT_DOWNLOAD_EVENT,
153 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
154 }
155 delete m_VpFocus;
156 delete m_VpMouse;
157 if (m_oDC) {
158 delete m_oDC;
159 }
160}
161
162void GribRequestSetting::SaveConfig() {
163 wxFileConfig *pConf = GetOCPNConfigObject();
164 if (pConf) {
165 pConf->SetPath(_T( "/PlugIns/GRIB" ));
166
167 pConf->Write(_T ( "MailRequestConfig" ), m_RequestConfigBase);
168 pConf->Write(_T( "MailSenderAddress" ), m_pSenderAddress->GetValue());
169 pConf->Write(_T( "MailRequestAddresses" ), m_MailToAddresses);
170 pConf->Write(_T( "ZyGribLogin" ), m_pLogin->GetValue());
171 pConf->Write(_T( "ZyGribCode" ), m_pCode->GetValue());
172 pConf->Write(_T( "SendMailMethod" ), m_SendMethod);
173 pConf->Write(_T( "MovingGribSpeed" ), m_sMovingSpeed->GetValue());
174 pConf->Write(_T( "MovingGribCourse" ), m_sMovingCourse->GetValue());
175
176 m_SavedZoneSelMode = m_cUseSavedZone->GetValue() ? SAVED_SELECTION
177 : m_rbManualSelect->GetValue() ? START_SELECTION
178 : AUTO_SELECTION;
179 pConf->Write(_T( "ManualRequestZoneSizingMode" ), m_ZoneSelMode);
180 pConf->Write(_T( "ManualRequestZoneSizing" ), m_SavedZoneSelMode);
181
182 pConf->Write(_T( "RequestZoneMaxLat" ), m_spMaxLat->GetValue());
183 pConf->Write(_T( "RequestZoneMinLat" ), m_spMinLat->GetValue());
184 pConf->Write(_T( "RequestZoneMaxLon" ), m_spMaxLon->GetValue());
185 pConf->Write(_T( "RequestZoneMinLon" ), m_spMinLon->GetValue());
186 }
187}
188
189void GribRequestSetting::InitRequestConfig() {
190 wxFileConfig *pConf = GetOCPNConfigObject();
191
192 if (pConf) {
193 pConf->SetPath(_T( "/PlugIns/GRIB" ));
194 wxString l;
195 int m;
196 pConf->Read(_T( "MailRequestConfig" ), &m_RequestConfigBase,
197 _T( "000220XX........0" ));
198 pConf->Read(_T( "MailSenderAddress" ), &l, _T(""));
199 m_pSenderAddress->ChangeValue(l);
200 pConf->Read(_T( "MailRequestAddresses" ), &m_MailToAddresses,
201 _T("query@saildocs.com;gribauto@zygrib.org"));
202 pConf->Read(_T( "ZyGribLogin" ), &l, _T(""));
203 m_pLogin->ChangeValue(l);
204 pConf->Read(_T( "ZyGribCode" ), &l, _T(""));
205 m_pCode->ChangeValue(l);
206 pConf->Read(_T( "SendMailMethod" ), &m_SendMethod, 0);
207 pConf->Read(_T( "MovingGribSpeed" ), &m, 0);
208 m_sMovingSpeed->SetValue(m);
209 pConf->Read(_T( "MovingGribCourse" ), &m, 0);
210 m_sMovingCourse->SetValue(m);
211 pConf->Read(_T( "ManualRequestZoneSizingMode" ), &m, 0);
212 m_ZoneSelMode = m;
213 pConf->Read(_T( "ManualRequestZoneSizing" ), &m, 0);
214 m_SavedZoneSelMode = m;
215 m_cUseSavedZone->SetValue(m_SavedZoneSelMode == SAVED_SELECTION);
216 if (m_SavedZoneSelMode == SAVED_SELECTION) {
217 m_ZoneSelMode = DRAW_SELECTION;
218 }
219 m_rbManualSelect->SetValue(m_ZoneSelMode != AUTO_SELECTION);
220 UpdateAreaSelectionState();
221 pConf->Read(_T( "RequestZoneMaxLat" ), &m, 0);
222 m_spMaxLat->SetValue(m);
223 pConf->Read(_T( "RequestZoneMinLat" ), &m, 0);
224 m_spMinLat->SetValue(m);
225 pConf->Read(_T( "RequestZoneMaxLon" ), &m, 0);
226 m_spMaxLon->SetValue(m);
227 pConf->Read(_T( "RequestZoneMinLon" ), &m, 0);
228 m_spMinLon->SetValue(m);
229
230 SetCoordinatesText();
231 // if GriDataConfig has been corrupted , take the standard one to fix a
232 // crash
233 if (m_RequestConfigBase.Len() !=
234 wxString(_T( "000220XX.............." )).Len())
235 m_RequestConfigBase = _T( "000220XX.............." );
236 }
237 // populate model, mail to, waves model choices
238 wxString s1[] = {_T("GFS"), _T("COAMPS"), _T("RTOFS"),
239 _T("HRRR"), _T("ICON"), _T("ECMWF")};
240 for (unsigned int i = 0; i < (sizeof(s1) / sizeof(wxString)); i++)
241 m_pModel->Append(s1[i]);
242 wxString s2[] = {_T("Saildocs"), _T("zyGrib")};
243 for (unsigned int i = 0; i < (sizeof(s2) / sizeof(wxString)); i++)
244 m_pMailTo->Append(s2[i]);
245 wxString s3[] = {_T("WW3-GLOBAL"), _T("WW3-MEDIT")};
246 for (unsigned int i = 0; i < (sizeof(s3) / sizeof(wxString)); i++)
247 m_pWModel->Append(s3[i]);
248 m_rButtonYes->SetLabel(_("Send"));
249 m_rButtonApply->SetLabel(_("OK"));
250 m_tResUnit->SetLabel(wxString::Format(_T("\u00B0")));
251 m_sCourseUnit->SetLabel(wxString::Format(_T("\u00B0")));
252
253 // Set wxSpinCtrl sizing
254 int w, h;
255 GetTextExtent(_T("-360"), &w, &h, 0, 0,
256 OCPNGetFont(_("Dialog"))); // optimal text control size
257 w += 30;
258 h += 4;
259 m_sMovingSpeed->SetMinSize(wxSize(w, h));
260 m_sMovingCourse->SetMinSize(wxSize(w, h));
261 m_spMaxLat->SetMinSize(wxSize(w, h));
262 m_spMinLat->SetMinSize(wxSize(w, h));
263 m_spMaxLon->SetMinSize(wxSize(w, h));
264 m_spMinLon->SetMinSize(wxSize(w, h));
265
266 // add tooltips
267 m_pSenderAddress->SetToolTip(
268 _("Address used to send request eMail. (Mandatory for LINUX)"));
269 m_pLogin->SetToolTip(_("This is your zyGrib's forum access Login"));
270 m_pCode->SetToolTip(
271 _("Get this Code in zyGrib's forum ( This is not your password! )"));
272 m_sMovingSpeed->SetToolTip(_("Enter your forescasted Speed (in Knots)"));
273 m_sMovingCourse->SetToolTip(_("Enter your forecasted Course"));
274
275 long i, j, k;
276 ((wxString)m_RequestConfigBase.GetChar(0)).ToLong(&i); // MailTo
277 m_pMailTo->SetSelection(i);
278 ((wxString)m_RequestConfigBase.GetChar(1)).ToLong(&i); // Model
279 m_pModel->SetSelection(i);
280 m_cMovingGribEnabled->SetValue(m_RequestConfigBase.GetChar(16) ==
281 'X'); // Moving Grib
282 ((wxString)m_RequestConfigBase.GetChar(2)).ToLong(&i); // Resolution
283 ((wxString)m_RequestConfigBase.GetChar(3)).ToLong(&j); // interval
284 ((wxString)m_RequestConfigBase.GetChar(4)).ToLong(&k, 16); // Time Range
285 k--; // range max = 2 to 16 stored in hexa from 1 to f
286
287#ifdef __WXMSW__ // show / hide sender elemants as necessary
288 m_pSenderSizer->ShowItems(false);
289#else
290 if (m_SendMethod == 0)
291 m_pSenderSizer->ShowItems(false);
292 else
293 m_pSenderSizer->ShowItems(
294 true); // possibility to use "sendmail" method with Linux
295#endif
296
297 m_tMouseEventTimer.Connect(
298 wxEVT_TIMER, wxTimerEventHandler(GribRequestSetting::OnMouseEventTimer),
299 nullptr, this);
300
301 m_RenderSelectionZoneState = RENDER_NONE;
302
303 ApplyRequestConfig(i, j, k);
304
305 ((wxString)m_RequestConfigBase.GetChar(5)).ToLong(&j); // Waves model
306 m_pWModel->SetSelection(j);
307
308 m_pWind->Enable(false); // always selected if available
309 m_pPress->Enable(false);
310
311 DimeWindow(this); // aplly global colours scheme
312
313 m_AllowSend = true;
314 m_MailImage->SetValue(WriteMail());
315}
316
317wxWindow *GetGRIBCanvas();
318void GribRequestSetting::OnClose(wxCloseEvent &event) {
319 if (m_downloading) {
320 OCPN_cancelDownloadFileBackground(m_download_handle);
321 m_downloading = false;
322 m_download_handle = 0;
323 }
324 if (m_connected) {
325 Disconnect(
326 wxEVT_DOWNLOAD_EVENT,
327 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
328 }
329 m_RenderSelectionZoneState =
330 RENDER_NONE; // eventually stop graphical zone display
331 RequestRefresh(GetGRIBCanvas());
332
333 // allow to be back to old value if changes have not been saved
334 m_ZoneSelMode = m_SavedZoneSelMode;
335 m_parent.SetRequestButtonBitmap(m_ZoneSelMode); // set appropriate bitmap
336 m_parent.m_highlight_latmax = 0;
337 m_parent.m_highlight_lonmax = 0;
338 m_parent.m_highlight_latmin = 0;
339 m_parent.m_highlight_lonmin = 0;
340 this->Hide();
341}
342
343void GribRequestSetting::SetRequestDialogSize() {
344 int y;
345 /*first let's size the mail display space*/
346 GetTextExtent(_T("abc"), nullptr, &y, 0, 0, OCPNGetFont(_("Dialog")));
347 m_MailImage->SetMinSize(
348 wxSize(-1, ((y * m_MailImage->GetNumberOfLines()) + 10)));
349
350 /*then as default sizing do not work with wxScolledWindow let's compute it*/
351 wxSize scroll =
352 m_fgScrollSizer->Fit(m_sScrolledDialog); // the area size to be scrolled
353
354#ifdef __WXGTK__
355 SetMinSize(wxSize(0, 0));
356#endif
357
358 wxWindow *frame = wxTheApp->GetTopWindow();
359
360 int w = frame->GetClientSize().x; // the display size
361 int h = frame->GetClientSize().y;
362 int dMargin = 80; // set a margin
363
364 // height available for the scrolled window.
365 h -= (m_rButtonCancel->GetSize().GetY() + dMargin);
366 w -= dMargin; // width available for the scrolled window
367 m_sScrolledDialog->SetMinSize(
368 wxSize(wxMin(w, scroll.x),
369 wxMin(h, scroll.y))); // set scrolled area size with margin
370
371 Layout();
372 Fit();
373#ifdef __WXGTK__
374 wxSize sd = GetSize();
375 if (sd.y == GetClientSize().y) sd.y += 30;
376 SetSize(wxSize(sd.x, sd.y));
377 SetMinSize(wxSize(sd.x, sd.y));
378#endif
379 Refresh();
380}
381
382void GribRequestSetting::SetVpSize(PlugIn_ViewPort *vp) {
383 double lonmax = vp->lon_max;
384 double lonmin = vp->lon_min;
385 if ((fabs(vp->lat_max) < 90.) && (fabs(lonmax) < 360.)) {
386 if (lonmax < -180.) lonmax += 360.;
387 if (lonmax > 180.) lonmax -= 360.;
388 }
389 if ((fabs(vp->lat_min) < 90.) && (fabs(lonmin) < 360.)) {
390 if (lonmin < -180.) lonmin += 360.;
391 if (lonmin > 180.) lonmin -= 360.;
392 }
393
394 bool bnew_val = false;
395 if (m_spMaxLat->GetValue() != (int)ceil(vp->lat_max)) bnew_val = true;
396 if (m_spMinLon->GetValue() != (int)floor(lonmin)) bnew_val = true;
397 if (m_spMinLat->GetValue() != (int)floor(vp->lat_min)) bnew_val = true;
398 if (m_spMaxLon->GetValue() != (int)ceil(lonmax)) bnew_val = true;
399
400 if (bnew_val) {
401 m_spMaxLat->SetValue((int)ceil(vp->lat_max));
402 m_spMinLon->SetValue((int)floor(lonmin));
403 m_spMinLat->SetValue((int)floor(vp->lat_min));
404 m_spMaxLon->SetValue((int)ceil(lonmax));
405
406 SetCoordinatesText();
407 m_MailImage->SetValue(WriteMail());
408 }
409}
410
411bool GribRequestSetting::MouseEventHook(wxMouseEvent &event) {
412 if (!(event.ShiftDown() || m_bpManualSelection->GetValue())) {
413 // Only handle selection when Shift is pressed, or when the "manual
414 // selection button" is pressed.
415 return false; // Let the chart handle normal panning
416 }
417 if (event.LeftDown() && !event.Dragging()) {
418 // Automatically switch to manual selection,
419 // without requiring user to set the manual mode checkbox.
420 m_ZoneSelMode = DRAW_SELECTION;
421 m_rbManualSelect->SetValue(true); // Update the UI checkbox
422 }
423 // User can still switch back to auto mode by unchecking the manual mode.
424 if (m_ZoneSelMode == AUTO_SELECTION || m_ZoneSelMode == SAVED_SELECTION ||
425 m_ZoneSelMode == START_SELECTION)
426 return false;
427
428 if (event.Moving())
429 return false; // maintain status bar and tracking dialog updated
430
431 // Mouse event position is in logical pixels.
432 int xm = event.GetX() * m_displayScale;
433 int ym = event.GetY() * m_displayScale;
434
435 if (event.LeftDown() && !event.Dragging()) {
436 m_parent.pParent->SetFocus();
437 m_ZoneSelMode = DRAW_SELECTION; // Starting a new bounding box selection.
438 m_StartPoint =
439 wxPoint(xm, ym); // Set the starting point of the bounding box.
440 GetCanvasLLPix(m_VpMouse, m_StartPoint, &m_StartLat, &m_StartLon);
441 m_parent.SetRequestButtonBitmap(m_ZoneSelMode);
442 // if (this->IsShown())
443 // this->Hide(); // eventually hide dialog in case of mode change
444 m_RenderSelectionZoneState = RENDER_NONE; // hide previous drawing
445 m_boundingBoxCanvasIndex = GetCanvasIndexUnderMouse();
446 } else if (event.LeftUp() && m_RenderSelectionZoneState == RENDER_DRAWING) {
447 m_ZoneSelMode = COMPLETE_SELECTION; // ask to complete selection
448 m_parent.SetRequestButtonBitmap(m_ZoneSelMode);
449 SetCoordinatesText();
450 UpdateAreaSelectionState();
451 m_MailImage->SetValue(WriteMail());
452 m_RenderSelectionZoneState = RENDER_COMPLETE;
453 // The zone selection is complete, so we can update the grib size estimate.
454 UpdateGribSizeEstimate();
455 m_boundingBoxCanvasIndex = -1;
456 } else if (event.Dragging()) {
457 if (m_boundingBoxCanvasIndex != GetCanvasIndexUnderMouse()) {
458 // The user cannot draw a selection across view ports.
459 return false;
460 }
461 if (m_RenderSelectionZoneState < RENDER_DRAWING) {
462 m_RenderSelectionZoneState = RENDER_DRAWING;
463 }
464 m_IsMaxLong = m_StartPoint.x > xm
465 ? true
466 : false; // find if startpoint is max longitude
467 GetCanvasLLPix(m_VpMouse, wxPoint(xm, ym), &m_Lat,
468 &m_Lon); // extend selection
469 m_Lat = wxMin(90.0, wxMax(-90.0, m_Lat));
470 m_Lon = wxMin(180.0, wxMax(-180.0, m_Lon));
471 if (!m_tMouseEventTimer.IsRunning())
472 m_tMouseEventTimer.Start(20, wxTIMER_ONE_SHOT);
473 }
474 return true;
475}
476
477void GribRequestSetting::OnMouseEventTimer(wxTimerEvent &event) {
478 // compute zone starting point lon/lat for zone drawing
479
480 // compute rounded coordinates
481 if (m_StartLat > m_Lat) {
482 m_spMaxLat->SetValue((int)ceil(m_StartLat));
483 m_spMinLat->SetValue((int)floor(m_Lat));
484 } else {
485 m_spMaxLat->SetValue((int)ceil(m_Lat));
486 m_spMinLat->SetValue((int)floor(m_StartLat));
487 }
488 if (m_IsMaxLong) {
489 m_spMaxLon->SetValue((int)ceil(m_StartLon));
490 m_spMinLon->SetValue((int)floor(m_Lon));
491 } else {
492 m_spMaxLon->SetValue((int)ceil(m_Lon));
493 m_spMinLon->SetValue((int)floor(m_StartLon));
494 }
495
496 RequestRefresh(GetGRIBCanvas());
497}
498
499void GribRequestSetting::SetCoordinatesText() {
500 m_stMaxLatNS->SetLabel(m_spMaxLat->GetValue() < 0 ? _("S") : _("N"));
501 m_stMinLonEW->SetLabel(m_spMinLon->GetValue() < 0 ? _("W") : _("E"));
502 m_stMaxLonEW->SetLabel(m_spMaxLon->GetValue() < 0 ? _("W") : _("E"));
503 m_stMinLatNS->SetLabel(m_spMinLat->GetValue() < 0 ? _("S") : _("N"));
504}
505
506size_t LengthSelToHours(int sel) {
507 switch (sel) {
508 case 1:
509 return 72;
510 case 2:
511 return 999;
512 default:
513 return 24;
514 }
515}
516
517void GribRequestSetting::onDLEvent(OCPN_downloadEvent &ev) {
518 // std::cout << "onDLEvent " << ev.getDLEventCondition() << " "
519 // << ev.getDLEventStatus() << std::endl;
520 switch (ev.getDLEventCondition()) {
521 case OCPN_DL_EVENT_TYPE_END:
522 m_bTransferSuccess =
523 (ev.getDLEventStatus() == OCPN_DL_NO_ERROR) ? true : false;
524 Disconnect(wxEVT_DOWNLOAD_EVENT,
525 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::
526 onDLEvent);
527 m_connected = false;
528 m_downloading = false;
529 m_download_handle = 0;
530 wxYieldIfNeeded();
531 break;
532
533 case OCPN_DL_EVENT_TYPE_PROGRESS:
534 if (ev.getTotal() != 0) {
535 switch (m_downloadType) {
536 case GribDownloadType::WORLD:
537 m_staticTextInfo->SetLabelText(
538 wxString::Format(_("Downloading... %li / %li"),
539 ev.getTransferred(), ev.getTotal()));
540 break;
541 case GribDownloadType::LOCAL:
542 case GribDownloadType::LOCAL_CATALOG:
543 m_stLocalDownloadInfo->SetLabelText(
544 wxString::Format(_("Downloading... %li / %li"),
545 ev.getTransferred(), ev.getTotal()));
546 break;
547 case GribDownloadType::XYGRIB:
548 // Update XyGrib progress gauge
549 m_xygribPanel->m_progress_gauge->SetValue(
550 100 * ev.getTransferred() / ev.getTotal());
551 // Update status text to display information on file size
552 m_xygribPanel->m_status_text->SetLabel(wxString::Format(
553 "%s (%ld kB / %ld kB)",
554 _("Downloading GRIB file").c_str().AsChar(),
555 ev.getTransferred() / 1024, ev.getTotal() / 1024));
556 break;
557 default:
558 break;
559 }
560 } else {
561 if (ev.getTransferred() > 0) {
562 switch (m_downloadType) {
563 case GribDownloadType::WORLD:
564 m_staticTextInfo->SetLabelText(wxString::Format(
565 _("Downloading... %li / ???"), ev.getTransferred()));
566 break;
567 case GribDownloadType::LOCAL:
568 case GribDownloadType::LOCAL_CATALOG:
569 m_stLocalDownloadInfo->SetLabelText(wxString::Format(
570 _("Downloading... %li / ???"), ev.getTransferred()));
571 break;
572 default:
573 break;
574 }
575 }
576 }
577 wxYieldIfNeeded();
578 break;
579 default:
580 break;
581 }
582}
583
584void GribRequestSetting::OnWorldDownload(wxCommandEvent &event) {
585 if (m_downloading) {
586 OCPN_cancelDownloadFileBackground(m_download_handle);
587 m_downloading = false;
588 m_download_handle = 0;
589 Disconnect(
590 wxEVT_DOWNLOAD_EVENT,
591 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
592 m_connected = false;
593 m_btnDownloadWorld->SetLabelText(_("Download"));
594 m_staticTextInfo->SetLabelText(_("Download canceled"));
595 m_canceled = true;
596 m_downloadType = GribDownloadType::NONE;
597 EnableDownloadButtons();
598 wxTheApp->ProcessPendingEvents();
599 wxYieldIfNeeded();
600 return;
601 }
602 m_canceled = false;
603 m_downloading = true;
604 m_downloadType = GribDownloadType::WORLD;
605 EnableDownloadButtons();
606 m_btnDownloadWorld->SetLabelText(_("Cancel"));
607 m_staticTextInfo->SetLabelText(_("Preparing data on server..."));
608 wxYieldIfNeeded();
609 wxString model;
610 switch (m_chECMWFResolution->GetSelection()) {
611 case 0:
612 model = "ecmwf0p25";
613 break;
614 case 1:
615 model = "ecmwfaifs0p25";
616 break;
617 default:
618 model = "ecmwf0p25";
619 break;
620 }
621 std::ostringstream oss;
622 oss << "https://grib.bosun.io/grib?";
623 oss << "model=" << model;
624 oss << "&latmin=" << GetMinLat();
625 oss << "&latmax=" << GetMaxLat();
626 oss << "&lonmin=" << GetMinLon();
627 oss << "&lonmax=" << GetMaxLon();
628 oss << "&length=" << LengthSelToHours(m_chForecastLength->GetSelection());
629 wxString filename =
630 wxString::Format("ocpn_%s_%li_%s.grb2", model.c_str(),
631 LengthSelToHours(m_chForecastLength->GetSelection()),
632 wxDateTime::Now().Format("%F-%H-%M"));
633 wxString path = m_parent.GetGribDir();
634 path.Append(wxFileName::GetPathSeparator());
635 path.Append(filename);
636 if (!m_connected) {
637 m_connected = true;
638 Connect(
639 wxEVT_DOWNLOAD_EVENT,
640 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
641 }
642 auto res =
643 OCPN_downloadFileBackground(oss.str(), path, this, &m_download_handle);
644 while (m_downloading) {
645 wxTheApp->ProcessPendingEvents();
646 wxMilliSleep(10);
647 }
648 if (!m_canceled) {
649 if (m_bTransferSuccess) {
650 m_staticTextInfo->SetLabelText(
651 wxString::Format(_("Download complete: %s"), path.c_str()));
652 wxFileName fn(path);
653 m_parent.m_grib_dir = fn.GetPath();
654 m_parent.m_file_names.Clear();
655 m_parent.m_file_names.Add(path);
656 m_parent.OpenFile();
657 if (m_parent.pPlugIn) {
658 if (m_parent.pPlugIn->m_bZoomToCenterAtInit) m_parent.DoZoomToCenter();
659 }
660 m_parent.SetDialogsStyleSizePosition(true);
661 SaveConfig();
662 Close();
663 } else {
664 m_staticTextInfo->SetLabelText(_("Download failed"));
665 }
666 }
667 m_btnDownloadWorld->SetLabelText(_("Download"));
668 m_downloadType = GribDownloadType::NONE;
669 EnableDownloadButtons();
670}
671
672enum LocalSourceItem { SOURCE, AREA, GRIB };
673
674enum LocalGribDownloadType { DIRECT, MANIFEST, WEBPAGE };
675
676struct GribCatalogInfo : public wxTreeItemData {
677 GribCatalogInfo(LocalSourceItem type, wxString name, wxString description,
678 wxString url, wxString filename,
679 LocalGribDownloadType download_type, double latmin,
680 double lonmin, double latmax, double lonmax)
681 : type(type),
682 name(name),
683 description(description),
684 url(url),
685 filename(filename),
686 download_type(download_type),
687 latmin(latmin),
688 lonmin(lonmin),
689 latmax(latmax),
690 lonmax(lonmax) {}
691 LocalSourceItem type;
692 wxString name;
693 wxString description;
694 wxString url;
695 wxString filename;
696 LocalGribDownloadType download_type;
697 double latmin;
698 double lonmin;
699 double latmax;
700 double lonmax;
701};
702
703void GribRequestSetting::FillTreeCtrl(wxJSONValue &data) {
704 m_SourcesTreeCtrl1->DeleteAllItems();
705 wxTreeItemId root =
706 m_SourcesTreeCtrl1->AddRoot(_("Local high resolution forecasts"));
707 if (data.HasMember("sources") && data["sources"].IsArray()) {
708 for (int i = 0; i < data["sources"].Size(); i++) {
709 wxJSONValue source = data["sources"][i];
710 auto info = new GribCatalogInfo(
711 LocalSourceItem::SOURCE, source["source"].AsString(),
712 source["description"].AsString(), source["url"].AsString(),
713 wxEmptyString, LocalGribDownloadType::WEBPAGE, 0, 0, 0, 0);
714 wxTreeItemId src_id = m_SourcesTreeCtrl1->AppendItem(
715 root, source["source"].AsString(), -1, -1, info);
716 if (source.HasMember("areas") && source["areas"].IsArray()) {
717 for (int j = 0; j < source[_T("areas")].Size(); j++) {
718 wxJSONValue area = source[_T("areas")][j];
719 auto info = new GribCatalogInfo(
720 LocalSourceItem::AREA, area["name"].AsString(),
721 source["description"].AsString(), source["url"].AsString(),
722 wxEmptyString, LocalGribDownloadType::WEBPAGE,
723 area["boundary"]["lat_min"].AsDouble(),
724 area["boundary"]["lon_min"].AsDouble(),
725 area["boundary"]["lat_max"].AsDouble(),
726 area["boundary"]["lon_max"].AsDouble());
727 m_SourcesTreeCtrl1->AppendItem(src_id, area["name"].AsString(), -1,
728 -1, info);
729 if (area.HasMember("gribs") && area["gribs"].IsArray()) {
730 for (int k = 0; k < area["gribs"].Size(); k++) {
731 wxJSONValue grib = area["gribs"][k];
732 auto info = new GribCatalogInfo(
733 LocalSourceItem::GRIB, grib["name"].AsString(),
734 source["description"].AsString(),
735 grib.HasMember("url") ? grib["url"].AsString()
736 : grib["cat_url"].AsString(),
737 grib.HasMember("filename") ? grib["filename"].AsString() : "",
738 grib.HasMember("url") ? LocalGribDownloadType::DIRECT
739 : LocalGribDownloadType::MANIFEST,
740 area["boundary"]["lat_min"].AsDouble(),
741 area["boundary"]["lon_min"].AsDouble(),
742 area["boundary"]["lat_max"].AsDouble(),
743 area["boundary"]["lon_max"].AsDouble());
744 m_SourcesTreeCtrl1->AppendItem(
745 m_SourcesTreeCtrl1->GetLastChild(src_id),
746 grib[_T("name")].AsString(), -1, -1, info);
747 }
748 }
749 }
750 }
751 m_SourcesTreeCtrl1->CollapseAllChildren(src_id);
752 }
753 }
754 m_SourcesTreeCtrl1->Expand(root);
755}
756
757void GribRequestSetting::ReadLocalCatalog() {
758 wxJSONReader reader;
759 wxFileInputStream str(m_parent.pPlugIn->m_local_sources_catalog);
760 wxJSONValue root;
761 reader.Parse(str, &root);
762 FillTreeCtrl(root);
763}
764
765void GribRequestSetting::HighlightArea(double latmax, double lonmax,
766 double latmin, double lonmin) {
767 m_parent.m_highlight_latmax = latmax;
768 m_parent.m_highlight_lonmax = lonmax;
769 m_parent.m_highlight_latmin = latmin;
770 m_parent.m_highlight_lonmin = lonmin;
771}
772
773void GribRequestSetting::OnLocalTreeSelChanged(wxTreeEvent &event) {
774 wxTreeItemId item = m_SourcesTreeCtrl1->GetSelection();
775 auto src = (GribCatalogInfo *)(m_SourcesTreeCtrl1->GetItemData(item));
776 if (src) {
777 if (src->type == LocalSourceItem::GRIB) {
778 m_stLocalDownloadInfo->SetLabelText(_("Download grib..."));
779 m_bLocal_source_selected = true;
780 HighlightArea(src->latmax, src->lonmax, src->latmin, src->lonmin);
781 } else {
782 m_stLocalDownloadInfo->SetLabelText(_("Select grib..."));
783 m_bLocal_source_selected = false;
784 HighlightArea(src->latmax, src->lonmax, src->latmin, src->lonmin);
785 }
786 }
787 EnableDownloadButtons();
788}
789
790void GribRequestSetting::OnUpdateLocalCatalog(wxCommandEvent &event) {
791 if (m_downloading) {
792 OCPN_cancelDownloadFileBackground(m_download_handle);
793 m_downloading = false;
794 m_download_handle = 0;
795 Disconnect(
796 wxEVT_DOWNLOAD_EVENT,
797 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
798 m_connected = false;
799 m_btnDownloadLocal->SetLabelText(_("Download"));
800 m_stLocalDownloadInfo->SetLabelText(_("Download canceled"));
801 m_canceled = true;
802 m_downloadType = GribDownloadType::NONE;
803 EnableDownloadButtons();
804 wxTheApp->ProcessPendingEvents();
805 wxYieldIfNeeded();
806 return;
807 }
808 m_canceled = false;
809 m_downloading = true;
810 m_downloadType = GribDownloadType::LOCAL_CATALOG;
811 EnableDownloadButtons();
812 m_btnDownloadLocal->SetLabelText(_("Cancel"));
813 m_staticTextInfo->SetLabelText(_("Downloading catalog update..."));
814 wxYieldIfNeeded();
815 if (!m_connected) {
816 m_connected = true;
817 Connect(
818 wxEVT_DOWNLOAD_EVENT,
819 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
820 }
821 auto res = OCPN_downloadFileBackground(
822 CATALOG_URL, m_parent.pPlugIn->m_local_sources_catalog + "new", this,
823 &m_download_handle);
824 while (m_downloading) {
825 wxTheApp->ProcessPendingEvents();
826 wxMilliSleep(10);
827 }
828 if (!m_canceled) {
829 if (m_bTransferSuccess) {
830 wxRenameFile(m_parent.pPlugIn->m_local_sources_catalog + "new",
831 m_parent.pPlugIn->m_local_sources_catalog, true);
832 ReadLocalCatalog();
833 m_stLocalDownloadInfo->SetLabelText(_("Catalog update complete."));
834 } else {
835 m_stLocalDownloadInfo->SetLabelText(_("Download failed"));
836 }
837 }
838 m_btnDownloadLocal->SetLabelText(_("Download"));
839 m_downloadType = GribDownloadType::NONE;
840 EnableDownloadButtons();
841}
842
843void GribRequestSetting::OnDownloadLocal(wxCommandEvent &event) {
844 if (m_downloading) {
845 OCPN_cancelDownloadFileBackground(m_download_handle);
846 m_downloading = false;
847 m_download_handle = 0;
848 Disconnect(
849 wxEVT_DOWNLOAD_EVENT,
850 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
851 m_connected = false;
852 m_btnDownloadLocal->SetLabelText(_("Download"));
853 m_stLocalDownloadInfo->SetLabelText(_("Download canceled"));
854 m_canceled = true;
855 m_downloadType = GribDownloadType::NONE;
856 EnableDownloadButtons();
857 wxTheApp->ProcessPendingEvents();
858 wxYieldIfNeeded();
859 return;
860 }
861 m_canceled = false;
862 m_downloading = true;
863 m_downloadType = GribDownloadType::LOCAL;
864 EnableDownloadButtons();
865 m_btnDownloadLocal->SetLabelText(_("Cancel"));
866 m_staticTextInfo->SetLabelText(_("Downloading grib..."));
867 wxYieldIfNeeded();
868 auto src = (GribCatalogInfo *)(m_SourcesTreeCtrl1->GetItemData(
869 m_SourcesTreeCtrl1->GetSelection()));
870 if (!src || src->type != LocalSourceItem::GRIB || src->url.IsEmpty()) {
871 m_downloading = false;
872 m_stLocalDownloadInfo->SetLabelText(_("Download can't be started."));
873 m_btnDownloadWorld->SetLabelText(_("Download"));
874 m_downloadType = GribDownloadType::NONE;
875 EnableDownloadButtons();
876 return;
877 }
878 if (!m_connected) {
879 m_connected = true;
880 Connect(
881 wxEVT_DOWNLOAD_EVENT,
882 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
883 }
884 wxString url = src->url;
885 // If it is a grib that changes location and requires help of, download the
886 // manifest first
887 if (src->download_type == LocalGribDownloadType::MANIFEST) {
888 wxString path = m_parent.GetGribDir();
889 path.Append(wxFileName::GetPathSeparator());
890 path.Append("grib_manifest.json");
891 auto res = OCPN_downloadFileBackground(url, path, this, &m_download_handle);
892 while (m_downloading) {
893 wxTheApp->ProcessPendingEvents();
894 wxMilliSleep(10);
895 }
896 bool success = true;
897 if (!m_canceled) {
898 if (!m_bTransferSuccess) {
899 success = false;
900 m_stLocalDownloadInfo->SetLabelText(_("Download failed"));
901 }
902 } else {
903 success = false;
904 m_stLocalDownloadInfo->SetLabelText(_("Download canceled"));
905 }
906 if (success) {
907 wxJSONReader reader;
908 wxFileInputStream str(path);
909 wxJSONValue root;
910 reader.Parse(str, &root);
911 if (root.HasMember("url")) {
912 wxString parsed = root["url"].AsString();
913 if (parsed.StartsWith("http")) {
914 url = parsed;
915 } else {
916 m_stLocalDownloadInfo->SetLabelText(_("Download failed"));
917 success = false;
918 }
919 }
920 }
921 if (!success) { // Something went wrong, clean up and do not continue to
922 // the actual download
923 m_downloading = false;
924 m_download_handle = 0;
925 Disconnect(wxEVT_DOWNLOAD_EVENT,
926 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::
927 onDLEvent);
928 m_connected = false;
929 m_btnDownloadLocal->SetLabelText(_("Download"));
930 m_stLocalDownloadInfo->SetLabelText(_("Download failed"));
931 m_canceled = true;
932 m_downloadType = GribDownloadType::NONE;
933 EnableDownloadButtons();
934 wxTheApp->ProcessPendingEvents();
935 wxYieldIfNeeded();
936 return;
937 }
938 }
939 // Download the actual grib
940 m_downloading = true;
941 wxYieldIfNeeded();
942 if (!m_connected) {
943 m_connected = true;
944 Connect(
945 wxEVT_DOWNLOAD_EVENT,
946 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
947 }
948 wxString filename;
949 if (!src->filename.IsEmpty()) {
950 filename = src->filename;
951 } else {
952 filename =
953 url.AfterLast('/'); // Get last part of the URL and try to sanitize the
954 // filename somewhat if we call some API...
955 filename.Replace("?", "_");
956 filename.Replace("&", "_");
957 if (!(filename.Contains(".grb2") || filename.Contains(".grib2") ||
958 filename.Contains(".grb") || filename.Contains(".grib"))) {
959 filename.Append(".grb");
960 }
961 }
962
963 wxString path = m_parent.GetGribDir();
964 path.Append(wxFileName::GetPathSeparator());
965 path.Append(filename);
966 auto res = OCPN_downloadFileBackground(url, path, this, &m_download_handle);
967 while (m_downloading) {
968 wxTheApp->ProcessPendingEvents();
969 wxMilliSleep(10);
970 }
971 if (!m_canceled) {
972 if (m_bTransferSuccess) {
973 m_stLocalDownloadInfo->SetLabelText(_("Grib download complete."));
974 m_stLocalDownloadInfo->SetLabelText(
975 wxString::Format(_("Download complete: %s"), path.c_str()));
976 wxFileName fn(path);
977 m_parent.m_grib_dir = fn.GetPath();
978 m_parent.m_file_names.Clear();
979 m_parent.m_file_names.Add(
980 path); //("/home/nohal/Downloads/Cherbourg_4km_WRF_WAM_240228-12.grb.bz2");
981 m_parent.OpenFile();
982 if (m_parent.pPlugIn) {
983 if (m_parent.pPlugIn->m_bZoomToCenterAtInit) m_parent.DoZoomToCenter();
984 }
985 m_parent.SetDialogsStyleSizePosition(true);
986 SaveConfig();
987 Close();
988 } else {
989 m_stLocalDownloadInfo->SetLabelText(_("Download failed"));
990 }
991 }
992 m_btnDownloadWorld->SetLabelText(_("Download"));
993 m_downloadType = GribDownloadType::NONE;
994 EnableDownloadButtons();
995}
996
997void GribRequestSetting::EnableDownloadButtons() {
998 switch (m_downloadType) {
999 case GribDownloadType::WORLD:
1000 m_btnDownloadWorld->Enable(true);
1001 m_btnDownloadLocal->Enable(false);
1002 m_buttonUpdateCatalog->Enable(false);
1003 break;
1004 case GribDownloadType::LOCAL:
1005 case GribDownloadType::LOCAL_CATALOG:
1006 m_btnDownloadWorld->Enable(false);
1007 m_btnDownloadLocal->Enable(m_bLocal_source_selected || m_downloading);
1008 m_buttonUpdateCatalog->Enable(false);
1009 break;
1010 case GribDownloadType::XYGRIB:
1011 m_xygribPanel->m_download_button->Enable(true);
1012 break;
1013 default:
1014 m_btnDownloadWorld->Enable(true);
1015 m_btnDownloadLocal->Enable(m_bLocal_source_selected || m_downloading);
1016 m_buttonUpdateCatalog->Enable(true);
1017 m_xygribPanel->m_download_button->Enable(true);
1018 break;
1019 }
1020}
1021
1022void GribRequestSetting::StopGraphicalZoneSelection() {
1023 m_RenderSelectionZoneState =
1024 RENDER_NONE; // eventually stop graphical zone display
1025
1026 RequestRefresh(GetGRIBCanvas());
1027}
1028
1029void GribRequestSetting::OnVpUnderMouseChange(PlugIn_ViewPort *vp) {
1030 if (!vp || m_VpMouse == vp) return;
1031
1032 delete m_VpMouse;
1033 m_VpMouse = new PlugIn_ViewPort(*vp);
1034}
1035
1036void GribRequestSetting::OnVpWithFocusChange(PlugIn_ViewPort *vp) {
1037 if (!vp || m_VpFocus == vp) return;
1038
1039 delete m_VpFocus;
1040 m_VpFocus = new PlugIn_ViewPort(*vp);
1041
1042 if (!m_AllowSend) return;
1043 if (m_rbManualSelect->GetValue()) return;
1044
1045 SetVpSize(vp);
1046 // Viewport has changed : XyGrib estimated size must be recalculated
1047 // when in automatic selection mode.
1048 UpdateGribSizeEstimate();
1049}
1050
1051void GribRequestSetting::ApplyRequestConfig(unsigned rs, unsigned it,
1052 unsigned tr) {
1053 // some useful strings
1054 const wxString res[][RESOLUTIONS] = {
1055 {_T("0.25"), _T("0.5"), _T("1.0"), _T("2.0")},
1056 {_T("0.2"), _T("0.8"), _T("1.6"), wxEmptyString},
1057 {_T("0.08"), _T("0.24"), _T("1.0"), wxEmptyString}, // RTOFS
1058 {_T("0.03"), _T("0.24"), _T("1.0"), wxEmptyString}, // HRRR
1059 {_T("0.0625"), _T("0.125"), wxEmptyString, wxEmptyString}, // ICON
1060 {_T("0.4"), _T("1.0"), _T("2.0"), wxEmptyString} // ECMWF
1061 };
1062
1063 IsZYGRIB = m_pMailTo->GetCurrentSelection() == ZYGRIB;
1064 if (IsZYGRIB)
1065 m_pModel->SetSelection(GFS); // Model is always GFS when Zygrib selected
1066 IsGFS = m_pModel->GetCurrentSelection() == GFS;
1067 bool IsRTOFS = m_pModel->GetCurrentSelection() == RTOFS;
1068 bool IsHRRR = m_pModel->GetCurrentSelection() == HRRR;
1069 bool IsICON = m_pModel->GetCurrentSelection() == ICON;
1070 bool IsECMWF = m_pModel->GetCurrentSelection() == ECMWF;
1071
1072 // populate resolution choice
1073 m_pResolution->Clear();
1074 if (m_pModel->GetCurrentSelection() >= 0) {
1075 for (int i = 0; i < RESOLUTIONS; i++) {
1076 if (res[m_pModel->GetCurrentSelection()][i] != wxEmptyString) {
1077 wxString s = res[m_pModel->GetCurrentSelection()][i];
1078 m_pResolution->Append(s);
1079 }
1080 }
1081 }
1082 m_pResolution->SetSelection(rs);
1083
1084 unsigned l;
1085 // populate time interval choice
1086 l = (IsGFS || IsRTOFS || IsICON || IsECMWF) ? 3 : IsHRRR ? 1 : 6;
1087
1088 unsigned m;
1089 m = IsHRRR ? 2 : 25;
1090
1091 m_pInterval->Clear();
1092 for (unsigned i = l; i < m; i *= 2)
1093 m_pInterval->Append(wxString::Format(_T("%d"), i));
1094 m_pInterval->SetSelection(wxMin(it, m_pInterval->GetCount() - 1));
1095
1096 // populate time range choice
1097 l = IsZYGRIB ? 8
1098 : IsGFS ? 16
1099 : IsRTOFS ? 6
1100 : IsECMWF ? 10
1101 : IsICON ? 7
1102 : IsHRRR ? 2
1103 : 3;
1104 m_pTimeRange->Clear();
1105 for (unsigned i = 2; i < l + 1; i++)
1106 m_pTimeRange->Append(wxString::Format(_T("%d"), i));
1107 m_pTimeRange->SetSelection(wxMin(l - 2, tr));
1108
1109 m_pModel->Enable(!IsZYGRIB);
1110 m_pWind->SetValue(!IsRTOFS);
1111 m_pPress->SetValue(!IsRTOFS);
1112 m_pWaves->SetValue(m_RequestConfigBase.GetChar(8) == 'X' && IsGFS);
1113 m_pWaves->Enable(IsECMWF ||
1114 (IsGFS && m_pTimeRange->GetCurrentSelection() < 7));
1115 // gfs & time range less than 8 days
1116 m_pRainfall->SetValue(m_RequestConfigBase.GetChar(9) == 'X' &&
1117 (IsGFS || IsHRRR));
1118 m_pRainfall->Enable(IsGFS || IsHRRR);
1119 m_pCloudCover->SetValue(m_RequestConfigBase.GetChar(10) == 'X' && IsGFS);
1120 m_pCloudCover->Enable(IsGFS);
1121 m_pAirTemp->SetValue(m_RequestConfigBase.GetChar(11) == 'X' &&
1122 (IsGFS || IsHRRR || IsICON || IsECMWF));
1123 m_pAirTemp->Enable(IsGFS || IsHRRR || IsICON || IsECMWF);
1124 m_pSeaTemp->SetValue(m_RequestConfigBase.GetChar(12) == 'X' &&
1125 ((!IsZYGRIB && IsGFS) || IsRTOFS || IsHRRR || IsICON));
1126 m_pSeaTemp->Enable(!IsZYGRIB && (IsGFS || IsHRRR || IsICON));
1127 m_pWindGust->SetValue(m_RequestConfigBase.GetChar(14) == 'X' &&
1128 (IsGFS || IsHRRR || IsICON));
1129 m_pWindGust->Enable(IsGFS || IsHRRR || IsICON);
1130 m_pCAPE->SetValue(m_RequestConfigBase.GetChar(15) == 'X' &&
1131 (IsGFS || IsHRRR));
1132 m_pCAPE->Enable(IsGFS || IsHRRR);
1133 m_pReflectivity->Enable(IsGFS || IsHRRR);
1134
1135 m_pAltitudeData->SetValue(
1136 (IsGFS || IsICON || IsECMWF)
1137 ? m_RequestConfigBase.GetChar(17) == 'X'
1138 : false); // altitude data zigrib + saildocs GFS and ICON
1139 m_pAltitudeData->Enable(IsGFS || IsICON || IsECMWF);
1140 m_p850hpa->SetValue(IsZYGRIB ? m_RequestConfigBase.GetChar(18) == 'X'
1141 : false); // only zygrib
1142 m_p850hpa->Enable(IsZYGRIB);
1143 m_p700hpa->SetValue(IsZYGRIB ? m_RequestConfigBase.GetChar(19) == 'X'
1144 : false); // only zigrib
1145 m_p700hpa->Enable(IsZYGRIB);
1146 m_p500hpa->SetValue((IsGFS || IsICON || IsECMWF)
1147 ? m_RequestConfigBase.GetChar(20) == 'X'
1148 : false); // zigrib + saildocs GFS ICON ECMWF
1149 m_p500hpa->Enable(IsGFS || IsICON || IsECMWF);
1150 m_p300hpa->SetValue(IsZYGRIB ? m_RequestConfigBase.GetChar(21) == 'X'
1151 : false); // only zigrib
1152 m_p300hpa->Enable(IsZYGRIB);
1153
1154 m_pCurrent->SetValue(IsRTOFS);
1155 m_pCurrent->Enable(false);
1156
1157 // show parameters only if necessary
1158 m_cMovingGribEnabled->Show(!IsZYGRIB); // show/hide Moving settings
1159 m_fgMovingParams->ShowItems(m_cMovingGribEnabled->IsChecked() &&
1160 m_cMovingGribEnabled->IsShown());
1161
1162 m_fgLog->ShowItems(IsZYGRIB); // show/hide zigrib login
1163
1164 m_pWModel->Show(IsZYGRIB && m_pWaves->IsChecked()); // show/hide waves model
1165
1166 m_fgAltitudeData->ShowItems(
1167 m_pAltitudeData->IsChecked()); // show/hide altitude params
1168}
1169
1170void GribRequestSetting::OnTopChange(wxCommandEvent &event) {
1171 // deactivate momentary ZyGrib option
1172 if (m_pMailTo->GetCurrentSelection() == ZYGRIB) {
1173 m_pMailTo->SetSelection(0);
1174 int mes = OCPNMessageBox_PlugIn(
1175 this,
1176 _("Sorry...\nZyGrib momentary stopped providing this service...\nOnly "
1177 "Saildocs option is available"),
1178 _("Warning"), wxOK);
1179 }
1180 ApplyRequestConfig(m_pResolution->GetCurrentSelection(),
1181 m_pInterval->GetCurrentSelection(),
1182 m_pTimeRange->GetCurrentSelection());
1183
1184 m_cMovingGribEnabled->Show(m_pMailTo->GetCurrentSelection() == SAILDOCS);
1185
1186 if (m_AllowSend) m_MailImage->SetValue(WriteMail());
1187
1188 SetRequestDialogSize();
1189}
1190
1191void GribRequestSetting::UpdateAreaSelectionState() {
1192 bool readOnly = (m_ZoneSelMode == AUTO_SELECTION);
1193 m_spMaxLat->Enable(!readOnly);
1194 m_spMaxLon->Enable(!readOnly);
1195 m_spMinLat->Enable(!readOnly);
1196 m_spMinLon->Enable(!readOnly);
1197 m_cUseSavedZone->Enable(m_ZoneSelMode != AUTO_SELECTION);
1198}
1199
1200void GribRequestSetting::OnZoneSelectionModeChange(wxCommandEvent &event) {
1201 StopGraphicalZoneSelection(); // eventually stop graphical zone display
1202
1203 if (m_ZoneSelMode == AUTO_SELECTION) {
1204 // Recompute zone based on the viewport that has the focus.
1205 SetVpSize(m_VpFocus);
1206 }
1207
1208 if (event.GetId() == AUTOSELECT) {
1209 m_rbManualSelect->SetValue(false);
1210 } else if (event.GetId() == MANSELECT) {
1211 m_rbCurrentView->SetValue(false);
1212 // set temporarily zone selection mode if manual selection set, put it
1213 // directly in "drawing" position else put it in "auto selection" position
1214 m_ZoneSelMode =
1215 m_rbManualSelect->GetValue() ? DRAW_SELECTION : AUTO_SELECTION;
1216 m_cUseSavedZone->SetValue(false);
1217 } else if (event.GetId() == SAVEDZONE) {
1218 // set temporarily zone selection mode if saved selection set, put it
1219 // directly in "no selection" position else put it directly in "drawing"
1220 // position
1221 m_ZoneSelMode =
1222 m_cUseSavedZone->GetValue() ? SAVED_SELECTION : DRAW_SELECTION;
1223 }
1224 m_parent.SetRequestButtonBitmap(m_ZoneSelMode); // set appopriate bitmap
1225 UpdateAreaSelectionState(); // update the state of the coordinate spinners
1226 if (m_AllowSend) m_MailImage->SetValue(WriteMail());
1227
1228 SetRequestDialogSize();
1229}
1230
1231bool GribRequestSetting::DoRenderZoneOverlay() {
1232 wxPoint p;
1233 GetCanvasPixLL(m_VpMouse, &p, m_Lat, m_Lon);
1234
1235 int x = (m_StartPoint.x < p.x) ? m_StartPoint.x : p.x;
1236 int y = (m_StartPoint.y < p.y) ? m_StartPoint.y : p.y;
1237
1238 int zw = fabs((double)p.x - m_StartPoint.x);
1239 int zh = fabs((double)p.y - m_StartPoint.y);
1240
1241 wxPoint center;
1242 center.x = x + (zw / 2);
1243 center.y = y + (zh / 2);
1244
1245 wxFont fo = *OCPNGetFont(_("Dialog"));
1246 fo.SetPointSize(
1247 (fo.GetPointSize() * m_displayScale / OCPN_GetWinDIPScaleFactor()));
1248 wxFont *font = &fo;
1249 wxColour pen_color, back_color;
1250 GetGlobalColor(_T ( "DASHR" ), &pen_color);
1251 GetGlobalColor(_T ( "YELO1" ), &back_color);
1252
1253 int label_offsetx = 5, label_offsety = 1;
1254
1255 double size;
1256 EstimateFileSize(&size);
1257
1258 wxString label(_("Coord. "));
1259 label.Append(toMailFormat(1, m_spMaxLat->GetValue()) + _T(" "));
1260 label.Append(toMailFormat(0, m_spMinLon->GetValue()) + _T(" "));
1261 label.Append(toMailFormat(1, m_spMinLat->GetValue()) + _T(" "));
1262 label.Append(toMailFormat(0, m_spMaxLon->GetValue()) + _T("\n"));
1263 label.Append(_T("Estim. Size "))
1264 .Append((wxString::Format(_T("%1.2f " ), size) + _("MB")));
1265
1266 if (m_pdc) {
1267 wxPen pen(pen_color);
1268 pen.SetWidth(3);
1269 m_pdc->SetPen(pen);
1270 m_pdc->SetBrush(*wxTRANSPARENT_BRUSH);
1271 m_pdc->DrawRectangle(x, y, zw, zh);
1272
1273 int w, h, sl;
1274#ifdef __WXMAC__
1275 wxScreenDC sdc;
1276 sdc.GetMultiLineTextExtent(label, &w, &h, &sl, font);
1277#else
1278 m_pdc->GetMultiLineTextExtent(label, &w, &h, &sl, font);
1279 w *= OCPN_GetWinDIPScaleFactor();
1280 h *= OCPN_GetWinDIPScaleFactor();
1281#endif
1282 w += 2 * label_offsetx, h += 2 * label_offsety;
1283 x = center.x - (w / 2);
1284 y = center.y - (h / 2);
1285
1286 h *= m_displayScale;
1287 w *= m_displayScale;
1288
1289 wxBitmap bm(w, h);
1290 wxMemoryDC mdc(bm);
1291 mdc.Clear();
1292
1293 mdc.SetFont(*font);
1294 mdc.SetBrush(back_color);
1295 mdc.SetPen(*wxTRANSPARENT_PEN);
1296 mdc.SetTextForeground(wxColor(0, 0, 0));
1297 mdc.DrawRectangle(0, 0, w, h);
1298 mdc.DrawLabel(label, wxRect(label_offsetx, label_offsety, w, h));
1299
1300 wxImage im = bm.ConvertToImage();
1301 im.InitAlpha();
1302 w = im.GetWidth(), h = im.GetHeight();
1303 for (int j = 0; j < h; j++)
1304 for (int i = 0; i < w; i++) im.SetAlpha(i, j, 155);
1305
1306 m_pdc->DrawBitmap(im, x, y, true);
1307
1308 } else {
1309#ifdef ocpnUSE_GL
1310#ifndef USE_ANDROID_GLES2
1311
1312 if (!m_oDC) {
1313 m_oDC = new pi_ocpnDC();
1314 }
1315
1316 m_oDC->SetVP(m_VpMouse);
1317 m_oDC->SetPen(wxPen(pen_color, 3));
1318
1319 wxPoint outline[5];
1320 outline[0] = wxPoint(x, y);
1321 outline[1] = wxPoint(x + zw, y);
1322 outline[2] = wxPoint(x + zw, y + zh);
1323 outline[3] = wxPoint(x, y + zh);
1324 outline[4] = wxPoint(x, y);
1325 m_oDC->DrawLines(5, outline);
1326
1327 m_oDC->SetFont(*font);
1328 int w, h, ww, hw;
1329 m_oDC->GetTextExtent(label, &w, &h);
1330 h *= m_displayScale;
1331 w *= m_displayScale;
1332
1333 m_oDC->GetTextExtent("W", &ww, &hw);
1334
1335 int label_offsetx = ww, label_offsety = 1;
1336 int x = center.x - w / 2;
1337 int y = center.y - h / 2;
1338
1339 w += 2 * label_offsetx, h += 2 * label_offsety;
1340
1341 m_oDC->SetBrush(wxBrush(back_color));
1342 m_oDC->DrawRoundedRectangle(x, y, w, h, 0);
1343
1344 /* draw bounding rectangle */
1345 m_oDC->SetPen(wxPen(wxColour(0, 0, 0), 1));
1346
1347 outline[0] = wxPoint(x, y);
1348 outline[1] = wxPoint(x + w, y);
1349 outline[2] = wxPoint(x + w, y + h);
1350 outline[3] = wxPoint(x, y + h);
1351 outline[4] = wxPoint(x, y);
1352 m_oDC->DrawLines(5, outline);
1353
1354 m_oDC->DrawText(label, x + label_offsetx, y + label_offsety);
1355
1356#endif
1357#endif
1358 }
1359 return true;
1360}
1361
1362bool GribRequestSetting::RenderGlZoneOverlay() {
1363 if (m_RenderSelectionZoneState == RENDER_NONE) return false;
1364 m_pdc = nullptr; // inform lower layers that this is OpenGL render
1365 return DoRenderZoneOverlay();
1366}
1367
1368bool GribRequestSetting::RenderZoneOverlay(wxDC &dc) {
1369 if (m_RenderSelectionZoneState == RENDER_NONE) return false;
1370 m_pdc = &dc;
1371 return DoRenderZoneOverlay();
1372}
1373
1374void GribRequestSetting::OnMovingClick(wxCommandEvent &event) {
1375 m_fgMovingParams->ShowItems(m_cMovingGribEnabled->IsChecked() &&
1376 m_cMovingGribEnabled->IsShown());
1377
1378 if (m_AllowSend) m_MailImage->SetValue(WriteMail());
1379 SetRequestDialogSize();
1380
1381 this->Refresh();
1382}
1383
1384void GribRequestSetting::OnCoordinatesChange(wxSpinEvent &event) {
1385 SetCoordinatesText();
1386
1387 StopGraphicalZoneSelection(); // eventually stop graphical zone display
1388
1389 if (!m_AllowSend) return;
1390
1391 m_MailImage->SetValue(WriteMail());
1392}
1393
1394void GribRequestSetting::OnAnyChange(wxCommandEvent &event) {
1395 m_fgAltitudeData->ShowItems(m_pAltitudeData->IsChecked());
1396
1397 m_pWModel->Show(IsZYGRIB && m_pWaves->IsChecked());
1398
1399 if (m_AllowSend) m_MailImage->SetValue(WriteMail());
1400
1401 SetRequestDialogSize();
1402}
1403
1404void GribRequestSetting::OnTimeRangeChange(wxCommandEvent &event) {
1405 m_pWModel->Show(IsZYGRIB && m_pWaves->IsChecked());
1406
1407 if (m_pModel->GetCurrentSelection() == 0) { // gfs
1408 if (m_pTimeRange->GetCurrentSelection() >
1409 6) { // time range more than 8 days
1410 m_pWaves->SetValue(0);
1411 m_pWaves->Enable(false);
1412 OCPNMessageBox_PlugIn(
1413 this,
1414 _("You request a forecast for more than 8 days horizon.\nThis is "
1415 "conflicting with Wave data which will be removed from your "
1416 "request.\nDon't forget that beyond the first 8 days, the "
1417 "resolution will be only 2.5\u00B0x2.5\u00B0\nand the time "
1418 "intervall 12 hours."),
1419 _("Warning!"));
1420 } else
1421 m_pWaves->Enable(true);
1422 }
1423
1424 if (m_AllowSend) m_MailImage->SetValue(WriteMail());
1425
1426 SetRequestDialogSize();
1427}
1428
1429void GribRequestSetting::OnOK(wxCommandEvent &event) {
1430 bool IsCOAMPS = m_pModel->GetCurrentSelection() == COAMPS;
1431 bool IsRTOFS = m_pModel->GetCurrentSelection() == RTOFS;
1432 bool IsICON = m_pModel->GetCurrentSelection() == ICON;
1433 bool IsECMWF = m_pModel->GetCurrentSelection() == ECMWF;
1434 m_RequestConfigBase.SetChar(
1435 0, (char)(m_pMailTo->GetCurrentSelection() + '0')); // recipient
1436 m_cMovingGribEnabled->IsChecked()
1437 ? m_RequestConfigBase.SetChar(16, 'X') // moving grib
1438 : m_RequestConfigBase.SetChar(16, '.');
1439
1440 if (!IsZYGRIB)
1441 m_RequestConfigBase.SetChar(
1442 1, (char)(m_pModel->GetCurrentSelection() + '0')); // model
1443 if (!IsECMWF)
1444 m_RequestConfigBase.SetChar(
1445 2, (char)(m_pResolution->GetCurrentSelection() + '0')); // resolution
1446
1447 m_RequestConfigBase.SetChar(3,
1448 (char)(m_pInterval->GetCurrentSelection() + '0'));
1449
1450 wxString range;
1451 range.Printf(_T("%x"), m_pTimeRange->GetCurrentSelection() +
1452 1); // range max = 2 to 16 stored in hexa 1 to f
1453 m_RequestConfigBase.SetChar(4, range.GetChar(0));
1454
1455 if (IsZYGRIB && m_pWModel->IsShown())
1456 m_RequestConfigBase.SetChar(
1457 5, (char)(m_pWModel->GetCurrentSelection() + '0')); // waves model
1458
1459 m_RequestConfigBase.SetChar(
1460 6, 'X'); // wind must be always selected as a default
1461 m_RequestConfigBase.SetChar(
1462 7, 'X'); // pressure must be always selected as a default
1463
1464 if (!IsCOAMPS && !IsRTOFS) {
1465 m_pWindGust->IsChecked() ? m_RequestConfigBase.SetChar(14, 'X') // Gust
1466 : m_RequestConfigBase.SetChar(14, '.');
1467 m_pWaves->IsChecked() ? m_RequestConfigBase.SetChar(8, 'X') // waves
1468 : m_RequestConfigBase.SetChar(8, '.');
1469 m_pRainfall->IsChecked() ? m_RequestConfigBase.SetChar(9, 'X') // rainfall
1470 : m_RequestConfigBase.SetChar(9, '.');
1471 m_pCloudCover->IsChecked() ? m_RequestConfigBase.SetChar(10, 'X') // clouds
1472 : m_RequestConfigBase.SetChar(10, '.');
1473 m_pAirTemp->IsChecked() ? m_RequestConfigBase.SetChar(11, 'X') // air temp
1474 : m_RequestConfigBase.SetChar(11, '.');
1475 m_pSeaTemp->IsChecked() ? m_RequestConfigBase.SetChar(12, 'X') // sea temp
1476 : m_RequestConfigBase.SetChar(12, '.');
1477 m_pCAPE->IsChecked() ? m_RequestConfigBase.SetChar(15, 'X') // cape
1478 : m_RequestConfigBase.SetChar(15, '.');
1479 }
1480 if (IsRTOFS) // current
1481 m_pCurrent->IsChecked() ? m_RequestConfigBase.SetChar(13, 'X')
1482 : m_RequestConfigBase.SetChar(13, '.');
1483
1484 if (IsGFS || IsICON || IsECMWF) {
1485 m_pAltitudeData->IsChecked()
1486 ? m_RequestConfigBase.SetChar(17, 'X') // altitude data
1487 : m_RequestConfigBase.SetChar(17, '.');
1488 m_p500hpa->IsChecked() ? m_RequestConfigBase.SetChar(20, 'X')
1489 : m_RequestConfigBase.SetChar(20, '.');
1490 }
1491 if (IsZYGRIB) {
1492 m_p850hpa->IsChecked() ? m_RequestConfigBase.SetChar(18, 'X')
1493 : m_RequestConfigBase.SetChar(18, '.');
1494 m_p700hpa->IsChecked() ? m_RequestConfigBase.SetChar(19, 'X')
1495 : m_RequestConfigBase.SetChar(19, '.');
1496 m_p300hpa->IsChecked() ? m_RequestConfigBase.SetChar(21, 'X')
1497 : m_RequestConfigBase.SetChar(21, '.');
1498 }
1499 SaveConfig();
1500 wxCloseEvent evt;
1501 OnClose(evt);
1502}
1503
1504wxString GribRequestSetting::WriteMail() {
1505 // define size limits for zyGrib
1506 int limit = IsZYGRIB ? 2 : 0; // new limit 2 mb
1507
1508 m_MailError_Nb = 0;
1509 // some useful strings
1510 const wxString s[] = {_T(","), _T(" ")}; // separators
1511 const wxString p[][11] = {
1512 // parameters GFS from Saildocs
1513 {_T("APCP"), _T("TCDC"), _T("AIRTMP"), _T("HTSGW,WVPER,WVDIR"),
1514 _T("SEATMP"), _T("GUST"), _T("CAPE"), wxEmptyString, wxEmptyString,
1515 _T("WIND500,HGT500"), wxEmptyString},
1516 {}, // COAMPS
1517 {}, // RTOFS
1518 {}, // HRRR = same parameters as GFS
1519 // parametres ICON
1520 {_T(""), _T(""), _T("AIRTMP"), _T(""), _T("SFCTMP"), _T("GUST"), _T(""),
1521 _T(""), _T(""), _T("WIND500,HGT500"), _T("")},
1522 // parametres ECMWF
1523 {_T(""), _T(""), _T("TEMP"), _T("WAVES"), _T(""), _T(""), _T(""), _T(""),
1524 _T(""), _T("WIND500,HGT500"), _T("")},
1525 // parameters GFS from zygrib
1526 {_T("PRECIP"), _T("CLOUD"), _T("TEMP"), _T("WVSIG WVWIND"), wxEmptyString,
1527 _T("GUST"), _T("CAPE"), _T("A850"), _T("A700"), _T("A500"), _T("A300")}};
1528
1529 wxString r_topmess, r_parameters, r_zone;
1530 // write the top part of the mail
1531 switch (m_pMailTo->GetCurrentSelection()) {
1532 case SAILDOCS: // Saildocs
1533 r_zone = toMailFormat(1, m_spMaxLat->GetValue()) + _T(",") +
1534 toMailFormat(1, m_spMinLat->GetValue()) + _T(",") +
1535 toMailFormat(2, m_spMinLon->GetValue()) + _T(",") +
1536 toMailFormat(2, m_spMaxLon->GetValue());
1537 r_topmess = wxT("send ");
1538 r_topmess.Append(m_pModel->GetStringSelection() + _T(":"));
1539 r_topmess.Append(r_zone + _T("|"));
1540 r_topmess.Append(m_pResolution->GetStringSelection())
1541 .Append(_T(","))
1542 .Append(m_pResolution->GetStringSelection())
1543 .Append(_T("|"));
1544 double v;
1545 m_pInterval->GetStringSelection().ToDouble(&v);
1546 r_topmess.Append(wxString::Format(_T("0,%d,%d"), (int)v, (int)v * 2));
1547 m_pTimeRange->GetStringSelection().ToDouble(&v);
1548 r_topmess.Append(wxString::Format(_T("..%d"), (int)v * 24) + _T("|=\n"));
1549 break;
1550 case ZYGRIB: // Zygrib
1551 double maxlon = (m_spMinLon->GetValue() > m_spMaxLon->GetValue() &&
1552 m_spMaxLon->GetValue() < 0)
1553 ? m_spMaxLon->GetValue() + 360
1554 : m_spMaxLon->GetValue();
1555 r_zone = toMailFormat(1, m_spMinLat->GetValue()) +
1556 toMailFormat(2, m_spMinLon->GetValue()) + _T(" ") +
1557 toMailFormat(1, m_spMaxLat->GetValue()) +
1558 toMailFormat(2, maxlon);
1559 r_topmess = wxT("login : ");
1560 r_topmess.Append(m_pLogin->GetValue() + _T("\n"));
1561 r_topmess.Append(wxT("code :"));
1562 r_topmess.Append(m_pCode->GetValue() + _T("\n"));
1563 r_topmess.Append(wxT("area : "));
1564 r_topmess.append(r_zone + _T("\n"));
1565 r_topmess.Append(wxT("resol : "));
1566 r_topmess.append(m_pResolution->GetStringSelection() + _T("\n"));
1567 r_topmess.Append(wxT("days : "));
1568 r_topmess.append(m_pTimeRange->GetStringSelection() + _T("\n"));
1569 r_topmess.Append(wxT("hours : "));
1570 r_topmess.append(m_pInterval->GetStringSelection() + _T("\n"));
1571 if (m_pWaves->IsChecked()) {
1572 r_topmess.Append(wxT("waves : "));
1573 r_topmess.append(m_pWModel->GetStringSelection() + _T("\n"));
1574 }
1575 r_topmess.Append(wxT("meteo : "));
1576 r_topmess.append(m_pModel->GetStringSelection() + _T("\n"));
1577 if (m_pLogin->GetValue().IsEmpty() || m_pCode->GetValue().IsEmpty())
1578 m_MailError_Nb = 6;
1579 break;
1580 }
1581 // write the parameters part of the mail
1582 int GFSZ = IsZYGRIB ? 6 : 0;
1583 switch (m_pModel->GetCurrentSelection()) {
1584 case GFS: // GFS
1585 r_parameters = wxT("WIND") + s[m_pMailTo->GetCurrentSelection()] +
1586 wxT("PRESS"); // the default minimum request parameters
1587 if (m_pRainfall->IsChecked())
1588 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1589 p[GFS + GFSZ][0]);
1590 if (m_pCloudCover->IsChecked())
1591 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1592 p[GFS + GFSZ][1]);
1593 if (m_pAirTemp->IsChecked())
1594 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1595 p[GFS + GFSZ][2]);
1596 if (m_pWaves->IsChecked())
1597 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1598 p[GFS + GFSZ][3]);
1599 if (m_pSeaTemp->IsChecked())
1600 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1601 p[GFS + GFSZ][4]);
1602 if (m_pWindGust->IsChecked())
1603 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1604 p[GFS + GFSZ][5]);
1605 if (m_pCAPE->IsChecked())
1606 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1607 p[GFS + GFSZ][6]);
1608 if (m_pAltitudeData->IsChecked()) {
1609 if (m_p850hpa->IsChecked())
1610 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1611 p[GFS + GFSZ][7]);
1612 if (m_p700hpa->IsChecked())
1613 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1614 p[GFS + GFSZ][8]);
1615 if (m_p500hpa->IsChecked())
1616 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1617 p[GFS + GFSZ][9]);
1618 if (m_p300hpa->IsChecked())
1619 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1620 p[GFS + GFSZ][10]);
1621 }
1622 break;
1623 case COAMPS: // COAMPS
1624 r_parameters = wxT("WIND,PRMSL"); // the default parameters for this
1625 // model
1626 break;
1627 case RTOFS: // RTOFS
1628 r_parameters = wxT("CUR,WTMP"); // the default parameters for this model
1629 break;
1630 case HRRR: // HRRR
1631 r_parameters = wxT("WIND,PRMSL"); // the default parameters for this
1632 // model
1633 if (m_pRainfall->IsChecked())
1634 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[GFS][0]);
1635 if (m_pAirTemp->IsChecked())
1636 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[GFS][2]);
1637 if (m_pSeaTemp->IsChecked())
1638 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[GFS][4]);
1639 if (m_pWindGust->IsChecked())
1640 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[GFS][5]);
1641 if (m_pCAPE->IsChecked())
1642 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[GFS][6]);
1643 break;
1644 case ICON:
1645 r_parameters = wxT("WIND,PRMSL"); // the default parameters for this
1646 // model
1647 if (m_pAirTemp->IsChecked())
1648 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ICON][2]);
1649 if (m_pSeaTemp->IsChecked())
1650 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ICON][4]);
1651 if (m_pWindGust->IsChecked())
1652 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ICON][5]);
1653 if (m_pAltitudeData->IsChecked()) {
1654 if (m_p500hpa->IsChecked())
1655 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ICON][9]);
1656 }
1657 break;
1658 case ECMWF:
1659 r_parameters = wxT("WIND,MSLP"); // the default parameters for this
1660 // model
1661 if (m_pAirTemp->IsChecked())
1662 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ECMWF][2]);
1663 if (m_pAltitudeData->IsChecked()) {
1664 if (m_p500hpa->IsChecked())
1665 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] +
1666 p[ECMWF][9]);
1667 }
1668 if (m_pWaves->IsChecked())
1669 r_parameters.Append(s[m_pMailTo->GetCurrentSelection()] + p[ECMWF][3]);
1670 break;
1671 }
1672 if (!IsZYGRIB && m_cMovingGribEnabled->IsChecked()) // moving grib
1673 r_parameters.Append(wxString::Format(
1674 _T("|%d,%d"), m_sMovingSpeed->GetValue(), m_sMovingCourse->GetValue()));
1675
1676 // line lenth limitation
1677 int j = 0;
1678 char c = m_pMailTo->GetCurrentSelection() == SAILDOCS ? ',' : ' ';
1679 for (size_t i = 0; i < r_parameters.Len(); i++) {
1680 if (r_parameters.GetChar(i) == '|')
1681 j--; // do not split Saildocs "moving" values
1682 if (r_parameters.GetChar(i) == c) j++;
1683 if (j > 6) { // no more than 6 parameters on the same line
1684 r_parameters.insert(i + 1, m_pMailTo->GetCurrentSelection() == SAILDOCS
1685 ? _T("=\n")
1686 : _T("\n"));
1687 break;
1688 }
1689 }
1690
1691 double size;
1692 m_MailError_Nb += EstimateFileSize(&size);
1693
1694 m_tFileSize->SetLabel(wxString::Format(_T("%1.2f " ), size) + _("MB"));
1695
1696 if (IsZYGRIB) {
1697 m_tLimit->SetLabel(wxString(_T("( ")) + _("Max") +
1698 wxString::Format(_T(" %d "), limit) + _("MB") +
1699 _T(" )"));
1700 if (size > limit) m_MailError_Nb += 2;
1701 } else
1702 m_tLimit->SetLabel(wxEmptyString);
1703
1704 return wxString(r_topmess + r_parameters);
1705}
1706
1707int GribRequestSetting::EstimateFileSize(double *size) {
1708 if (!size) return 0; // Wrong parameter
1709 *size = 0.;
1710
1711 // too small zone ? ( mini 2 * resolutions )
1712 double reso, time, inter;
1713 m_pResolution->GetStringSelection().ToDouble(&reso);
1714 m_pTimeRange->GetStringSelection().ToDouble(&time);
1715 m_pInterval->GetStringSelection().ToDouble(&inter);
1716
1717 double maxlon = m_spMaxLon->GetValue(), minlon = m_spMinLon->GetValue();
1718 double maxlat = m_spMaxLat->GetValue(), minlat = m_spMinLat->GetValue();
1719 if (maxlat - minlat < 0) return 3; // maxlat must be > minlat
1720 double wlon = (maxlon > minlon ? 0 : 360) + maxlon - minlon;
1721 if (wlon > 180 || (maxlat - minlat > 180)) return 4; // ovoid too big area
1722
1723 if (fabs(wlon) < 2 * reso || maxlat - minlat < 2 * reso)
1724 return 5; // ovoid too small area
1725
1726 int npts = (int)(ceil(((double)(maxlat - minlat) / reso)) *
1727 ceil(((double)(wlon) / reso)));
1728
1729 if (m_pModel->GetCurrentSelection() == COAMPS) // limited area for COAMPS
1730 npts = wxMin(npts, (int)(ceil(40.0 / reso) * ceil(40.0 / reso)));
1731
1732 // Nombre de GribRecords
1733 int nbrec = (int)(time * 24 / inter) + 1;
1734 int nbPress = (m_pPress->IsChecked()) ? nbrec : 0;
1735 int nbWind = (m_pWind->IsChecked()) ? 2 * nbrec : 0;
1736 int nbwave = (m_pWaves->IsChecked()) ? 2 * nbrec : 0;
1737 int nbRain = (m_pRainfall->IsChecked()) ? nbrec - 1 : 0;
1738 int nbCloud = (m_pCloudCover->IsChecked()) ? nbrec - 1 : 0;
1739 int nbTemp = (m_pAirTemp->IsChecked()) ? nbrec : 0;
1740 int nbSTemp = (m_pSeaTemp->IsChecked()) ? nbrec : 0;
1741 int nbGUSTsfc = (m_pWindGust->IsChecked()) ? nbrec : 0;
1742 int nbCurrent = (m_pCurrent->IsChecked()) ? nbrec : 0;
1743 int nbCape = (m_pCAPE->IsChecked()) ? nbrec : 0;
1744 int nbAltitude =
1745 IsZYGRIB ? 5 * nbrec : 3 * nbrec; // five data types are included in each
1746 // ZyGrib altitude request and only
1747 // three in sSaildocs's
1748 int head = 84;
1749 double estime = 0.0;
1750 int nbits;
1751
1752 nbits = 13;
1753 estime += nbWind * (head + (nbits * npts) / 8 + 2);
1754 estime += nbCurrent * (head + (nbits * npts) / 8 + 2);
1755
1756 nbits = 11;
1757 estime += nbTemp * (head + (nbits * npts) / 8 + 2);
1758 estime += nbSTemp * (head + (nbits * npts) / 8 + 2);
1759
1760 nbits = 4;
1761 estime += nbRain * (head + (nbits * npts) / 8 + 2);
1762
1763 nbits = 15;
1764 estime += nbPress * (head + (nbits * npts) / 8 + 2);
1765
1766 nbits = 4;
1767 estime += nbCloud * (head + (nbits * npts) / 8 + 2);
1768
1769 nbits = 7;
1770 estime += nbGUSTsfc * (head + (nbits * npts) / 8 + 2);
1771
1772 nbits = 5;
1773 estime += nbCape * (head + (nbits * npts) / 8 + 2);
1774
1775 nbits = 6;
1776 estime += nbwave * (head + (nbits * npts) / 8 + 2);
1777
1778 if (m_pAltitudeData->IsChecked()) {
1779 int nbalt = 0;
1780 if (m_p850hpa->IsChecked()) nbalt++;
1781 if (m_p700hpa->IsChecked()) nbalt++;
1782 if (m_p500hpa->IsChecked()) nbalt++;
1783 if (m_p300hpa->IsChecked()) nbalt++;
1784
1785 nbits = 12;
1786 estime += nbAltitude * nbalt * (head + (nbits * npts) / 8 + 2);
1787 }
1788
1789 *size = estime / (1024. * 1024.);
1790
1791 return 0;
1792}
1793
1794const wxString EncodeURL(const wxString &uri) {
1795 static std::unordered_map<int, wxString> sEncodeMap = {
1796 {(int)'!', "%21"}, {(int)'#', "%23"}, {(int)'$', "%24"},
1797 {(int)'&', "%26"}, {(int)'\'', "%27"}, {(int)'(', "%28"},
1798 {(int)')', "%29"}, {(int)'*', "%2A"}, {(int)'+', "%2B"},
1799 {(int)',', "%2C"}, {(int)';', "%3B"}, {(int)'=', "%3D"},
1800 {(int)'?', "%3F"}, {(int)'@', "%40"}, {(int)'[', "%5B"},
1801 {(int)']', "%5D"}, {(int)' ', "%20"}, {(int)'|', "%7C"},
1802 {(int)':', "%3A"}, {(int)'\n', "%0A"}};
1803
1804 wxString encoded;
1805 for (size_t i = 0; i < uri.length(); ++i) {
1806 wxChar ch = uri[i];
1807 std::unordered_map<int, wxString>::iterator iter = sEncodeMap.find((int)ch);
1808 if (iter != sEncodeMap.end()) {
1809 encoded << iter->second;
1810 } else {
1811 encoded << ch;
1812 }
1813 }
1814 return encoded;
1815}
1816
1817void GribRequestSetting::OnSendMaiL(wxCommandEvent &event) {
1818 StopGraphicalZoneSelection(); // eventually stop graphical zone display
1819
1820 if (!m_AllowSend) {
1821 m_rButtonCancel->Show();
1822 m_rButtonApply->Show();
1823 m_rButtonYes->SetLabel(_("Send"));
1824
1825 m_MailImage->SetForegroundColour(
1826 wxColor(0, 0, 0)); // permit to send a (new) message
1827 m_AllowSend = true;
1828
1829 m_MailImage->SetValue(WriteMail());
1830 SetRequestDialogSize();
1831
1832 return;
1833 }
1834
1835 const wxString error[] = {
1836 _T("\n\n"),
1837 _("Before sending an email to Zygrib you have to enter your Login and "
1838 "Code.\nPlease visit www.zygrib.org/ and follow instructions..."),
1839 _("Too big file! zyGrib limit is 2Mb!"),
1840 _("Error! Max Lat lower than Min Lat or Max Lon lower than Min Lon!"),
1841 _("Too large area! Each side must be less than 180\u00B0!"),
1842 _("Too small area for this resolution!")};
1843
1844 ::wxBeginBusyCursor();
1845
1846 m_MailImage->SetForegroundColour(wxColor(255, 0, 0));
1847 m_AllowSend = false;
1848
1849 if (m_MailError_Nb) {
1850 if (m_MailError_Nb > 7) {
1851 m_MailImage->SetValue(error[1] + error[0] + error[m_MailError_Nb - 6]);
1852 } else {
1853 if (m_MailError_Nb == 6) m_MailError_Nb = 1;
1854 m_MailImage->SetValue(error[m_MailError_Nb]);
1855 }
1856
1857 m_rButtonYes->SetLabel(_("Continue..."));
1858 SetRequestDialogSize();
1859
1860 ::wxEndBusyCursor();
1861
1862 return;
1863 }
1864
1865#ifdef __WXMAC__
1866 // macOS, at least Big Sur, requires the body to be URLEncoded, otherwise the
1867 // invocation of the mail application via sh/open in wxEmail fails due to
1868 // "invalid characters" in "filename" regardless of quotation used (which is
1869 // weird, but real)
1870 wxMailMessage *message = new wxMailMessage(
1871 (m_pMailTo->GetCurrentSelection() == SAILDOCS)
1872 ? _T("grib-request")
1873 : wxT("gribauto"), // requested subject
1874 (m_pMailTo->GetCurrentSelection() == SAILDOCS)
1875 ? m_MailToAddresses.BeforeFirst(_T(';')) // to request address
1876 : m_MailToAddresses.AfterFirst(_T(';')).BeforeFirst(_T(';')),
1877 EncodeURL(WriteMail()), // message image
1878 m_pSenderAddress->GetValue());
1879#else
1880 wxMailMessage *message = new wxMailMessage(
1881 (m_pMailTo->GetCurrentSelection() == SAILDOCS)
1882 ? _T("grib-request")
1883 : wxT("gribauto"), // requested subject
1884 (m_pMailTo->GetCurrentSelection() == SAILDOCS)
1885 ? m_MailToAddresses.BeforeFirst(_T(';')) // to request address
1886 : m_MailToAddresses.AfterFirst(_T(';')).BeforeFirst(_T(';')),
1887 WriteMail(), // message image
1888 m_pSenderAddress->GetValue());
1889#endif
1890
1891 wxEmail mail;
1892 if (mail.Send(*message, m_SendMethod)) {
1893#ifdef __WXMSW__
1894 m_MailImage->SetValue(
1895 _("Your request is ready. An email is prepared in your email "
1896 "environment. \nYou have just to verify and send it...\nSave or "
1897 "Cancel to finish...or Continue..."));
1898#else
1899 if (m_SendMethod == 0) {
1900 m_MailImage->SetValue(
1901 _("Your request is ready. An email is prepared in your email "
1902 "environment. \nYou have just to verify and send it...\nSave or "
1903 "Cancel to finish...or Continue..."));
1904 } else {
1905 m_MailImage->SetValue(
1906 _("Your request was sent \n(if your system has an MTA configured and "
1907 "is able to send email).\nSave or Cancel to finish...or "
1908 "Continue..."));
1909 }
1910#endif
1911 } else {
1912 m_MailImage->SetValue(
1913 _("Request can't be sent. Please verify your email systeme "
1914 "parameters.\nYou should also have a look at your log file.\nSave or "
1915 "Cancel to finish..."));
1916 m_rButtonYes->Hide();
1917 }
1918 m_rButtonYes->SetLabel(_("Continue..."));
1919 SetRequestDialogSize();
1920 delete message;
1921 ::wxEndBusyCursor();
1922}
1923
1926wxString GribRequestSetting::BuildXyGribUrl() {
1927 // Server's base address
1928 wxString urlStr =
1929 wxString::Format("http://grbsrv.opengribs.org/getmygribs2.php?");
1930 // Bounding box
1931 urlStr << wxString::Format("la1=%.0f", floor(GetMinLat()));
1932 urlStr << wxString::Format("&la2=%.0f", ceil(GetMaxLat()));
1933 urlStr << wxString::Format("&lo1=%.0f", floor(GetMinLon()));
1934 urlStr << wxString::Format("&lo2=%.0f", ceil(GetMaxLon()));
1935
1936 // Atmospheric Model & resolution reference
1937 urlStr << wxString::Format(
1938 "&model=%s",
1939 xygribAtmModelList[m_selectedAtmModelIndex]
1940 ->reqName[m_xygribPanel->m_resolution_choice->GetSelection()]);
1941 // Interval
1942 urlStr << wxString::Format(
1943 "&intv=%d",
1944 xygribAtmModelList[m_selectedAtmModelIndex]
1945 ->interval[m_xygribPanel->m_interval_choice->GetSelection()]);
1946 // Length in days
1947 urlStr << wxString::Format(
1948 "&days=%d", m_xygribPanel->m_duration_choice->GetSelection() + 1);
1949
1950 // Selected run
1951 // TODO : available runs depend on model
1952 wxString selStr = m_xygribPanel->m_run_choice->GetStringSelection();
1953 if (selStr.IsSameAs("18h", false)) {
1954 urlStr << "&cyc=18";
1955 } else if (selStr.IsSameAs("12h", false)) {
1956 urlStr << "&cyc=12";
1957 } else if (selStr.IsSameAs("6h", false)) {
1958 urlStr << "&cyc=06";
1959 } else if (selStr.IsSameAs("0h", false)) {
1960 urlStr << "&cyc=00";
1961 } else {
1962 urlStr << "&cyc=last";
1963 }
1964
1965 // Atmospheric data fields
1966 urlStr << "&par=";
1967 if (m_xygribPanel->m_wind_cbox->IsEnabled() &&
1968 m_xygribPanel->m_wind_cbox->IsChecked())
1969 urlStr << "W;";
1970 if (m_xygribPanel->m_pressure_cbox->IsEnabled() &&
1971 m_xygribPanel->m_pressure_cbox->IsChecked()) {
1972 if (xygribAtmModelList[m_selectedAtmModelIndex]->altPressure) {
1973 urlStr << "p;";
1974 } else {
1975 urlStr << "P;";
1976 }
1977 }
1978 if (m_xygribPanel->m_precipitation_cbox->IsEnabled() &&
1979 m_xygribPanel->m_precipitation_cbox->IsChecked())
1980 urlStr << "R;";
1981 if (m_xygribPanel->m_cloudcover_cbox->IsEnabled() &&
1982 m_xygribPanel->m_cloudcover_cbox->IsChecked())
1983 urlStr << "C;";
1984 if (m_xygribPanel->m_temperature_cbox->IsEnabled() &&
1985 m_xygribPanel->m_temperature_cbox->IsChecked())
1986 urlStr << "T;";
1987 if (m_xygribPanel->m_cape_cbox->IsEnabled() &&
1988 m_xygribPanel->m_cape_cbox->IsChecked())
1989 urlStr << "c;";
1990 if (m_xygribPanel->m_reflectivity_cbox->IsEnabled() &&
1991 m_xygribPanel->m_reflectivity_cbox->IsChecked())
1992 urlStr << "r;";
1993 if (m_xygribPanel->m_gust_cbox->IsEnabled() &&
1994 m_xygribPanel->m_gust_cbox->IsChecked())
1995 urlStr << "G;";
1996
1997 // Wave model a data fields
1998 if ((m_selectedWaveModelIndex >= 0) &&
1999 (xygribWaveModelList[m_selectedWaveModelIndex] != nullptr)) {
2000 wxString modelStr = wxString::Format(
2001 "&wmdl=%s", xygribWaveModelList[m_selectedWaveModelIndex]->reqName);
2002 wxString wParams = "";
2003 if (m_xygribPanel->m_waveheight_cbox->IsChecked()) {
2004 wParams << "s;";
2005 }
2006 if (m_xygribPanel->m_windwave_cbox->IsChecked()) {
2007 wParams << "h;d;p;";
2008 }
2009 if (wParams.length() > 0) {
2010 urlStr << wxString::Format("%s&wpar=%s", modelStr.c_str(),
2011 wParams.c_str());
2012 } else {
2013 urlStr << "&wmdl=none";
2014 }
2015 } else {
2016 urlStr << "&wmdl=none";
2017 }
2018
2019 return urlStr;
2020}
2021
2024wxString GribRequestSetting::BuildGribFileName() {
2025 wxString selStr = m_xygribPanel->m_resolution_choice->GetStringSelection();
2026 selStr.Replace(".", "P");
2027
2028 wxString fileName;
2029 if (m_selectedWaveModelIndex < 0) {
2030 fileName = wxString::Format(
2031 "XyGrib_%s_%s_%s.grb2", wxDateTime::Now().Format("%F-%H-%M"),
2032 m_xygribPanel->m_atmmodel_choice->GetStringSelection(), selStr);
2033 } else {
2034 fileName = wxString::Format(
2035 "XyGrib_%s_%s_%s_%s.grb2", wxDateTime::Now().Format("%F-%H-%M"),
2036 m_xygribPanel->m_atmmodel_choice->GetStringSelection(), selStr,
2037 m_xygribPanel->m_wavemodel_choice->GetStringSelection());
2038 }
2039
2040 return fileName;
2041}
2042
2043/*/ Handle action of Download/Cancel button.
2044 * This function gathers the current GRIB configuration and handles the
2045 * downloading of the GRIB file. If a transfer is already ongoing, it cancels
2046 * it.
2047 * @param event Event data from the GUI loop
2048 */
2049void GribRequestSetting::OnXyGribDownloadButton(wxCommandEvent &event) {
2050 // Check if we are already downloading a GRIB file
2051 if (m_downloading) {
2052 // Yes : it means that "Download" button has been changed to "Cancel"
2053 // button. So, let's cancel the on-going download
2054 OCPN_cancelDownloadFileBackground(m_download_handle);
2055 m_downloading = false;
2056 m_download_handle = 0;
2057 Disconnect(
2058 wxEVT_DOWNLOAD_EVENT,
2059 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
2060 m_connected = false;
2061 m_xygribPanel->m_progress_gauge->SetValue(0);
2062 m_xygribPanel->m_download_button->SetLabelText(_("Download"));
2063 m_xygribPanel->m_status_text->SetLabelText(_("Download cancelled"));
2064 m_canceled = true;
2065 m_downloadType = GribDownloadType::NONE;
2066 EnableDownloadButtons();
2067 wxTheApp->ProcessPendingEvents();
2068 wxYieldIfNeeded();
2069 return;
2070 }
2071 // No : start a new download
2072 if (m_gribSizeEstimate > XYGRIB_MAX_DOWNLOADABLE_GRIB_SIZE_MB * 1024 * 1024) {
2073 m_xygribPanel->m_status_text->SetLabelText(
2074 wxString::Format(_("Can't download GRIB file bigger than %d MB"),
2075 (int)XYGRIB_MAX_DOWNLOADABLE_GRIB_SIZE_MB));
2076 return;
2077 }
2078
2079 // First we memorize the current configuration. This is the one which will be
2080 // saved in OpenCPN' config file at exit
2081 MemorizeXyGribConfiguration();
2082 m_canceled = false;
2083 m_downloading = true;
2084 m_downloadType = GribDownloadType::XYGRIB;
2085 EnableDownloadButtons();
2086 // Change "Download" button into "Cancel" button
2087 m_xygribPanel->m_download_button->SetLabelText(_("Cancel"));
2088 m_xygribPanel->m_status_text->SetLabelText(
2089 _("Preparing GRIB file on server..."));
2090 wxYieldIfNeeded();
2091
2092 // Build the XyGrib DownloadURL from the current GUI configuration
2093 wxString requestUrl = BuildXyGribUrl();
2094
2095 // First we download the temporary XML file that will tell us where to
2096 // download the file on the server Downloading the XML triggers the
2097 // construction of the GRIB file on the server.
2098 wxString filename = wxString::Format("ocpn_xygrib_%s.xml",
2099 wxDateTime::Now().Format("%F-%H-%M"));
2100 wxString path = m_parent.GetGribDir();
2101 path << wxFileName::GetPathSeparator();
2102 path << filename;
2103 if (!m_connected) {
2104 m_connected = true;
2105 Connect(
2106 wxEVT_DOWNLOAD_EVENT,
2107 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
2108 }
2109 auto res = OCPN_downloadFileBackground(requestUrl.c_str(), path, this,
2110 &m_download_handle);
2111
2112 // Wait for the file to be downloaded. Note that it can take some time because
2113 // server will not send it to us until the GRIB file is ready, or an error
2114 // occured.
2115 while (m_downloading) {
2116 wxTheApp->ProcessPendingEvents();
2117 wxMilliSleep(10);
2118 }
2119
2120 if ((m_canceled) || (!m_bTransferSuccess)) {
2121 // Something went wrong : publish error on GUI
2122 m_xygribPanel->m_status_text->SetLabelText(_("Grib request failed"));
2123 m_xygribPanel->m_download_button->SetLabelText(_("Download"));
2124 m_downloadType = GribDownloadType::NONE;
2125 EnableDownloadButtons();
2126 wxRemoveFile(path);
2127 return;
2128 }
2129
2130 // Read the XML file in a wxString
2131 wxFile xmlFile;
2132 wxString strXml;
2133 bool readOk = xmlFile.Open(path);
2134 if (readOk) {
2135 readOk &= xmlFile.ReadAll(&strXml);
2136 if (readOk) {
2137 xmlFile.Close();
2138 }
2139 }
2140
2141 // Quick and dirty read of the XML file to check status (OK/NOK)
2142 wxString url;
2143 if (readOk && (((int)strXml.find("\"status\":true") == wxNOT_FOUND))) {
2144 // Status is NOK : stop download and report error to GUI
2145 wxString errorStr;
2146 int errPos = strXml.find("\"message\":\"");
2147 int errEnd = strXml.find("\"}");
2148 if ((errPos != wxNOT_FOUND) && (errEnd != wxNOT_FOUND)) {
2149 errPos += 11;
2150 errorStr = strXml.Mid(errPos, errEnd - errPos);
2151 } else {
2152 errorStr = "Unknown server error";
2153 }
2154
2155 m_xygribPanel->m_status_text->SetLabelText(
2156 wxString::Format("%s (%s)", _("Server Error"), errorStr));
2157 m_xygribPanel->m_download_button->SetLabelText(_("Download"));
2158 m_downloadType = GribDownloadType::NONE;
2159 EnableDownloadButtons();
2160 wxRemoveFile(path);
2161 return;
2162 } else {
2163 // Extract GRIB URL from XML
2164 int urlPos = strXml.find("\"url\":\"http:");
2165 int urlEnd = strXml.find(".grb2\"");
2166 if ((urlPos != wxNOT_FOUND) && (urlEnd != wxNOT_FOUND)) {
2167 urlPos += 7;
2168 urlEnd += 5;
2169 url = strXml.Mid(urlPos, urlEnd - urlPos);
2170 url.Replace("\\/", "/");
2171 } else {
2172 readOk = false;
2173 }
2174 }
2175
2176 wxRemoveFile(path);
2177
2178 // Check if there was any error in the previous phase
2179 if (!readOk) {
2180 // Yes : stop download and report error to GUI
2181 m_xygribPanel->m_status_text->SetLabelText(
2182 _("Error parsing XML file from server"));
2183 m_xygribPanel->m_download_button->SetLabelText(_("Download"));
2184 m_downloadType = GribDownloadType::NONE;
2185 EnableDownloadButtons();
2186 return;
2187 }
2188
2189 m_xygribPanel->m_status_text->SetLabelText(_("Downloading GRIB file"));
2190
2191 // Build name of the GRIB file for disk storage
2192 path = m_parent.GetGribDir();
2193 path << wxFileName::GetPathSeparator();
2194 path << BuildGribFileName();
2195
2196 // Start download
2197 m_canceled = false;
2198 m_downloading = true;
2199 if (!m_connected) {
2200 m_connected = true;
2201 Connect(
2202 wxEVT_DOWNLOAD_EVENT,
2203 (wxObjectEventFunction)(wxEventFunction)&GribRequestSetting::onDLEvent);
2204 }
2205 res =
2206 OCPN_downloadFileBackground(url.c_str(), path, this, &m_download_handle);
2207 // Wait for end of download. Note that the previously registered callback
2208 // "onDLEvent" will update the progress indicator on the GUI.
2209 while (m_downloading) {
2210 wxTheApp->ProcessPendingEvents();
2211 wxMilliSleep(10);
2212 }
2213
2214 // Download finished : restore "Download" button
2215 m_xygribPanel->m_download_button->SetLabelText(_("Download"));
2216
2217 if (!m_canceled) {
2218 if (m_bTransferSuccess) {
2219 // Transfer successfull : switch to GRIB display on chart
2220 m_xygribPanel->m_status_text->SetLabelText(_("Download complete"));
2221 wxFileName fn(path);
2222 m_parent.m_grib_dir = fn.GetPath();
2223 m_parent.m_file_names.Clear();
2224 m_parent.m_file_names.Add(path);
2225 m_parent.OpenFile();
2226 if (m_parent.pPlugIn) {
2227 if (m_parent.pPlugIn->m_bZoomToCenterAtInit) m_parent.DoZoomToCenter();
2228 }
2229 m_parent.SetDialogsStyleSizePosition(true);
2230 SaveConfig();
2231 Close();
2232 } else {
2233 // Download failed : report error to GUI
2234 m_xygribPanel->m_status_text->SetLabelText(_("Download failed"));
2235 }
2236 }
2237 m_downloadType = GribDownloadType::NONE;
2238 EnableDownloadButtons();
2239}
2240
2244void GribRequestSetting::OnXyGribAtmModelChoice(wxCommandEvent &event) {
2245 AtmModelDef_t *selectedAtmModel = nullptr;
2246
2247 // Find the model descriptor associated to the selected atmospheric model
2248 wxString atmModel = m_xygribPanel->m_atmmodel_choice->GetStringSelection();
2249 int modelIndex = 0;
2250 while ((selectedAtmModel = xygribAtmModelList[modelIndex]) != nullptr) {
2251 if (selectedAtmModel->name.IsSameAs(atmModel, true)) {
2252 break;
2253 }
2254 modelIndex++;
2255 }
2256
2257 // If not found, use the first one. This is not supposed to happen.
2258 if (selectedAtmModel == nullptr) {
2259 selectedAtmModel = xygribAtmModelList[0];
2260 modelIndex = 0;
2261 }
2262
2263 // Enable or disable parameters according to the model definition
2264 if (selectedAtmModel->wind)
2265 m_xygribPanel->m_wind_cbox->Enable();
2266 else
2267 m_xygribPanel->m_wind_cbox->Disable();
2268
2269 if (selectedAtmModel->gust)
2270 m_xygribPanel->m_gust_cbox->Enable();
2271 else
2272 m_xygribPanel->m_gust_cbox->Disable();
2273
2274 if (selectedAtmModel->pressure)
2275 m_xygribPanel->m_pressure_cbox->Enable();
2276 else
2277 m_xygribPanel->m_pressure_cbox->Disable();
2278
2279 if (selectedAtmModel->temperature)
2280 m_xygribPanel->m_temperature_cbox->Enable();
2281 else
2282 m_xygribPanel->m_temperature_cbox->Disable();
2283
2284 if (selectedAtmModel->cape)
2285 m_xygribPanel->m_cape_cbox->Enable();
2286 else
2287 m_xygribPanel->m_cape_cbox->Disable();
2288
2289 if (selectedAtmModel->reflectivity)
2290 m_xygribPanel->m_reflectivity_cbox->Enable();
2291 else
2292 m_xygribPanel->m_reflectivity_cbox->Disable();
2293
2294 if (selectedAtmModel->cloudCover)
2295 m_xygribPanel->m_cloudcover_cbox->Enable();
2296 else
2297 m_xygribPanel->m_cloudcover_cbox->Disable();
2298
2299 if (selectedAtmModel->precipitation)
2300 m_xygribPanel->m_precipitation_cbox->Enable();
2301 else
2302 m_xygribPanel->m_precipitation_cbox->Disable();
2303
2304 // Fill the resolution choice selection
2305 m_xygribPanel->m_resolution_choice->Clear();
2306 for (int i = 0; i < selectedAtmModel->nbRes; i++) {
2307 m_xygribPanel->m_resolution_choice->Insert(selectedAtmModel->resolution[i],
2308 i);
2309 }
2310
2311 // Fill the duration choice selection
2312 m_xygribPanel->m_duration_choice->Clear();
2313 for (int i = 0; i < selectedAtmModel->duration; i++) {
2314 m_xygribPanel->m_duration_choice->Insert(wxString::Format("%d", i + 1), i);
2315 }
2316
2317 // Fill the interval choice selection
2318 m_xygribPanel->m_interval_choice->Clear();
2319 for (int i = 0; i < selectedAtmModel->nbInterval; i++) {
2320 m_xygribPanel->m_interval_choice->Insert(
2321 wxString::Format("%dh", selectedAtmModel->interval[i]), i);
2322 }
2323
2324 // Fill the run choice selection
2325 m_xygribPanel->m_run_choice->Clear();
2326 if (selectedAtmModel->runMask == XYGRIB_RUN_0_12) {
2327 m_xygribPanel->m_run_choice->Insert("0h", 0);
2328 m_xygribPanel->m_run_choice->Insert("12h", 1);
2329 m_xygribPanel->m_run_choice->Insert(_("Latest"), 2);
2330 } else {
2331 m_xygribPanel->m_run_choice->Insert("0h", 0);
2332 m_xygribPanel->m_run_choice->Insert("6h", 1);
2333 m_xygribPanel->m_run_choice->Insert("12h", 2);
2334 m_xygribPanel->m_run_choice->Insert("18h", 3);
2335 m_xygribPanel->m_run_choice->Insert(_("Latest"), 4);
2336 }
2337
2338 if (modelIndex == m_parent.xyGribConfig.atmModelIndex) {
2339 ApplyXyGribConfiguration();
2340 } else {
2341 m_selectedAtmModelIndex = modelIndex;
2342 m_xygribPanel->m_resolution_choice->SetSelection(0);
2343 m_xygribPanel->m_duration_choice->SetSelection(
2344 m_xygribPanel->m_duration_choice->GetCount() - 1);
2345 m_xygribPanel->m_interval_choice->SetSelection(0);
2346 m_xygribPanel->m_run_choice->SetSelection(
2347 m_xygribPanel->m_run_choice->GetCount() - 1);
2348 }
2349 MemorizeXyGribConfiguration();
2350}
2351
2355void GribRequestSetting::OnXyGribWaveModelChoice(wxCommandEvent &event) {
2356 WaveModelDef_t *selectedModel = nullptr;
2357
2358 // Find the model descriptor associated to the selected wave model
2359 wxString waveModel = m_xygribPanel->m_wavemodel_choice->GetStringSelection();
2360 int modelIndex = 0;
2361 while ((selectedModel = xygribWaveModelList[modelIndex]) != nullptr) {
2362 if (selectedModel->name.IsSameAs(waveModel, true)) {
2363 break;
2364 }
2365 modelIndex++;
2366 }
2367
2368 // Model found in the table ?
2369 if (selectedModel == nullptr) {
2370 // If the model is not found in the table, disable wave model downloading
2371 m_selectedWaveModelIndex = -1;
2372 m_xygribPanel->m_waveheight_cbox->Disable();
2373 m_xygribPanel->m_windwave_cbox->Disable();
2374 MemorizeXyGribConfiguration();
2375 return;
2376 }
2377
2378 m_selectedWaveModelIndex = modelIndex;
2379
2380 // Else configure parameters according to model definition
2381 if (selectedModel->significantHeight) {
2382 m_xygribPanel->m_waveheight_cbox->Enable();
2383 } else {
2384 m_xygribPanel->m_waveheight_cbox->Disable();
2385 }
2386
2387 if (selectedModel->windWaves) {
2388 m_xygribPanel->m_windwave_cbox->Enable();
2389 } else {
2390 m_xygribPanel->m_windwave_cbox->Disable();
2391 }
2392 MemorizeXyGribConfiguration();
2393}
2394
2398void GribRequestSetting::OnXyGribConfigChange(wxCommandEvent &event) {
2399 MemorizeXyGribConfiguration();
2400}
2401
2403void GribRequestSetting::InitializeXygribDialog() {
2404 AtmModelDef_t *selectedAtmModel = nullptr;
2405 WaveModelDef_t *selectedWaveModel = nullptr;
2406
2407 // Fill selection of atmospheric models with the ones found in the model table
2408 m_xygribPanel->m_atmmodel_choice->Clear();
2409 int modelIndex = 0;
2410 while ((selectedAtmModel = xygribAtmModelList[modelIndex]) != nullptr) {
2411 m_xygribPanel->m_atmmodel_choice->Insert(selectedAtmModel->name,
2412 modelIndex);
2413 modelIndex++;
2414 }
2415 // Select the initial value from configuration
2416 m_selectedAtmModelIndex = m_parent.xyGribConfig.atmModelIndex;
2417 selectedAtmModel = xygribAtmModelList[m_selectedAtmModelIndex];
2418
2419 // Fill selection of wave models with the ones found in the table
2420 m_xygribPanel->m_wavemodel_choice->Clear();
2421 modelIndex = 0;
2422 while ((selectedWaveModel = xygribWaveModelList[modelIndex]) != nullptr) {
2423 m_xygribPanel->m_wavemodel_choice->Insert(selectedWaveModel->name,
2424 modelIndex);
2425 modelIndex++;
2426 }
2427 // Add the "None" selection
2428 m_xygribPanel->m_wavemodel_choice->Insert("None", modelIndex);
2429 m_selectedWaveModelIndex = m_parent.xyGribConfig.waveModelIndex;
2430 selectedWaveModel = xygribWaveModelList[m_selectedWaveModelIndex];
2431 if (selectedWaveModel == nullptr) {
2432 m_selectedWaveModelIndex = -1;
2433 }
2434
2435 // Fill the resolution choice selection
2436 m_xygribPanel->m_resolution_choice->Clear();
2437 for (int i = 0; i < selectedAtmModel->nbRes; i++) {
2438 m_xygribPanel->m_resolution_choice->Insert(selectedAtmModel->resolution[i],
2439 i);
2440 }
2441
2442 // Fill the duration choice selection
2443 m_xygribPanel->m_duration_choice->Clear();
2444 for (int i = 0; i < selectedAtmModel->duration; i++) {
2445 m_xygribPanel->m_duration_choice->Insert(wxString::Format("%d", i + 1), i);
2446 }
2447
2448 // Fill the interval choice selection
2449 m_xygribPanel->m_interval_choice->Clear();
2450 for (int i = 0; i < selectedAtmModel->nbInterval; i++) {
2451 m_xygribPanel->m_interval_choice->Insert(
2452 wxString::Format("%dh", selectedAtmModel->interval[i]), i);
2453 }
2454
2455 // Fill the run choice selection
2456 m_xygribPanel->m_run_choice->Clear();
2457 if (selectedAtmModel->runMask == XYGRIB_RUN_0_12) {
2458 m_xygribPanel->m_run_choice->Insert("0h", 0);
2459 m_xygribPanel->m_run_choice->Insert("12h", 1);
2460 m_xygribPanel->m_run_choice->Insert(_("Latest"), 2);
2461 } else {
2462 m_xygribPanel->m_run_choice->Insert("0h", 0);
2463 m_xygribPanel->m_run_choice->Insert("6h", 1);
2464 m_xygribPanel->m_run_choice->Insert("12h", 2);
2465 m_xygribPanel->m_run_choice->Insert("18h", 3);
2466 m_xygribPanel->m_run_choice->Insert(_("Latest"), 4);
2467 }
2468
2469 if (selectedAtmModel->wind)
2470 m_xygribPanel->m_wind_cbox->Enable();
2471 else
2472 m_xygribPanel->m_wind_cbox->Disable();
2473
2474 if (selectedAtmModel->gust)
2475 m_xygribPanel->m_gust_cbox->Enable();
2476 else
2477 m_xygribPanel->m_gust_cbox->Disable();
2478
2479 if (selectedAtmModel->pressure)
2480 m_xygribPanel->m_pressure_cbox->Enable();
2481 else
2482 m_xygribPanel->m_pressure_cbox->Disable();
2483
2484 if (selectedAtmModel->temperature)
2485 m_xygribPanel->m_temperature_cbox->Enable();
2486 else
2487 m_xygribPanel->m_temperature_cbox->Disable();
2488
2489 if (selectedAtmModel->cape)
2490 m_xygribPanel->m_cape_cbox->Enable();
2491 else
2492 m_xygribPanel->m_cape_cbox->Disable();
2493
2494 if (selectedAtmModel->reflectivity)
2495 m_xygribPanel->m_reflectivity_cbox->Enable();
2496 else
2497 m_xygribPanel->m_reflectivity_cbox->Disable();
2498
2499 if (selectedAtmModel->cloudCover)
2500 m_xygribPanel->m_cloudcover_cbox->Enable();
2501 else
2502 m_xygribPanel->m_cloudcover_cbox->Disable();
2503
2504 if (selectedAtmModel->precipitation)
2505 m_xygribPanel->m_precipitation_cbox->Enable();
2506 else
2507 m_xygribPanel->m_precipitation_cbox->Disable();
2508
2509 if ((selectedWaveModel != nullptr) && (selectedWaveModel->significantHeight))
2510 m_xygribPanel->m_waveheight_cbox->Enable();
2511 else
2512 m_xygribPanel->m_waveheight_cbox->Disable();
2513
2514 if ((selectedWaveModel != nullptr) && (selectedWaveModel->windWaves))
2515 m_xygribPanel->m_windwave_cbox->Enable();
2516 else
2517 m_xygribPanel->m_windwave_cbox->Disable();
2518
2519 ApplyXyGribConfiguration();
2520}
2521
2526void GribRequestSetting::ApplyXyGribConfiguration() {
2527 m_xygribPanel->m_atmmodel_choice->SetSelection(
2528 m_parent.xyGribConfig.atmModelIndex);
2529 m_xygribPanel->m_wavemodel_choice->SetSelection(
2530 m_parent.xyGribConfig.waveModelIndex);
2531
2532 m_xygribPanel->m_wind_cbox->SetValue(m_parent.xyGribConfig.wind);
2533 m_xygribPanel->m_gust_cbox->SetValue(m_parent.xyGribConfig.gust);
2534 m_xygribPanel->m_pressure_cbox->SetValue(m_parent.xyGribConfig.pressure);
2535 m_xygribPanel->m_temperature_cbox->SetValue(
2536 m_parent.xyGribConfig.temperature);
2537 m_xygribPanel->m_cape_cbox->SetValue(m_parent.xyGribConfig.cape);
2538 m_xygribPanel->m_reflectivity_cbox->SetValue(
2539 m_parent.xyGribConfig.reflectivity);
2540 m_xygribPanel->m_cloudcover_cbox->SetValue(m_parent.xyGribConfig.cloudCover);
2541 m_xygribPanel->m_precipitation_cbox->SetValue(
2542 m_parent.xyGribConfig.precipitation);
2543 m_xygribPanel->m_waveheight_cbox->SetValue(m_parent.xyGribConfig.waveHeight);
2544 m_xygribPanel->m_windwave_cbox->SetValue(m_parent.xyGribConfig.windWaves);
2545 m_xygribPanel->m_resolution_choice->SetSelection(
2546 m_parent.xyGribConfig.resolutionIndex);
2547 m_xygribPanel->m_duration_choice->SetSelection(
2548 m_parent.xyGribConfig.durationIndex);
2549 m_xygribPanel->m_interval_choice->SetSelection(
2550 m_parent.xyGribConfig.intervalIndex);
2551 m_xygribPanel->m_run_choice->SetSelection(m_parent.xyGribConfig.runIndex);
2552
2553 UpdateGribSizeEstimate();
2554}
2555
2560void GribRequestSetting::MemorizeXyGribConfiguration() {
2561 m_parent.xyGribConfig.atmModelIndex =
2562 m_xygribPanel->m_atmmodel_choice->GetSelection();
2563 m_parent.xyGribConfig.waveModelIndex =
2564 m_xygribPanel->m_wavemodel_choice->GetSelection();
2565
2566 m_parent.xyGribConfig.wind = m_xygribPanel->m_wind_cbox->IsChecked();
2567 m_parent.xyGribConfig.gust = m_xygribPanel->m_gust_cbox->IsChecked();
2568 m_parent.xyGribConfig.pressure = m_xygribPanel->m_pressure_cbox->IsChecked();
2569 m_parent.xyGribConfig.temperature =
2570 m_xygribPanel->m_temperature_cbox->IsChecked();
2571 m_parent.xyGribConfig.cape = m_xygribPanel->m_cape_cbox->IsChecked();
2572 m_parent.xyGribConfig.reflectivity =
2573 m_xygribPanel->m_reflectivity_cbox->IsChecked();
2574 m_parent.xyGribConfig.cloudCover =
2575 m_xygribPanel->m_cloudcover_cbox->IsChecked();
2576 m_parent.xyGribConfig.precipitation =
2577 m_xygribPanel->m_precipitation_cbox->IsChecked();
2578 m_parent.xyGribConfig.waveHeight =
2579 m_xygribPanel->m_waveheight_cbox->IsChecked();
2580 m_parent.xyGribConfig.windWaves = m_xygribPanel->m_windwave_cbox->IsChecked();
2581
2582 m_parent.xyGribConfig.resolutionIndex =
2583 m_xygribPanel->m_resolution_choice->GetSelection();
2584 m_parent.xyGribConfig.durationIndex =
2585 m_xygribPanel->m_duration_choice->GetSelection();
2586 m_parent.xyGribConfig.intervalIndex =
2587 m_xygribPanel->m_interval_choice->GetSelection();
2588 m_parent.xyGribConfig.runIndex = m_xygribPanel->m_run_choice->GetSelection();
2589
2590 UpdateGribSizeEstimate();
2591}
2592
2596void GribRequestSetting::UpdateGribSizeEstimate() {
2597 double resolution;
2598 long days;
2599 long interval;
2600
2601 if (!m_xygribPanel->m_resolution_choice->GetStringSelection().ToCDouble(
2602 &resolution)) {
2603 m_xygribPanel->m_sizeestimate_text->SetLabel("Unknown");
2604 return;
2605 }
2606 if (!m_xygribPanel->m_duration_choice->GetStringSelection().ToCLong(&days)) {
2607 m_xygribPanel->m_sizeestimate_text->SetLabel("Unknown");
2608 return;
2609 }
2610 wxString intvStr = m_xygribPanel->m_interval_choice->GetStringSelection();
2611 intvStr.Replace("h", "");
2612 if (!intvStr.ToCLong(&interval)) {
2613 m_xygribPanel->m_sizeestimate_text->SetLabel("Unknown");
2614 return;
2615 }
2616
2617 if (m_VpFocus == nullptr) {
2618 m_xygribPanel->m_sizeestimate_text->SetLabel("Unknown");
2619 return;
2620 }
2621
2622 double xmax = GetMaxLon();
2623 double xmin = GetMinLon();
2624 double ymax = GetMaxLat();
2625 double ymin = GetMinLat();
2626
2627 int npts = (int)(ceil(fabs(xmax - xmin) / resolution) *
2628 ceil(fabs(ymax - ymin) / resolution));
2629
2630 // Number of GribRecords
2631 int nbrec = (int)days * 24 / interval + 1;
2632
2633 int nbPress = (m_xygribPanel->m_pressure_cbox->IsChecked() &&
2634 m_xygribPanel->m_pressure_cbox->IsEnabled())
2635 ? nbrec
2636 : 0;
2637 int nbWind = (m_xygribPanel->m_wind_cbox->IsChecked() &&
2638 m_xygribPanel->m_wind_cbox->IsEnabled())
2639 ? 2 * nbrec
2640 : 0;
2641 int nbRain = (m_xygribPanel->m_precipitation_cbox->IsChecked() &&
2642 m_xygribPanel->m_precipitation_cbox->IsEnabled())
2643 ? nbrec - 1
2644 : 0;
2645 int nbCloud = (m_xygribPanel->m_cloudcover_cbox->IsChecked() &&
2646 m_xygribPanel->m_cloudcover_cbox->IsEnabled())
2647 ? nbrec - 1
2648 : 0;
2649 int nbTemp = (m_xygribPanel->m_temperature_cbox->IsChecked() &&
2650 m_xygribPanel->m_temperature_cbox->IsEnabled())
2651 ? nbrec
2652 : 0;
2653
2654 int nbCAPEsfc = (m_xygribPanel->m_cape_cbox->IsChecked() &&
2655 m_xygribPanel->m_cape_cbox->IsEnabled())
2656 ? nbrec
2657 : 0;
2658 int nbReflectivity = (m_xygribPanel->m_reflectivity_cbox->IsChecked() &&
2659 m_xygribPanel->m_reflectivity_cbox->IsEnabled())
2660 ? nbrec
2661 : 0;
2662 int nbGUSTsfc = (m_xygribPanel->m_gust_cbox->IsChecked() &&
2663 m_xygribPanel->m_gust_cbox->IsEnabled())
2664 ? nbrec
2665 : 0;
2666
2667 int head = 179;
2668 int estimate = 0;
2669 int nbits; // this can vary when c3 packing is used. Average numbers are used
2670 // here
2671
2672 nbits = 12;
2673 estimate += nbWind * (head + (nbits * npts) / 8 + 2);
2674
2675 nbits = 9;
2676 estimate += nbTemp * (head + (nbits * npts) / 8 + 2);
2677
2678 // estime += nbTempMin*(head+(nbits*npts)/8+2 );
2679 // estime += nbTempMax*(head+(nbits*npts)/8+2 );
2680
2681 nbits = 9;
2682 estimate += nbRain * (head + 24 + (nbits * npts) / 8 + 2);
2683
2684 nbits = 14;
2685 estimate += nbPress * (head + (nbits * npts) / 8 + 2);
2686
2687 nbits = 7;
2688 estimate += nbCloud * (head + 24 + (nbits * npts) / 8 + 2);
2689
2690 nbits = 11;
2691 estimate += nbReflectivity * (head + (nbits * npts) / 8 + 2);
2692
2693 nbits = 12;
2694 estimate += nbCAPEsfc * (head + (nbits * npts) / 8 + 2);
2695
2696 nbits = 9;
2697 estimate += nbGUSTsfc * (head + (nbits * npts) / 8 + 2);
2698 // estime += nbSUNSDsfc*(head+(nbits*npts)/8+2 );
2699
2700 // keep a record of the atmosphere estimate. if 0 nothing was selected
2701 int atmEstimate = estimate;
2702
2703 // and now the wave estimate
2704 // recalculate number of points based on which model is used
2705 if (m_xygribPanel->m_wavemodel_choice->GetStringSelection().IsSameAs(
2706 "WW3")) // 0.5 deg
2707 {
2708 npts = (int)(ceil(fabs(xmax - xmin) / 0.5) * ceil(fabs(ymax - ymin) / 0.5));
2709 nbrec = (int)fmin(8, days) * 24 / interval + 1;
2710 } else if (m_xygribPanel->m_wavemodel_choice->GetStringSelection().IsSameAs(
2711 "GWAM")) // 0.25 deg
2712 {
2713 npts =
2714 (int)(ceil(fabs(xmax - xmin) / 0.25) * ceil(fabs(ymax - ymin) / 0.25));
2715 nbrec = (int)fmin(8, days) * 24 / interval + 1;
2716 } else if (m_xygribPanel->m_wavemodel_choice->GetStringSelection().IsSameAs(
2717 "EWAM")) // 0.1 x 0.05 deg
2718 {
2719 npts =
2720 (int)(ceil(fabs(xmax - xmin) / 0.05) * ceil(fabs(ymax - ymin) / 0.1));
2721 nbrec = (int)fmin(4, days) * 24 / interval + 1;
2722 } else {
2723 npts = 0;
2724 nbrec = 0;
2725 }
2726
2727 if (m_xygribPanel->m_waveheight_cbox->IsChecked()) {
2728 nbits = 9;
2729 estimate += nbrec * (head + (nbits * npts) / 8 + 2);
2730 }
2731
2732 if (m_xygribPanel->m_windwave_cbox->IsChecked()) {
2733 nbits = 15;
2734 estimate += nbrec * (head + (nbits * npts) / 8 + 2);
2735 nbits = 8;
2736 estimate += nbrec * (head + (nbits * npts) / 8 + 2);
2737 nbits = 10;
2738 estimate += nbrec * (head + (nbits * npts) / 8 + 2);
2739 }
2740
2741 int wavEstimate = estimate - atmEstimate;
2742 // reduce wave estimate due to land overlapping by average of 40%
2743 wavEstimate = wavEstimate * 0.6;
2744 // now adjusted estimate is
2745 estimate = atmEstimate + wavEstimate;
2746
2747 // adjust for packing ~ 65%
2748 estimate = estimate * 0.65;
2749
2750 wxString warningStr = "";
2751 if (estimate / (1024 * 1024) > XYGRIB_MAX_DOWNLOADABLE_GRIB_SIZE_MB) {
2752 warningStr = wxString::Format("(Warning GRIB exceeds %d MB limit)",
2753 XYGRIB_MAX_DOWNLOADABLE_GRIB_SIZE_MB);
2754 }
2755
2756 m_xygribPanel->m_sizeestimate_text->SetLabel(
2757 wxString::Format("%d kB %s", estimate / 1024, warningStr));
2758
2759 m_gribSizeEstimate = estimate;
2760}
2761
2762double GribRequestSetting::GetMinLat() const {
2763 if (m_rbManualSelect && m_rbManualSelect->GetValue()) {
2764 return m_spMinLat->GetValue();
2765 }
2766 return m_VpFocus->lat_min;
2767}
2768
2769double GribRequestSetting::GetMaxLat() const {
2770 if (m_rbManualSelect && m_rbManualSelect->GetValue()) {
2771 return m_spMaxLat->GetValue();
2772 }
2773 return m_VpFocus->lat_max;
2774}
2775
2776double GribRequestSetting::GetMinLon() const {
2777 if (m_rbManualSelect && m_rbManualSelect->GetValue()) {
2778 return m_spMinLon->GetValue();
2779 }
2780 return m_VpFocus->lon_min;
2781}
2782
2783double GribRequestSetting::GetMaxLon() const {
2784 if (m_rbManualSelect && m_rbManualSelect->GetValue()) {
2785 return m_spMaxLon->GetValue();
2786 }
2787 return m_VpFocus->lon_max;
2788}
GribOverlayFactory.h
GRIB Data Visualization and Rendering Factory.
m_SavedZoneSelMode
int m_SavedZoneSelMode
Persisted version of the GRIB area selection mode.
Definition GribUIDialog.cpp:67
m_ZoneSelMode
int m_ZoneSelMode
Tracks the current state of GRIB area selection for zone coordinates.
Definition GribUIDialog.cpp:81
GribRequestDialog.h
GRIB Weather Data Request and Download Management.
WORLD
@ WORLD
Global forecast downloads (e.g., GFS)
Definition GribRequestDialog.h:60
XYGRIB
@ XYGRIB
Downloads from XyGrib service.
Definition GribRequestDialog.h:63
NONE
@ NONE
No download source selected.
Definition GribRequestDialog.h:64
LOCAL_CATALOG
@ LOCAL_CATALOG
Downloads from configured catalogs.
Definition GribRequestDialog.h:62
LOCAL
@ LOCAL
Downloads from local sources.
Definition GribRequestDialog.h:61
SAVEDZONE
#define SAVEDZONE
Save zone.
Definition GribUIDialogBase.h:133
MANSELECT
#define MANSELECT
Manual selection mode.
Definition GribUIDialogBase.h:132
AUTOSELECT
#define AUTOSELECT
Automatic selection mode.
Definition GribUIDialogBase.h:131
AUTO_SELECTION
@ AUTO_SELECTION
Area automatically set from current viewport bounds.
Definition GribUIDialog.h:85
DRAW_SELECTION
@ DRAW_SELECTION
Manual mode has been selected.
Definition GribUIDialog.h:99
START_SELECTION
@ START_SELECTION
User has clicked Shift + Left click and is drawing the bounding box by dragging the mouse.
Definition GribUIDialog.h:91
COMPLETE_SELECTION
@ COMPLETE_SELECTION
Selection box completed in manual mode, coordinates have been captured after the user has released th...
Definition GribUIDialog.h:104
SAVED_SELECTION
@ SAVED_SELECTION
Area loaded from previously saved coordinates.
Definition GribUIDialog.h:86
XyGribModelDef.h
XyGrib Model Configuration and Definitions.
GRIBUICtrlBar::SetRequestButtonBitmap
void SetRequestButtonBitmap(int type)
Set the icon and tooltip for the download request button.
Definition GribUIDialog.cpp:404
GRIBUICtrlBar::m_grib_dir
wxString m_grib_dir
Directory containing GRIB files.
Definition GribUIDialog.h:326
GRIBUICtrlBar::pPlugIn
grib_pi * pPlugIn
Plugin instance that owns this control bar.
Definition GribUIDialog.h:268
GRIBUICtrlBar::m_file_names
wxArrayString m_file_names
List of GRIB filenames being displayed.
Definition GribUIDialog.h:328
GribRequestSettingBase
Class GribRequestSettingBase.
Definition GribUIDialogBase.h:456
GribRequestSettingBase::m_rButtonCancel
wxButton * m_rButtonCancel
Button to Cancel a request to download, close the dialog without saving the configuration.
Definition GribUIDialogBase.h:554
GribRequestSettingBase::m_spMaxLon
wxSpinCtrl * m_spMaxLon
A spinner for the max longitude of the bounding box for downloads.
Definition GribUIDialogBase.h:518
GribRequestSettingBase::m_spMaxLat
wxSpinCtrl * m_spMaxLat
A spinner for the max latitude of the bounding box for downloads.
Definition GribUIDialogBase.h:514
GribRequestSettingBase::m_rbManualSelect
wxRadioButton * m_rbManualSelect
Radio button selected to indicate the download area is based on the area selected by the user.
Definition GribUIDialogBase.h:509
GribRequestSettingBase::m_rbCurrentView
wxRadioButton * m_rbCurrentView
Radio button selected to indicate the download area is based on the visible area of the chart in the ...
Definition GribUIDialogBase.h:504
GribRequestSettingBase::m_spMinLat
wxSpinCtrl * m_spMinLat
A spinner for the min latitude of the bounding box for downloads.
Definition GribUIDialogBase.h:521
GribRequestSettingBase::m_rButtonApply
wxButton * m_rButtonApply
Button to Save the "download request" configuration.
Definition GribUIDialogBase.h:551
GribRequestSettingBase::m_rButtonYes
wxButton * m_rButtonYes
Button to Send a download request through e-mail.
Definition GribUIDialogBase.h:549
GribRequestSettingBase::m_spMinLon
wxSpinCtrl * m_spMinLon
A spinner for the min longitude of the bounding box for downloads.
Definition GribUIDialogBase.h:524
GribRequestSetting
Manages GRIB file request configuration and downloads.
Definition GribRequestDialog.h:93
GribRequestSetting::m_StartLat
double m_StartLat
The latitude at the starting point of the bounding box.
Definition GribRequestDialog.h:218
GribRequestSetting::GetMinLat
double GetMinLat() const
Get the minimum latitude of the bounding box for the download request.
Definition GribRequestDialog.cpp:2762
GribRequestSetting::GetMaxLat
double GetMaxLat() const
Get the maximum latitude of the bounding box for the download request.
Definition GribRequestDialog.cpp:2769
GribRequestSetting::m_Lat
double m_Lat
The latitude at the mouse cursor while drawing a bounding box.
Definition GribRequestDialog.h:232
GribRequestSetting::OnVpUnderMouseChange
void OnVpUnderMouseChange(PlugIn_ViewPort *vp)
Callback invoked when the view port under mouse has changed.
Definition GribRequestDialog.cpp:1029
GribRequestSetting::RenderGlZoneOverlay
bool RenderGlZoneOverlay()
Renders the GRIB area selection overlay using OpenGL.
Definition GribRequestDialog.cpp:1362
GribRequestSetting::RenderZoneOverlay
bool RenderZoneOverlay(wxDC &dc)
Renders the GRIB area selection overlay using standard device context.
Definition GribRequestDialog.cpp:1368
GribRequestSetting::m_Lon
double m_Lon
The longitude at the mouse cursor while drawing a bounding box.
Definition GribRequestDialog.h:234
GribRequestSetting::m_StartPoint
wxPoint m_StartPoint
Starting point of the bounding box in physical pixels.
Definition GribRequestDialog.h:216
GribRequestSetting::DoRenderZoneOverlay
bool DoRenderZoneOverlay()
Draws the GRIB area selection overlay on the chart.
Definition GribRequestDialog.cpp:1231
GribRequestSetting::MouseEventHook
bool MouseEventHook(wxMouseEvent &event)
Intercepts mouse events to handle GRIB area selection.
Definition GribRequestDialog.cpp:411
GribRequestSetting::OnVpWithFocusChange
void OnVpWithFocusChange(PlugIn_ViewPort *vp)
Callback invoked when the focused view port has changed, such as in multi-chart mode when user switch...
Definition GribRequestDialog.cpp:1036
GribRequestSetting::m_VpMouse
PlugIn_ViewPort * m_VpMouse
The viewport under the mouse.
Definition GribRequestDialog.h:230
GribRequestSetting::m_RenderSelectionZoneState
ZoneSelectionRenderState m_RenderSelectionZoneState
Current state of the bounding box overlay rendering.
Definition GribRequestDialog.h:209
GribRequestSetting::GetMaxLon
double GetMaxLon() const
Get the maximum longitude of the bounding box for the download request.
Definition GribRequestDialog.cpp:2783
GribRequestSetting::m_VpFocus
PlugIn_ViewPort * m_VpFocus
The viewport currently in focus.
Definition GribRequestDialog.h:228
GribRequestSetting::m_StartLon
double m_StartLon
The longitude at the starting point of the bounding box.
Definition GribRequestDialog.h:220
GribRequestSetting::GetMinLon
double GetMinLon() const
Get the minimum longitude of the bounding box for the download request.
Definition GribRequestDialog.cpp:2776
OCPN_downloadEvent
Definition ocpn_plugin.h:4590
PlugIn_ViewPort
Contains view parameters and status information for a chart display viewport.
Definition ocpn_plugin.h:193
PlugIn_ViewPort::lon_max
double lon_max
Maximum longitude of the viewport.
Definition ocpn_plugin.h:213
PlugIn_ViewPort::lat_max
double lat_max
Maximum latitude of the viewport.
Definition ocpn_plugin.h:211
PlugIn_ViewPort::lon_min
double lon_min
Minimum longitude of the viewport.
Definition ocpn_plugin.h:212
PlugIn_ViewPort::lat_min
double lat_min
Minimum latitude of the viewport.
Definition ocpn_plugin.h:210
pi_ocpnDC
Definition pi_ocpndc.h:65
wxJSONReader
The JSON parser.
Definition jsonreader.h:50
wxJSONReader::Parse
int Parse(const wxString &doc, wxJSONValue *val)
Parse the JSON document.
Definition jsonreader.cpp:302
wxJSONValue
The JSON value class implementation.
Definition jsonval.h:84
wxJSONValue::Size
int Size() const
Return the size of the array or map stored in this value.
Definition jsonval.cpp:1332
wxJSONValue::HasMember
bool HasMember(unsigned index) const
Return TRUE if the object contains an element at the specified index.
Definition jsonval.cpp:1298
wxJSONValue::AsString
wxString AsString() const
Return the stored value as a wxWidget's string.
Definition jsonval.cpp:872
email.h
Email Request System for GRIB Data.
grib_pi.h
GRIB Weather Data Plugin for OpenCPN.
OCPN_DL_EVENT_TYPE_PROGRESS
@ OCPN_DL_EVENT_TYPE_PROGRESS
Download progress update.
Definition ocpn_plugin.h:4445
OCPN_DL_EVENT_TYPE_END
@ OCPN_DL_EVENT_TYPE_END
Download has completed.
Definition ocpn_plugin.h:4446
OCPN_DL_NO_ERROR
@ OCPN_DL_NO_ERROR
Download completed successfully.
Definition ocpn_plugin.h:4429
OCPNGetFont
wxFont * OCPNGetFont(wxString TextElement, int default_size)
Gets a font for UI elements.
Definition ocpn_plugin_gui.cpp:303
GetCanvasIndexUnderMouse
int GetCanvasIndexUnderMouse(void)
Gets index of chart canvas under mouse cursor.
Definition ocpn_plugin_gui.cpp:1667
GetCanvasPixLL
void GetCanvasPixLL(PlugIn_ViewPort *vp, wxPoint *pp, double lat, double lon)
Converts lat/lon to canvas physical pixel coordinates.
Definition ocpn_plugin_gui.cpp:247
DimeWindow
void DimeWindow(wxWindow *win)
Applies system color scheme to window.
Definition ocpn_plugin_gui.cpp:408
OCPN_GetWinDIPScaleFactor
double OCPN_GetWinDIPScaleFactor()
Gets Windows-specific DPI scaling factor.
Definition ocpn_plugin_gui.cpp:2287
RequestRefresh
void RequestRefresh(wxWindow *win)
Requests window refresh.
Definition ocpn_plugin_gui.cpp:243
GetOCPNConfigObject
wxFileConfig * GetOCPNConfigObject(void)
Gets OpenCPN's configuration object.
Definition ocpn_plugin_gui.cpp:226
GetCanvasLLPix
void GetCanvasLLPix(PlugIn_ViewPort *vp, wxPoint p, double *plat, double *plon)
Converts canvas physical pixel coordinates to lat/lon.
Definition ocpn_plugin_gui.cpp:280
pi_gl.h
OpenGL Platform Abstraction Layer.
AtmModelDef_t
Definition XyGribModelDef.h:46
WaveModelDef_t
Definition XyGribModelDef.h:66