analysis
retro
R
Author

George Girton

Published

May 19, 2022

mystery disk

There is a clay disk of undeciphered symbols at the archaeological museum of Heraklion. For research purposes (perhaps), the symbols have been assigned unicode points, as follows:

unicode points for symbols from the Phaistos disk

However, when you use these unicodes, what actual shows up (at least at time of writing) is just empty squares.

Code
library(tibble)

ontos <- c("\U1F378","\U1F431")

ontos
[1] "๐Ÿธ" "๐Ÿฑ"
Code
print("that's fine")
[1] "that's fine"
Code
ontos4 <- c("\U1F378","\U1F431", "\U101E2", "\U101D0")
ontos4
[1] "๐Ÿธ" "๐Ÿฑ" "๐‡ข"  "๐‡" 
Code
print("that's not so fine!")
[1] "that's not so fine!"
Code
catcodes <- tribble(
  ~unicat, ~description,
  "\U1F638","eyes smiling",
  "\U1F639","tears laughing",
  "\U1F63A","smiling",
  "\U1F63B","eyes hearts",
  "\U1F63c","smirk",
  "\U1F63D","kiss",
  "\U1F63E","frown",
  "\U1F63F","single tear",
  "\U1F640","scream!",
  "\U1F408","canonical cat",
  "\U1F431","schematic",
  "\U1F43E","paws",
  "\U1F378", "martini",
  "\U10090", "Linear B Ideogram 122 olive"
)

catcodes
# A tibble: 14 ร— 2
   unicat description                
   <chr>  <chr>                      
 1 ๐Ÿ˜ธ     eyes smiling               
 2 ๐Ÿ˜น     tears laughing             
 3 ๐Ÿ˜บ     smiling                    
 4 ๐Ÿ˜ป     eyes hearts                
 5 ๐Ÿ˜ผ     smirk                      
 6 ๐Ÿ˜ฝ     kiss                       
 7 ๐Ÿ˜พ     frown                      
 8 ๐Ÿ˜ฟ     single tear                
 9 ๐Ÿ™€     scream!                    
10 ๐Ÿˆ     canonical cat              
11 ๐Ÿฑ     schematic                  
12 ๐Ÿพ     paws                       
13 ๐Ÿธ     martini                    
14 ๐‚      Linear B Ideogram 122 olive
Code
print("you can go literal, too!")
[1] "you can go literal, too!"
Code
catpictos <- "๐Ÿธ ๐Ÿˆ ๐Ÿฑ ๐Ÿพ ๐Ÿ˜ธ ๐Ÿ˜น ๐Ÿ˜บ ๐Ÿ˜ป ๐Ÿ˜ผ ๐Ÿ˜ฝ ๐Ÿ˜พ ๐Ÿ˜ฟ ๐Ÿ™€ ๐‚"

print(catpictos)
[1] "๐Ÿธ ๐Ÿˆ ๐Ÿฑ ๐Ÿพ ๐Ÿ˜ธ ๐Ÿ˜น ๐Ÿ˜บ ๐Ÿ˜ป ๐Ÿ˜ผ ๐Ÿ˜ฝ ๐Ÿ˜พ ๐Ÿ˜ฟ ๐Ÿ™€ ๐‚"
Code
message2 <- c("๐‡ ๐‡‘ ๐‡’ ๐‡“ ๐‡” ๐‡• ๐‡– ๐‡— ๐‡˜ ๐‡™ ๐‡š ๐‡› ๐‡œ ๐‡ ๐‡ž ๐‡  ๐‡ก ๐‡ข ๐‡ฃ ๐‡ค ๐‡ฅ ๐‡ฆ ๐‡ง ๐‡จ ๐‡ฉ ๐‡ช ๐‡ซ ๐‡ฌ ๐‡ญ ๐‡ฎ ๐‡ฏ ๐‡Ÿ")

print(message2)
[1] "๐‡ ๐‡‘ ๐‡’ ๐‡“ ๐‡” ๐‡• ๐‡– ๐‡— ๐‡˜ ๐‡™ ๐‡š ๐‡› ๐‡œ ๐‡ ๐‡ž ๐‡  ๐‡ก ๐‡ข ๐‡ฃ ๐‡ค ๐‡ฅ ๐‡ฆ ๐‡ง ๐‡จ ๐‡ฉ ๐‡ช ๐‡ซ ๐‡ฌ ๐‡ญ ๐‡ฎ ๐‡ฏ ๐‡Ÿ"

so, it turns out the reason for this is โ€ฆ no glyphs!

If you have a font that has them isntalled on your system, like Symbola (download), then you may be able to render these ancient standard (but undeciphered) little entities to your own satisfaction, but very little none of almost anyone elseโ€™s.


โ€” all photos Copyright ยฉ 2022-2024 George D Girton all rights reserved