Changeset 80

Timestamp:

11/19/2008 12:54:06 PM (15 years ago)

Author:

marcus

Message:

r62 | svn | 2008-11-13 08:56:44 +0100 (Do, 13 Nov 2008) | 3 lines

• add menu entry Del Location
• update station info files

Location:

SH_SHM/trunk

Files:

• inputs/STATINF.DAT (modified) (1 diff)
• inputs/filter_lookup.txt (modified) (5 diffs)
• source/motif/shm.c (modified) (3 diffs)
• source/motif/shm.uil (modified) (3 diffs)
• source/motif/shm_main_window.uil (modified) (2 diffs)
• util/check_evt.c (modified) (1 diff)

SH_SHM/trunk/inputs/STATINF.DAT

@@ -49 +49 @@
 WERN    lat:+50.2874    lon: +12.3761   elevation: 600.0        array:01        xrel:  82.111969        yrel:  66.324837
 FBE   lat:+50.92117     lon: +13.35414  elevation: 234.9        array:01        xrel: 149.567154        yrel: 136.793716        name:Freiberg,_Saxonia
+RUH   lat:+50.94702  lon: +10.40325 elevation: 340.0
 SCHD    lat:+50.53508   lon: +11.21187  elevation: 760.8
 SCHF    lat:+50.6772    lon: +12.4031   elevation: 435. array:01        xrel: 83.339912 yrel:109.666695 name: Schoenfels,_OTSN/SXNET

SH_SHM/trunk/inputs/filter_lookup.txt

@@ -51 +51 @@
 SCHF-BH-N LE3D5 ... ... -FORCEFFT-
 SCHF-BH-E LE3D5 ... ... -FORCEFFT-
+SCHF-HH-Z LE3D5 ... ... -FORCEFFT-
+SCHF-HH-N LE3D5 ... ... -FORCEFFT-
+SCHF-HH-E LE3D5 ... ... -FORCEFFT-
 SCHD-HH-Z CMG40T
 SCHD-HH-N CMG40T
@@ -60 +63 @@
 SCHD-LH-N CMG40T
 SCHD-LH-E CMG40T
+RUH-HH-Z CMG40T
+RUH-HH-N CMG40T
+RUH-HH-E CMG40T
+RUH-BH-Z CMG40T
+RUH-BH-N CMG40T
+RUH-BH-E CMG40T
+RUH-LH-Z CMG40T
+RUH-LH-N CMG40T
+RUH-LH-E CMG40T
 TANN-BH-Z GRSN ... ... -FORCEFFT-
 TANN-BH-N GRSN ... ... -FORCEFFT-
@@ -78 +90 @@
 GTTG-BH-N GRSN
 GTTG-BH-E GRSN
+GTTG-HH-Z GRSN
+GTTG-HH-N GRSN
+GTTG-HH-E GRSN
 HLG-BH-Z GRSN
 HLG-BH-N GRSN
@@ -117 +132 @@
 LEIB-HH-N LE3D5
 LEIB-HH-E LE3D5
+HKWD-BH-Z LE3D5
+HKWD-BH-N LE3D5
+HKWD-BH-E LE3D5
+HKWD-HH-Z LE3D5
+HKWD-HH-N LE3D5
+HKWD-HH-E LE3D5
+KBDG-BH-Z LE3D5
+KBDG-BH-N LE3D5
+KBDG-BH-E LE3D5
+KBDG-HH-Z LE3D5
+KBDG-HH-N LE3D5
+KBDG-HH-E LE3D5
 BFO-LH-Z GRSN
 BFO-LH-N GRSN
@@ -171 +198 @@
 TANN-LH-N GRSN
 TANN-LH-E GRSN
+MULD-BH-Z LE3D5
+MULD-BH-N LE3D5
+MULD-BH-E LE3D5
+MULD-HH-Z LE3D5
+MULD-HH-N LE3D5
+MULD-HH-E LE3D5
+ROHR-BH-Z LE3D5
+ROHR-BH-N LE3D5
+ROHR-BH-E LE3D5
+ROHR-HH-Z LE3D5
+ROHR-HH-N LE3D5
+ROHR-HH-E LE3D5
+TAUT-BH-Z LE3D5
+TAUT-BH-N LE3D5
+TAUT-BH-E LE3D5
+TAUT-HH-Z LE3D5
+TAUT-HH-N LE3D5
+TAUT-HH-E LE3D5
 WLF-LH-Z GRSN
 WLF-LH-N GRSN

