require('../.inc/fpdf.php');

class PDF_EPS extends FPDF{

function PDF_EPS($orientation='P',$unit='mm',$format='A4'){
parent::FPDF($orientation,$unit,$format);
}

function ImageEps ($file, $x, $y, $w=0, $h=0, $link='', $useBoundingBox=true){

$data = file_get_contents($file);
if ($data===false) $this->Error('EPS file not found: '.$file);

$regs = array();

# EPS/AI compatibility check (only checks files created by Adobe Illustrator!)
preg_match ('/%%Creator:([^\r\n]+)/', $data, $regs); # find Creator
if (count($regs)>1){
$version_str = trim($regs[1]); # e.g. "Adobe Illustrator(R) 8.0"
if (strpos($version_str, 'Adobe Illustrator')!==false) {
$version = (float)array_pop( explode(' ', $version_str) );
if ($version>=9)
$this->Error('File was saved with wrong Illustrator version: '.$file);
#return false; # wrong version, only 1.x, 3.x or 8.x are supported
}#else
#$this->Error('EPS wasn\'t created with Illustrator: '.$file);
}

# strip binary bytes in front of PS-header
$start = strpos($data, '%!PS-Adobe');
if ($start>0) $data = substr($data, $start);

# find BoundingBox params
preg_match ("/%%BoundingBox:([^\r\n]+)/", $data, $regs);
if (count($regs)>1){
list($x1,$y1,$x2,$y2) = explode(' ', trim($regs[1]));
}
else $this->Error('No BoundingBox found in EPS file: '.$file);

$start = strpos($data, '%%EndSetup');
if ($start===false) $start = strpos($data, '%%EndProlog');
if ($start===false) $start = strpos($data, '%%BoundingBox');

$data = substr($data, $start);

$end = strpos($data, '%%PageTrailer');
if ($end===false) $end = strpos($data, 'showpage');
if ($end) $data = substr($data, 0, $end);

# save the current graphic state
$this->_out('q');

$k = $this->k;

if ($useBoundingBox){
$dx = $x*$k-$x1;
$dy = $y*$k-$y1;
}else{
$dx = $x*$k;
$dy = $y*$k;
}

# translate
$this->_out(sprintf('%.3f %.3f %.3f %.3f %.3f %.3f cm', 1,0,0,1,$dx,$dy+($this->hPt - 2*$y*$k - ($y2-$y1))));

if ($w>0){
$scale_x = $w/(($x2-$x1)/$k);
if ($h>0){
$scale_y = $h/(($y2-$y1)/$k);
}else{
$scale_y = $scale_x;
$h = ($y2-$y1)/$k * $scale_y;
}
}else{
if ($h>0){
$scale_y = $h/(($y2-$y1)/$k);
$scale_x = $scale_y;
$w = ($x2-$x1)/$k * $scale_x;
}else{
$w = ($x2-$x1)/$k;
$h = ($y2-$y1)/$k;
}
}

# scale
if (isset($scale_x))
$this->_out(sprintf('%.3f %.3f %.3f %.3f %.3f %.3f cm', $scale_x,0,0,$scale_y, $x1*(1-$scale_x), $y2*(1-$scale_y)));

# handle pc/unix/mac line endings
$lines = split ("\r\n|[\r\n]", $data);

$u=0;
$cnt = count($lines);
for ($i=0;$i<$cnt;$i++){
$line = $lines[$i];
if ($line=='' || $line{0}=='%') continue;

$len = strlen($line);

$chunks = explode(' ', $line);
$cmd = array_pop($chunks);

# RGB
if ($cmd=='Xa'||$cmd=='XA'){
$b = array_pop($chunks); $g = array_pop($chunks); $r = array_pop($chunks);
$this->_out("$r $g $b ". ($cmd=='Xa'?'rg':'RG') ); #substr($line, 0, -2).'rg' -> in EPS (AI8): c m y k r g b rg!
continue;
}

switch ($cmd){
case 'm':
case 'l':
case 'v':
case 'y':
case 'c':

case 'k':
case 'K':
case 'g':
case 'G':

case 's':
case 'S':

case 'J':
case 'j':
case 'w':
case 'M':
case 'd' :

case 'n' :
case 'v' :
$this->_out($line);
break;

case 'x': # custom fill color
list($c,$m,$y,$k) = $chunks;
$this->_out("$c $m $y $k k");
break;

case 'X': # custom stroke color
list($c,$m,$y,$k) = $chunks;
$this->_out("$c $m $y $k K");
break;

case 'Y':
case 'N':
case 'V':
case 'L':
case 'C':
$line{$len-1}=strtolower($cmd);
$this->_out($line);
break;

case 'b':
case 'B':
$this->_out($cmd . '*');
break;

case 'f':
case 'F':
if ($u>0){
$isU = false;
$max = min($i+5,$cnt);
for ($j=$i+1;$j<$max;$j++)
$isU = ($isU || ($lines[$j]=='U' || $lines[$j]=='*U'));
if ($isU) $this->_out("f*");
}else
$this->_out("f*");
break;

case '*u':
$u++;
break;

case '*U':
$u--;
break;

#default: echo "$cmd<br>"; #just for debugging
}

}

# restore previous graphic state
$this->_out('Q');
if ($link)
$this->Link($x,$y,$w,$h,$link);

return true;
}

}# END CLASS

# for backward compatibility
if (!function_exists('file_get_contents')){
function file_get_contents($filename, $use_include_path = 0){
$file = @fopen($filename, 'rb', $use_include_path);
if ($file){
if ($fsize = @filesize($filename))
$data = fread($file, $fsize);
else {
$data = '';
while (!feof($file)) $data .= fread($file, 1024);
}
fclose($file);
return $data;
}else
return false;
}
}

require('fpdf_eps.php');

$pdf=new PDF_EPS();

$pdf->SetAutoPageBreak(false);
$pdf->SetFont('Arial','',12);

$lnk1 = $pdf->AddLink();

// PAGE 1: AI
$pdf->AddPage();
$pdf->ImageEps('pelican.ai', 15, 70, 180);

// PAGE 2: EPS, WITH LINK
$pdf->AddPage();
$pdf->ImageEps('bug.eps', 30,20, 150, 0, $lnk1);

// PAGE 3: AI
$pdf->AddPage();
$pdf->SetLink($lnk1);
$pdf->ImageEps('tiger.ai', 10, 50, 190);