\documentclass{standalone}
\usepackage{tikz}
\begin{document}

\begin{tikzpicture}[scale = 1.2]
\coordinate (-1) at (-1,0) {};
\coordinate (0) at (0,0) {};
\coordinate (1) at (1, 0) {};
\coordinate (2) at (1,3) {};

\coordinate (-1') at (3,0) {};
\coordinate (0') at (4,0) {};
\coordinate (1') at (4, 1.5) {};
\coordinate (2') at (5, 1.5) {};
\coordinate (3') at (5, 3) {};

\draw [red,thick](-1) -- (0) node   {};
\draw [red,thick](0) -- (1) node   {};
\draw [red,thick](1) -- (2) node   {};

\draw [red,thick](-1') -- (0') node {};
\draw [red,thick](0') -- (1') node {};
\draw [red,thick](1') -- (2') node  {};
\draw [red,thick](2') -- (3') node  {};

\draw [->] (1.5,1) -- (2.5,1);

\node at (1.25, 2.25) {D};
\node at (5.25, 2.25) {D};
\node at (1.25, 1.5) {C};
\node at (5.25, 1.5) {C};
\node at (3.75, 1.5) {C'};
\node at (1.25, 0.75) {B};
\node at (4.25, 0.75) {B'};
\node at (1.25, 0) {A};
\node at (4.25, 0) {A'};
\node at (0, -0.25) {A'};
\node at (-1.3, 0) {P};
\node at (2.7, 0) {Q};

\draw [fill = black] (0,0) circle (0.050);
\draw [fill = black] (1,0) circle (0.050);
\draw [fill = black] (4,0) circle (0.050);
\draw [fill = black] (1,1.5) circle (0.050);
\draw [fill = black] (4,1.5) circle (0.050);
\draw [fill = black] (5,1.5) circle (0.050);

\end{tikzpicture}

\end{document}


