% sage: D4 = DiGraph([(0, 1), (0, 2), (0, 3), (1, 2), (1, 3)])
% sage: GP4 = GraphicalPolytopes(D4)
% sage: to_tikz(GP4.digraph_associahedron(essential=True), nb=True)

\begin{tikzpicture}%
	[x={(-0.366215cm, -0.789554cm)},
	y={(0.235950cm, -0.590693cm)},
	z={(0.900119cm, -0.166391cm)},
	scale=1.000000,
	back/.style={very thin, opacity=0.5},
	edge/.style={color=blue, thick, decoration={markings, mark=at position 0.5 with {\arrow{>}}}},
	facet/.style={fill=blue,fill opacity=0},
	vertex/.style={}]
%
%
%% This TikZ-picture was produce with Sagemath version 9.2
%% with the command: ._tikz_3d_in_3d and parameters:
%% view = [-481, 324, -815]
%% angle = 141.000000000000
%% scale = 1
%% edge_color = blue
%% facet_color = blue
%% opacity = 0.500000000000000
%% vertex_color = blue
%% axis = False

%% Coordinate of the vertices:
%%
\coordinate (0.00000, 0.00000, 0.00000) at (0.00000, 0.00000, 0.00000);
\coordinate (0.00000, 1.41421, -0.81650) at (0.00000, 1.41421, -0.81650);
\coordinate (0.00000, 1.41421, 0.81650) at (0.00000, 1.41421, 0.81650);
\coordinate (0.00000, 2.82843, 0.00000) at (0.00000, 2.82843, 0.00000);
\coordinate (4.00000, 2.82843, 0.00000) at (4.00000, 2.82843, 0.00000);
\coordinate (1.33333, 1.88562, -1.63299) at (1.33333, 1.88562, -1.63299);
\coordinate (4.00000, 0.00000, 1.63299) at (4.00000, 0.00000, 1.63299);
\coordinate (1.33333, 1.88562, 1.63299) at (1.33333, 1.88562, 1.63299);
\coordinate (1.33333, 3.29983, -0.81650) at (1.33333, 3.29983, -0.81650);
\coordinate (1.33333, 3.29983, 0.81650) at (1.33333, 3.29983, 0.81650);
\coordinate (4.00000, 0.00000, -1.63299) at (4.00000, 0.00000, -1.63299);
\coordinate (2.66667, 3.77124, 0.00000) at (2.66667, 3.77124, 0.00000);
\coordinate (4.00000, -2.82843, 0.00000) at (4.00000, -2.82843, 0.00000);
%%
%%
%% Drawing edges in the back
%%
\draw[edge,postaction={decorate},back] (0.00000, 1.41421, -0.81650) -- (0.00000, 0.00000, 0.00000);
\draw[edge,postaction={decorate},back] (0.00000, 2.82843, 0.00000) -- (0.00000, 1.41421, -0.81650);
\draw[edge,postaction={decorate},back] (1.33333, 1.88562, -1.63299) -- (0.00000, 1.41421, -0.81650);
\draw[edge,postaction={decorate},back] (0.00000, 2.82843, 0.00000) -- (0.00000, 1.41421, 0.81650);
\draw[edge,postaction={decorate},back] (1.33333, 3.29983, -0.81650) -- (0.00000, 2.82843, 0.00000);
\draw[edge,postaction={decorate},back] (1.33333, 3.29983, 0.81650) -- (0.00000, 2.82843, 0.00000);
\draw[edge,postaction={decorate},back] (1.33333, 3.29983, -0.81650) -- (1.33333, 1.88562, -1.63299);
\draw[edge,postaction={decorate},back] (4.00000, 0.00000, -1.63299) -- (1.33333, 1.88562, -1.63299);
\draw[edge,postaction={decorate},back] (2.66667, 3.77124, 0.00000) -- (1.33333, 3.29983, -0.81650);
%%
%%
%% Drawing vertices in the back
%%
\node[vertex] at (0.00000, 2.82843, 0.00000)     {};
\node[vertex] at (0.00000, 1.41421, -0.81650)     {};
\node[vertex] at (1.33333, 1.88562, -1.63299)     {};
\node[vertex] at (1.33333, 3.29983, -0.81650)     {};
%%
%%
%% Drawing the facets
%%
\fill[facet] (4.00000, 0.00000, 1.63299) -- (4.00000, -2.82843, 0.00000) -- (0.00000, 0.00000, 0.00000) -- (0.00000, 1.41421, 0.81650) -- (1.33333, 1.88562, 1.63299) -- cycle {};
\fill[facet] (4.00000, -2.82843, 0.00000) -- (4.00000, 0.00000, 1.63299) -- (4.00000, 2.82843, 0.00000) -- (4.00000, 0.00000, -1.63299) -- cycle {};
\fill[facet] (2.66667, 3.77124, 0.00000) -- (4.00000, 2.82843, 0.00000) -- (4.00000, 0.00000, 1.63299) -- (1.33333, 1.88562, 1.63299) -- (1.33333, 3.29983, 0.81650) -- cycle {};
%%
%%
%% Drawing edges in the front
%%
\draw[edge,postaction={decorate}] (0.00000, 1.41421, 0.81650) -- (0.00000, 0.00000, 0.00000);
\draw[edge,postaction={decorate}] (4.00000, -2.82843, 0.00000) -- (0.00000, 0.00000, 0.00000);
\draw[edge,postaction={decorate}] (1.33333, 1.88562, 1.63299) -- (0.00000, 1.41421, 0.81650);
\draw[edge,postaction={decorate}] (4.00000, 2.82843, 0.00000) -- (4.00000, 0.00000, 1.63299);
\draw[edge,postaction={decorate}] (4.00000, 2.82843, 0.00000) -- (4.00000, 0.00000, -1.63299);
\draw[edge,postaction={decorate}] (4.00000, 2.82843, 0.00000) -- (2.66667, 3.77124, 0.00000);
\draw[edge,postaction={decorate}] (4.00000, 0.00000, 1.63299) -- (1.33333, 1.88562, 1.63299);
\draw[edge,postaction={decorate}] (4.00000, 0.00000, 1.63299) -- (4.00000, -2.82843, 0.00000);
\draw[edge,postaction={decorate}] (1.33333, 3.29983, 0.81650) -- (1.33333, 1.88562, 1.63299);
\draw[edge,postaction={decorate}] (2.66667, 3.77124, 0.00000) -- (1.33333, 3.29983, 0.81650);
\draw[edge,postaction={decorate}] (4.00000, 0.00000, -1.63299) -- (4.00000, -2.82843, 0.00000);
%%
%%
%% Drawing the vertices in the front
%%
\node[vertex] at (0.00000, 0.00000, 0.00000)     {};
\node[vertex] at (0.00000, 1.41421, 0.81650)     {};
\node[vertex] at (4.00000, 2.82843, 0.00000)     {};
\node[vertex] at (4.00000, 0.00000, 1.63299)     {};
\node[vertex] at (1.33333, 1.88562, 1.63299)     {};
\node[vertex] at (1.33333, 3.29983, 0.81650)     {};
\node[vertex] at (4.00000, 0.00000, -1.63299)     {};
\node[vertex] at (2.66667, 3.77124, 0.00000)     {};
\node[vertex] at (4.00000, -2.82843, 0.00000)     {};
%%
%%
\end{tikzpicture}