B T(B b)
    B b' <- new B[b.columns, b.rows]

    for i = 0 to b.rows - 1
        for j = 0 to b.columns -1
            b'[j,i] <- b[i, j]

    return b'

B Y(B b)
    B b' <- new B[b.rows, B.columns]

    for i = 0 to b.rows - 1
        for j = 0 to b.columns - 1
            b'[i,j] <- b[i, b.columns - 1 - j]

    return b'

B X(B b)
    B b' <- new B[b.rows, B.columns]

    for i = 0 to b.rows - 1
        for j = 0 to b.columns - 1
            b'[i,j] <- b[b.rows - 1 - i, j]

    return b'