Il 9 maggio 2012 Mark Frauenfelder pubblica su BoingBoing la fotografia di uno strano gettone. (1)  L’ha ricevuto in dono a Berkeley, durante una visita allo Stupid Fun Club. Supponendo che nasconda qualcosa, in margine all’immagine Mark si chiede:

Qual è il messaggio segreto?

Reduce dallo studio delle ruote di Lullo, usate per compilare un libro magico del Cinquecento, formulo l’ipotesi che le varie “tacche” sulle sette ruote concentriche del gettone si trovino in corrispondenza di angoli notevoli – ognuno collegato a una lettera dell’alfabeto.

A partire dall’immagine, registro le coordinate di ciascuna tacca, per realizzare una versione elettronica del gettone in ambiente R.

library(plotrix)
distance<-function(x1,y1,x2,y2)  (2) 

#Coordinate delle tacche sul JPG
x<-c(103,31,115,75,40,101,70,75)
y<-c(22,105,49,34,79,85,96,90)
#Inversione dell’asse Y per il grafico
y<-150-y
#Disegno dei punti in corrispondenza delle tacche
plot(x,y,xlim=c(0,150),ylim=c(0,150), asp = 1)
#Disegno dei cerchi concentrici e dei segmenti
for(i in 1:8)
 (3) 

Aggiungendo le lettere dalla A alla Z intorno al cerchio più esterno si può individuare la corrispondenza tra gli otto segmenti e le relative lettere.

#Aggiunta delle lettere
for(i in 1:length(alpha))
text(75+70*cos((pi*2)*((33.5-i)/26)),
75+70*sin((pi*2)*((33.5-i)/26)),
LETTERS[i])
 

Scarica da qui lo script di R per produrre questa immagine.

Lette nell’ordine, dal segmento corrispondente al cerchio più esterno a quello più interno, le lettere formano la parola CREATION (4) .

Scarica da qui lo script di R per produrre questa immagine.

Quando ritorno su BoingBoing scopro che Dan ci è arrivato prima di me. Onore a lui!


Note

1. Un ringraziamento a Ferdinando Buscema per avermelo segnalato.

2. sqrt((x2-x1)^2+(y2-y1)^2)

3.
draw.circle(75,75,distance(75,75,x[i],y[i]),border=“lightgray”)
segments(75,75,x[i],y[i])

4. Scarica da qui lo script di R per ottenere la parola CREATION a partire dalle coordinate.