global $RTLOrd;

$lines = explode("\n", $data);

// more than 1 line : recursive calls

if (count($lines)>1) {

$text = "";

foreach ($lines as $indexval => $line) $text .= split_align_text($line, $maxlen)."\n";

return $text;

}

// process current line word by word

$split = explode(" ", $data);

$text = "";

$line = "";

// do not split hebrew line

$found = false;

foreach($RTLOrd as $indexval => $ord) {

if (strpos($data, chr($ord)) !== false) $found=true;

}

if ($found) $line=$data;

else

foreach ($split as $indexval => $word) {

$len = strlen($line);

//if (!empty($line) and ord($line{0})==215) $len/=2; // hebrew text

$wlen = strlen($word);

// line too long ?

if (($len+$wlen)<$maxlen) {

if (!empty($line)) $line .= " ";

$line .= "$word";

}

else {

$p = max(0,floor(($maxlen-$len)/2));

if (!empty($line)) {

$line = str_repeat(" ", $p) . "$line"; // center alignment using spaces

$text .= "$line\n";

}

$line = $word;

}

}

// last line

if (!empty($line)) {

$len = strlen($line);

if (in_array(ord($line{0}),$RTLOrd)) $len/=2;

$p = max(0,floor(($maxlen-$len)/2));

$line = str_repeat(" ", $p) . "$line"; // center alignment using spaces

$text .= "$line";

}

return $text;

global $PEDIGREE_GENERATIONS, $fan_width, $fan_style;

global $name, $pgv_lang, $SHOW_ID_NUMBERS, $view, $TEXT_DIRECTION;

global $stylesheet, $print_stylesheet;

global $PGV_IMAGE_DIR, $PGV_IMAGES, $LINK_ICONS, $GEDCOM;

// check for GD 2.x library

if (!defined("IMG_ARC_PIE")) {

print "<span class=\"error\">".$pgv_lang["gd_library"]."</span>";

print " <a href=\"" . $pgv_lang["gd_helplink"] . "\"><img src=\"".$PGV_IMAGE_DIR."/".$PGV_IMAGES["help"]["small"]."\" class=\"icon\" alt=\"\" /></a><br /><br />";

return false;

}

if (!function_exists("ImageTtfBbox")) {

print "<span class=\"error\">".$pgv_lang["gd_freetype"]."</span>";

print " <a href=\"" . $pgv_lang["gd_helplink"] . "\"><img src=\"".$PGV_IMAGE_DIR."/".$PGV_IMAGES["help"]["small"]."\" class=\"icon\" alt=\"\" /></a><br /><br />";

return false;

}

// parse CSS file

include("includes/cssparser.inc.php");

$css = new cssparser(false);

if ($view=="preview") $css->Parse($print_stylesheet);

else $css->Parse($stylesheet);

// check for fontfile

$fontfile = $css->Get(".fan_chart","font-family");

$fontsize = $css->Get(".fan_chart","font-size");

$fontfile = str_replace("url(", "", $fontfile);

$fontfile = str_replace(")", "", $fontfile);

if (!file_exists($fontfile)) {

if (!empty($fontfile)) print "<span class=\"error\">".$pgv_lang["fontfile_error"]." : $fontfile</span>";

$fontfile="./includes/fonts/DejaVuSans.ttf";

}

if ($fontfile{0}!='/') $fontfile = dirname(__FILE__) . "/" . $fontfile;

if (!file_exists($fontfile)) {

print "<span class=\"error\">".$pgv_lang["fontfile_error"]." : $fontfile</span>";

return false;

}

if (intval($fontsize)<2) $fontsize = 7;

$treesize=count($treeid);

if ($treesize<1) return;

// generations count

$gen=log($treesize)/log(2)-1;

$sosa=$treesize-1;

// fan size

if ($fandeg==0) $fandeg=360;

$fandeg=min($fandeg, 360);

$fandeg=max($fandeg, 90);

$cx=$fanw/2-1; // center x

$cy=$cx; // center y

$rx=$fanw-1;

$rw=$fanw/($gen+1);

$fanh=$fanw; // fan height

if ($fandeg==180) $fanh=round($fanh*($gen+1)/($gen*2));

if ($fandeg==270) $fanh=round($fanh*.86);

$scale=$fanw/640;

// image init

$image = ImageCreate($fanw, $fanh);

$black = ImageColorAllocate($image, 0, 0, 0);

$white = ImageColorAllocate($image, 0xFF, 0xFF, 0xFF);

