From 7c6c27cce776f62d6eb3fbc683102c03a08cbe28 Mon Sep 17 00:00:00 2001
From: Peter Goodhall <peter@magicbug.co.uk>
Date: Sun, 18 Sep 2011 14:52:01 +0100
Subject: [PATCH] Created PHP class Qra.php which has classes to calc lat/lng
 from qra and also bearing

---
 application/config/config.php       |  4 ++
 application/libraries/Qra.php       | 96 +++++++++++++++++++++++++++++
 application/views/layout/header.php |  2 +-
 3 files changed, 101 insertions(+), 1 deletion(-)
 create mode 100644 application/libraries/Qra.php

diff --git a/application/config/config.php b/application/config/config.php
index d8a718f4..3ebe8f9b 100644
--- a/application/config/config.php
+++ b/application/config/config.php
@@ -22,6 +22,10 @@ $config['auth_level'][2] = "Editor";
 $config['auth_level'][3] = "API User";
 $config['auth_level'][99] = "Administrator";
 
+/* Beta Features */
+
+$config['beta'] = true;
+
 /*
 |--------------------------------------------------------------------------
 | Base Site URL
diff --git a/application/libraries/Qra.php b/application/libraries/Qra.php
new file mode 100644
index 00000000..a83ea32c
--- /dev/null
+++ b/application/libraries/Qra.php
@@ -0,0 +1,96 @@
+<?php if ( ! defined('BASEPATH')) exit('No direct script access allowed'); 
+
+class Qra {
+
+	// Name: QRA
+	// Task: convert qra to lat/long
+
+	function qra2latlong($strQRA)
+	{
+		return qra2latlong($strQRA);
+	}
+	
+	function bearing($rx, $tx) {
+		$my = qra2latlong($tx);
+		$stn = qra2latlong($rx);
+
+		$bearing = bearing($my[0], $my[1], $stn[0], $stn[1]);
+		
+		return $bearing;
+	}
+}
+
+function distance($lat1, $lon1, $lat2, $lon2, $unit = 'M') {
+  $theta = $lon1 - $lon2;
+  $dist = sin(deg2rad($lat1)) * sin(deg2rad($lat2)) + cos(deg2rad($lat1)) * cos(deg2rad($lat2)) *
+cos(deg2rad($theta));
+  $dist = acos($dist);
+  $dist = rad2deg($dist);
+  $dist = $dist * 60 * 1.1515;
+
+  if ($unit == "K") {
+	$dist *= 1.609344;
+  } else if ($unit == "N") {
+	$dist *= 0.8684;
+  }
+
+  return round($dist, 1);
+}
+
+function bearing($lat1, $lon1, $lat2, $lon2) {
+  if (round($lon1, 1) == round($lon2, 1)) {
+	if ($lat1 < $lat2) {
+	  $bearing = 0;
+	} else {
+	  $bearing = 180;
+	}
+  } else {
+	$dist = distance($lat1, $lon1, $lat2, $lon2, 'N');
+	$arad = acos((sin(deg2rad($lat2)) - sin(deg2rad($lat1)) * cos(deg2rad($dist / 60))) / (sin(deg2rad($dist
+/ 60)) * cos(deg2rad($lat1))));
+	$bearing = $arad * 180 / pi();
+	if (sin(deg2rad($lon2 - $lon1)) < 0) {
+	  $bearing = 360 - $bearing;
+	}
+  }
+
+  $dirs = array("N","E","S","W");
+
+  $rounded = round($bearing / 22.5) % 16;
+  if (($rounded % 4) == 0) {
+	$dir = $dirs[$rounded / 4];
+  } else {
+	$dir = $dirs[2 * floor(((floor($rounded / 4) + 1) % 4) / 2)];
+	$dir .= $dirs[1 + 2 * floor($rounded / 8)];
+	#if ($rounded % 2 == 1)
+	#  $dir = $dirs[round_to_int($rounded/4) % 4] . "-" . $dir;
+  }
+$var_dist = "";
+  #return $dir;
+  if (isset($dist)) {
+	$var_dist = $dist." miles";
+  }
+  return round($bearing, 0)."&#186; ".$dir." ".$var_dist;
+}
+
+function qra2latlong($strQRA)
+
+{
+		$strQRA = strtoupper($strQRA);
+		if (strlen($strQRA) == 4)  $strQRA .= "MM";
+		if (!preg_match('/^[A-Z]{2}[0-9]{2}[A-Z]{2}$/',$strQRA)) return false;
+		list($a,$b,$c,$d,$e,$f) = str_split($strQRA,1);
+		$a = ord($a) - ord('A');
+		$b = ord($b) - ord('A');
+		$c = ord($c) - ord('0');
+		$d = ord($d) - ord('0');
+		$e = ord($e) - ord('A');
+		$f = ord($f) - ord('A');
+		$nLong = ($a*20) + ($c*2) + (($e+0.5)/12) - 180;
+		$nLat = ($b*10) + $d + (($f+0.5)/24) - 90;
+		$arLatLong = array($nLat,$nLong);
+		return($arLatLong);
+
+}
+
+/* End of file Qra.php */
\ No newline at end of file
diff --git a/application/views/layout/header.php b/application/views/layout/header.php
index 37c0a08e..7cf02e03 100644
--- a/application/views/layout/header.php
+++ b/application/views/layout/header.php
@@ -24,7 +24,7 @@
 	});
 </script>
 	<style type="text/css" media="screen" >
-body { background-color: #e6e6e6; font-family: Arial, "Trebuchet MS", sans-serif; }
+body { background-color: #e6e6e6; font-size: 15px; font-family: Arial, "Trebuchet MS", sans-serif; }
 td { padding: 1px;}
 .tr1 td { background:none repeat scroll 0 0 #F0FFFF; }
 .partial td, .logbook td, .users td { padding: 5px; }