#
# Fixed format pedigree code by David Stafford <dstafford@i-f.com>
# (modified by Gene Stark for GED2HTML v3.5)
#
# He said (on April 7, 1998):
# Here is the code which works fine on my data set you may want to check it
# out yourself.
# There is just one point worth noting:  if the individual being process does
# not have a linked father - the code assumes that individual doesn't have a
# paternal grandparents either.  The same goes for the mother's side.
# Obviously this causes a problem when one has information about a grandparent
# and a grandchild but not about the parent.  In my experience, that is a rare
# occurance, but I guess it may be a restriction for some people.
#
#Please feel free to use this code as you see fit.

define pedigree i
local myf myfn myfu
      mym mymn mymu
      myff myffn myffu 
      myfm myfmn myfmu
      mymf mymfn mymfu
      mymm mymmn mymmu
      myfff myfffn myfffu
      myffm myffmn myffmu
      myfmf myfmfn myfmfu
      myfmm myfmmn myfmmu
      mymff mymffn mymffu
      mymfm mymfmn mymfmu
      mymmf mymmfn mymmfu
      mymmm mymmmn mymmmu
{
   if i.father then
        set myf to i.father
        set myfn to i.father.name.fullname
        set myfu to i.father.url
        if myf.father then
                set myffu to myf.father.url
                set myffn to myf.father.name.fullname
                set myff to myf.father
                if myff.father then
                        set myfffn to myff.father.name.fullname
                        set myfffu to myff.father.url
                else                       
                        set myfffn to "Not Known"
                end
                if myff.mother then
                        set myffmn to myff.mother.name.fullname
                        set myffmu to myff.mother.url
                else
                        set myffmn to "Not Known"
                end
        else
                set myffn to "Not Known"
                set myffmn to "Not Known"
                set myfffn to "Not Known"
        end
        if myf.mother then
                set myfm to myf.mother
                set myfmn to myf.mother.name.fullname
                set myfmu to myf.mother.url
                if myfm.father then
                        set myfmfn to myfm.father.name.fullname
                        set myfmfu to myfm.father.url
                else
                        set myfmfn to "Not Known" 
                end
                if myfm.mother then
                        set myfmm to myfm.mother
                        set myfmmn to myfm.mother.name.fullname
                        set myfmmu to myfm.mother.url
                else
                        set myfmmn to "Not Known" 
                end
        else
                set myfmn to "Not Known"
                set myfmfn to "Not Known"
                set myfmmn to "Not Known"
        end
  else
        set myfffn to "Not Known"
        set myffmn to "Not Known"
        set myffn to "Not Known"
        set myfmn to "Not Known"
        set myfmfn to "Not Known"
        set myfmmn to "Not Known"
        set myfn to "Not Known"
  end

  if i.mother then
        set mym to i.mother
        set mymn to i.mother.name.fullname
        set mymu to i.mother.url
        if mym.father then
                set mymfu to mym.father.url
                set mymfn to mym.father.name.fullname
                set mymf to mym.father
                if mymf.father then
                        set mymffn to mymf.father.name.fullname
                        set mymffu to mymf.father.url
                else                       
                        set mymffn to "Not Known"
                end
                if mymf.mother then
                        set mymfmn to mymf.mother.name.fullname
                        set mymfmu to mymf.mother.url
                else
                        set mymfmn to "Not Known"
                end
        else
                set mymfn to "Not Known"
                set mymfmn to "Not Known"
                set mymffn to "Not Known"
        end
        if mym.mother then
                set mymm to mym.mother
                set mymmn to mym.mother.name.fullname
                set mymmu to mym.mother.url
                if mymm.father then
                        set mymmfn to mymm.father.name.fullname
                        set mymmfu to mymm.father.url
                else
                        set mymmfn to "Not Known" 
                end
                if mymm.mother then
                        set mymmm to mymm.mother
                        set mymmmn to mymm.mother.name.fullname
                        set mymmmu to mymm.mother.url
                else
                        set mymmmn to "Not Known" 
                end
        else
                set mymmn to "Not Known"
                set mymmfn to "Not Known"
                set mymmmn to "Not Known"
        end
  else
        set mymffn to "Not Known"
        set mymfmn to "Not Known"
        set mymfn to "Not Known"
        set mymmn to "Not Known"
        set mymmfn to "Not Known"
        set mymmmn to "Not Known"
        set mymn to "Not Known"
  end
  print "<PRE>" ;
  if myfffn = "Not Known" then
        print "      /--";
  else
        print "      /--<a href=\"" myfffu "\">"myfffn"</a>";
  end
  if myffn = "Not Known" then
        print "   /--";
  else
        print "   /--<a href=\"" myffu "\">"myffn"</a>";
  end
  if myffmn = "Not Known" then
        print "   |  \--";
  else
        print "   |  \--<a href=\""myffmu "\">"myffmn"</a>";
  end
  if myfn = "Not Known" then
        print "/--";
  else
        print "/--<a href=\"" myfu "\">"myfn"</a>";
  end
  if myfmfn = "Not Known" then
        print "|  |  /--";
  else
        print "|  |  /--<a href=\"" myfmfu "\">"myfmfn"</a>";
  end
  if myfmn = "Not Known" then
        print "|  \--";
  else
        print "|  \--<a href=\"" myfmu "\">"myfmn"</a>";
  end
  if myfmmn = "Not Known" then
        print "|     \--";
  else
        print "|     \--<a href=\"" myfmmu "\">"myfmmn"</a>";
  end
  print "|--"i.name.fullname;
  if mymffn = "Not Known" then
        print "|     /--";
  else
        print "|     /--<a href=\"" mymffu "\">"mymffn"</a>";
  end
  if mymfn = "Not Known" then
        print "|  /--";
  else
        print "|  /--<a href=\"" mymfu "\">"mymfn"</a>";
  end
  if mymfmn = "Not Known" then
        print "|  |  \--";
  else
        print "|  |  \--<a href=\"" mymfmu "\">"mymfmn"</a>";
  end
  if mymn = "Not Known" then
        print "\--";
  else
        print "\--<a href=\"" mymu "\">"mymn"</a>";
  end
  if mymffn = "Not Known" then
         print "   |  /--";
  else
         print "   |  /--<a href=\"" mymffu "\">"mymffn"</a>";
  end
  if mymmn = "Not Known" then
        print "   \--";
  else
        print "   \--<a href=\"" mymmu "\">"mymmn"</a>";
  end
  if mymmmn = "Not Known" then
        print "      \--";
  else
        print "      \--<a href=\"" mymmmu "\">"mymmmn"</a>";
  end
  print "</pre><br>";
}