\psset{unit=0.45cm}
%
\def\leftobject{%
\psline[linewidth=0.1,linecolor=gray](2.5,0)(2.5,4)
\psline[linewidth=0.1,linecolor=gray](0,1.33)(2.5,1.33)
\psline[linewidth=0.1,linecolor=gray](0,2.66)(2.5,2.66)
\pspolygon[linewidth=0.4,linecolor=lightgray,linearc=0.75](0,0)(0,4)(4,4)(4,0)%
}
%
\def\rightobject{%
\psline[linewidth=0.1,linecolor=gray](1.5,0)(1.5,4)
\psline[linewidth=0.1,linecolor=gray](1.5,1.33)(4,1.33)
\psline[linewidth=0.1,linecolor=gray](1.5,2.66)(4,2.66)
\pspolygon[linewidth=0.4,linecolor=lightgray,linearc=0.75](0,0)(0,4)(4,4)(4,0)%
}
%
\pspicture(-15,-9)(15,9)
% \showgrid
% Left bipartite structure:
% The bipartition:
\psline[linewidth=0.15,linecolor=gray,linestyle=dashed,dash=3pt 2pt](-8,-9)(-8,9)
% The vertices:
\rput(-14,-2){\rightobject}
\rput(-6,4){\leftobject}
\rput(-6,-2){\leftobject}
\rput(-6,-8){\leftobject}
% The involution
\psset{linewidth=0.2,linecolor=black}
\psline{c-c}(-11,1.33)(-5,7.33)
\psline{c-c}(-11,0)(-5,0)
\psline{c-c}(-11,-1.33)(-5,-7.33)
% The labels:
\rput(-14.5,2.5){$R_1$}
\rput(-1.5,8.5){$R_1^\prime$}
\rput(-1.5,2.5){$R_2^\prime$}
\rput(-1.5,-3.5){$R_3^\prime$}
%
\rput(-13.25,0){$M_1$}
\rput(-11.75,1.25){$M_2$}
\rput(-11.75,0){$M_3$}
\rput(-11.75,-1.25){$M_4$}
%
\rput(-4.25,7.25){$M_2$}
\rput(-4.25,0){$M_3$}
\rput(-4.25,-7.25){$M_4$}
%
% Right bipartite structure:
% The bipartition:
\psline[linewidth=0.15,linecolor=gray,linestyle=dashed,dash=3pt 2pt](8,-9)(8,9)
% The vertices:
\rput(2,2){\leftobject}
\rput(2,-6){\leftobject}
\rput(10,2){\rightobject}
\rput(10,-6){\rightobject}
% The involution
\psset{linewidth=0.2,linecolor=black}
\psline{c-c}(5,5)(11,5)
\psline{c-c}(5,-5)(11,-5)
\psline{c-c}(5,3)(11,-3)
\psline{c-c}(5,-3)(11,3)
% The labels
\rput(1.5,6.5){$R_1$}
\rput(1.5,-1.5){$R_2$}
\rput(5.25,4){$M$}
\rput(5.25,-4){$M$}
%
\rput(14.5,6.5){$R_1^\prime$}
\rput(14.5,-1.5){$R_2^\prime$}
\rput(10.75,4){$M$}
\rput(10.75,-4){$M$}
\endpspicture