-- Angles2Numbers
-- Converts angle measurments between a 360 scale and 255 (8bit)
-- Dani Rosen, Aug 2006
--
-- Ubertool values are flipped 180 degrees

macroScript Angles2Numbers 
	category:"DaniTools" 
	internalcategory:"DaniTools"
	tooltip:"Angles-2-Numbers"
	buttontext:"Angles-2-Numbers"
	Icon:#("Polar",1)
(


global UIdir = getdir #ui
global bimg = (UIdir + "\Icons\TimePanel_16i.bmp")
global bimga = (UIdir + "\Icons\TimePanel_16a.bmp")
-- if the images above are not found - will use the < > symbols.

rollout Angles2Numbers "Angles-2-Numbers Converter"
(
	button bL "<" pos:[85,12]
	button bR ">" pos:[105,12]
	on Angles2Numbers open do 
	(
		if (getFiles bimg).count != 0 then
		(
			bL.images = #(bimg,bimg,16,2,2,2,2)
			bR.images = #(bimg,bimg,12,5,5,5,5)
		)
	)
	spinner tNumber range:[-1000,1000,255] type:#float fieldWidth:42 text:"255" pos:[25,15]
	spinner tAngle range:[-1000,1000,360] type:#float fieldWidth:42 text:"360" pos:[130,15]
	label lNumber "Number: 0-255" pos:[17,40]
	label lAngle "Angle: 0-360" pos:[125,40]
	checkbox bUber "Ubertool values" checked:false align:#center


	on bL pressed do
	(
		tNumber.value = tAngle.value/360*255
		if bUber.checked == true then tNumber.value = floor ((180-tAngle.value)/360*255)
	)
	
	on bR pressed do
	(
		tAngle.value = tNumber.value*360/255
		if bUber.checked == true then tAngle.value = 180-tAngle.value
	)

	on bUber changed state do
	(
		if bUber.checked == true then
		(
			tAngle.value = 180-(tNumber.value*360/255)
		) else (
			tAngle.value = tNumber.value*360/255
		)
	)

)
createdialog Angles2Numbers 208 80

)