From 1fd361a1ea06e44286c213ca1f814f49306fdc43 Mon Sep 17 00:00:00 2001 From: giraffedata Date: Sat, 19 Aug 2006 03:12:28 +0000 Subject: Create Subversion repository git-svn-id: http://svn.code.sf.net/p/netpbm/code/trunk@1 9d0c8265-081b-0410-96cb-a4ca84ce46f8 --- editor/ppmfade | 309 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 309 insertions(+) create mode 100755 editor/ppmfade (limited to 'editor/ppmfade') diff --git a/editor/ppmfade b/editor/ppmfade new file mode 100755 index 00000000..2507eaf2 --- /dev/null +++ b/editor/ppmfade @@ -0,0 +1,309 @@ +#!/usr/bin/perl -w +#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- +# +# This program creates a fade (a sequence of frames) between two images. +# +# By Bryan Henderson, Olympia WA; March 2000 +# +# Contributed to the public domain by its author. +# +# Inspired by the program Pbmfade by Wesley C. Barris of AHPCRC, +# Minnesota Supercomputer Center, Inc. January 7, 1994. Pbmfade does +# much the same thing, but handles non-Netpbm formats too, and is +# implemented in a more primitive language. +# +#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- +use strict; + +my $SPREAD = 1; +my $SHIFT = 2; +my $RELIEF = 3; +my $OIL = 4; +my $EDGE = 5; +my $BENTLEY = 6; +my $BLOCK = 7; +my $MIX = 8; +# +# Set some defaults. +# +my $nframes = 30; # total number of files created (1 sec) +my $first_file = "undefined"; +my $last_file = "undefined"; +my $base_name = "fade"; # default base name of output files +my $image = "ppm"; # default output storage format +my $mode = $SPREAD; # default fading mode +# +# Check those command line args. +# +if (@ARGV == 0) { + usage(); +} + +my $n; # argument number + +for ($n = 0; $n < @ARGV; $n++) { + if ("$ARGV[$n]" eq "-f") { + $n++; + $first_file = $ARGV[$n]; + if (-e $first_file) { + } else { + print "I can't find $first_file\n"; + exit 20; + } + } elsif ($ARGV[$n] eq "-l") { + $n++; + $last_file = $ARGV[$n]; + if (-e $last_file) { + } else { + print "I can't find $last_file\n"; + exit 20; + } + } elsif ($ARGV[$n] eq "-base") { + $n++; + $base_name = $ARGV[$n]; + } elsif ($ARGV[$n] eq "-spread") { + $mode = $SPREAD; + } elsif ($ARGV[$n] eq "-shift") { + $mode = $SHIFT; + } elsif ($ARGV[$n] eq "-relief") { + $mode = $RELIEF; + } elsif ($ARGV[$n] eq "-oil") { + $mode = $OIL; + } elsif ("$ARGV[$n]" eq "-edge") { + $mode = $EDGE; + } elsif ("$ARGV[$n]" eq "-bentley") { + $mode = $BENTLEY; + } elsif ("$ARGV[$n]" eq "-block") { + $mode = $BLOCK; + } elsif ("$ARGV[$n]" eq "-mix") { + $mode = $MIX; + } elsif ($ARGV[$n] eq "-help" || $ARGV[$n] eq "-h") { + usage(); + } else { + print "Unknown argument: $ARGV[$n]\n"; + exit 100; + } +} +# +# Define a couple linear ramps. +# +# We don't use element 0 of these arrays. +my @spline10 = (0, 0, 0.11, 0.22, 0.33, 0.44, 0.55, 0.66, 0.77, 0.88, 1.0); +my @spline20 = (0, 0, 0.05, 0.11, 0.16, 0.21, 0.26, 0.32, 0.37, 0.42, 0.47, + 0.53, 0.58, 0.63, 0.69, 0.74, 0.79, 0.84, 0.89, 0.95, 1.0); +# +# Just what are we supposed to do? +# +my ($height, $width); # width and height of our frames +if ($first_file ne "undefined") { + if ((`pnmfile $first_file` =~ m{\b(\d+)\sby\s(\d+)} )) { + $width = $1; $height = $2; + } else { + print("Unrecognized results from pnmfile on $first_file.\n"); + exit(50); + } +} elsif ($last_file ne "undefined") { + if ((`pnmfile $last_file` =~ m{\b(\d+)\sby\s(\d+)} )) { + $width = $1; $height = $2; + } else { + print("Unrecognized results from pnmfile on $first_file.\n"); + exit(50); + } +} else { + print("ppmfade: You must specify -f or -l (or both)\n"); + exit(90); +} + +print("Frames are " . $width . "W x " . $height . "H\n"); + +if ($first_file eq "undefined") { + print "Fading from black to "; + system("ppmmake \\#000 $width $height >junk1$$.ppm"); +} else { + print "Fading from $first_file to "; + system("cp", $first_file, "junk1$$.ppm"); +} + +if ($last_file eq "undefined") { + print "black.\n"; + system("ppmmake \\#000 $width $height >junk2$$.ppm"); +} else { + print "$last_file\n"; + system("cp", $last_file, "junk2$$.ppm"); +} + +# +# Perform the fade. +# + +# Here's what our temporary files are: +# junk1$$.ppm: The original (fade-from) image +# junk2$$.ppm: The target (fade-from) image +# junk3$$.ppm: The frame of the fade for the current iteration of the +# the for loop. +# junk1a$$.ppm: If the fade involves a ppmmix sequence from one intermediate +# image to another, this is the first frame of that +# sequence. +# junk2a$$.ppm: This is the last frame of the above-mentioned ppmmix sequence + +my $i; # Frame number +for ($i = 1; $i <= $nframes; $i++) { + print("Creating $i of $nframes...\n"); + if ($mode eq $SPREAD) { + if ($i <= 10) { + my $n = $spline20[$i] * 100; + system("ppmspread $n junk1$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n; + $n = $spline20[$i] * 100; + system("ppmspread $n junk1$$.ppm >junk1a$$.ppm"); + $n = (1-$spline20[$i-10]) * 100; + system("ppmspread $n junk2$$.ppm >junk2a$$.ppm"); + $n = $spline10[$i-10]; + system("ppmmix $n junk1a$$.ppm junk2a$$.ppm >junk3$$.ppm"); + } else { + my $n = (1-$spline20[$i-10])*100; + system("ppmspread $n junk2$$.ppm >junk3$$.ppm"); + } + } elsif ($mode eq $SHIFT) { + if ($i <= 10) { + my $n = $spline20[$i] * 100; + system("ppmshift $n junk1$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n; + $n = $spline20[$i] * 100; + system("ppmshift $n junk1$$.ppm >junk1a$$.ppm"); + $n = (1-$spline20[$i-10])*100; + system("ppmshift $n junk2$$.ppm >junk2a$$.ppm"); + $n = $spline10[$i-10]; + system("ppmmix $n junk1a$$.ppm junk2a$$.ppm >junk3$$.ppm"); + } else { + my $n = (1-$spline20[$i-10]) * 100; + system("ppmshift $n junk2$$.ppm >junk3$$.ppm"); + } + } elsif ($mode eq $RELIEF) { + if ($i == 1) { + system("ppmrelief junk1$$.ppm >junk1r$$.ppm"); + } + if ($i <= 10) { + my $n = $spline10[$i]; + system("ppmmix $n junk1$$.ppm junk1r$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n = $spline10[$i-10]; + system("ppmmix $n junk1r$$.ppm junk2r$$.ppm >junk3$$.ppm"); + } else { + my $n = $spline10[$i-20]; + system("ppmmix $n junk2r$$.ppm junk2$$.ppm >junk3$$.ppm"); + } + if ($i == 10) { + system("ppmrelief junk2$$.ppm >junk2r$$.ppm"); + } + } elsif ($mode eq $OIL) { + if ($i == 1) { + system("ppmtopgm junk1$$.ppm | pgmoil >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk1o$$.ppm"); + } + if ($i <= 10) { + my $n = $spline10[$i]; + system("ppmmix $n junk1$$.ppm junk1o$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n = $spline10[$i-10]; + system("ppmmix $n junk1o$$.ppm junk2o$$.ppm >junk3$$.ppm"); + } else { + my $n = $spline10[$i-20]; + system("ppmmix $n junk2o$$.ppm junk2$$.ppm >junk3$$.ppm"); + } + if ($i == 10) { + system("ppmtopgm junk2$$.ppm | pgmoil >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk2o$$.ppm"); + } + } elsif ($mode eq $EDGE) { + if ($i == 1) { + system("ppmtopgm junk1$$.ppm | pgmedge >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk1o$$.ppm"); + } + if ($i <= 10) { + my $n = $spline10[$i]; + system("ppmmix $n junk1$$.ppm junk1o$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n = $spline10[$i-10]; + system("ppmmix $n junk1o$$.ppm junk2o$$.ppm >junk3$$.ppm"); + } else { + my $n = $spline10[$i-20]; + system("ppmmix $n junk2o$$.ppm junk2$$.ppm >junk3$$.ppm"); + } + if ($i == 10) { + system("ppmtopgm junk2$$.ppm | pgmedge >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk2o$$.ppm"); + } + } elsif ($mode eq $BENTLEY) { + if ($i == 1) { + system("ppmtopgm junk1$$.ppm | pgmbentley >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk1o$$.ppm"); + } + if ($i <= 10) { + my $n = $spline10[$i]; + system("ppmmix $n junk1$$.ppm junk1o$$.ppm >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n = $spline10[$i-10]; + system("ppmmix $n junk1o$$.ppm junk2o$$.ppm >junk3$$.ppm"); + } else { + my $n = $spline10[$i-20]; + system("ppmmix $n junk2o$$.ppm junk2$$.ppm >junk3$$.ppm"); + } + if ($i == 10) { + system("ppmtopgm junk2$$.ppm | pgmbentley >junko$$.ppm"); + system("rgb3toppm junko$$.ppm junko$$.ppm junko$$.ppm " . + ">junk2o$$.ppm"); + } + } elsif ($mode eq $BLOCK) { + if ($i <= 10) { + my $n = 1 - 1.9*$spline20[$i]; + system("pamscale $n junk1$$.ppm | " . + "pamscale -width $width -height $height >junk3$$.ppm"); + } elsif ($i <= 20) { + my $n = $spline10[$i-10]; + system("ppmmix $n junk1a$$.ppm junk2a$$.ppm >junk3$$.ppm"); + } else { + my $n = 1 - 1.9*$spline20[31-$i]; + system("pamscale $n junk2$$.ppm | " . + "pamscale -width $width -height $height >junk3$$.ppm"); + } + if ($i == 10) { + system("cp", "junk3$$.ppm", "junk1a$$.ppm"); + system("pamscale $n junk2$$.ppm | " . + "pamscale -width $width -height $height >junk2a$$.ppm"); + } + } elsif ($mode eq $MIX) { + my $fade_factor = sqrt(1/($nframes-$i+1)); + system("ppmmix $fade_factor junk1$$.ppm junk2$$.ppm >junk3$$.ppm"); + } else { + print("Internal error: impossible mode value '$mode'\n"); + } + + my $outfile = sprintf("%s.%04d.ppm", $base_name, $i); + system("cp", "junk3$$.ppm", $outfile); +} + +# +# Clean up shop. +# +system("rm junk*$$.ppm"); + +exit(0); + + + +sub usage() { + print "Usage: ppmfade [-f first_file] [-l last_file]\n"; + print " [-spread|-relief|-oil|-edge|-bentley|-block]\n"; + print " [-base basename]\n"; + print "Notes: Default base: fade\n"; + print " The resulting image files will be named fade.NNNN.ppm.\n"; + exit(100); +} -- cgit 1.4.1