Reliable scale setting

local header = {}

function header.Phase(event)
    header.Text.text = event.character .. " Phase: " .. event.phase
    header.Text:setReferencePoint(display.TopLeftReferencePoint)
    header.Text.x, header.Text.y = 5, 1
end

function header.New(level)
    header.Self = display.newImage(level, "visuals/level_header.png", 0, 0)
    header.Text = display.newRetinaText(level, "Resistance Phase: Waiting", 5, 1, "04b03", 18)
    header.Text:setReferencePoint(display.TopLeftReferencePoint)
    header.Text.x, header.Text.y = 5, 1
    Runtime:addEventListener("Phase", header.Phase)
end

return header