Clínica T-F

\documentclass{article}[14pt,a4paper]
% Comment the following line to NOT allow the usage of umlauts
\usepackage[utf8]{inputenc}
%\usepackage[english]{babel}
\usepackage[a4paper, lmargin=1.8cm, rmargin=1.8cm, bottom=1.8cm]{geometry}
\usepackage{color}
% Uncomment the following line to allow the usage of graphics (.png, .jpg)
\usepackage{verbatim}
\usepackage{graphicx}
\usepackage{amsmath}
\usepackage[all]{xy}
\usepackage{pst-all}
\usepackage{tikz}
\usepackage{lscape}
\usepackage{tikzpeople}
\usepackage{fancybox}
%\usepackage{gnuplottex}
%\usepackage{chronology}
\usepackage{pst-pdf}
%\usepackage{pstricks}

\usepackage{pst-solides3d}
\pagestyle{empty}
 \tikzset{flippedeventlabel/.append style={align=center}}
\usetikzlibrary{matrix.skeleton}
\usetikzlibrary[patterns,shapes,arrows,positioning,fit,backgrounds,intersections,shadows,calc]
\usetikzlibrary[datavisualization]
\usepackage{pgfplots}
\pgfplotsset{width=10cm,compat=1.9}
% Start the document
\begin{document}
\pagecolor{red!10}
%\begin{flushleft}
\begin{landscape}
\begin {center}
\section*{Clinica Tikal Futura Dr. Roberto Camposeco.}
\section*{\textcolor{blue}{Ubicación: 14 Nivel, Torre Sol, Tikal Futura}}
\section*{\textcolor{blue}{Escala: 1cm :: 100cm}}
\end{center}
\begin{tikzpicture}
[scale=1,line cap=round,decoration={snake,amplitude=.4mm,segment length=2mm,post length=1mm},axes/.style=,
important line/.style={very thick},
information text/.style={rounded corners,fill=red!10,inner sep=1ex}]

\begin{scope}[ultra thick,blue]
\draw [<->] (-1.25,2)node[left]{\huge O} to (-0.75,2) node [right] {\huge E};
\draw [<->] (-1,1.75)node[below]{\huge S} to (-1,2.25) node [above] {\huge N};
\draw (4,-10) to (19,-10) to (19,-6.15) to (15.5,-6.15) to (14.7,-5.2);
\draw (3.3,-10) to (3,-10) to (3,-7) to (6.4,-7) .. controls(6.8,-5.5).. (7.7,-5.2) to (14.7,-5.2);
\draw (7.7,-7) to (7.7,-10);
\draw (7.7,-7) to (14.7,-7) to (14.7, -10);
\end{scope}
\shadedraw[white,opacity=0.5,left color=white,right color=cyan](14.7,-7)--(14.7,-10)--(19,-10)--(19,-6.15)--(15.5,-6.15)--cycle;
\shadedraw[white,opacity=0.5,left color=white,right color=green](3,-10)--(3,-7)--(6.4,-7)--(7.7,-7)--(7.7,-10)--cycle;
%Decoraciones
\def\corredor{(6.4,-7).. controls (6.8,-5.5)..(7.7,-5.2) --(14.7,-5.2)--(15.5,-6.15)--(14.7,-7)--cycle}

\fill [orange!20!black!60!white] \corredor;
\pattern[pattern color=white,pattern=bricks] \corredor;
\draw node[white, rounded corners,fill=black] at (11,-6.15){\Large{P a s i ll o}};
\draw node[white, rounded corners,fill=black] at (17,-8){\Large{Clínica}};
\draw node[white, rounded corners,fill=black] at (5,-9){\Large{Recepción}};
\fill[red!50!orange!60!black](3,-8.3)to(5.1,-8.3)to(5.1,-8.5)to(3,-8.5) to cycle;
%Personas
\draw node[nurse,blue] at (4,-8){};

\foreach \x in {5,5.5,6,6.5,7,7.5}
{
\draw node[rectangle, fill=gray] at (\x,-9.8){};}
\foreach \y in {-9,-8.5,-8}
{
\draw node[rectangle, fill=gray] at (7.5,\y){};}
%Medidas
\draw[-, very thick](3,-11)to(3,-11.5)node[right] at (3,-11.25){$\leftarrow$} (19,-11)to(19,-11.5)node[left] at (19,-11.25){$\rightarrow$} node at (11,-11.25) {16 m};
\draw[-] (19.5,-10) to (20,-10) node [above]at(19.75,-10){$\downarrow$} (19.5,-6.15) to (20,-6.16) node[below] at (19.75,-6.15) {$\uparrow$} node[right] at (19.5,-8) {4.25 m} ;
\draw[-] (2.8,-10) to (2.3,-10) node [above]at(2.55,-10){$\downarrow$} (2.8,-7) to (2.3,-7) node[below] at (2.55,-7) {$\uparrow$}node at (2.4,-8.5) {3.96 m};
\draw node[above] at(2.55,-7) {$\downarrow$};
\draw[-] (2.8,-5.2) to (2.3,-5.2) node [below]at(2.55,-5.2){$\uparrow$} node at (2.55,-6.1){1.8 m};
\draw[-, dashed, gray](2.8,-5.2) to (7.8,-5.2);

\draw [-](7.7,-10.2) to (7.7,-10.7) node[right] at (7.7,-10.45) {$\leftarrow$} (14.7,-10.2) to (14.7,-10.7) node[left] at (14.7,-10.45) {$\rightarrow$} node at (11,-10.5) {7 m};
\draw node[left] at (7.7,-10.45) {$\rightarrow$};
\draw node[right] at (14.7,-10.45) {$\leftarrow$};
\draw [-](19,-10.2) to (19,-10.7) node[left] at (19,-10.45) {$\rightarrow$}  node at (16.7,-10.45) {4 m};
\draw node at (6.5,-10.5) {3.06 m};
\draw[-](3.3,-10.2)to(3.3,-10.7) node[left] at(3.3,-10.45){$\rightarrow$};
\draw[-](4,-10.2)to(4,-10.7) node[right] at(4,-10.45){$\leftarrow$};
\draw node at (3.65,-10.45) {\tiny{1.1 m}};
\end{tikzpicture}
%\end{flushleft}
\end{landscape}
\end{document}