[

define_tag:'lp_math_HMStoDeg',
	-description='Returns degrees given an angle in Hours:Minutes:Seconds.',
	-priority='replace',
	-required='degrees',
	-optional='precision';
	
	if: !(local_defined:'precision');
		local:'precision' = 6;
	/if;

	// replace the delimiters with ours
	local:'deg' = (string_replaceregexp: (string:#degrees), -find='[^0-9]',-replace=' ');
	#deg = (string_replaceregexp: #deg, -find=' +',-replace=' ');
	#deg->trim;
	#deg = #deg->(split:' ');


	// get hours, minutes, seconds
	local:'h' = 0;
	local:'m' = 0;	
	local:'s' = 0;
	if: #deg->size == 1;	
		#h = (decimal: #deg->(get:1));
	else: #deg->size == 2;
		#h = (decimal: #deg->(get:1));
		#m = (decimal: #deg->(get:2));
	else: #deg->size == 3;	
		#h = (decimal: #deg->(get:1));
		#m = (decimal: #deg->(get:2));
		#s = (decimal: #deg->(get:3));
	/if;

	// return answer
	return: (lp_decimal_precisionset: (#h * 15.0) + (#m * 0.25) + (#s * 0.0041666666666666666666666666666667), (integer:#precision));

/define_tag;

]