/* * Copyright (C) 2009-2010 Andy Spencer * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ #include #include #include #include #include #include #include "level2.h" /************************** * Data loading functions * **************************/ /* Convert a sweep to an 2d array of data points */ static void _bscan_sweep(Sweep *sweep, AWeatherColormap *colormap, guint8 **data, int *width, int *height) { g_debug("AWeatherLevel2: _bscan_sweep - %p, %p, %p", sweep, colormap, data); /* Calculate max number of bins */ int max_bins = 0; for (int i = 0; i < sweep->h.nrays; i++) max_bins = MAX(max_bins, sweep->ray[i]->h.nbins); /* Allocate buffer using max number of bins for each ray */ guint8 *buf = g_malloc0(sweep->h.nrays * max_bins * 4); /* Fill the data */ for (int ri = 0; ri < sweep->h.nrays; ri++) { Ray *ray = sweep->ray[ri]; for (int bi = 0; bi < ray->h.nbins; bi++) { /* copy RGBA into buffer */ //guint val = dz_f(ray->range[bi]); guint8 val = (guint8)ray->h.f(ray->range[bi]); guint buf_i = (ri*max_bins+bi)*4; buf[buf_i+0] = colormap->data[val][0]; buf[buf_i+1] = colormap->data[val][1]; buf[buf_i+2] = colormap->data[val][2]; buf[buf_i+3] = colormap->data[val][3]*0.75; // TESTING if (val == BADVAL || val == RFVAL || val == APFLAG || val == NOTFOUND_H || val == NOTFOUND_V || val == NOECHO) { buf[buf_i+3] = 0x00; // transparent } } } /* set output */ *width = max_bins; *height = sweep->h.nrays; *data = buf; } /* Load a sweep into an OpenGL texture */ static void _load_sweep_gl(AWeatherLevel2 *self) { g_debug("AWeatherLevel2: _load_sweep_gl"); guint8 *data; gint width, height; _bscan_sweep(self->sweep, self->sweep_colors, &data, &width, &height); gint tex_width = pow(2, ceil(log(width )/log(2))); gint tex_height = pow(2, ceil(log(height)/log(2))); self->sweep_coords[0] = (double)width / tex_width; self->sweep_coords[1] = (double)height / tex_height; if (!self->sweep_tex) glGenTextures(1, &self->sweep_tex); glBindTexture(GL_TEXTURE_2D, self->sweep_tex); glPixelStorei(GL_PACK_ALIGNMENT, 1); glPixelStorei(GL_UNPACK_ALIGNMENT, 1); glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA8, tex_width, tex_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, NULL); glTexSubImage2D(GL_TEXTURE_2D, 0, 0,0, width,height, GL_RGBA, GL_UNSIGNED_BYTE, data); glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); g_free(data); } /* Decompress a radar file using wsr88dec */ static gboolean _decompress_radar(const gchar *file, const gchar *raw) { g_debug("AWeatherLevel2: _decompress_radar - \n\t%s\n\t%s", file, raw); char *argv[] = {"wsr88ddec", (gchar*)file, (gchar*)raw, NULL}; gint status; GError *error = NULL; g_spawn_sync( NULL, // const gchar *working_directory argv, // gchar **argv NULL, // gchar **envp G_SPAWN_SEARCH_PATH, // GSpawnFlags flags NULL, // GSpawnChildSetupFunc child_setup NULL, // gpointer user_data NULL, // gchar *standard_output NULL, // gchar *standard_output &status, // gint *exit_status &error); // GError **error if (error) { g_warning("AWeatherLevel2: _decompress_radar - %s", error->message); g_error_free(error); return FALSE; } if (status != 0) { gchar *msg = g_strdup_printf("wsr88ddec exited with status %d", status); g_warning("AWeatherLevel2: _decompress_radar - %s", msg); g_free(msg); return FALSE; } return TRUE; } /********************* * Drawing functions * *********************/ void aweather_level2_draw(GritsObject *_self, GritsOpenGL *opengl) { AWeatherLevel2 *self = AWEATHER_LEVEL2(_self); if (!self->sweep || !self->sweep_tex) return; /* Draw wsr88d */ Sweep *sweep = self->sweep; Radar_header *h = &self->radar->h; gdouble lat = (double)h->latd + (double)h->latm/60 + (double)h->lats/(60*60); gdouble lon = (double)h->lond + (double)h->lonm/60 + (double)h->lons/(60*60); gdouble elev = h->height; grits_viewer_center_position(GRITS_VIEWER(opengl), lat, lon, elev); glDisable(GL_ALPHA_TEST); glDisable(GL_CULL_FACE); glDisable(GL_LIGHTING); glEnable(GL_TEXTURE_2D); glEnable(GL_POLYGON_OFFSET_FILL); glPolygonOffset(1.0, -2.0); glColor4f(1,1,1,1); /* Draw the rays */ gdouble xscale = self->sweep_coords[0]; gdouble yscale = self->sweep_coords[1]; glBindTexture(GL_TEXTURE_2D, self->sweep_tex); glBegin(GL_TRIANGLE_STRIP); for (int ri = 0; ri <= sweep->h.nrays; ri++) { Ray *ray = NULL; double angle = 0; if (ri < sweep->h.nrays) { ray = sweep->ray[ri]; angle = deg2rad(ray->h.azimuth - ((double)ray->h.beam_width/2.)); } else { /* Do the right side of the last sweep */ ray = sweep->ray[ri-1]; angle = deg2rad(ray->h.azimuth + ((double)ray->h.beam_width/2.)); } double lx = sin(angle); double ly = cos(angle); double near_dist = ray->h.range_bin1; double far_dist = ray->h.nbins*ray->h.gate_size + ray->h.range_bin1; /* (find middle of bin) / scale for opengl */ // near left glTexCoord2f(0.0, ((double)ri/sweep->h.nrays)*yscale); glVertex3f(lx*near_dist, ly*near_dist, 2.0); // far left // todo: correct range-height function double height = sin(deg2rad(ray->h.elev)) * far_dist; glTexCoord2f(xscale, ((double)ri/sweep->h.nrays)*yscale); glVertex3f(lx*far_dist, ly*far_dist, height); } glEnd(); //g_print("ri=%d, nr=%d, bw=%f\n", _ri, sweep->h.nrays, sweep->h.beam_width); /* Texture debug */ //glBegin(GL_QUADS); //glTexCoord2d( 0., 0.); glVertex3f(-500., 0., 0.); // bot left //glTexCoord2d( 0., 1.); glVertex3f(-500., 500., 0.); // top left //glTexCoord2d( 1., 1.); glVertex3f( 0., 500., 3.); // top right //glTexCoord2d( 1., 0.); glVertex3f( 0., 0., 3.); // bot right //glEnd(); } /*********** * Methods * ***********/ static gboolean _set_sweep_cb(gpointer _self) { g_debug("AWeatherLevel2: _set_sweep_cb"); AWeatherLevel2 *self = _self; _load_sweep_gl(self); gtk_widget_queue_draw(GTK_WIDGET(self->viewer)); g_object_unref(self); return FALSE; } void aweather_level2_set_sweep(AWeatherLevel2 *self, int type, float elev) { g_debug("AWeatherLevel2: set_sweep - %d %f", type, elev); /* Find sweep */ Volume *volume = RSL_get_volume(self->radar, type); if (!volume) return; self->sweep = RSL_get_closest_sweep(volume, elev, 90); if (!self->sweep) return; /* Find colormap */ self->sweep_colors = NULL; for (int i = 0; self->colormap[i].name; i++) if (self->colormap[i].type == type) self->sweep_colors = &self->colormap[i]; if (!self->sweep_colors) return; /* Load data */ g_object_ref(self); g_idle_add(_set_sweep_cb, self); } AWeatherLevel2 *aweather_level2_new(GritsViewer *viewer, AWeatherColormap *colormap, Radar *radar) { g_debug("AWeatherLevel2: new - %s", radar->h.radar_name); AWeatherLevel2 *self = g_object_new(AWEATHER_TYPE_LEVEL2, NULL); self->viewer = viewer; self->radar = radar; self->colormap = colormap; aweather_level2_set_sweep(self, DZ_INDEX, 0); return self; } AWeatherLevel2 *aweather_level2_new_from_file(GritsViewer *viewer, AWeatherColormap *colormap, const gchar *file, const gchar *site) { g_debug("AWeatherLevel2: new_from_file %s %s", site, file); /* Decompress radar */ gchar *raw = g_strconcat(file, ".raw", NULL); if (g_file_test(raw, G_FILE_TEST_EXISTS)) { struct stat files, raws; g_stat(file, &files); g_stat(raw, &raws); if (files.st_mtime > raws.st_mtime) if (!_decompress_radar(file, raw)) return NULL; } else { if (!_decompress_radar(file, raw)) return NULL; } /* Load the radar file */ RSL_read_these_sweeps("all", NULL); g_message("read start"); Radar *radar = RSL_wsr88d_to_radar(raw, (gchar*)site); g_message("read done"); g_free(raw); if (!radar) return NULL; return aweather_level2_new(viewer, colormaps, radar); } static void _on_sweep_clicked(GtkRadioButton *button, gpointer _level2) { AWeatherLevel2 *level2 = _level2; gint type = (gint)g_object_get_data(G_OBJECT(button), "type"); gint elev = (gint)g_object_get_data(G_OBJECT(button), "elev"); aweather_level2_set_sweep(level2, type, (float)elev/100); //self->colormap = level2->sweep_colors; } GtkWidget *aweather_level2_get_config(AWeatherLevel2 *level2) { Radar *radar = level2->radar; g_debug("AWeatherLevel2: get_config - %p, %p", level2, radar); /* Clear existing items */ gdouble elev; guint rows = 1, cols = 1, cur_cols; gchar row_label_str[64], col_label_str[64], button_str[64]; GtkWidget *row_label, *col_label, *button = NULL, *elev_box = NULL; GtkWidget *table = gtk_table_new(rows, cols, FALSE); /* Add date */ gchar *date_str = g_strdup_printf("%04d-%02d-%02d %02d:%02d", radar->h.year, radar->h.month, radar->h.day, radar->h.hour, radar->h.minute); GtkWidget *date_label = gtk_label_new(date_str); gtk_label_set_use_markup(GTK_LABEL(date_label), TRUE); gtk_table_attach(GTK_TABLE(table), date_label, 0,1, 0,1, GTK_FILL,GTK_FILL, 5,0); g_free(date_str); for (guint vi = 0; vi < radar->h.nvolumes; vi++) { Volume *vol = radar->v[vi]; if (vol == NULL) continue; rows++; cols = 1; elev = 0; /* Row label */ g_snprintf(row_label_str, 64, "%s:", vol->h.type_str); row_label = gtk_label_new(row_label_str); gtk_label_set_use_markup(GTK_LABEL(row_label), TRUE); gtk_misc_set_alignment(GTK_MISC(row_label), 1, 0.5); gtk_table_attach(GTK_TABLE(table), row_label, 0,1, rows-1,rows, GTK_FILL,GTK_FILL, 5,0); for (guint si = 0; si < vol->h.nsweeps; si++) { Sweep *sweep = vol->sweep[si]; if (sweep == NULL || sweep->h.elev == 0) continue; if (sweep->h.elev != elev) { cols++; elev = sweep->h.elev; /* Column label */ g_object_get(table, "n-columns", &cur_cols, NULL); if (cols > cur_cols) { g_snprintf(col_label_str, 64, "%.2f°", elev); col_label = gtk_label_new(col_label_str); gtk_label_set_use_markup(GTK_LABEL(col_label), TRUE); gtk_widget_set_size_request(col_label, 50, -1); gtk_table_attach(GTK_TABLE(table), col_label, cols-1,cols, 0,1, GTK_FILL,GTK_FILL, 0,0); } elev_box = gtk_hbox_new(TRUE, 0); gtk_table_attach(GTK_TABLE(table), elev_box, cols-1,cols, rows-1,rows, GTK_FILL,GTK_FILL, 0,0); } /* Button */ g_snprintf(button_str, 64, "%3.2f", elev); button = gtk_radio_button_new_with_label_from_widget( GTK_RADIO_BUTTON(button), button_str); gtk_widget_set_size_request(button, -1, 26); //button = gtk_radio_button_new_from_widget(GTK_RADIO_BUTTON(button)); //gtk_widget_set_size_request(button, -1, 22); g_object_set(button, "draw-indicator", FALSE, NULL); gtk_box_pack_end(GTK_BOX(elev_box), button, TRUE, TRUE, 0); g_object_set_data(G_OBJECT(button), "level2", (gpointer)level2); g_object_set_data(G_OBJECT(button), "type", (gpointer)vi); g_object_set_data(G_OBJECT(button), "elev", (gpointer)(int)(elev*100)); g_signal_connect(button, "clicked", G_CALLBACK(_on_sweep_clicked), level2); } } return table; } /**************** * GObject code * ****************/ G_DEFINE_TYPE(AWeatherLevel2, aweather_level2, GRITS_TYPE_OBJECT); static void aweather_level2_init(AWeatherLevel2 *self) { } static void aweather_level2_finalize(GObject *_self) { AWeatherLevel2 *self = AWEATHER_LEVEL2(_self); g_debug("AWeatherLevel2: finalize - %p", _self); RSL_free_radar(self->radar); if (self->sweep_tex) glDeleteTextures(1, &self->sweep_tex); G_OBJECT_CLASS(aweather_level2_parent_class)->finalize(_self); } static void aweather_level2_class_init(AWeatherLevel2Class *klass) { G_OBJECT_CLASS(klass)->finalize = aweather_level2_finalize; GRITS_OBJECT_CLASS(klass)->draw = aweather_level2_draw; }