#!/usr/bin/perl -w
# Expand pixels in a PPM to make mosaic like images.
#
# To do: separate color choices for each border.
#        user-defined pixel manipulation function.
#
# Benjamin Elijah Griffin       28 Feb 2003
use strict;
use integer;
use Image::PPMlib;
use vars qw( $id $arg $err $i $j $k $r $g $b $br $bg $bb $tri
            $inforef @line @out $pc $pix $mpix
            $file $bmode $bpixels $bpT $bpB $bpL $bpR $pixels
            $VERSION
          );

$id = $0;
$id =~ s:.*/::;
$VERSION = "0.5";

$bmode   = 'none';
$bpT = $bpB = $bpL = $bpR = 1;
$pixels  = 10;

while (defined($ARGV[0]) and $ARGV[0] =~ /^-(.*)/) {
 $arg = $1; # stripped of first hyphen
 shift;
 if ($arg eq '-help' or $arg eq '-version' or $arg eq 'v') {
   &usage(0);

 } elsif ($arg eq 'b' or $arg eq '-border') {
   $bmode = shift;
   if ($bmode eq 'none' or $bmode eq 'dark' or $bmode eq 'light') {
     1; # valid mode that requires no processing now
   } elsif ($bmode eq 'darker' or $bmode eq 'lighter') {
     $bmode =~ s/er$//;

   } elsif ($bmode eq 'black') {
     ($br, $bg, $bb) = (   0,   0,   0 );

   } elsif ($bmode eq 'white') {
     ($br, $bg, $bb) = ( 255, 255, 255 );

   } elsif ($bmode eq 'red') {
     ($br, $bg, $bb) = ( 255,   0,   0 );

   } elsif ($bmode eq 'green') {
     ($br, $bg, $bb) = (   0, 255,   0 );

   } elsif ($bmode eq 'blue') {
     ($br, $bg, $bb) = (   0,   0, 255 );

   } elsif ($bmode =~ /^fixed:(\d+:\d+:\d+)$/) {
     $tri = $1;
     $bmode = 'fixed';
     ($br, $bg, $bb) = split(/:/, $tri, 3)

   } elsif ($bmode =~ /^fixed:([0-9a-fA-F]{6})$/) {
     $tri = $1;
     $bmode = 'fixed';
     ($br, $bg, $bb) = hextriplettoraw($tri);
     $br = ord($br);
     $bg = ord($bg);
     $bb = ord($bb);

   } else {
     $err = 1;
     warn "$id: Invalid mode for -b (--border)\n";
   }

 } elsif ($arg eq 'e' or $arg eq '-borderpixels') {
   $bpixels = shift;
   if ($bpixels =~ /^(\d+),(\d+),(\d+),(\d+)$/) {
     $bpT = $1;
     $bpB = $2;
     $bpL = $3;
     $bpR = $4;
     $bpixels = '';
   }
   elsif ($bpixels =~ /^[1-9]\d*$/) {
     $bpT = $bpB = int($bpixels / 2);
     if ($bpixels % 2) {
       $bpT ++;
     }
     $bpL = $bpT;
     $bpR = $bpR;
   }
   else {
     $err = 1;
     warn "$id: Invalid pixel value for -e (--borderpixels)\n";
   }

 } elsif ($arg eq 'p' or $arg eq '-pixels') {
   $pixels = shift;
   if ($pixels !~ /^[1-9]\d*$/) {
     $err = 1;
     warn "$id: Invalid pixel value for -p (--pixels)\n";
   }

 } elsif ($arg eq '-') {
   last;

 } else {
   $err = 1;
   warn "$id: unrecognized argument: -$arg\n";
 }
}

if ($err) {
 die "Use --help for usage\n";
}

$file = shift;

if(!defined($file)) { $file = '-'; }

if(!open(PPM, "< $file")) {
 die "$id: Cannot open $file: $!\n";
}

$inforef = readppmheader(\*PPM);

if ($$inforef{error}) {
 die "$id: $file: $$inforef{error}\n";
}
if ($$inforef{bgp} ne 'p') {
 die "$id: $file is not a ppm file\n";
}

