// ***********************************************************************
// * FILE HEADER: *
// ***********************************************************************
// * Filename: functions.inc *
// * Owner: Martin Francis *
// * Created: 10/12/2002 (MF) *
// * Revised: 20/05/2003 (MF) (UTF-8 Encoding) *
// ***********************************************************************
// Functions here are used with:
// * DX Range and Bearing List
// * DX Station Mapper
// ***********************************************************************
// * FUNCTION LIST: *
// ***********************************************************************
// Functions (in alpabetical order, except progress() which is called early by inline code)
// VOID = progress(message,script)
// Writes message and executes optional body.onload() event if script given.
//
// Inline code: Opens progress window (no script)
// Sets up array of station objects
// Loads array of stations (held in stations.js, loaded after this)
//
// S = channel(kHz)
// Returns correct colour code for channel type:
// 'clear' if clear channel, (Green)
// 'extended' if extended channel, (Blue)
// 'local' if local channel, (Red)
// 'regional' if regional channel, (Orange)
//
// S = channelKey()
// Reurns chart with channel key
//
// VOID = initHelp()
// Writes Help information to top.results.document
//
// VOID = initSearch()
// Writes search form to top.search.document
//
// VOID = initialise()
// Triggered by top.onload() event
// Calls initHelp() and initSearch()
// Closes progress window (opened with inline code)
//
// VOID = list(dump)
// Opens progress window (no script)
// Reads form parameters for QTH location, distance and frequency span
// Sets cookie with selected values (expires 1 year)
// If !dump:
// writes the list to top.results.document
// If dump:
// writes the Javascript list to top.results.document
//
// S = optionsDX(val)
// Returns a form Select control listing distances with current value selected.
//
// S = optionsFont(val)
// Returns a form Select control listing font sizes with current value selected.
//
// S = optionsKHz(val)
// Returns a form Select control listing Frequencies with current value selected.
//
// N[bearing,km,miles] = rangeAndBearing(qth_lat,qth_lon,dx_lat,dx_lon)
// Returns array with range and bearing from qth to dx
// (adapted from http://www.geocities.com/CapeCanaveral/2265/gcsail.htm)
//
// VOID = readCookies()
// Sets up default values (used if no cookies defined)
// Reads cookies (if defined) to overide defaults
//
// ************************************
// * progress() *
// ************************************
function progress(message,script) {
Wait = window.open('','Searching', 'width=200,height=50,resizable=0,menubar=0,location=0,toolbar=0');
var out = "\n\n"+message+"\n"
+"\n"
+"\n\n"
+"\n"
+"\n"
+" \n"
+" "+message+"
\n"
+"Please wait.
\n"
+" | \n"
+"
\n"
+"
\n";
Wait.focus();Wait.document.write(out);Wait.document.close();
}
// ************************************
// * Inline code: *
// ************************************
top.progress("Loading Data... ","")
// Set up array containing clear and regional channel values (do here to avoid repeating)
channels = new Array()
channels['clear'] = [540,640,650,660,670,680,690,700,710,720,730,740,750,760,770,780,
800,810,820,830,840,850,860,870,880,890,900,940,990,
1000,1010,1020,1030,1040,1160,1170,1180,1190,1200,1210,1220,
1500,1510,1520,1530,1540,1550,1560,1570,1580];
channels['local'] = [1230,1240,1340,1400,1450,1490];
channelKey = "\n"
+"| Clear | \n"
+" Regional | \n"
+" Local | \n"
+" Extended | \n"
+"
";
isLocal = document.URL.match(/http/);
// set up for reading stations contained in stations.js
a = new Array();
n = 0;
station = new Array();
// ************************************
// * initHelp() *
// ************************************
function initHelp() {
var out = ""
+"\n"
+"\n"
+"\n"
+"Help
\n"
+"Use this program to generate a printable list showing the range and bearing of all AM radio stations "
+"within a given radius of your location, using 'Great Circle' calculations. "
+"Data is mainly taken from the FCC database "
+"(see this note).
\n"
+((top.isLocal)?
( "This cut-down version only contains the "+a.length+" stations within 2000km of Richmond Hill "
+"in Soutern Ontario, Canada (reducing the time you must wait for results), "
+"but you can download the full version for free"
+", including all 12000\n"):
("This full version contains all "+a.length+""))
+" stations in North, South and Central America.
\n"
+"\n"
+" | Please enter: |
"
+" | * | Latitude and Longitude for your location (I used "
+"this site to zoom in on mine); | \n"
+"
| * | Frequency range in kHz; | \n"
+"
| * | Maximum Distance in km or miles from your location; | \n"
+"
| * | Font Size for displayed result (7pt is good for printing, 12pt is better for viewing on screen); | \n"
+"
| * | Press 'GO' to execute your search. | \n"
+"
| * | Press '?' to return to this Help screen. | \n"
+"
| * | This system uses cookies to remember your chosen settings between visits. | \n"
+"
\n
"
+"\n"
+" | Notes: |
"
+" | * | "
+"It is a good idea to print just one page of results prior to attempting a larger run to "
+"ensure that you are happy with your settings. |
\n"
+" | * | \n"
+"| Key for AM Frequency Channels: | \n"
+"\n"
+"| Clear | \n"
+" Regional | \n"
+" Local | \n"
+" Extended | \n"
+"
| \n"
+" | |
"
+" | * | "
+"Please contact me with any comments, suggestions or corrections you may have. |
\n"
+"
\n"
+"© Martin Francis, 2003"
+"\n"
+"