function HandleFire (time)


    local BlowerValve = Call("*:GetControlValue", "VirtualBlower", 0 )
    local SteamConsumptionDraw = Call("*:GetControlValue", "SteamConsumptionEstimate", 0 )


    local FireTargetDraw = math.min((math.max( math.max(SteamConsumptionDraw/21000,0) , 1*BlowerValve )),1)

    local FireDrawDelta = ( FireTargetDraw - gnFireDraw )

    gnFireDraw = math.max( math.min( gnFireDraw + ( FireDrawDelta * time ), 1 ) , 0 )

    Call ( "*:SetControlValue", "FireDrawValue1", 0, gnFireDraw )


    local Firemassvalue = Call("*:GetControlValue", "FireMassXB", 0 )
    local PrimaryAirSupply = Call("*:GetControlValue", "OverallPrimaryAirEffect", 0 )

    if Firemassvalue > 447 and Firemassvalue < 467 and PrimaryAirSupply > 0.95 then
        local FireIdeal = 1
    else
        local FireIdeal = 0
    end

    Call ( "*:SetControlValue", "FireDrawValue3", 0, FireIdeal )
end