#! /bin/bash -ue
# Last edited on 2025-05-04 22:49:01 by stolfi

voyn=0
euro=0
smit=0
asia=0
code=0
qoko=1
rugg=0

if [[ ${voyn} -ne 0 ]]; then

  # Voynichese

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese text" 1.00 1 1 \
        dat/voyn/lab/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese labs" 1.00 2 2 \
        dat/voyn/maj/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese both" 1.00 3 3 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${euro} -ne 0 ]]; then

  # Various European languages

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-euro"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese text"   1.00 1 1 \
        dat/engl/wow/tot.1/gud-fact-lets-${tw}.lhi   "English WoW"       1.00 2 2 \
        dat/engl/cul/tot.1/gud-fact-lets-${tw}.lhi   "English CpH"       1.00 3 3 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-2-euro"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese text"   1.00 1 1 \
        dat/latn/ptt/tot.1/gud-fact-lets-${tw}.lhi   "Latin VOT-P"       1.00 2 2 \
        dat/grek/nwt/tot.1/gud-fact-lets-${tw}.lhi   "Greek BNT-G"       1.00 3 3 \
        dat/span/qvi/tot.1/gud-fact-lets-${tw}.lhi   "Spanish DQux"      1.00 4 4 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-3-euro"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"   1.00 1 1 \
        dat/latn/ptt/tot.1/gud-fact-lets-${tw}.lhi  "Latin Ock"         1.00 2 2 \
        dat/port/csm/tot.1/gud-fact-lets-${tw}.lhi  "Port. DCsm"        1.00 3 3 \
        dat/germ/sim/tot.1/gud-fact-lets-${tw}.lhi  "Germ. Simp"        1.00 4 4 \
        dat/russ/pic/tot.1/gud-fact-lets-${tw}.lhi  "Russ. RPic"        1.00 5 5 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-4-euro"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese text"   1.00 1 1 \
        dat/engl/twp/tot.1/gud-fact-lets-${tw}.lhi   "English TwP"       1.00 2 2 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${smit} -ne 0 ]]; then

  # Semitic languages

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-smit"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"   1.00 1 1 \
        dat/arab/quv/tot.1/gud-fact-jsar-${tw}.lhi  "Arab  Qur-V"       1.00 2 2 \
        dat/hebr/tav/tot.1/gud-fact-jshb-${tw}.lhi  "Hebr. HbB-V"       1.00 3 3 \
        dat/geez/gok/tot.1/gud-fact-sera-${tw}.lhi  "Geez GoK"          1.00 4 4 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-2-smit"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"     1.00 1 1 \
        dat/hebr/tad/tot.1/gud-fact-jshb-${tw}.lhi  "Hebr. HbB-D"         1.00 2 2 \
        dat/arab/qcs/tot.1/gud-fact-jsar-${tw}.lhi  "Arab  Qur"           1.00 3 3 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${asia} -ne 0 ]]; then

  # East Asian languages

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"      0.60 1 1 \
        dat/viet/ptt/tot.1/gud-fact-viqr-${tw}.lhi  "Vietn. COT-P (viqr)"  0.60 2 2 \
        dat/tibe/pmi/tot.1/gud-fact-acip-${tw}.lhi  "Tibetan PMI (acip)"   0.60 3 3 \
        dat/chin/red/tot.1/gud-fact-stpy-${tw}.lhi  "Chinese DoRM (stpy)"  0.60 5 5 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-2-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"       0.45 1 1 \
        dat/chin/ptt/tot.1/gud-fact-phon-${tw}.lhi  "Chinese UOT-P (phon)"  0.45 2 2 \
        dat/chin/ptn/tot.1/gud-fact-phon-${tw}.lhi  "Chinese NOT-P (phon)"  0.45 3 3 \
        dat/chin/red/tot.1/gud-fact-phon-${tw}.lhi  "Chinese Red (phon)"    0.45 4 4 \
        dat/viet/ptt/tot.1/gud-fact-phon-${tw}.lhi  "Vietn. COT-P (phon)"   0.45 5 5 \
        dat/viet/nwt/tot.1/gud-fact-phon-${tw}.lhi  "Vietn. CNT-G (phon)"   0.45 6 6 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-3-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"      0.50 1 1 \
        dat/chin/ptt/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese UOT-P (fxpy)" 0.50 2 2 \
        dat/chin/ptn/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese NOT-P (fxpy)" 0.50 3 3 \
        dat/chin/voa/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese VoA-G (fxpy)" 0.60 4 4 \
        dat/chip/voa/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese VoA-P (fxpy)" 0.60 5 5 \
        dat/chin/red/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese DoRM (fxpy)"  0.50 6 6 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-4-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese (text)"     0.50 1 1 \
        dat/viet/ptt/tot.1/gud-fact-viqr-${tw}.lhi  "Vietnam. COT-P (viqr)" 0.50 2 2 \
        dat/chin/ptt/tot.1/gud-fact-fxpy-${tw}.lhi  "Chinese UOT-P (fxpy)"  0.50 3 3 \
        dat/tibe/pmi/tot.1/gud-fact-acip-${tw}.lhi  "Tibetan PMI (acip)"    0.50 4 4 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-5-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese text"    0.67 1 1 \
        dat/tibe/vim/tot.1/gud-fact-acip-${tw}.lhi   "Tibetan Vim"        0.67 2 2 \
        dat/tibe/ccv/tot.1/gud-fact-acip-${tw}.lhi   "Tibetan CVR"        0.67 3 3 \
        dat/tibe/pmi/tot.1/gud-fact-acip-${tw}.lhi   "Tibetan PMI"        0.67 4 4 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-6-asia"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"      0.50 1 1 \
        dat/chip/voa/tot.1/gud-fact-stpy-${tw}.lhi  "Chinese VoA-P (stpy)" 0.50 4 4 \
        dat/chin/red/tot.1/gud-fact-stpy-${tw}.lhi  "Chinese DoRM (stpy)"  0.50 5 5 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${qoko} -ne 0 ]]; then

  # Voynichese OKO splitting

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-qoko"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-qoko-${tw}.lhi  "Voynichese text(oko)"   0.80 1 1 \
        dat/engl/wow/tot.1/gud-fact-lets-${tw}.lhi  "English WoW"            0.80 3 3 \
        dat/engl/twp/tot.1/gud-fact-lets-${tw}.lhi  "English TwP"            0.80 4 4 \
        dat/latn/ptt/tot.1/gud-fact-lets-${tw}.lhi  "Latin VOT-P"            0.80 5 5 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-2-qoko"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-qoko-${tw}.lhi  "Voynichese text(oko)"   0.80 1 1 \
        dat/viet/ptt/tot.1/gud-fact-viqr-${tw}.lhi  "Viet. COT-P (viqr)"     0.80 2 2 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${rugg} -ne 0 ]]; then

  # Rugg's synthetic 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-rugg"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi  "Voynichese text"     1.00 1 1 \
        dat/voyp/grs/tot.1/gud-fact-bgly-${tw}.lhi  "Gruggish (sftw)"     1.00 2 2 \
        dat/voyp/grm/tot.1/gud-fact-bgly-${tw}.lhi  "Gruggish (hand)"     1.00 3 3 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

fi

if [[ ${code} -ne 0 ]]; then

  # Effects of encoding

  for tw in  t w ; do
    oname="langs-${tw}-lengths-1-code"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-bgly-${tw}.lhi   "Voynichese (text)"  0.80 1 1 \
        dat/enrc/wow/tot.1/gud-fact-lets-${tw}.lhi   "Engl. WoW RomCd"    0.80 2 2 \
        dat/chrc/red/tot.1/gud-fact-lets-${tw}.lhi   "Chin. Red RomCd"    0.80 3 3 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done 

  for tw in  t w ; do
    oname="langs-${tw}-lengths-2-code"; echo "=== fig/${oname} ==="
    compare_elem_count_distribs.sh -freqs \
        dat/voyn/prs/tot.1/gud-fact-qoko-${tw}.lhi  "Voynichese (oko)"    0.50 1 1 \
        dat/envg/wow/tot.1/gud-fact-lets-${tw}.lhi  "Engl. WoW Vgnere"    0.50 2 2 \
      fig/${oname}
    update_paper_include.sh fig/${oname}.eps tex/${oname}.eps
    update_paper_include.sh fig/${oname}.png tex/${oname}.png
  done

fi