412 lines
13 KiB
PHP
Executable File
412 lines
13 KiB
PHP
Executable File
<?php
|
|
|
|
class directw {
|
|
|
|
var $mpdf = null;
|
|
|
|
function directw(&$mpdf) {
|
|
$this->mpdf = $mpdf;
|
|
}
|
|
|
|
|
|
function Write($h,$txt,$currentx=0,$link='',$directionality='ltr',$align='') {
|
|
if (!$align) {
|
|
if ($directionality=='rtl') { $align = 'R'; }
|
|
else { $align = 'L'; }
|
|
}
|
|
if ($h == 0) { $this->mpdf->SetLineHeight(); $h = $this->mpdf->lineheight; }
|
|
//Output text in flowing mode
|
|
$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x;
|
|
|
|
$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
|
|
$s=str_replace("\r",'',$txt);
|
|
if ($this->mpdf->usingCoreFont) { $nb=strlen($s); }
|
|
else {
|
|
$nb=mb_strlen($s, $this->mpdf->mb_enc );
|
|
// handle single space character
|
|
if(($nb==1) && $s == " ") {
|
|
$this->mpdf->x += $this->mpdf->GetStringWidth($s);
|
|
return;
|
|
}
|
|
}
|
|
$sep=-1;
|
|
$i=0;
|
|
$j=0;
|
|
$l=0;
|
|
$nl=1;
|
|
if (!$this->mpdf->usingCoreFont) {
|
|
if (preg_match("/([".$this->mpdf->pregRTLchars."])/u", $txt)) { $this->mpdf->biDirectional = true; } // *RTL*
|
|
while($i<$nb) {
|
|
//Get next character
|
|
$c = mb_substr($s,$i,1,$this->mpdf->mb_enc );
|
|
if($c == "\n") {
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
//Explicit line break
|
|
$tmp = rtrim(mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc));
|
|
$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
|
|
$i++;
|
|
$sep = -1;
|
|
$j = $i;
|
|
$l = 0;
|
|
if($nl == 1) {
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x;
|
|
$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
|
|
}
|
|
$nl++;
|
|
continue;
|
|
}
|
|
if($c == " ") { $sep= $i; }
|
|
$l += $this->mpdf->GetCharWidthNonCore($c); // mPDF 5.3.04
|
|
if($l > $wmax) {
|
|
//Automatic line break (word wrapping)
|
|
if($sep == -1) {
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
if($this->mpdf->x > $this->mpdf->lMargin) {
|
|
//Move to next line
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$this->mpdf->y+=$h;
|
|
$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
|
|
$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
|
|
$i++;
|
|
$nl++;
|
|
continue;
|
|
}
|
|
if($i==$j) { $i++; }
|
|
$tmp = rtrim(mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc));
|
|
$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
|
|
}
|
|
else {
|
|
$tmp = rtrim(mb_substr($s,$j,$sep-$j,$this->mpdf->mb_enc));
|
|
|
|
if($align=='J') {
|
|
//////////////////////////////////////////
|
|
// JUSTIFY J using Unicode fonts (Word spacing doesn't work)
|
|
// WORD SPACING
|
|
// Change NON_BREAKING SPACE to spaces so they are 'spaced' properly
|
|
$tmp = str_replace(chr(194).chr(160),chr(32),$tmp );
|
|
$len_ligne = $this->mpdf->GetStringWidth($tmp );
|
|
$nb_carac = mb_strlen( $tmp , $this->mpdf->mb_enc ) ;
|
|
$nb_spaces = mb_substr_count( $tmp ,' ', $this->mpdf->mb_enc ) ;
|
|
$inclCursive=false;
|
|
if (isset($this->mpdf->CurrentFont['useOTL']) && $this->mpdf->CurrentFont['useOTL']) {
|
|
if (preg_match("/([".$this->mpdf->pregCURSchars."])/u", $tmp)) { $inclCursive = true; }
|
|
}
|
|
list($charspacing,$ws) = $this->mpdf->GetJspacing($nb_carac,$nb_spaces,((($w-2) - $len_ligne) * _MPDFK),$inclCursive);
|
|
$this->mpdf->SetSpacing($charspacing,$ws);
|
|
//////////////////////////////////////////
|
|
}
|
|
$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
|
|
$i=$sep+1;
|
|
}
|
|
$sep = -1;
|
|
$j = $i;
|
|
$l = 0;
|
|
if($nl==1) {
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
|
|
$wmax = ($w - ($this->mpdf->cMarginL+$this->mpdf->cMarginR));
|
|
}
|
|
$nl++;
|
|
}
|
|
else { $i++; }
|
|
}
|
|
//Last chunk
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
}
|
|
else {
|
|
while($i<$nb) {
|
|
//Get next character
|
|
$c=$s[$i];
|
|
if($c == "\n") {
|
|
//Explicit line break
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
$this->mpdf->Cell($w, $h, substr($s, $j, $i-$j), 0, 2, $align, $fill, $link);
|
|
$i++;
|
|
$sep = -1;
|
|
$j = $i;
|
|
$l = 0;
|
|
if($nl == 1) {
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$w = $this->mpdf->w - $this->mpdf->rMargin - $this->mpdf->x;
|
|
$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
|
|
}
|
|
$nl++;
|
|
continue;
|
|
}
|
|
if($c == " ") { $sep= $i; }
|
|
$l += $this->mpdf->GetCharWidthCore($c); // mPDF 5.3.04
|
|
if($l > $wmax) {
|
|
//Automatic line break (word wrapping)
|
|
if($sep == -1) {
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
if($this->mpdf->x > $this->mpdf->lMargin) {
|
|
//Move to next line
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$this->mpdf->y+=$h;
|
|
$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
|
|
$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
|
|
$i++;
|
|
$nl++;
|
|
continue;
|
|
}
|
|
if($i==$j) { $i++; }
|
|
$this->mpdf->Cell($w, $h, substr($s, $j, $i-$j), 0, 2, $align, $fill, $link);
|
|
}
|
|
else {
|
|
$tmp = substr($s, $j, $sep-$j);
|
|
if($align=='J') {
|
|
//////////////////////////////////////////
|
|
// JUSTIFY J using Unicode fonts
|
|
// WORD SPACING is not fully supported for complex scripts
|
|
// Change NON_BREAKING SPACE to spaces so they are 'spaced' properly
|
|
$tmp = str_replace(chr(160),chr(32),$tmp );
|
|
$len_ligne = $this->mpdf->GetStringWidth($tmp );
|
|
$nb_carac = strlen( $tmp ) ;
|
|
$nb_spaces = substr_count( $tmp ,' ' ) ;
|
|
list($charspacing,$ws) = $this->mpdf->GetJspacing($nb_carac,$nb_spaces,((($w-2) - $len_ligne) * _MPDFK),$false);
|
|
$this->mpdf->SetSpacing($charspacing,$ws);
|
|
//////////////////////////////////////////
|
|
}
|
|
$this->mpdf->Cell($w, $h, $tmp, 0, 2, $align, $fill, $link);
|
|
$i=$sep+1;
|
|
}
|
|
$sep = -1;
|
|
$j = $i;
|
|
$l = 0;
|
|
if($nl==1) {
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
$w=$this->mpdf->w-$this->mpdf->rMargin-$this->mpdf->x;
|
|
$wmax=$w-($this->mpdf->cMarginL+$this->mpdf->cMarginR);
|
|
}
|
|
$nl++;
|
|
}
|
|
else {
|
|
$i++;
|
|
}
|
|
}
|
|
// WORD SPACING
|
|
$this->mpdf->ResetSpacing();
|
|
}
|
|
//Last chunk
|
|
if($i!=$j) {
|
|
if ($currentx != 0) $this->mpdf->x=$currentx;
|
|
else $this->mpdf->x=$this->mpdf->lMargin;
|
|
if ($this->mpdf->usingCoreFont) { $tmp = substr($s,$j,$i-$j); }
|
|
else { $tmp = mb_substr($s,$j,$i-$j,$this->mpdf->mb_enc); }
|
|
$this->mpdf->Cell($w,$h,$tmp,0,0,$align,$fill,$link);
|
|
}
|
|
}
|
|
|
|
|
|
function CircularText($x, $y, $r, $text, $align='top', $fontfamily='', $fontsizePt=0, $fontstyle='', $kerning=120, $fontwidth=100, $divider='') {
|
|
if ($fontfamily || $fontstyle || $fontsizePt) $this->mpdf->SetFont($fontfamily,$fontstyle,$fontsizePt);
|
|
$kerning/=100;
|
|
$fontwidth/=100;
|
|
if($kerning==0) $this->mpdf->Error('Please use values unequal to zero for kerning (CircularText)');
|
|
if($fontwidth==0) $this->mpdf->Error('Please use values unequal to zero for font width (CircularText)');
|
|
$text=str_replace("\r",'',$text);
|
|
//circumference
|
|
$u=($r*2)*M_PI;
|
|
$checking = true;
|
|
$autoset = false;
|
|
while($checking) {
|
|
$t=0;
|
|
$w = array();
|
|
if ($this->mpdf->usingCoreFont) {
|
|
$nb=strlen($text);
|
|
for($i=0; $i<$nb; $i++){
|
|
$w[$i]=$this->mpdf->GetStringWidth($text[$i]);
|
|
$w[$i]*=$kerning*$fontwidth;
|
|
$t+=$w[$i];
|
|
}
|
|
}
|
|
else {
|
|
$nb=mb_strlen($text, $this->mpdf->mb_enc );
|
|
$lastchar = '';
|
|
$unicode = $this->mpdf->UTF8StringToArray($text);
|
|
for($i=0; $i<$nb; $i++){
|
|
$c = mb_substr($text,$i,1,$this->mpdf->mb_enc );
|
|
$w[$i]=$this->mpdf->GetStringWidth($c);
|
|
$w[$i]*=$kerning*$fontwidth;
|
|
$char = $unicode[$i];
|
|
if ($this->mpdf->useKerning && $lastchar) {
|
|
if (isset($this->mpdf->CurrentFont['kerninfo'][$lastchar][$char])) {
|
|
$tk = $this->mpdf->CurrentFont['kerninfo'][$lastchar][$char] * ($this->mpdf->FontSize/ 1000) * $kerning * $fontwidth;
|
|
$w[$i] += $tk/2;
|
|
$w[$i-1] += $tk/2;
|
|
$t+=$tk;
|
|
}
|
|
}
|
|
$lastchar = $char;
|
|
$t+=$w[$i];
|
|
}
|
|
}
|
|
if ($fontsizePt>=0 || $autoset) { $checking = false; }
|
|
else {
|
|
$t+=$this->mpdf->GetStringWidth(' ');
|
|
if ($divider)
|
|
$t+=$this->mpdf->GetStringWidth(' ');
|
|
if ($fontsizePt==-2)
|
|
$fontsizePt = $this->mpdf->FontSizePt * 0.5 * $u/$t;
|
|
else
|
|
$fontsizePt = $this->mpdf->FontSizePt * $u/$t;
|
|
$this->mpdf->SetFontSize($fontsizePt);
|
|
$autoset = true;
|
|
}
|
|
}
|
|
|
|
//total width of string in degrees
|
|
$d=($t/$u)*360;
|
|
|
|
$this->mpdf->StartTransform();
|
|
// rotate matrix for the first letter to center the text
|
|
// (half of total degrees)
|
|
if($align=='top'){
|
|
$this->mpdf->transformRotate(-$d/2, $x, $y);
|
|
}
|
|
else{
|
|
$this->mpdf->transformRotate($d/2, $x, $y);
|
|
}
|
|
//run through the string
|
|
for($i=0; $i<$nb; $i++){
|
|
if($align=='top'){
|
|
//rotate matrix half of the width of current letter + half of the width of preceding letter
|
|
if($i==0){
|
|
$this->mpdf->transformRotate((($w[$i]/2)/$u)*360, $x, $y);
|
|
}
|
|
else{
|
|
$this->mpdf->transformRotate((($w[$i]/2+$w[$i-1]/2)/$u)*360, $x, $y);
|
|
}
|
|
if($fontwidth!=1){
|
|
$this->mpdf->StartTransform();
|
|
$this->mpdf->transformScale($fontwidth*100, 100, $x, $y);
|
|
}
|
|
$this->mpdf->SetXY($x-$w[$i]/2, $y-$r);
|
|
}
|
|
else{
|
|
//rotate matrix half of the width of current letter + half of the width of preceding letter
|
|
if($i==0){
|
|
$this->mpdf->transformRotate(-(($w[$i]/2)/$u)*360, $x, $y);
|
|
}
|
|
else{
|
|
$this->mpdf->transformRotate(-(($w[$i]/2+$w[$i-1]/2)/$u)*360, $x, $y);
|
|
}
|
|
if($fontwidth!=1){
|
|
$this->mpdf->StartTransform();
|
|
$this->mpdf->transformScale($fontwidth*100, 100, $x, $y);
|
|
}
|
|
$this->mpdf->SetXY($x-$w[$i]/2, $y+$r-($this->mpdf->FontSize));
|
|
}
|
|
if ($this->mpdf->usingCoreFont) { $c=$text[$i]; }
|
|
else { $c = mb_substr($text,$i,1,$this->mpdf->mb_enc ); }
|
|
$this->mpdf->Cell(($w[$i]),$this->mpdf->FontSize,$c,0,0,'C'); // mPDF 5.3.53
|
|
if($fontwidth!=1){
|
|
$this->mpdf->StopTransform();
|
|
}
|
|
}
|
|
$this->mpdf->StopTransform();
|
|
|
|
// mPDF 5.5.23
|
|
if($align=='top' && $divider!=''){
|
|
$wc=$this->mpdf->GetStringWidth($divider);
|
|
$wc*=$kerning*$fontwidth;
|
|
|
|
$this->mpdf->StartTransform();
|
|
$this->mpdf->transformRotate(90, $x, $y);
|
|
$this->mpdf->SetXY($x-$wc/2, $y-$r);
|
|
$this->mpdf->Cell(($wc),$this->mpdf->FontSize,$divider,0,0,'C');
|
|
$this->mpdf->StopTransform();
|
|
|
|
$this->mpdf->StartTransform();
|
|
$this->mpdf->transformRotate(-90, $x, $y);
|
|
$this->mpdf->SetXY($x-$wc/2, $y-$r);
|
|
$this->mpdf->Cell(($wc),$this->mpdf->FontSize,$divider,0,0,'C');
|
|
$this->mpdf->StopTransform();
|
|
}
|
|
}
|
|
|
|
function Shaded_box( $text,$font='',$fontstyle='B',$szfont='',$width='70%',$style='DF',$radius=2.5,$fill='#FFFFFF',$color='#000000',$pad=2 ) {
|
|
// F (shading - no line),S (line, no shading),DF (both)
|
|
if (!$font) { $font= $this->mpdf->default_font; }
|
|
if (!$szfont) { $szfont = ($this->mpdf->default_font_size * 1.8); }
|
|
|
|
$text = ' '.$text.' ';
|
|
$this->mpdf->SetFont( $font, $fontstyle, $szfont, false );
|
|
|
|
$text = $this->mpdf->purify_utf8_text($text);
|
|
if ($this->mpdf->text_input_as_HTML) {
|
|
$text = $this->mpdf->all_entities_to_utf8($text);
|
|
}
|
|
if ($this->mpdf->usingCoreFont) { $text = mb_convert_encoding($text,$this->mpdf->mb_enc,'UTF-8'); }
|
|
|
|
|
|
// DIRECTIONALITY
|
|
if (preg_match("/([".$this->mpdf->pregRTLchars."])/u", $text)) { $this->mpdf->biDirectional = true; } // *RTL*
|
|
|
|
$textvar = 0;
|
|
$save_OTLtags = $this->mpdf->OTLtags;
|
|
$this->mpdf->OTLtags = array();
|
|
if ($this->mpdf->useKerning) {
|
|
if ($this->mpdf->CurrentFont['haskernGPOS']) { $this->mpdf->OTLtags['Plus'] .= ' kern'; }
|
|
else { $textvar = ($textvar | FC_KERNING); }
|
|
}
|
|
// Use OTL OpenType Table Layout - GSUB & GPOS
|
|
if (isset($this->mpdf->CurrentFont['useOTL']) && $this->mpdf->CurrentFont['useOTL']) {
|
|
$text = $this->mpdf->otl->applyOTL($text, $this->mpdf->CurrentFont['useOTL']);
|
|
$OTLdata = $this->mpdf->otl->OTLdata;
|
|
}
|
|
$this->mpdf->OTLtags = $save_OTLtags ;
|
|
|
|
$this->mpdf->magic_reverse_dir($text, $this->mpdf->directionality, $OTLdata);
|
|
|
|
if (!$width) { $width = $this->mpdf->pgwidth; } else { $width=$this->mpdf->ConvertSize($width,$this->mpdf->pgwidth); }
|
|
$midpt = $this->mpdf->lMargin+($this->mpdf->pgwidth/2);
|
|
$r1 = $midpt-($width/2); //($this->mpdf->w / 2) - 40;
|
|
$r2 = $r1 + $width; //$r1 + 80;
|
|
$y1 = $this->mpdf->y;
|
|
|
|
|
|
$mid = ($r1 + $r2 ) / 2;
|
|
$loop = 0;
|
|
|
|
while ( $loop == 0 )
|
|
{
|
|
$this->mpdf->SetFont( $font, $fontstyle, $szfont, false );
|
|
$sz = $this->mpdf->GetStringWidth( $text, true, $OTLdata, $textvar );
|
|
if ( ($r1+$sz) > $r2 )
|
|
$szfont --;
|
|
else
|
|
$loop ++;
|
|
}
|
|
$this->mpdf->SetFont( $font, $fontstyle, $szfont, true, true );
|
|
|
|
$y2 = $this->mpdf->FontSize+($pad*2);
|
|
|
|
$this->mpdf->SetLineWidth(0.1);
|
|
$fc = $this->mpdf->ConvertColor($fill);
|
|
$tc = $this->mpdf->ConvertColor($color);
|
|
$this->mpdf->SetFColor($fc);
|
|
$this->mpdf->SetTColor($tc);
|
|
$this->mpdf->RoundedRect($r1, $y1, ($r2 - $r1), $y2, $radius, $style);
|
|
$this->mpdf->SetX( $r1);
|
|
$this->mpdf->Cell($r2-$r1, $y2, $text, 0, 1, "C",0,'',0,0,0,'M', 0, false, $OTLdata, $textvar );
|
|
$this->mpdf->SetY($y1+$y2+2); // +2 = mm margin below shaded box
|
|
$this->mpdf->Reset();
|
|
}
|
|
|
|
|
|
}
|
|
|
|
?>
|