a script for drawing language globes

2016-05-11 12:02:50 +00:00
parent 2941e2364f
commit 97609c9a64
1 changed files with 53 additions and 0 deletions
--- a/lib/doc/Globes.hs
+++ b/lib/doc/Globes.hs
@@ -0,0 +1,53 @@
+-- runghc Globes.hs >globe.dot
+-- circo -Tsvg globe.dot >globe.svg
+
+main = do
+  putStrLn $ graph languages
+
+graph langs = unlines $[
+  "digraph {",
+  "node [shape = oval] ;",
+  "edge [dir = both] ;"
+  ] ++ links langs ++ [
+  "}"
+  ]
+
+links langs = [a ++ " -> " ++ b ++ " ;" | a <- langs, b <- langs, a < b] -- transfer
+-- links langs = [a ++ " -> " ++ interlingua ++ " ;" | a <- langs] -- interlingua
+
+interlingua = "Meaning"
+
+languages = [
+  "afrikaans",
+  "አማርኛ",
+  "العربية",
+  "Български",
+  "català",
+  "中文",
+  "dansk",
+  "nederlands",
+  "English",
+  "eesti",
+  "suomi",
+  "français",
+  "Deutsch",
+  "Ελληνικά",
+  "हिन्दी",
+  "italiano",
+  "日本語", 
+  "latina",
+  "latviešu",
+  "Malti",
+  "Монгол",
+  "नेपाली",
+  "norsk",
+  "پeرسن",
+  "polski",
+  "پنجابی",
+  "Русский",
+  "ٻولي",
+  "español",
+  "svenska",
+  "ไทย",
+  "اردو"
+  ]