sub load_landing_marker_coods { @marker_coods = (); @marker_coods = qw( -82.563073,35.593016 -82.5496,35.5951 -82.55331,35.59767 -82.554224,35.59911 -82.554224,35.59911 -82.594537,35.578710 -82.7848703,36.9034079 -82.463386,36.9435094 -82.580242,36.977428 -82.3106209,36.9039605 -81.8039463,36.4742955 -81.519045,36.8330364 -79.958942,37.264354 -78.886651,38.066062 -78.1919708,38.91821 -78.4617847,38.6652834 -80.271387,36.6418965 -79.872318,36.691683 -82.181638,35.627706 -82.1810452,35.6283736 -82.680168,35.795463 -82.008388,35.684433 -82.1811233,35.6285741 -82.247084,35.439311 -82.4597136,35.3162945 -82.2490532,35.4398396 -82.225924,35.433769 -81.957092,35.36808 -81.863619,35.333531 -81.684475,36.218989 -81.49242,36.40231 -81.4957521,36.3782332 -81.492555,36.40182 -81.381378,36.346176 -81.151977,36.148297 -81.146643,36.160514 -80.851479,36.244696 -81.1214822,36.5069006 -81.5385798,35.9116091 -81.340888,35.732487 -81.557223,35.742031 -81.2540497,35.4725646 -82.778728,35.357609 -83.100508,35.5178228 -82.9863139,35.4857699 -83.252370,35.369270 -83.261963,35.371319 -83.81895,35.044221 ); # end array %marker_coods = (); foreach $word (@marker_coods) { ($marker_long,$marker_lat) = split /,/,$word; $long_dist = abs($marker_long) - abs($me_long); if ($long_dist > 0) { $long_dir = "W"; } else { $long_dir = "E"; } $long_dist = substr(abs($long_dist),0,4); $lat_dist = $marker_lat - $me_lat; if ($lat_dist > 0) { $lat_dir = "N"; } else { $lat_dir = "S"; } $lat_dist = substr(abs($lat_dist),0,4); $hyp_leg = substr(sqrt (($long_dist * $long_dist) + ($lat_dist * $lat_dist)),0,4); # print "long_dist = $long_dist ** lat_dist = $lat_dist ** hyp_leg = $hyp_leg","\n"; # print "\n"; # print "Early Exit","\n"; # exit(0); # print " NW direction = ",$direction_ct{"NW"}," hyp_legs = ",$direction_dist{"NW"},"
"; # print " NE direction = ",$direction_ct{"NE"}," hyp_leg = ",$direction_dist{"NE"},"
"; # print " SE direction = ",$direction_ct{"SE"}," hyp_leg = ",$direction_dist{"SE"},"
"; # print " SW direction = ",$direction_ct{"SW"}," hyp_leg = ",$direction_dist{"SW"},"
"; # print "
"; # print "Early Exit","\n"; # exit(0); } } # end sub