# No border overrides any specified border size
if ($bmode eq 'none') {
 $bpT = $bpB = $bpL = $bpR = 0;
}

printf("P6\n%d %d\n%d\n", $$inforef{width}  * ($bpL + $bpR + $pixels),
                         $$inforef{height} * ($bpT + $bpB + $pixels),
                         255);


# If we can, calculate the border stuff now.
if($bmode ne 'none') {
 $pc = $bpL + $bpR + $pixels;  # width of border + cell

 if(($bmode ne 'light') and ($bmode ne 'dark')) {
   $pix = $Image::PPMlib::decraw{$br} .
          $Image::PPMlib::decraw{$bg} .
          $Image::PPMlib::decraw{$bb};
 }
}


# loop i: each line of height
for ($i = 0; $i < $$inforef{height}; $i ++) {
 @line = readpixels_dec(\*PPM, $$inforef{type}, $$inforef{width});

 for($k = 0; $k < $bpT + $bpB + $pixels; $k ++) {
   $out[$k] = '';
 }

 # loop j: each pixel in the line
 for($j = 0; $j < @line; $j ++) {

   # figure out per-pixel borders
   if ($bmode eq 'light') {
     $br = $line[$j][0] * 11 / 10; # mult by 1.1 with 'use integer'
     $bg = $line[$j][1] * 11 / 10; # mult by 1.1 with 'use integer'
     $bb = $line[$j][2] * 11 / 10; # mult by 1.1 with 'use integer'
     $br = ($br>255)? 255 : $br;
     $bg = ($bg>255)? 255 : $bg;
     $bb = ($bb>255)? 255 : $bb;

     $pix = $Image::PPMlib::decraw{$br} .
            $Image::PPMlib::decraw{$bg} .
            $Image::PPMlib::decraw{$bb};
   } elsif ($bmode eq 'dark') {
     $br = $line[$j][0] *  9 / 10; # mult by 0.9 with 'use integer'
     $bg = $line[$j][1] *  9 / 10; # mult by 0.9 with 'use integer'
     $bb = $line[$j][2] *  9 / 10; # mult by 0.9 with 'use integer'

     $pix = $Image::PPMlib::decraw{$br} .
            $Image::PPMlib::decraw{$bg} .
            $Image::PPMlib::decraw{$bb};
   }

   # if any border, apply top and left now
   if($bmode ne 'none' and ($bpT or $bpL)) {

     for ($k = 0; $k < $bpT; $k ++) {  # top border, top $bpT rows
       $out[$k] .= $pix x $pc;
     }

     for ($k = 0; $k < $pixels; $k ++) {       # left border, after $bpT rpws
       $out[$k + $bpT] .= $pix x $bpL;
     }
   }

   # main pixel body
   $mpix = $Image::PPMlib::decraw{$line[$j][0]} .
           $Image::PPMlib::decraw{$line[$j][1]} .
           $Image::PPMlib::decraw{$line[$j][2]};
   for ($k = 0; $k < $pixels; $k ++) { # inside main pixel, after $bpT rows
     $out[$k + $bpT] .= $mpix x $pixels;
   }


   # if any border, apply bottom and right now
   if($bmode ne 'none' and ($bpB or $bpR)) {

     for ($k = 0; $k < $bpB; $k ++) {  # bottom border, after $bpT + $pixels
       $out[$k + $pixels + $bpT] .= $pix x $pc;
     }

     for ($k = 0; $k < $pixels; $k ++) { # right border, after $bpT rows
       $out[$k + $bpT] .= $pix x $bpR;
     }
   }

 } # end j: per pixel loop

 for($k = 0; $k < $bpT + $bpB + $pixels; $k ++) {
   # if no border, those strings will still be '' and are safe to print
   print $out[$k];
 }


 if(@line != $$inforef{width}) {
   warn "$id: ran out of pixels prematurely\n";
   last;
 }

} # for line of height