ImageFilledRectangle ($image, 0, 0, $fanw, $fanh, $white);

ImageColorTransparent($image, $white);

$rgb = $css->Get(".fan_chart", "color");

if (empty($rgb)) $rgb = "#000000";

$color = ImageColorAllocate($image, hexdec(substr($rgb,1,2)), hexdec(substr($rgb,3,2)), hexdec(substr($rgb,5,2)));

$rgb = $css->Get(".fan_chart", "background-color");

if (empty($rgb)) $rgb = "#EEEEEE";

$bgcolor = ImageColorAllocate($image, hexdec(substr($rgb,1,2)), hexdec(substr($rgb,3,2)), hexdec(substr($rgb,5,2)));

$rgb = $css->Get(".fan_chart_box", "background-color");

if (empty($rgb)) $rgb = "#D0D0AC";

$bgcolorM = ImageColorAllocate($image, hexdec(substr($rgb,1,2)), hexdec(substr($rgb,3,2)), hexdec(substr($rgb,5,2)));

$rgb = $css->Get(".fan_chart_boxF", "background-color");

if (empty($rgb)) $rgb = "#D0ACD0";

$bgcolorF = ImageColorAllocate($image, hexdec(substr($rgb,1,2)), hexdec(substr($rgb,3,2)), hexdec(substr($rgb,5,2)));

// imagemap

$imagemap="<map id=\"fanmap\" name=\"fanmap\">";

// loop to create fan cells

