Skip to content

Instantly share code, notes, and snippets.

@jaydreyer
Created Jun 26, 2021
Embed
What would you like to do?
zem_ir image replacement textpattern plugin code
function zem_ir_set($atts) {
global $zem_ir_set;
$group = (empty($atts['group']) ? 'default' : $atts['group']);
$orig = (isset($zem_ir_set[$group]) ? $zem_ir_set[$group] : array());
$zem_ir_set[$group] = array_merge($orig, $atts);
return '';
}
function zem_ir_get_atts($atts) {
global $pfr, $txpcfg, $img_dir;
$group = (empty($atts['group']) ? 'default' : $atts['group']);
$wraptag = (empty($atts["wraptag"]) ? "h1" : $atts["wraptag"]);
$position = (empty($atts["position"]) ? "top left" : $atts["position"]);
$limit = (empty($atts["limit"]) ? 0 : $atts["limit"]);
$class = (empty($atts["class"]) ? "" : $atts["class"]);
$font = (empty($atts["font"]) ? "" : $atts["font"]);
$font_dir = (empty($atts["fontdir"]) ? dirname($txpcfg["doc_root"]) : $atts["fontdir"]);
$font_size = (empty($atts["fontsize"]) ? 24 : (int)$atts["fontsize"]);
$angle = (empty($atts["angle"]) ? 0 : $atts["angle"]);
$color = (empty($atts["color"]) ? "#000000" : $atts["color"]);
$backgroundcolor = (empty($atts["backgroundcolor"]) ? "#ffffff" : $atts["backgroundcolor"]);
$cachedir = (empty($atts["cachedir"]) ? "$img_dir/zir" : $atts["cachedir"]);
$ft = (isset($atts["ft"]) ? $atts["ft"] : 0);
$aa = (isset($atts["aa"]) ? $atts["aa"] : 1);
$info = (isset($atts["info"]) ? $atts["info"] : 0);
$trans = (isset($atts["trans"]) ? $atts["trans"] : 1);
$cache = (isset($atts["cache"]) ? $atts["cache"] : 1);
$depth = (empty($atts["depth"]) ? 8 : $atts["depth"]);
$method = (empty($atts["method"]) ? "phark" : $atts["method"]);
$align = (empty($atts["align"]) ? "left" : $atts["align"]);
$padding = (empty($atts["padding"]) ? "0" : $atts["padding"]);
$text = (empty($atts['text']) ? '' : $atts['text']);
$wrap = (empty($atts['wrap']) ? 0 : $atts['wrap']);
$tr = (empty($atts['tr']) ? '' : $atts['tr']);
$tt = (empty($atts['tt']) ? ' ' : $atts['tt']);
$charset = (empty($atts['charset']) ? 'ISO-8859-15' : $atts['charset']);
$transform = (empty($atts['transform']) ? '' : $atts['transform']);
$pad = preg_split('/\s+/', trim($padding));
if (count($pad) != 4)
$pad = array_fill(0, 4, $pad[0]);
if (substr($font_dir, -1, 1) != DIRECTORY_SEPARATOR) $font_dir .= DIRECTORY_SEPARATOR;
$font_file = $font_dir . $font;
$cache_folder = $txpcfg["doc_root"].$pfr.$cachedir;
return compact('wraptag', 'position', 'limit', 'class', 'font', 'font_dir', 'font_size', 'angle', 'color', 'backgroundcolor', 'cachedir', 'ft', 'aa', 'info', 'trans', 'cache', 'depth', 'method', 'align', 'padding', 'text', 'wrap', 'tr', 'charset', 'transform', 'pad', 'font_file', 'cache_folder');
}
function zem_image_replace($atts, $thing) {
return zem_ir($atts, $thing);
}
function zem_ir($atts, $thing=NULL) {
global $pfr, $zem_ir_set, $txpcfg;
# Merge any settings configured by zem_ir_set with the attributes for this tag
$group = (empty($atts['group']) ? 'default' : $atts['group']);
$defaults = (isset($zem_ir_set[$group]) ? $zem_ir_set[$group] : array());
$settings = zem_ir_get_atts(array_merge($defaults, $atts));
extract($settings);
$content = $text;
if ($thing) {
$content = parse($thing);
$text = trim(html_entity_decode(strip_tags($content), ENT_NOQUOTES, $charset));
if ($limit)
$text = substr($text, 0, $limit);
}
if ($tr) {
$tr = html_entity_decode($tr, ENT_NOQUOTES, $charset);
$tt = substr(html_entity_decode($tt, ENT_NOQUOTES, $charset), 0, 1);
$text = strtr($text, $tr, str_repeat($tt, strlen($tr)));
}
if ($transform == 'capitalize')
$text = ucwords($text);
elseif ($transform == 'lowercase')
$text = strtolower($text);
elseif ($transform == 'uppercase')
$text = strtoupper($text);
if ($info) {
ob_start();
echo "<pre>";
var_dump(compact("text", "font_file", "font_size", "angle", "color", "backgroundcolor", "cache_folder", "aa", "trans", "depth", "ft", "cache", "method", "align", "pad"));
echo "doc_root setting ".$txpcfg['doc_root']." ". ($txpcfg['doc_root'] == $_SERVER['DOCUMENT_ROOT'] ? "does" : "<b>does not</b>"). " match the server setting '".$_SERVER['DOCUMENT_ROOT']."'\n";
echo "cache folder $cache_folder " . (is_dir($cache_folder) ? "is" : "is <b>not</b>") . " a directory\n";
echo "cache folder $cache_folder " . (is_writable($cache_folder) ? "is" : "is <b>not</b>") . " writable\n";
echo "font file $font_file " . (is_file($font_file) ? "is" : "is <b>not</b>") . " a file\n";
echo "font file $font_file " . (is_readable($font_file) ? "is" : "is <b>not</b>") . " readable\n";
echo "freetype 2 " . (is_callable("imagefttext") ? "is" : "is <b>not</b>") . " supported\n";
echo "freetype 1 " . (is_callable("imagettfbbox") ? "is" : "is <b>not</b>") . " supported\n";
echo "</pre>";
return ob_get_clean();
}
// Skip the image routines if there's no text to display
if (!trim($text))
return tag($wraptag, $content);
$old_umask = umask(0000);
$result = dynamic_image($text, $settings);
umask($old_umask);
if ($result[0]) {
return $result[1];
}
list($error, $data, $w, $h) = $result;
$url = $pfr . $cachedir . "/" . $data;
$height = (empty($atts["height"]) ? $h : $atts["height"]);
$width = (empty($atts["width"]) ? $w : $atts["width"]);
$title = " title=\"{$text}\"";
if ($class) {
$style = " style=\"background: url($url) no-repeat {$position};\"";
$class = " class=\"$class\"";
}
elseif ($method == "radu") {
$style = " style=\"margin: 0 0 0 -5000px; background: url($url) no-repeat top right; height: {$height}px;\"";
}
elseif ($method == "lir") {
$style = " style=\"padding: {$height}px 0 0 0; overflow: hidden; background: url($url) no-repeat {$position}; height: 0px !important; height /**/: {$height}px;\"";
}
elseif ($method == "dwyer") {
$style = " style=\"background: url($url) no-repeat {$position}; height: {$height}px; width: {$width}px;\"";
$spanstyle = " style=\"display: block; width: 0; height: 0; overflow: hidden;\"";
$content = tag($content, "span", $spanstyle);
}
elseif ($method == "img") {
$wraptag = "img";
$style = " src=\"{$url}\" alt=\"{$text}\"";
}
else {
// Default: Phark Revisited
$style = " style=\"text-indent: -5000px; background: url($url) no-repeat {$position}; height: {$height}px;\"";
}
return tag($content, $wraptag, $class.$style.$title);
}
# The following code is taken from Stewart Rosenberger's header.php, with modifications to allow text rotation and FT support
# http://www.stewartspeak.com/headings/
function dynamic_image($content, $settings) {
extract($settings);
$text = $content;
$transparent_background = $trans ;
$mime_type = "image/png" ;
$extension = ".png" ;
$send_buffer_size = 4096 ;
// check for GD support
if(!function_exists("ImageCreate"))
return array(1, "Error: Server does not support PHP image generation");
// look for cached copy, send if it exists
$hash = md5(join('-', array(basename($font_file), $font_size , $color , $angle , $aa, $ft , $depth , $backgroundcolor , $trans, $padding , $wrap, $text)));
$cache_filename = $cache_folder . DIRECTORY_SEPARATOR . $hash . $extension ;
if($cache && is_readable($cache_filename))
{
list($w, $h) = getimagesize($cache_filename);
return array(0, $hash.$extension, $w, $h);
}
// check font availability
$font_found = is_readable($font_file) ;
if(!$font_found)
{
return array(1, "Error: The server is missing the specified font '$font_file'.") ;
}
// create cache dir if necessary
if (!is_dir($cache_folder)) {
mkdir($cache_folder, 0777);
if (!is_dir($cache_folder)) {
return array(1, "Error: unable to create cache folder '$cache_folder'.") ;
}
}
if (!is_writable($cache_folder)) {
return array(1, "Error: unable to write to cache folder '$cache_folder'.") ;
}
// create image
$background_rgb = hex_to_rgb($backgroundcolor) ;
$font_rgb = hex_to_rgb($color) ;
if ($ft and is_callable('imageftbbox'))
$boxfn = 'imageftbbox';
else
$boxfn = 'imagettfbbox';
if ($wrap) {
# Word wrapping is measured in characters, not pixels. We have to guess the number of characters
# that will fit in the specified pixel width, then gradually reduce our guess until the text fits.
$wrapstart = max($wrap/4, 80);
for ($i = $wrapstart; $i >= 6; $i--) {
$box = @$boxfn($font_size, 0, $font_file, wordwrap($text, $i, "\n", 1));
$wrap_w = max($box[0], $box[2], $box[4], $box[6]) - min($box[0], $box[2], $box[4], $box[6]);
if ($wrap_w <= $wrap) {
$text = wordwrap($text, $i, "\n", 1);
break;
}
}
}
else {
$box = @$boxfn($font_size,0,$font_file,$text) ;
}
@list($w, $h, $base_x, $base_y) = imagerotatedbbox($box, $angle, $pad);
if (isset($w, $h, $base_x, $base_y)) {
if ($depth == 24 and is_callable("imagecreatetruecolor"))
$image = @ImageCreateTrueColor($w, $h);
else
$image = @ImageCreate($w,$h) ;
}
if(!$image || !$box)
{
return array(1, "Error: The server could not create this heading image.") ;
}
// allocate colors and draw text
$background_color = ImageColorAllocate($image,$background_rgb["red"],
$background_rgb["green"],$background_rgb["blue"]) ;
$font_color = ImageColorAllocate($image,$font_rgb["red"],
$font_rgb["green"],$font_rgb["blue"]) ;
// have to explicitly draw the background color for 24-bit
imageFilledRectangle($image, 0, 0, $w, $h, $background_color);
if ($ft and is_callable("imagefttext")) {
if (!$aa)
$font_color = -$font_color;
imagefttext($image, $font_size, $angle, $base_x, $base_y,
$font_color, $font_file, $text) ;
}
else {
ImageTTFText($image, $font_size, $angle, $base_x, $base_y,
$font_color, $font_file, $text) ;
}
// set transparency
if($transparent_background)
ImageColorTransparent($image,$background_color) ;
// save copy of image for cache
ImagePNG($image,$cache_filename) ;
ImageDestroy($image) ;
return array(0, $hash.$extension, $w, $h);
}
/*
decode an HTML hex-code into an array of R,G, and B values.
accepts these formats: (case insensitive) #ffffff, ffffff, #fff, fff
*/
function hex_to_rgb($hex)
{
// remove "#"
if(substr($hex,0,1) == "#")
$hex = substr($hex,1) ;
// expand short form ("fff") color
if(strlen($hex) == 3)
{
$hex = substr($hex,0,1) . substr($hex,0,1) .
substr($hex,1,1) . substr($hex,1,1) .
substr($hex,2,1) . substr($hex,2,1) ;
}
if(strlen($hex) != 6)
print("Error: Invalid color \"$hex\"") ;
// convert
$rgb["red"] = hexdec(substr($hex,0,2)) ;
$rgb["green"] = hexdec(substr($hex,2,2)) ;
$rgb["blue"] = hexdec(substr($hex,4,2)) ;
return $rgb ;
}
// Determine the text bounding box after rotation is applied
function imagerotatedbbox($bbox, $angle=0, $pad=0) {
if (count($bbox) != 8)
return;
if (empty($pad))
$pad = array(0,0,0,0);
$a = $angle * M_PI / 180;
$cosa = cos($a);
$sina = sin($a);
$result = array();
# baseline and total width/height of text when horizontal
$base_x = abs($bbox[6]);
$base_y = abs($bbox[7]);
$old_w = max($bbox[0], $bbox[2], $bbox[4], $bbox[6]) - min($bbox[0], $bbox[2], $bbox[4], $bbox[6]);
$old_h = max($bbox[1], $bbox[3], $bbox[5], $bbox[7]) - min($bbox[1], $bbox[3], $bbox[5], $bbox[7]);
// rotate the box coordinates to get the new width & height of the final image
for ($i = 0; $i < 7; $i += 2) {
$result[$i] = round($bbox[$i] * $cosa + $bbox[$i+1] * $sina);
$result[$i+1] = round($bbox[$i+1] * $cosa - $bbox[$i] * $sina);
}
$w = max($result[0], $result[2], $result[4], $result[6]) - min($result[0], $result[2], $result[4], $result[6]);
$h = max($result[1], $result[3], $result[5], $result[7]) - min($result[1], $result[3], $result[5], $result[7]);
$pad_w = $w + ($pad[3] + $pad[1]);
$pad_h = $h + ($pad[0] + $pad[2]);
// center of bounding box (xc,yc);
$xc = $old_w/2.0;
$yc = $old_h/2.0;
// center of image
$px = $w/2.0;
$py = $h/2.0;
// baseline coordinates relative to the center
$x1 = $base_x - $xc;
$y1 = $base_y - $yc;
// baseline after rotation
$x2= intval( $x1*$cosa+$y1*$sina+$px+0.5);
$y2= intval(-$x1*$sina+$y1*$cosa+$py+0.5);
return array($pad_w, $pad_h, $x2 + $pad[3], $y2 + $pad[0]);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment