From 1eabd7a93fe49a288464ebd686c3853cb838cfa9 Mon Sep 17 00:00:00 2001
From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Thu, 5 Jul 2007 00:05:42 +0000
Subject: [PATCH] More intelligent Triac setting.

---
 kokare.c | 33 +++++++++++++++++++--------------
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/kokare.c b/kokare.c
index 38662bb..f3c65b6 100644
--- a/kokare.c
+++ b/kokare.c
@@ -263,12 +263,13 @@ void convcycle(void)
 
 int main(void)
 {
-    int state, cur, run;
+    int state, cur, run, rstate, delta;
     unsigned long utime;
     
     state = 0;
     cur = 100;
     run = 0;
+    rstate = 0;
     init();
     sei();
     display(0);
@@ -346,22 +347,26 @@ int main(void)
 	 * Set Triac to match temperature
 	 */
 	if(run) {
-	    if(tempk - 273 < cur) {
-		tron = 1;
-		if(cur - (tempk - 273) > 5) {
-		    /* For some reason, the Triac currently doesn't
-		     * trigger on one of the AC half-cycles below 0.7
-		     * ms. */
-		    trdelay = 7;
-		} else if(cur - (tempk - 273) >= 3) {
-		    trdelay = 20;
-		} else if(cur - (tempk - 273) >= 2) {
-		    trdelay = 40;
+	    delta = cur - (tempk - 273);
+	    if(rstate == 0) {
+		if(delta > 0) {
+		    tron = 1;
+		    if(delta > 8) {
+			/* For some reason, the Triac currently doesn't
+			 * trigger on one of the AC half-cycles below 0.7
+			 * ms. */
+			trdelay = 7;
+		    } else {
+			trdelay = 79 - (delta * 9);
+		    }
 		} else {
-		    trdelay = 70;
+		    tron = 0;
+		    rstate = 1;
 		}
-	    } else {
+	    } else if(rstate == 1) {
 		tron = 0;
+		if(delta >= 2)
+		    rstate = 0;
 	    }
 	} else {
 	    tron = 0;
-- 
2.11.0