while ($gen>=0) {

// clean current generation area

$deg2=360+($fandeg-180)/2;

$deg1=$deg2-$fandeg;

ImageFilledArc($image, $cx, $cy, $rx, $rx, $deg1, $deg2, $bgcolor, IMG_ARC_PIE);

$rx-=3;

// calculate new angle

$p2=pow(2, $gen);

$angle=$fandeg/$p2;

$deg2=360+($fandeg-180)/2;

$deg1=$deg2-$angle;

// special case for rootid cell

if ($gen==0) {

$deg1=90;

$deg2=360+$deg1;

}

// draw each cell

while ($sosa >= $p2) {

$pid=$treeid[$sosa];

if (!empty($pid)) {

$indirec=find_person_record($pid);

if (!$indirec) $indirec = find_updated_record($pid);

if ($sosa%2) $bg=$bgcolorF;

else $bg=$bgcolorM;

if ($sosa==1) {

$bg=$bgcolor; // sex unknown

if (preg_match("/1 SEX F/", $indirec)>0) $bg=$bgcolorF;

else if (preg_match("/1 SEX M/", $indirec)>0) $bg=$bgcolorM;

}

ImageFilledArc($image, $cx, $cy, $rx, $rx, $deg1, $deg2, $bg, IMG_ARC_PIE);

$person =Person::getInstance($pid);

$name =$person->getFullName();

$addname=$person->getAddName();

//$name = str_replace(array('<span class="starredname">', '</span>'), '', $name);

//$addname = str_replace(array('<span class="starredname">', '</span>'), '', $addname);

//$name = str_replace(array('<span class="starredname">', '</span>'), array('<u>', '</u>'), $name); //@@

//$addname = str_replace(array('<span class="starredname">', '</span>'), array('<u>', '</u>'), $addname); //@@

// ToDo - print starred names underlined - 1985154

// Todo - print Arabic letters combined - 1360209

$text = reverseText($name) . "\n";

if (!empty($addname)) $text .= reverseText($addname). "\n";

if (displayDetailsById($pid)) {

$birthrec = get_sub_record(1, "1 BIRT", $indirec);

$ct = preg_match("/2 DATE.*(\d\d\d\d)/", $birthrec, $match);

if ($ct>0) $text.= trim($match[1]);

$deathrec = get_sub_record(1, "1 DEAT", $indirec);

$ct = preg_match("/2 DATE.*(\d\d\d\d)/", $deathrec, $match);

if ($ct>0) $text.= "-".trim($match[1]);

}

$text = unhtmlentitiesrtl($text);

$text = strip_tags($text);

//Do we still need?

// split and center text by lines

$wmax = floor($angle*7/$fontsize*$scale);

$wmax = min($wmax, 35*$scale);

if ($gen==0) $wmax = min($wmax, 17*$scale);

$text = split_align_text($text, $wmax);

// text angle

$tangle = 270-($deg1+$angle/2);

if ($gen==0) $tangle=0;

// calculate text position

$bbox=ImageTtfBbox((double)$fontsize, 0, $fontfile, $text);

$textwidth = $bbox[4];

$deg = $deg1+.44;

if ($deg2-$deg1>40) $deg = $deg1+($deg2-$deg1)/11;

if ($deg2-$deg1>80) $deg = $deg1+($deg2-$deg1)/7;

if ($deg2-$deg1>140) $deg = $deg1+($deg2-$deg1)/4;

if ($gen==0) $deg=180;

$rad=deg2rad($deg);

$mr=($rx-$rw/4)/2;

if ($gen>0 and $deg2-$deg1>80) $mr=$rx/2;

$tx=$cx + ($mr) * cos($rad);

$ty=$cy - $mr * -sin($rad);

if ($sosa==1) $ty-=$mr/2;

// print text

ImageTtfText($image, (double)$fontsize, $tangle, $tx, $ty, $color, $fontfile, $text);

$imagemap .= "<area shape=\"poly\" coords=\"";

// plot upper points

$mr=$rx/2;

$deg=$deg1;

while ($deg<=$deg2) {

$rad=deg2rad($deg);

$tx=round($cx + ($mr) * cos($rad));

$ty=round($cy - $mr * -sin($rad));

$imagemap .= "$tx, $ty, ";

$deg+=($deg2-$deg1)/6;

}

// plot lower points

$mr=($rx-$rw)/2;

$deg=$deg2;

while ($deg>=$deg1) {

$rad=deg2rad($deg);

$tx=round($cx + ($mr) * cos($rad));

$ty=round($cy - $mr * -sin($rad));

$imagemap .= "$tx, $ty, ";

$deg-=($deg2-$deg1)/6;

}

// join first point

$mr=$rx/2;

$deg=$deg1;

$rad=deg2rad($deg);

$tx=round($cx + ($mr) * cos($rad));

$ty=round($cy - $mr * -sin($rad));

$imagemap .= "$tx, $ty";

// add action url

$tempURL = "javascript://".htmlspecialchars(strip_tags($name));

if ($SHOW_ID_NUMBERS) $tempURL .= " (".$pid.")";

$imagemap .= "\" href=\"$tempURL\" ";

$tempURL = "fanchart.php?rootid={$pid}&PEDIGREE_GENERATIONS={$PEDIGREE_GENERATIONS}&fan_width={$fan_width}&fan_style={$fan_style}";

if (!empty($view)) $tempURL .= "&view={$view}";

$count=0;

$lbwidth=200;

print "<div id=\"I".$pid.".".$count."links\" style=\"position:absolute; >";

print "left:".$tx."px; top:".$ty."px; width: ".($lbwidth)."px; visibility:hidden; z-index:'100';\">";

print "<table class=\"person_box\"><tr><td class=\"details1\">";

print "<a href=\"individual.php?pid=$pid\" class=\"name1\">" . PrintReady($name);

if (!empty($addname)) print "<br />" . PrintReady($addname);

print "</a>";

print "<br /><a href=\"pedigree.php?rootid=$pid\" >".$pgv_lang["index_header"]."</a>";

print "<br /><a href=\"descendancy.php?pid=$pid\" >".$pgv_lang["descend_chart"]."</a>";

if (PGV_USER_GEDCOM_ID) {

print "<br /><a href=\"".encode_url("relationship.php?pid1=".PGV_USER_GEDCOM_ID."&pid2={$pid}&ged={$GEDCOM}")."\" onmouseover=\"clear_family_box_timeout('".$pid.".".$count."');\" onmouseout=\"family_box_timeout('".$pid.".".$count."');\">".$pgv_lang["relationship_to_me"]."</a>";

}

print "<br /><a href=\"ancestry.php?rootid=$pid\" onmouseover=\"clear_family_box_timeout('".$pid.".".$count."');\" onmouseout=\"family_box_timeout('".$pid.".".$count."');\">".$pgv_lang["ancestry_chart"]."</a>";

print "<br /><a href=\"compact.php?rootid=$pid\" onmouseover=\"clear_family_box_timeout('".$pid.".".$count."');\" onmouseout=\"family_box_timeout('".$pid.".".$count."');\">".$pgv_lang["compact_chart"]."</a>";

print "<br /><a href=\"".encode_url($tempURL)."\" onmouseover=\"clear_family_box_timeout('".$pid.".".$count."');\" onmouseout=\"family_box_timeout('".$pid.".".$count."');\">".$pgv_lang["fan_chart"]."</a>";

print "<br /><a href=\"hourglass.php?pid=$pid\" onmouseover=\"clear_family_box_timeout('".$pid.".".$count."');\" onmouseout=\"family_box_timeout('".$pid.".".$count."');\">".$pgv_lang["hourglass_chart"]."</a>";

if ($sosa>=1) {

$famids = find_sfamily_ids($pid);

//-- make sure there is more than 1 child in the family with parents

$cfamids = find_family_ids($pid);

$num=0;

for ($f=0; $f<count($cfamids); $f++) {

$famrec = find_family_record($cfamids[$f]);

if ($famrec) $num += preg_match_all("/1\s*CHIL\s*@(.*)@/", $famrec, $smatch,PREG_SET_ORDER);

}

if ($famids ||($num>1)) {

//-- spouse(s) and children

for ($f=0; $f<count($famids); $f++) {

$famrec = find_family_record(trim($famids[$f]));

if ($famrec) {

$parents = find_parents($famids[$f]);

if ($parents) {

if ($pid!=$parents["HUSB"]) $spid=$parents["HUSB"];

else $spid=$parents["WIFE"];

$person=Person::getInstance($spid);

if ($person) {

echo '<br /><a href="', $person->getLinkUrl(), '" class="name1">', $person->getFullName(), '</a>';

}

}

$num = preg_match_all("/1\s*CHIL\s*@(.*)@/", $famrec, $smatch,PREG_SET_ORDER);

for ($i=0; $i<$num; $i++) {

$person=Person::getInstance($smatch[$i][1]);

if ($person) {

echo '<br />&nbsp;&nbsp;<a href="', $person->getLinkUrl(), '" class="name1">&lt; ', $person->getFullName(), '</a>';

}

}

}

}

//-- siblings

for ($f=0; $f<count($cfamids); $f++) {

$famrec = find_family_record($cfamids[$f]);

if ($famrec) {

$num = preg_match_all("/1\s*CHIL\s*@(.*)@/", $famrec, $smatch,PREG_SET_ORDER);

if ($num>2) print "<br /><span class=\"name1\">".$pgv_lang["siblings"]."</span>";

if ($num==2) print "<br /><span class=\"name1\">".$pgv_lang["sibling"]."</span>";

for($i=0; $i<$num; $i++) {

$cpid = $smatch[$i][1];

if ($cpid!=$pid) {

$person=Person::getInstance($cpid);

if ($person) {

echo '<br />&nbsp;&nbsp;<a href="', $person->getLinkUrl(), '" class="name1"> ', $person->getFullName(), '</a>';

}

}

}

}

}

}

}

print "</td></tr></table>";

print "</div>";

$imagemap .= " onclick=\"show_family_box('".$pid.".".$count."', 'relatives'); return false;\"";

$imagemap .= " onmouseout=\"family_box_timeout('".$pid.".".$count."'); return false;\"";

$imagemap .= " alt=\"".PrintReady(strip_tags($name))."\" title=\"".PrintReady(strip_tags($name))."\" />";

}

$deg1-=$angle;

$deg2-=$angle;

$sosa--;

}

$rx-=$rw;

$gen--;

}

$imagemap .= "</map>";

echo $imagemap;

// PGV banner ;-)

ImageStringUp($image, 1, $fanw-10, $fanh/3, PGV_PHPGEDVIEW_URL, $color);

// here we cannot send image to browser ('header already sent')

// and we dont want to use a tmp file

// step 1. save image data in a session variable

ob_start();

ImagePng($image);

$image_data = ob_get_contents();

ob_end_clean();

$image_data = serialize($image_data);

unset ($_SESSION['image_data']);

$_SESSION['image_data']=$image_data;

// step 2. call imageflush.php to read this session variable and display image

// note: arg "image_name=" is to avoid image miscaching

$image_name= "V".time();

unset($_SESSION[$image_name]); // statisticsplot.php uses this to hold a file name to send to browser

$image_title=preg_replace("~<.*>~", "", $name) . " " . $pgv_lang["fan_chart"];

echo "<p align=\"center\" >";

echo "<img src=\"imageflush.php?image_type=png&amp;image_name=$image_name&amp;height=$fanh&amp;width=$fanw\" width=\"$fanw\" height=\"$fanh\" border=\"0\" alt=\"$image_title\" title=\"$image_title\" usemap=\"#fanmap\" />";

echo "</p>";

ImageDestroy($image);