tikzdraw/infographics/messaggio_arecibo.tex

201 lines
11 KiB
TeX

\documentclass{standalone}
%
\usepackage{tikz}
\usetikzlibrary{backgrounds}
\usetikzlibrary{calc}
\usetikzlibrary{decorations.pathmorphing}
\usepackage{xcolor}
\usepackage{ifthen}
%
\definecolor{space}{HTML}{0A2543}
\definecolor{earth}{HTML}{0089FA}
\definecolor{dida}{HTML}{FFDE00}
\definecolor{title}{HTML}{FBA706}
%
\usepackage{fontspec}
\setmainfont{Open Dyslexic}
%
\title{Il messaggio di Arecibo}
\begin{document}
\tikzset{
partial ellipse/.style args = {#1:#2:#3}{insert path={+ (#1:#3) arc (#1:#2:#3)}},
arecibo/.pic = {
\foreach \i in {0,1,3,4}
\draw[color=space, fill=red, ultra thick] (2+\i,0) rectangle (3+\i,1);
\foreach \i in {0,1,2}
\foreach \j in {0,1,2,3,4,5,6}
{\ifthenelse{\j<3 \AND \i=1}{}{\draw[color=space, fill=red, ultra thick] (3+\i,1+\j) rectangle (4+\i,2+\j);}}
\draw[color=space, fill=red, ultra thick] (4,8) rectangle (5,9);
\draw[color=space, fill=red, ultra thick] (4,9) -- (4,10) -- (5,10) -- (5,9.4) -- (4.8,9.4) -- (5,9.3) -- (5,9) -- (4,9);
\foreach \i in {0,1,2}
\draw[color=space, fill=red, ultra thick] (\i,5+\i) rectangle (1+\i,6+\i);
\foreach \i in {0,1,2}
\draw[color=space, fill=red, ultra thick] (9-\i,5+\i) rectangle (8-\i,6+\i);
},
cross/.pic = {
\foreach \i in {0,1,2}
{\draw[color=space, fill=earth, ultra thick] (0.5+\i,0-\i) rectangle (1.5+\i,-1-\i);
\draw[color=space, fill=earth, ultra thick] (3.5-\i,0-\i) rectangle (2.5-\i,-1-\i);}
},
ax/.pic = {
\foreach \i in {0,3}
\foreach \j in {0,1}
\draw[color=space, fill=earth, ultra thick] (0+\i,-3-\j) rectangle (1+\i,-4-\j);
},
dna/.pic = {
\pic at (0,0) {cross};
\pic at (0,0) {ax};
\pic at (0,-5) {cross};
\pic at (0,-7) {cross};
\pic at (0,-7) {ax};
\pic at (0,-12) {cross};
},
cluster/.pic = {
\foreach \i in {1,2,...,200}{
\newcommand{\cX}{0}
\newcommand{\cY}{0}
\newcommand{\cR}{4.5}
\pgfmathparse{70*rnd+30}
\edef\tmp{\pgfmathresult}
\pgfmathrandominteger{\x}{-450}{450}
\pgfmathrandominteger{\y}{-450}{450}
\pgfmathparse{0.01*\x}\let\x\pgfmathresult
\pgfmathparse{0.01*\y}\let\y\pgfmathresult
\pgfmathparse{ifthenelse((\x-\cX)^2 + (\y-\cY)^2 <= \cR^2,"red!\tmp!yellow","space")}
\fill[\pgfmathresult] (\x,\y) circle (0.1);
}
},
monster01/.pic = {
\fill[green] (0,0) -- (0,1.5) -- (0.5,1.5) -- (0.5,2) -- (1,2) -- (1,2.5) -- (1.5,2.5) -- (1.5,3) -- (1,3) -- (1,3.5) -- (1.5,3.5) -- (1.5,3) -- (2,3) -- (2,2.5) -- (3.5,2.5) -- (3.5,3) -- (4,3) -- (4,3.5) -- (4.5,3.5) -- (4.5,3) -- (4,3) -- (4,2.5) -- (4.5,2.5) -- (4.5,2) -- (5,2) -- (5,1.5) -- (5.5,1.5) -- (5.5,0) -- (5,0) -- (5,1) -- (4.5,1) -- (4.5,0) -- (4,0) -- (4,-0.5) -- (3,-0.5) -- (3,0) -- (4,0) -- (4,0.5) -- (1.5,0.5) -- (1.5,0) -- (2.5,0) -- (2.5,-0.5) -- (1.5,-0.5) -- (1.5,0) -- (1,0) -- (1,1) -- (0.5,1) -- (0.5,0) -- (0,0);
\fill[space] (1.5,1.5) rectangle (2,2);
\fill[space] (3.5,1.5) rectangle (4,2);
},
monster02/.pic = {
\foreach \i in {0,1,2.5,3.5}
\fill[green] (\i,0) rectangle (0.5+\i,0.5);
\foreach \i in {0.5,3}
\fill[green] (\i,0.5) rectangle (0.5+\i,1);
\fill[green] (1.5,0.5) rectangle (2.5,1);
\fill[green] (1,1) -- (1,1.5) -- (0,1.5) -- (0,2.5) -- (0.5,2.5) -- (0.5,3) -- (1,3) -- (1,3.5) -- (1.5,3.5) -- (1.5,4) -- (2.5,4) -- (2.5,3.5) -- (3,3.5) -- (3,3) -- (3.5,3) -- (3.5,2.5) -- (4,2.5) -- (4,1.5) -- (3,1.5) -- (3,1) -- (2.5,1) -- (2.5,1.5) -- (1.5,1.5) -- (1.5,1) -- (1,1);
\fill[space] (1,2.5) rectangle (1.5,2);
\fill[space] (2.5,2.5) rectangle (3,2);
},
monster03/.pic = {
\fill[green] (0,0) rectangle (1,0.5);
\fill[green] (5,0) rectangle (6,0.5);
\fill[green] (2.5,0.5) rectangle (3.5,1);
\fill[green] (1,0.5) -- (1,1) -- (1.5,1) -- (1.5,1.5) -- (0,1.5) -- (0,3) -- (0.5,3) -- (0.5,3.5) -- (2,3.5) -- (2,4) -- (4,4) -- (4,3.5) -- (5.5,3.5) -- (5.5,3) -- (5.5,1.5) -- (4.5,1.5) -- (4.5,1) -- (5,1) -- (5,0.5) -- (4,0.5) -- (4,1) -- (3.5,1) -- (3.5,1.5) -- (2.5,1.5) -- (2.5,1) -- (2,1) -- (2,0.5) -- (1,0.5);
\fill[space] (1.5,2) rectangle (2.5,2.5);
\fill[space] (3.5,2) rectangle (4.5,2.5);
},
monster04/.pic = {
\fill[green] (0,0) -- (0,0.5) -- (0.5,0.5) -- (0.5,1) -- (1,1) -- (1,1.5) -- (1.5,1.5) -- (1.5,2) -- (2.5,2) -- (2.5,2.5) -- (5.5,2.5) -- (5.5,2) -- (6.5,2) -- (6.5,1.5) -- (7,1.5) -- (7,1) -- (7.5,1) -- (7.5,0.5) -- (8,0.5) -- (8,0) -- (7,0) -- (7,-0.5) -- (6.5,-0.5) -- (6.5,-1) -- (6,-1) -- (6,-0.5) -- (5.5,-0.5) -- (5.5,0) -- (4.5,0) -- (4.5,-0.5) -- (3.5,-0.5) -- (3.5,0) -- (2.5,0) -- (2.5,-0.5) -- (2,-0.5) -- (2,-1) -- (1.5,-1) -- (1.5,-0.5) -- (1,-0.5) -- (1,0) -- (0,0);
\foreach \i in {0,1.5,3,4.5}
\fill[space] (1.5+\i,0.5) rectangle (2+\i,1);
},
}
\begin{tikzpicture}[background rectangle/.style={fill=white},show background rectangle]
\path[use as bounding box, draw, color=white] (1,17) rectangle (30.3,-77.5);
%title
\draw [black,ultra thick,fill=title] (0,9.8) rectangle (30,16.8);
\node at (15,14.8) {\textcolor{black}{\fontsize{90}{91}\selectfont Il messaggio di}};
\node at (15,11.8) {\textcolor{black}{\fontsize{90}{91}\selectfont Arecibo}};
%
\begin{scope}[shift={(0,-8)}]
\draw[fill=space,ultra thick] (0,-1) rectangle (15,16);
%arecibo man
\begin{scope}
\pic[scale=1.5] at (1,0) {arecibo};
\end{scope}
%balloon1
\begin{scope}
\draw[fill=white,ultra thick] (12,11) -- (12,13.8) -- (11.5,14) -- (12,14.2) -- (12,17) -- (28,17) -- (28,11) -- (12,11);
\node at (13.9,16) {\textcolor{black}{\fontsize{23}{24}\selectfont Salve!}};
\node at (19.7,15) {\textcolor{black}{\fontsize{23}{24}\selectfont Sono la sagoma che gli scienziati}};
\node at (20,14) {\textcolor{black}{\fontsize{23}{24}\selectfont hanno messo nel messaggio che è}};
\node at (19.3,13) {\textcolor{black}{\fontsize{23}{24}\selectfont stato spedito da Arecibo verso}};
\node at (19.1,12) {\textcolor{black}{\fontsize{23}{24}\selectfont l'ammasso globulare di Ercole.}};
\end{scope}
%balloon2
\begin{scope}
\draw[fill=white,ultra thick] (11.5,11.5) -- (12,10) -- (22.5,10) -- (22.5,7) -- (12,7) -- (12,9.2) -- (11.5,11.5);
\node at (16.8,9) {\textcolor{black}{\fontsize{23}{24}\selectfont Potete chiamarmi...}};
\node at (17.3,8) {\textcolor{black}{\fontsize{23}{24}\selectfont la Sagoma di Arecibo!}};
\end{scope}
\end{scope}
%dna
\begin{scope}[shift={(0,-7)}]
\draw [fill=space, ultra thick] (17.5,-16) rectangle (26.5,1);
%
\pic at (20,0) {dna};
%balloon3
\draw [fill=white, ultra thick] (3,-2.5) -- (8,-2.5) -- (8.2,-1) -- (8.4,-2.5) -- (19,-2.5) -- (19,-12.5) -- (3,-12.5) -- (3,-2.5);
\node at (11,-3.5) {\textcolor{black}{\fontsize{23}{24}\selectfont Il messaggio, spedito dal}};
\node at (11,-4.5) {\textcolor{black}{\fontsize{23}{24}\selectfont radiotelescopio di Arecibo}};
\node at (11,-5.5) {\textcolor{black}{\fontsize{23}{24}\selectfont il 16 novembre del 1974, sfrutta}};
\node at (11,-6.5) {\textcolor{black}{\fontsize{23}{24}\selectfont immagini stilizzate per}};
\node at (11,-7.5) {\textcolor{black}{\fontsize{23}{24}\selectfont raccontare agli ignoti ascoltatori}};
\node at (11,-8.5) {\textcolor{black}{\fontsize{23}{24}\selectfont extraterrestri qualcosa sul}};
\node at (11,-9.5) {\textcolor{black}{\fontsize{23}{24}\selectfont vostro aspetto, la vostra}};
\node at (11,-10.5) {\textcolor{black}{\fontsize{23}{24}\selectfont struttura e il vostro sistema}};
\node at (11,-11.5) {\textcolor{black}{\fontsize{23}{24}\selectfont matematico.}};
\end{scope}
%travel
\begin{scope}[shift={(0,-40)}]
\draw[fill=space,ultra thick] (0.5,10) rectangle (28.5,-15);
%arecibo man
\fill[space!50!earth,opacity=0.5] (12.7,-1.2) rectangle (28.2,15.8);
\draw[fill=space,ultra thick] (12.5,-1) rectangle (28,16);
\pic[xscale=-1.5,yscale=1.5] at (27,0) {arecibo};
%balloon4
\draw[fill=white,ultra thick] (0.5,18.5) -- (18.5,18.5) -- (18.5,14.9) -- (18.9,14.2) -- (18.1,14.5) -- (0.5,14.5) -- (0.5,18.5);
\node at (7.5,17.5) {\textcolor{black}{\fontsize{23}{24}\selectfont Personalmente lo trovo un po'}};
\node at (9.1,16.5) {\textcolor{black}{\fontsize{23}{24}\selectfont complicato, ma in fondo non sono io a}};
\node at (5.3,15.5) {\textcolor{black}{\fontsize{23}{24}\selectfont doverlo decodificare!}};
%earth
\draw[fill=earth, ultra thick] (6,4.5) circle (4.5cm);
\pic at (21,-9) {cluster};
%dida1
\draw [fill=dida,thick] (0,-1.3) rectangle (15,-7.3);
\node at (4.1,-2.3) {\textcolor{black}{\fontsize{23}{24}\selectfont Il viaggio che sto}};
\node at (5.2,-3.3) {\textcolor{black}{\fontsize{23}{24}\selectfont compiendo è piuttosto}};
\node at (6.1,-4.3) {\textcolor{black}{\fontsize{23}{24}\selectfont lungo: l'ammasso di Ercole}};
\node at (7,-5.3) {\textcolor{black}{\fontsize{23}{24}\selectfont dista 25000 anni luce e sono in}};
\node at (6.1,-6.3) {\textcolor{black}{\fontsize{23}{24}\selectfont viaggio da appena 44 anni!}};
%dida2
\draw [fill=dida,thick] (0,-9) rectangle (16,-16);
\node at (7.8,-10) {\textcolor{black}{\fontsize{23}{24}\selectfont Si poteva scegliere una meta più}};
\node at (6.9,-11) {\textcolor{black}{\fontsize{23}{24}\selectfont vicina, ma in giro c'erano tizi}};
\node at (6.1,-12) {\textcolor{black}{\fontsize{23}{24}\selectfont pessimisti che temevano}};
\node at (7.5,-13) {\textcolor{black}{\fontsize{23}{24}\selectfont invasioni aliene, così alla fine è}};
\node at (8,-14) {\textcolor{black}{\fontsize{23}{24}\selectfont stato scelto un ammasso lontano}};
\node at (2.8,-15) {\textcolor{black}{\fontsize{23}{24}\selectfont lontano...}};
%arrow
\draw [fill=white,ultra thick,rotate around={-45:(8,2)}] (8,2) -- (7.5,2.5) -- (20,2.5) -- (20,3) -- (22,2) -- (20,1) -- (20,1.5) -- (7.5,1.5) -- (8,2);
\end{scope}
%space invasion
\begin{scope}[shift={(0,-65)}]
\fill[space] (15,-10.2) rectangle (30,0.2);
\node at (22.5,-5) {\includegraphics[width=15cm]{ammasso_ercole}};
\draw[ultra thick] (15,-10.2) rectangle (30,0.2);
%monsters
\draw [fill=space,ultra thick] (0,8.5) rectangle (20.5,-1.5);
\pic at (1,0) {monster01};
\pic at (8.5,-0.5) {monster02};
\pic at (13.5,-0.5) {monster03};
\pic at (6.5,5) {monster04};
%dida
\draw [fill=dida,thick] (17.3,7.5) rectangle (29,3.5);
\node at (22.7,6.5) {\textcolor{black}{\fontsize{23}{24}\selectfont Ah! Il vero ammasso di}};
\node at (23.2,5.5) {\textcolor{black}{\fontsize{23}{24}\selectfont Ercole è quello nella foto}};
\node at (19.8,4.5) {\textcolor{black}{\fontsize{23}{24}\selectfont qui sotto!}};
\end{scope}
%
\begin{scope}[shift={(0,-76.5)}]
\node at (27,0) () {\includegraphics[width=3.7cm]{licenza}};
\node at (18,-0.1) {\textcolor{black}{\fontsize{14}{15}\selectfont Testo e illustrazioni: @ulaulaman - Gianluigi Filippelli}};
\end{scope}
\end{tikzpicture}
%
\end{document}