//Title: Metric Conversions
//Credit to: Jtgibson
//Contributed by: Jtgibson

/*
This is a simple series of conversion procs which allow you to change values in
the SI/metric system into values in the US/Imperial system.
*/


///// METRIC<->IMPERIAL DISTANCE AND LENGTH /////

//Real English
proc/centimetre2inch(x) return (0.3937*(x))
proc/inch2centimetre(x) return (2.54*(x))
proc/inch2metre(x)      return (0.0254*(x))
proc/inch2millimetre(x) return (25.4*(x))
proc/kilometre2mile(x)  return (0.6214*(x))
proc/foot2metre(x)      return (0.3048*(x))
proc/metre2foot(x)      return (3.28084*(x))
proc/metre2inch(x)      return (39.37*(x))
proc/metre2yard(x)      return (1.093611*(x))
proc/mile2kilometre(x)  return (1.609*(x))
proc/yard2metre(x)      return (0.9144*(x))

//American "English" ;-)
proc/centimeter2inch(x) return (0.3937*(x))
proc/inch2centimeter(x) return (2.54*(x))
proc/inch2meter(x)      return (0.0254*(x))
proc/inch2millimeter(x) return (25.4*(x))
proc/kilometer2mile(x)  return (0.6214*(x))
proc/foot2meter(x)      return (0.3048*(x))
proc/meter2foot(x)      return (3.28084*(x))
proc/meter2inch(x)      return (39.37*(x))
proc/meter2yard(x)      return (1.093611*(x))
proc/mile2kilometer(x)  return (1.609*(x))
proc/yard2meter(x)      return (0.9144*(x))

///// IMPERIAL<->IMPERIAL DISTANCE AND LENGTH /////

proc/inch2foot(x) return ((x)/12)
proc/inch2yard(x) return ((x)/36)
proc/inch2mile(x) return ((x)/63360)
proc/foot2inch(x) return (12*(x))
proc/foot2yard(x) return ((x)/3)
proc/foot2mile(x) return ((x)/5260)
proc/mile2inch(x) return (63360*(x))
proc/mile2foot(x) return (5260*(x))

///// METRIC<->METRIC DISTANCE AND LENGTH /////

proc/metre2centimetre(x) return (100*(x))
proc/centimetre2metre(x) return ((x)/100)
proc/metre2kilometre(x)  return ((x)/1000)
proc/kilometre2metre(x)  return (1000*(x))

proc/meter2centimeter(x) return (100*(x))
proc/centimeter2meter(x) return ((x)/100)
proc/meter2kilometer(x)  return ((x)/1000)
proc/kilometer2meter(x)  return (1000*(x))


///// METRIC<->IMPERIAL TEMPERATURE /////

proc/fahrenheit2celsius(x) return ((5/9)*((x)-32))
proc/celsius2fahrenheit(x) return ((1.8*(x))+32)
proc/fahrenheit2kelvin(x)  return (((x)+459.67)/1.8)
proc/kelvin2fahrenheit(x)  return ((1.8*(x))-459.67)

///// METRIC<->METRIC TEMPERATURE /////

proc/celsius2kelvin(x) return ((x)-273.15)
proc/kelvin2celsius(x) return (273.15+(x))