SH_SHM/trunk/source/motif/shm.c

@@ -3 +3 @@
  *      =====
  *
- * $Revision: 60 $, $Date: 2008-11-09 15:51:25 +0100 (So, 09 Nov 2008) $
+ * $Revision: 62 $, $Date: 2008-11-13 08:56:44 +0100 (Do, 13 Nov 2008) $
  *
  * main module of shm
@@ -246 +246 @@
 #define k_entry_spectrogram 159
 #define k_entry_trc_del_badqual 160
+#define k_entry_del_location 161
 
 #define k_entry_key_arrow_up 300
@@ -3450 +3451 @@
                 break;
                 }
+        case k_entry_del_location:
+                HELPTEXT( "del-location" );
+                xmv_cpar->source_lat = 0.0;
+                xmv_cpar->source_lon = 0.0;
+                xmv_cpar->depth = GpGetFloat( cGpF_default_depth );
+                xmv_cpar->source_type = GpGetInt( cGpI_default_event_type );
+                xmv_cpar->reg_id = 0;
+                xmv_cpar->regname[0] = '\0';
+                xmv_cpar->loc_meth = CUC_LOCMETH_UNDEFINED;
+                xmv_cpar->loc_quality = GpGetInt( cGpI_default_loc_quality );
+                xmv_cpar->loc_addpar[0] = '\0';
+                xmv_cpar->distance = 0.0;
+                xmv_cpar->dist_unit = CUC_DIST_UNIT_DEG;
+                xmv_cpar->source[0] = '\0';
+                xmv_cpar->soft_change = TRUE;
+                cu_set_param_values( xmv_w, xmv_cpar, xmv_par.parno );
+                xmv_cpar->soft_change = FALSE;
+                break;
         case k_entry_match_location:
                 { char station[cBcShortStrLth+1];  /* station name */

SH_SHM/trunk/source/motif/shm.uil

@@ -116 +116 @@
         k_entry_theo_extprog_text    : 'Theo (ExtProg)';
    k_entry_deltheo_text         : 'Del Theo';
+        k_entry_del_location_text    : 'Del Location';
 !  Title Amplitude:
    k_entry_amplper_p_text       : 'Ampl & Period auto Peak';
@@ -395 +396 @@
    k_acc_deltheo                : "Ctrl<Key>d";
         k_acct_deltheo               : "Ctrl/d";
+   k_acc_del_location           : "";
+   k_acct_del_location          : "";
 
 !  Title Amplitude:
@@ -1062 +1065 @@
         k_entry_spectrogram          : 159;
         k_entry_trc_del_badqual      : 160;
+        k_entry_del_location         : 161;
 
 !  button numbers

SH_SHM/trunk/source/motif/shm_main_window.uil

@@ -372 +372 @@
          XmPushButton button_param_theo_ext;
          XmPushButton entry_deltheo;
+                        XmSeparator  entry_sep;
+         XmPushButton entry_del_location;
       };
    };
@@ -2127 +2129 @@
    };
 
-
-
+object
+   entry_del_location: XmPushButton {
+      arguments {
+         XmNlabelString = k_entry_del_location_text;
+         XmNaccelerator = k_acc_del_location;
+         XmNacceleratorText = k_acct_del_location;
+         XmNfontList = k_menu_font;
+      };
+      callbacks {
+         XmNactivateCallback =
+            procedure xm_call_menu_select(k_entry_del_location);
+      };
+   };
+
+
+

SH_SHM/trunk/util/check_evt.c

@@ -379 +379 @@
 
         /* no telex phase */
+        /* disabled 12-Nov-2008 K.S.
         if  (!efv_telex_phase)
                 fprintf( out, "F016 %s: no telex phase found\n", efv_infile );
+        */
 
         /* mb determined? */