scalare una tikzpicture

ho un problema di spazio ho un frame che sta nella pagina
non so per quale miracolo 🙂
mi serve un’idea per compattarlo un po
non prendetela male ci vorrebbe una guida del tipo l’arte di dimagrire le immagini 😛 😛 😛 😛
ma non credo che verrà mai scritta.
de c’è un’anima buona che con questi caldi ha un minuto libero ecco il codice
`
\documentclass[ignorenonframetext,fleqn]{beamer}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[italian]{babel}
\usepackage{textpos}
\usepackage{fix-cm}
\usepackage{tkz-euclide}
\usepackage{tkz-linknodes}
\frenchspacing
\usepackage{times}
\usepackage{bbding}
\makeatletter
\@ifclassloaded{article}
{\definecolor{red}{rgb}{0,0,0}
\definecolor{cyan}{rgb}{0,0,0}
\definecolor{blue}{rgb}{0,0,0}
\definecolor{green}{rgb}{0,0,0}
} %
{\addtobeamertemplate{frametitle}{}{%
\begin{textblock*}{450mm}(.85\textwidth,-3cm)
\begin{tikzpicture}[scale=0.3, label style/.style={font=\fontsize{128}{128}\selectfont}]
\tkzInit% [ymin=-0.1,ymax=2.3,xmin=-0.1,xmax=2.3]
\tkzClip
\tkzDefPoint(0,0){a}
\tkzDefPoint(2,0){b}
\tkzDefPoint(2,2){c}
\tkzDefPoint(0,2){d}
\tkzDefPointBy[rotation= center d angle 90](b)
\tkzGetPoint{e}
\tkzDefPointBy[rotation= center b angle 270](d)
\tkzGetPoint{f}
\tkzDrawSegments(a,b b,c c,d d,a d,e)
\tkzDrawSegments(b,f e,f d,b)
\tkzDefMidPoint(d,b) \tkzGetPoint{m}
\tkzLabelPoint(m){\fontsize{22}{32}\selectfont P}
\tkzDefMidPoint(d,f) \tkzGetPoint{n}
\tkzLabelPoint[rotate=-45](n){\fontsize{28}{32}\selectfont K}
\end{tikzpicture}
\end{textblock*}}
}
\makeatother
\usepackage{guit}
\usepackage{ccicons}
\usetheme{CambridgeUS}
%\usetheme{Madrid}
\listfiles

\begin{document}
\begin{frame}{Somme e prodotti come fare}
\begin{alertblock}{Come fare?}
$x^2+\textcolor{blue}{S}x+\textcolor{red}{P}$
\begin{enumerate}
\item Considero tutti i divisori del prodotto \textcolor{red}{P}
\item Li ordino dal pi\'u piccolo al pi\'u grande $\pm a_1,\pm a_2,\pm a_3, \pm a_4,\dots, \pm a_n$
\item Li prendo in coppie, il primo con l'ultimo \begin{tikzpicture}[scale=0.5,->,>=stealth',shorten >=2pt,main node/.style={node distance=0.9cm},
main node1/.style={node distance=1.1cm}]
%\clip (-.5,-2.2) rectangle (14,1.7);
\node[main node] (1) {$\pm a_1$,};
\node[main node] (2)

{$\pm a_2$,};
\node[main node] (3)

{$\pm a_3$,};
\node[main node] (4)

{$\pm a_{4}$,};
\node[main node] (5)

{$\text{\dots}$,};
\node[main node1] (6)

{$\pm a_{n-3}$,};
\node[main node1] (7)

{$\pm a_{n-2}$,};
\node[main node1] (8)

{$\pm a_{n-1}$,};
\node[main node1] (9)

{$\pm a_n$};
\path[every node/.style={font=\sffamily\small}]
(1) edge [bend right] node

{} (9)
(2) edge [bend left] node

{} (8)
(3) edge [bend right] node

{} (7)
(4) edge [bend left] node

{} (6);
\end{tikzpicture}
\item Sommo le coppie e trovo quella che ha per somma \textcolor{blue}{S}
\item Termino sostituendo $a$ e $b$ con i valori trovati $x^2+\textcolor{blue}{S}x+\textcolor{red}{P}=(x+a)(x+b)$
\end{enumerate}
\end{alertblock}
\end{frame}
\end{document}
`
saluti
claudio