sub usage($) {
 my $rc = shift;

 print STDERR <<"ProgramUsage";
$id version $VERSION usage:

 ppmmosaic reads PPM(5) files and makes larger pixelated versions of them,
 with several border options.

Arguments:

 -b MODE    --border MODE           MODE can be black, white, red, green,
                                    blue, fixed:RGB, lighter, darker, or
                                    none. RGB can 6 hex digits or a colon-
                                    seperated decimal triple. 'lighter' and
                                    'darker' are 10% changed from inner pixel
 -e SIZE    --borderpixels SIZE     make the border be SIZE pixels (total, if
                                    odd top and left borders will be larger)
 -e T,B,L,R --borderpixels T,B,L,R  set sizes for Top, Bottom, Left, and
                                    Right borders
 -p SIZE    --pixels SIZE           make the tile be SIZE pixels (plus border)
 --                                 end arguments

bordermode defaults to none, borderpixels defaults to 1, pixels defaults to 10
Examples:

 ppmmosaic -e 5 -p 20 -b fixed:255:150:200 foo.ppm > new-foo.ppm
       If foo.ppm was 10x10, the new image will be 250x250, with pink
       borders 3 pixels on top and left, 2 pixels on bottom and right
       around each of the original pixels, which will now be 20x20 in
       size.

 ppmmosaic --borderpixels 2 --border fixed:808080 --pixels 6 bar.ppm \
 > new-bar.ppm
       Image new-bar.ppm will be 8 times larger than bar.ppm with 1 pixel
       all around gray borders on the 6x6 tiles from bar.ppm, looking
       something like a mosaic complete with grout.

 ppmmosaic -e 1,0,0,0 --border black --pixels 1 bar.ppm > new-bar.ppm
       Image new-bar.ppm will be twice as tall with a black line between
       each row. If bar.ppm had previously been compressed 50% vertically,
       it now has an early CRT scan-line look to it.
ProgramUsage
 exit $rc;
}

__END__

=pod

=head1 NAME

ppmmosaic - make mosaic images by expanding pixels into bordered tiles

=head1 DESCRIPTION

ppmmosaic reads PPM(5) files and makes larger pixelated versions of them,
with several border options. Such images can look like simple block mosaics,
eg pick a big value for inner pixel size, and small border evenly sized on
all edges. Or venetian blind effects can be created by having borders in
one dimension only.

Options:

=over 4

=item *

-b MODE    --border MODE

MODE can be C<black>, C<white>, C<red>, C<green>,
C<blue>, C<fixed:>I<RGB>, C<lighter>, C<darker>, or
C<none>.

For fixed color borders, the RGB value can 6 hex digits (eg "99CC33")
or a colon-seperated decimal triple (eg "153:204:51"). The C<black>,
C<white>, etc, border options are short hand for C<fixed:000000>,
C<fixed:FFFFFF>, etc.

The 'lighter' and 'darker' options are 10% changed from inner pixel.

Default is C<none>.

=item *

-e SIZE    --borderpixels SIZE

Makes the border be SIZE pixels total. If SIZE is
odd, the top and left borders will be larger.
So C<-e 5> is equivilent to C<-e 3,2,3,2>
making the top and left borders three pixels,
and the bottom and right borders two pixels.

Default is equivilent to C<-e 2>.

=item *

-e T,B,L,R   --borderpixels T,B,L,R

Sets the sizes for Top, Bottom, Left, and Right borders
individually.

Default is equivilent to C<-e 1,1,1,1>

=item *

-p SIZE    --pixels SIZE

Makes the inner pixel tile be SIZE pixels. The border goes around
this inner pixel.

Default is C<10>.

=item *

--

Marks the end of the arguments

=item *

--help

Show a help message and exit.

=item *

--version

Same as C<--help>.

=back

=head1 COPYRIGHT

Copyright 2003 by Eli the Bearded / Benjamin Elijah Griffin.
Released under the same license(s) as Perl.

=head1 AUTHOR

Eli the Bearded originally the Image::PPMlib to make a script
very much like this one easier to code.

=head1 CPAN INFO

=head1 SCRIPT CATEGORIES

Image

=head1 README

ppmmosaic - make mosaic images by expanding pixels into bordered tiles

=head1 PREREQUISITES

This uses the C<strict>, C<vars>, C<integer>, and C<Image::PPMlib> modules.

=head1 COREQUISITES

None.

=head1 OSNAMES

Should be OS independent.

=cut

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.