ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/fieldcomb.csh
Revision: 2.2
Committed: Fri Sep 2 04:24:37 2005 UTC (18 years, 6 months ago) by greg
Content type: application/x-csh
Branch: MAIN
Changes since 2.1: +4 -2 lines
Log Message:
Started scanline counting from top rather than bottom

File Contents

# Content
1 #!/bin/csh -f
2 # RCSid $Id$
3 #
4 # Combine alternate lines in full frames for field rendering
5 #
6 # Expects numbered frames on command line, as given by ranimate
7 #
8 # If an odd number of frames is provided, the spare frame at the
9 # end is linked to $spare_name for the next run
10 #
11 # Written by Greg Ward for Iebele Atelier in August 2005
12 #
13 set spare_name=spare_fieldcomb_frame.pic
14 if ($#argv > 1) then
15 if ("$argv[1]" == "-r") then
16 set remove_orig
17 shift argv
18 endif
19 endif
20 if ($#argv < 2) then
21 echo "Usage: $0 [-r] field1.pic field2.pic .."
22 exit 1
23 endif
24 set f1=$argv[1]:q
25 set ext=$f1:e
26 set basenm="`echo $f1:q | sed 's/[0-9]*\.'$ext'//'`"
27 set curfi=`echo $f1:q | sed 's/^[^1-9]*\(.[0-9]*\)\.'$ext'$/\1/'`
28 set fields=($argv[*]:q)
29 if (-r $spare_name) then
30 set fields=($spare_name $fields:q)
31 @ curfi--
32 endif
33 @ curfr = $curfi / 2
34 set curfi=1
35 while ($curfi < $#fields)
36 @ nextfi = $curfi + 1
37 pcomb -e 'ro=ri(fld); go=gi(fld); bo=bi(fld)' \
38 -e 'yd=yres-1-y; odd=.5*yd-floor(.5*yd)-.25' \
39 -e 'fld=if(odd,1,2)' \
40 $fields[$curfi]:q $fields[$nextfi]:q \
41 > "${basenm}C$curfr.$ext"
42 if ($?remove_orig) rm $fields[$curfi]:q $fields[$nextfi]:q
43 @ curfr++
44 @ curfi = $nextfi + 1
45 end
46 rm -f $spare_name
47 if ($curfi == $#fields) ln "${basenm}$curfi.$ext" $spare_name