Swapped flame colours to reflect physics.

Author: mstathers

fireplace.el

@@ -54,12 +54,12 @@
 	 (hot-core (/ actual-width 2)))
     (delete-char actual-width)
     (insert (propertize (make-string actual-width fireplace-fill-char)
-			'face `(:background ,"dark orange")))
+			'face `(:background ,"orange red")))
     (when (> hot-core 1)
       (gotoxy (+ x (/ hot-core 2)) y)
       (delete-char hot-core)
       (insert (propertize (make-string hot-core fireplace-fill-char)
-				      'face `(:background ,"orange red"))))))
+				      'face `(:background ,"dark orange"))))))
 
 (defun smoke (x height)
   (gotoxy (if (>(random 3) 1)