[gimp-perl] Handle alpha channel right.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Handle alpha channel right.
- Date: Sun, 25 May 2014 15:11:33 +0000 (UTC)
commit e13656d6fed0c7569dccf876b80decf35087124c
Author: Ed J <edj src gnome org>
Date: Sun May 25 16:10:09 2014 +0100
Handle alpha channel right.
examples/colorhtml | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
---
diff --git a/examples/colorhtml b/examples/colorhtml
index 3a4d5d3..7ab8e7a 100755
--- a/examples/colorhtml
+++ b/examples/colorhtml
@@ -60,7 +60,7 @@ podregister {
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
-<title>css color html by The GIMP</title>
+<title>css color html by GIMP</title>
<link rel="stylesheet" type="text/css" href="$file">
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
</head>
@@ -81,11 +81,14 @@ HEADER
$io->print("<html><body bgcolor=black>\n<font size=\"$font_size\"><pre>\n");
}
my %colors;
+ my $bpp = $region->bpp;
+ die "Expected bpp to be either 3 or 4" unless $bpp == 3 or $bpp == 4;
+ my $pixel_re = '(.{3})' . ($bpp == 3 ? '' : '.');
for (my $y = 0; $y < $h; $y++) {
my $pel = $region->get_row2 (0, $y, $w);
push @chars,@data while @chars < $w;
if ($use_css) {
- $pel =~ s{(...)}{
+ $pel =~ s{$pixel_re}{
"<span class=\"N".unpack("H*",$1)."\">".shift(@chars)."</span>"
}ges;
while ($pel =~ /"N([0-9a-fA-F]{6})"/g) {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]