From: rearman <rearman@r717.net>
Date: Fri, 18 Nov 2022 19:08:20 +0000 (-0500)
Subject: Added in/mm conversions
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=d9972b286fde7218b1c04405be91dc2787612f7e;p=emacsinit.git

Added in/mm conversions
---

diff --git a/work-eqs.el b/work-eqs.el
index f5e5a2c..0572959 100644
--- a/work-eqs.el
+++ b/work-eqs.el
@@ -58,6 +58,14 @@ Returns a list of Sat. Water Press., Hum. Ratio, and Gns water/lb air."
 	(let ((gns-water-lb-air (* hum-ratio 7000)))
 	  (list sat-water-press hum-ratio gns-water-lb-air))))))
 
+(defun mm-to-in (mm)
+  "Convert milimeters to inches."
+  (/ mm 25.4))
+
+(defun in-to-mm (in)
+  "Convert milimeters to inches."
+  (* in 25.4))
+
 (defun k-to-c (tempk)
   "Convert degrees Kelvin to degrees Celsius."
   (- tempk 273.15))