with(plots):
with(plottools):

#vertex coordinates
coords := [[0, 0], [-3, 3], [3, 3], [4, 5.7], [-4,5.7], [2,7], [-2,7], [0,5.5]]:

#edges
edges := [[1,2],[1,3],[1,4],[1,5],[2,5],[2,7],[2,8],[3,4],[3,6],[3,8],[4,6],[4,8],[5,7],[5,8],[6,8],[7,8]]:


edge_plots := [seq(line(coords[e[1]], coords[e[2]], color=red), e in edges)]:


vertex_plot := pointplot(coords, symbol=solidcircle, symbolsize=25, color=red):

Text1 := textplot([0,8, "I"], color=red, font=[times, bold, 40]):
Text2 := textplot([0,-1, "Algorithmic Graph Theory"], color=red, font=[times, bold, 30]):

# Combine edges and vertices into a single plot
display([edge_plots[], vertex_plot, Text1, Text2], axes=none, scaling=constrained,background="pink",size=[0.7,0.7], view=[-5..5, -2..9]);