#!/usr/bin/fontforge -script

Open("KozMinProVI-Regular.otf")
str=LoadStringFromFile("EucCidCid3.dat")
##WriteStringToFile("","Test.log")
while(str!="")
  str=Strsub(str,3)
  l1=Strtol(str)
  str=Strsub(str,Strlen(ToString(l1))+1)
  l2=Strtol(str)
  str=Strsub(str,Strlen(ToString(l2))+1)
  if(l1!=l2)
##    WriteStringToFile(ToString(l1),"Test.log",1)
##    WriteStringToFile(":","Test.log",1)
##    WriteStringToFile(ToString(l2),"Test.log",1)
##    WriteStringToFile(" \n","Test.log",1)
    sn=$firstcid
    while(sn!="")
      CIDChangeSubFont(sn)
      if(sn=="KozMinProVI-Regular-DingbatsRot")#????
        sn=$nextcid
      elseif(WorthOutputting(l2))
        CIDChangeSubFont(sn)
        Select(l2)
        Copy()
        sn=""
      else
        sn=$nextcid
      endif
    endloop
    sn=$firstcid
    while(sn!="")
      CIDChangeSubFont(sn)
      if(WorthOutputting(l1))
        CIDChangeSubFont(sn)
        Select(l1)
        Paste()
        sn=""
      else
        sn=$nextcid
      endif
    endloop
  endif
endloop
CIDFlatten();
##Reencode("unicode")
Generate("TQKozMinProVI-Regular.ttf")
Quit(0)