diff --git a/set_warmth b/set_warmth
new file mode 100755
index 0000000..d94ad61
--- /dev/null
+++ b/set_warmth
@@ -0,0 +1,11 @@
+#!/bin/sh -e
+
+x=$(date|cut -f5 -d' '|cut -f1 -d:)
+
+brownout $(bc -e "define redlevel(x) {
+    if((x-12) <= 0)
+        return((83*(12-x)))
+    else
+        return((83*(x-12)))
+} redlevel($x)")
+