highlightRect :: AnimId -> Rect -> Anim.Frame
highlightRect animId (Rect pos size) =
    Anim.unitSquare animId
    & Anim.unitImages %~ Draw.tint highlightColor
    & Anim.layers -~ 50 -- TODO: 50?!
    & Anim.scale size
    & Anim.translate pos
highlightRect :: AnimId -> Rect -> Anim.Frame
highlightRect animId (Rect pos size) =
    Anim.unitSquare animId
    & Anim.unitImages %~ Draw.tint highlightColor
    & Anim.layers -~ 50 -- TODO: 50?!
    & Anim.scale size
    & Anim.translate pos
highlightRect animId (Rect pos size) =
    Anim.unitSquare animId
    & Anim.unitImages %~ Draw.tint highlightColor
    & Anim.layers -~ 50 -- TODO: 50?!
    & Anim.scale size
    & Anim.translate pos