\documentclass[tikz,border=5pt]{standalone}
\usepackage{amssymb,amsmath,amsfonts,amsthm,bbm,mathrsfs,times,graphicx,color,comment, enumerate}
\usepackage[utf8]{inputenc}
\usepackage{tikz}
\usetikzlibrary{arrows,shapes}
\usetikzlibrary{fadings}
\usetikzlibrary{intersections}
\usetikzlibrary{decorations.pathreplacing}
\usetikzlibrary{quotes}
\usetikzlibrary{angles}
\usetikzlibrary{babel}
\usepackage{xcolor, array}
\usetikzlibrary{shapes.misc}
\usetikzlibrary{decorations.markings}
\tikzset{cross/.style={cross out, draw=black, minimum size=2*(#1-\pgflinewidth), inner sep=0pt, outer sep=0pt},
cross/.default={1pt}}
\begin{document}
\begin{tikzpicture}[scale=0.9,cap=round,>=latex]
\tikzset{help lines/.style={color=blue!50}}
\draw[thick,step=1cm,help lines] (0,0) grid (15,10);
\draw[ultra thin,step=1cm,help lines] (0,0) grid (15,10);
\draw[dashed, -latex] (15.2,4) -- (-0.7,4) node[anchor=east] {$-n$};
\draw[dashed,-latex] (15,0) -- (15,11) node[anchor=east] {$k$};
\foreach \x in {6,7}
{
\pgfmathtruncatemacro{\rx}{-15+2*\x};
\node [anchor=north] at (2*\x,3.95) {\rx};
\draw [ultra thick] (2*\x,4.1) -- (2*\x,3.9);
}
\foreach \x in {0,1,...,5}
{
\pgfmathtruncatemacro{\rx}{-15+2*\x};
\draw [ultra thick] (2*\x,4.1) -- (2*\x,3.9);
}
\foreach \y in {0,1,...,10}
{
\pgfmathtruncatemacro{\rr}{ -4 + \y};
\node [anchor=east] at (15.8,\y) {\rr};
}
\draw[thick,black] (15,4) to (9,10);
\draw[ultra thick,red] (14,4) to (2,10);
\draw[ultra thick,red] (14,0) to (14,4);
\draw[ultra thick,red] (12,4) to (0,10);
\draw[ultra thick,red] (12,0) to (12,4);
\node [anchor=north] at (10,3.95) {$\cdots \cdots$};
\draw[ultra thick,red] (8,4) to (0,8);
\draw[ultra thick,red] (8,0) to (8,4);
\node [anchor=north] at (8,3.95) {$-m+1$};
\draw[ultra thick,black] (6,4) to (0,7);
\draw[ultra thick,black] (6,0) to (6,4);
\node [anchor=north] at (6,3.95) {$-m-1$};
\node [anchor=north] at (4,3.95) {$-m-3$};
\node [anchor=north] at (2,3.95) {$\cdots \cdots $};
\draw[fill=red,opacity=0.4] (6,0) -- (14,0) -- (14,4) -- (2,10) -- (0,10) -- (0,7) -- (6,4)-- cycle;
\draw[fill=blue!20!black!30!green,opacity=0.4] (14,4) -- (14,10) -- (2,10) -- cycle;
\coordinate[label=below:$n+2k \leq -(m+1)$] (origin1) at (2.2,2.8);
\coordinate[label=below:$n \leq -(m+1)$] (origin2) at (2.7,2.2);
\draw[black] (14,5) circle (5pt);
\draw[black] (12,7) circle (5pt);
\draw[black] (10,9) circle (5pt);
\node at (14,6)[draw,rectangle,minimum height=0.1cm]{};
\node at (12,6)[draw, rectangle,minimum height=0.1cm]{};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=270,
minimum size =0.01cm] (T1)at (14,7){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=270,
minimum size =0.01cm] (T2)at (10,7){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=240, fill=red!50,
minimum size =0.01cm] (T3)at (14,3){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=240, fill=red!50,
minimum size =0.01cm] (T4)at (12,5){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=270, fill=red!50,
minimum size =0.01cm] (TR2a)at (12,0){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=270, fill=red!50,
minimum size =0.01cm] (TR2b) at (4,8){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=90, fill=red!50,
minimum size =0.01cm] (Trlast)at (8,3){};
\node[isosceles triangle, isosceles triangle apex angle=60,
draw, rotate=90, fill=red!50,
minimum size =0.01cm] (Trlast1)at (6,5){};
\node at (14,8)[draw,trapezium,minimum height=0.1cm]{};
\node at (8,8)[draw,trapezium,minimum height=0.1cm]{};
\node at (4,9)[draw,fill=red!50,trapezium,minimum height=0.1cm]{};
\node at (12,1)[draw,fill=red!50,trapezium,minimum height=0.1cm]{};
\node at (6,7)[draw,fill=red!50,trapezium,minimum height=0.1cm]{};
\draw[black] (12,8) ellipse (3pt and 6pt);
\draw[black] (10,8) ellipse (3pt and 6pt);
\draw[black,fill=red!50] (14,0) ellipse (6pt and 8pt);
\draw[black,fill=red!50,] (6,8) ellipse (6pt and 8pt);
\draw[black,fill=red!50] (12,3) ellipse (9pt and 7pt);
\draw[black,fill=red!50] (10,5) ellipse (9pt and 7pt);
\draw[black,fill=red!50] (2,9) ellipse (3pt and 6pt);
\draw[black,fill=red!50] (8,2) ellipse (8pt and 6pt);
\draw[black,fill=red!50,] (4,6) ellipse (8pt and 6pt);
\node [rectangle, draw, xslant=0.4] at (14,9) {};
\node [rectangle, draw, xslant=0.4] at (6,9) {};
\node [rectangle, draw, fill=red!50, xslant=-0.3] at (14,1) {};
\node [rectangle, draw, fill=red!50, xslant=-0.3] at (8,7) {};
\node [rectangle, draw, fill=red!50, xslant=0.4] at (12,2) {};
\node [rectangle, draw, fill=red!50, xslant=0.4] at (8,6) {};
\node [rectangle, draw, fill=red!50, xslant=0.6] at (0,8) {};
\node [rectangle, draw, fill=red!50, xslant=0.6] at (8,0) {};
\node[regular polygon, draw, regular polygon sides = 5] (p1) at (12,9) {};
\node[regular polygon, draw, regular polygon sides = 5] (p2) at (8,9) {};
\node[regular polygon, draw, fill=red!50, regular polygon sides = 5] (p3) at (8,1) {};
\node[regular polygon, draw, fill=red!50, regular polygon sides = 5] (p4) at (2,7) {};
\node[regular polygon, draw, fill=red!50, regular polygon sides = 6] (p5) at (14,2) {};
\node[regular polygon, draw, fill=red!50, regular polygon sides = 6] (p6) at (10,6) {};
\end{tikzpicture}
\end{document}