Had a mess and altering the 129.0 value on this line chanes the effect...
For me values under 40 and greater than 35 seemed to work best!
+ fire[ calc1[x], calc5[y] ] *32) / 129)
For me values under 40 and greater than 35 seemed to work best!