setMirroring :: MirrorType -> NameTableMap
setMirroring mirrorType =
    case mirrorType of
      HorizontalMirror -> NameTableMap NT0 NT0 NT1 NT1
      VerticalMirror -> NameTableMap NT0 NT1 NT0 NT1
      FourScreenMirror -> NameTableMap NT0 NT1 NT2 NT3
      SingleScreenMirror0 -> NameTableMap NT0 NT0 NT0 NT0
      SingleScreenMirror1 -> NameTableMap NT1 NT1 NT1 NT1
setMirroring :: MirrorType -> NameTableMap
setMirroring mirrorType =
    case mirrorType of
      HorizontalMirror -> NameTableMap NT0 NT0 NT1 NT1
      VerticalMirror -> NameTableMap NT0 NT1 NT0 NT1
      FourScreenMirror -> NameTableMap NT0 NT1 NT2 NT3
      SingleScreenMirror0 -> NameTableMap NT0 NT0 NT0 NT0
      SingleScreenMirror1 -> NameTableMap NT1 NT1 NT1 NT1
setMirroring mirrorType =
    case mirrorType of
      HorizontalMirror -> NameTableMap NT0 NT0 NT1 NT1
      VerticalMirror -> NameTableMap NT0 NT1 NT0 NT1
      FourScreenMirror -> NameTableMap NT0 NT1 NT2 NT3
      SingleScreenMirror0 -> NameTableMap NT0 NT0 NT0 NT0
      SingleScreenMirror1 -> NameTableMap NT1 NT1 NT1 NT1