From: <bru...@us...> - 2006-12-16 21:25:10
|
Revision: 632 http://svn.sourceforge.net/panotools/?rev=632&view=rev Author: brunopostle Date: 2006-12-16 13:25:10 -0800 (Sat, 16 Dec 2006) Log Message: ----------- Add warning about unfixed bug in jpeg2qtvr Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2006-12-16 07:33:54 UTC (rev 631) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2006-12-16 21:25:10 UTC (rev 632) @@ -41,6 +41,8 @@ my $width = pack4B (1024); my $height = pack4B (768); +warn "Input JPEG images must by 1920x1920 pixels, this will be fixed in the next release"; + die "Usage: $0 front.jpg right.jpg back.jpg left.jpg up.jpg down.jpg > output.mov" unless @ARGV == 6; # slurp in the JPEG data This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2006-12-23 17:53:28
|
Revision: 637 http://svn.sourceforge.net/panotools/?rev=637&view=rev Author: brunopostle Date: 2006-12-23 09:53:28 -0800 (Sat, 23 Dec 2006) Log Message: ----------- Fix to allow cubefaces with sizes other than 1920x1920 pixels Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2006-12-21 10:17:29 UTC (rev 636) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2006-12-23 17:53:28 UTC (rev 637) @@ -41,8 +41,6 @@ my $width = pack4B (1024); my $height = pack4B (768); -warn "Input JPEG images must by 1920x1920 pixels, this will be fixed in the next release"; - die "Usage: $0 front.jpg right.jpg back.jpg left.jpg up.jpg down.jpg > output.mov" unless @ARGV == 6; # slurp in the JPEG data @@ -73,6 +71,9 @@ my $image5 = <FH>; close FH; +my ($width_image, $height_image) = JPEGsize ($image0); +die 'Can\'t determine JPEG dimensions' unless ($width_image == $height_image); + # these will be filled later my $offsetA = '????'; @@ -514,8 +515,10 @@ "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". - "\x{40}\x{00}\x{00}\x{00}\x{07}\x{80}\x{00}\x{00}". - "\x{07}\x{80}\x{00}\x{00}" + "\x{40}\x{00}". + pack4B ($width_image). + pack4B ($width_image). + "\x{00}\x{00}" ). atom ('edts', @@ -587,7 +590,11 @@ "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{00}appl". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{02}\x{00}". - "\x{07}\x{80}\x{07}\x{80}\x{00}\x{48}\x{00}\x{00}". + + pack2B ($width_image). + pack2B ($width_image). + + "\x{00}\x{48}\x{00}\x{00}". "\x{00}\x{48}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{0c}". "Photo - JPEG". @@ -747,8 +754,10 @@ "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{42}\x{b4}\x{00}\x{00}\x{00}\x{00}\x{1e}\x{00}". - "\x{00}\x{00}\x{07}\x{80}\x{00}\x{04}\x{00}\x{01}". - "\x{00}\x{00}\x{1e}\x{00}\x{00}\x{00}\x{07}\x{80}". + "\x{00}\x{00}\x{07}\x{80}". # image width? + "\x{00}\x{04}\x{00}\x{01}". + "\x{00}\x{00}\x{1e}\x{00}". + "\x{00}\x{00}\x{07}\x{80}". # image width? "\x{00}\x{04}\x{00}\x{01}\x{00}\x{00}\x{00}\x{01}". "cube\x{00}\x{00}\x{00}\x{00}" ). @@ -832,3 +841,9 @@ return pack2B (length $data) . $lang . $data; } +sub JPEGsize +{ + my $image = shift; + $image =~ /.*?\x{ff}\x{c0}...(.)(.)(.)(.)/; + ((256 * ord ($3)) + ord ($4), (256 * ord ($1)) + ord ($2)); +} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-02-12 22:12:04
|
Revision: 672 http://svn.sourceforge.net/panotools/?rev=672&view=rev Author: brunopostle Date: 2007-02-12 14:11:56 -0800 (Mon, 12 Feb 2007) Log Message: ----------- whitespace changes, first half of preview track patch Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-08 22:34:14 UTC (rev 671) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-12 22:11:56 UTC (rev 672) @@ -38,8 +38,8 @@ # pixel size of the view window -my $width = pack4B (1024); -my $height = pack4B (768); +my $width_window = pack4B (1024); +my $height_window = pack4B (768); die "Usage: $0 front.jpg right.jpg back.jpg left.jpg up.jpg down.jpg > output.mov" unless @ARGV == 6; @@ -78,6 +78,7 @@ my $offsetA = '????'; my $offsetB = '????'; + my $offset0 = '????'; my $offset1 = '????'; my $offset2 = '????'; @@ -111,14 +112,16 @@ "\x{00}\x{00}\x{00}\x{00}". $date.$date. "\x{00}\x{00}\x{0e}\x{10}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{01}\x{00}\x{00}". + "\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{01}\x{00}\x{00}". "\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{40}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{0e}\x{10}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{04}" @@ -131,8 +134,9 @@ atom ('tkhd', "\x{00}\x{00}\x{00}\x{0f}". $date.$date. - "\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{00}\x{00}\x{01}". # track number + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{0e}\x{10}". # duration "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". @@ -140,15 +144,17 @@ "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{40}\x{00}". - $width.$height. + $width_window.$height_window. "\x{00}\x{00}" ). atom ('edts', atom ('elst', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}" ) ). @@ -167,8 +173,9 @@ atom ('mdhd', "\x{00}\x{00}\x{00}\x{00}". $date.$date. - "\x{00}\x{00}\x{0e}\x{10}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{00}\x{00}\x{00}" + "\x{00}\x{00}\x{0e}\x{10}". # time scale + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}" ). atom ('hdlr', @@ -182,11 +189,14 @@ # [Subrecursing 'minf' atom] - atom ('gmhd', + atom ('gmhd', # base media header - atom ('gmin', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{40}\x{80}\x{00}". - "\x{80}\x{00}\x{80}\x{00}\x{00}\x{00}\x{00}\x{00}" + atom ('gmin', # base media info + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{40}". + "\x{80}\x{00}\x{80}\x{00}\x{80}\x{00}". + "\x{00}\x{00}". + "\x{00}\x{00}" ) ). @@ -230,10 +240,14 @@ "\x{00}\x{00}\x{00}\x{00}". atom ('vrsc', - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{02}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{02}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}" ). @@ -289,7 +303,8 @@ atom ('stts', "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{0e}\x{10}" + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}" ). atom ('stsc', @@ -335,11 +350,11 @@ # [Subrecursing 'trak' atom] atom ('tkhd', - "\x{00}\x{00}\x{00}\x{0f}". $date.$date. - "\x{00}\x{00}\x{00}\x{02}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{00}\x{00}\x{02}". # track number + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{0e}\x{10}". # duration "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". @@ -347,7 +362,7 @@ "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{40}\x{00}". - $width.$height. + $width_window.$height_window. "\x{00}\x{00}" ). @@ -359,8 +374,10 @@ atom ('edts', atom ('elst', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}" ) @@ -381,8 +398,8 @@ atom ('mdhd', "\x{00}\x{00}\x{00}\x{00}". $date.$date. - "\x{00}\x{00}\x{0e}\x{10}". - "\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{00}\x{0e}\x{10}". # time scale + "\x{00}\x{00}\x{0e}\x{10}". # duration "\x{00}\x{00}\x{00}\x{00}" ). @@ -398,11 +415,14 @@ # [Subrecursing 'minf' atom] - atom ('gmhd', + atom ('gmhd', # base media header - atom ('gmin', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{40}\x{80}\x{00}". - "\x{80}\x{00}\x{80}\x{00}\x{00}\x{00}\x{00}\x{00}" + atom ('gmin', # base media info + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{40}". + "\x{80}\x{00}\x{80}\x{00}\x{80}\x{00}". + "\x{00}\x{00}". + "\x{00}\x{00}" ) ). @@ -440,7 +460,8 @@ atom ('stts', "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{0e}\x{10}" + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}" ). atom ('stsc', @@ -507,10 +528,11 @@ atom ('tkhd', "\x{00}\x{00}\x{00}\x{0e}". $date.$date. - "\x{00}\x{00}\x{00}\x{03}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{0e}\x{10}". + "\x{00}\x{00}\x{00}\x{03}". # track number + "\x{00}\x{00}\x{00}\x{00}". # reserved + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". # reserved "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". @@ -524,8 +546,10 @@ atom ('edts', atom ('elst', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{01}\x{00}\x{00}" ) ). @@ -537,8 +561,9 @@ atom ('mdhd', "\x{00}\x{00}\x{00}\x{00}". $date.$date. - "\x{00}\x{00}\x{0e}\x{10}". - "\x{00}\x{00}\x{0e}\x{10}\x{00}\x{00}\x{00}\x{00}" + "\x{00}\x{00}\x{0e}\x{10}". # time scale + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}" ). atom ('hdlr', @@ -609,8 +634,10 @@ ). atom ('stsc', - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{01}" ). @@ -684,6 +711,7 @@ atom ('free', "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}" ); @@ -694,12 +722,13 @@ # this atom is optional, but useful to define the end of the file #Atom 0x000008AA (0x001E29FC) mdat -##atom ('wide', ''). -## +atom ('wide', ''). + ##"\x{00}\x{1e}\x{29}\x{fc}". "mdat". -## -##atom ('wide', ''). +atom ('wide', ''). +atom ('wide', ''). + "\x{00}\x{00}\x{00}\x{00}". "mdat"; my $A = @@ -707,7 +736,8 @@ "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". atom ('sean', - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{00}". atom ('ndhd', @@ -724,7 +754,8 @@ "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". atom ('sean', - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{02}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{02}". "\x{00}\x{00}\x{00}\x{00}". atom ('pdat', This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-02-15 22:44:40
|
Revision: 673 http://svn.sourceforge.net/panotools/?rev=673&view=rev Author: brunopostle Date: 2007-02-15 14:44:38 -0800 (Thu, 15 Feb 2007) Log Message: ----------- Change command-line interface completely to allow for future expansion. Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-12 22:11:56 UTC (rev 672) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-15 22:44:38 UTC (rev 673) @@ -22,7 +22,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. -our $VERSION = 0.02; +our $VERSION = 0.04; # http://wiki.multimedia.cx/index.php?title=Apple_QuickTime # http://developer.apple.com/documentation/QuickTime/InsideQT_QTVR/index.html @@ -30,50 +30,76 @@ # http://www.geocities.com/xhelmboyx/quicktime/formats/qti-layout.txt # http://www.geocities.com/xhelmboyx/quicktime/formats/qtm-layout.txt -# date is seconds since midnight, January 1, 1904 +my $opts = {}; -my $date = pack4B (time + 2082844800); +while (@ARGV) +{ + my ($key, $value) = split ('=', shift); + $opts->{$key} = $value; +} -my $name = "Cubic panorama created by jpeg2qtvr"; +my $date = $opts->{'--date'} || time; +my $name = $opts->{'--name'} || "Cubic panorama created by jpeg2qtvr"; +my $width_window = $opts->{'--width'} || 1024; +my $height_window = $opts->{'--height'} || 768; +my $outfile = $opts->{'--outfile'} || undef; +my $prefix = $opts->{'--prefix'} or die -# pixel size of the view window +"Usage: $0 [options] --prefix=PREFIX > OUTPUT -my $width_window = pack4B (1024); -my $height_window = pack4B (768); +eg. use --prefix=foo_ if the front, right, back, left, up and down JPEG tiles +are named foo_0.jpg, foo_1.jpg, foo_2.jpg, foo_3.jpg, foo_4.jpg and foo_5.jpg -die "Usage: $0 front.jpg right.jpg back.jpg left.jpg up.jpg down.jpg > output.mov" unless @ARGV == 6; +Options + --date date in seconds since January 1st 1970, defaults to current time + --name title of the panorama + --width preferred window width, defaults to 1024 + --height preferred window height, defaults to 768 + --outfile name for output mov file, otherwise result goes to STDOUT + +"; + # slurp in the JPEG data local ($/, *FH); -open (FH, $ARGV[0]) or die "can't open $ARGV[0]"; +open (FH, $prefix ."0.jpg") or die $!; my $image0 = <FH>; close FH; -open (FH, $ARGV[1]) or die "can't open $ARGV[1]"; +open (FH, $prefix ."1.jpg") or die $!; my $image1 = <FH>; close FH; -open (FH, $ARGV[2]) or die "can't open $ARGV[2]"; +open (FH, $prefix ."2.jpg") or die $!; my $image2 = <FH>; close FH; -open (FH, $ARGV[3]) or die "can't open $ARGV[3]"; +open (FH, $prefix ."3.jpg") or die $!; my $image3 = <FH>; close FH; -open (FH, $ARGV[4]) or die "can't open $ARGV[4]"; +open (FH, $prefix ."4.jpg") or die $!; my $image4 = <FH>; close FH; -open (FH, $ARGV[5]) or die "can't open $ARGV[5]"; +open (FH, $prefix ."5.jpg") or die $!; my $image5 = <FH>; close FH; my ($width_image, $height_image) = JPEGsize ($image0); die 'Can\'t determine JPEG dimensions' unless ($width_image == $height_image); +# date is seconds since midnight, January 1, 1904 + +$date = pack4B ($date + 2082844800); + +# pixel size of the view window + +$width_window = pack4B ($width_window); +$height_window = pack4B ($height_window); + # these will be filled later my $offsetA = '????'; @@ -844,7 +870,16 @@ } -print STDOUT $mov; +if ($outfile) +{ + open (OUTFILE, '> '. $opts->{'--outfile'}); + print OUTFILE $mov; + close OUTFILE; +} +else +{ + print STDOUT $mov; +} sub pack4B { @@ -878,3 +913,52 @@ $image =~ /.*?\x{ff}\x{c0}...(.)(.)(.)(.)/; ((256 * ord ($3)) + ord ($4), (256 * ord ($1)) + ord ($2)); } + +__END__ + +=head1 NAME + +jpeg2qtvr - Assemble Quicktime QTVR files from JPEG cubefaces + +=head1 Synopsis + + jpeg2qtvr --prefix=foo_ > my_panorama.mov + +=head1 DESCRIPTION + +This tool generates a cubic QTVR, consisting of six cube faces in JPEG format. +JPEG input files must all be square with the same dimensions, eg: 1920x1920. + +Cubefaces must be specified in a standard sequence: front, right, back, left, +up and down. + +=head1 Calling syntax + + jpeg2qtvr [options] --prefix=PREFIX > OUTPUT + +eg. use --prefix=foo_ if the front, right, back, left, up and down JPEG tiles +are named foo_0.jpg, foo_1.jpg, foo_2.jpg, foo_3.jpg, foo_4.jpg and foo_5.jpg + +Options: + + --date date in seconds since January 1st 1970, defaults to current time + --name title of the panorama + --width preferred window width, defaults to 1024 + --height preferred window height, defaults to 768 + --outfile name for output mov file, otherwise result goes to STDOUT + +=head1 License + +This program is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free Software +Foundation; either version 2 of the License, or (at your option) any later +version. + +=head1 See Also + +L<perl>, L<Panotools::Script> + +=head1 Author + +October 2006, Bruno Postle <bruno AT postle.net> + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-02-16 23:24:13
|
Revision: 674 http://svn.sourceforge.net/panotools/?rev=674&view=rev Author: brunopostle Date: 2007-02-16 15:24:08 -0800 (Fri, 16 Feb 2007) Log Message: ----------- Second half of preview track patch Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-15 22:44:38 UTC (rev 673) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-16 23:24:08 UTC (rev 674) @@ -43,6 +43,7 @@ my $width_window = $opts->{'--width'} || 1024; my $height_window = $opts->{'--height'} || 768; my $outfile = $opts->{'--outfile'} || undef; +my $do_preview = $opts->{'--preview'} || undef; my $prefix = $opts->{'--prefix'} or die "Usage: $0 [options] --prefix=PREFIX > OUTPUT @@ -57,6 +58,7 @@ --width preferred window width, defaults to 1024 --height preferred window height, defaults to 768 --outfile name for output mov file, otherwise result goes to STDOUT + --preview prefix for preview track JPEG tiles "; @@ -91,6 +93,38 @@ my ($width_image, $height_image) = JPEGsize ($image0); die 'Can\'t determine JPEG dimensions' unless ($width_image == $height_image); +my ($preview0, $preview1, $preview2, $preview3, $preview4, $preview5, $width_preview, $height_preview); + +if ($do_preview) +{ + open (FH, $do_preview ."0.jpg") or die $!; + $preview0 = <FH>; + close FH; + + open (FH, $do_preview ."1.jpg") or die $!; + $preview1 = <FH>; + close FH; + + open (FH, $do_preview ."2.jpg") or die $!; + $preview2 = <FH>; + close FH; + + open (FH, $do_preview ."3.jpg") or die $!; + $preview3 = <FH>; + close FH; + + open (FH, $do_preview ."4.jpg") or die $!; + $preview4 = <FH>; + close FH; + + open (FH, $do_preview ."5.jpg") or die $!; + $preview5 = <FH>; + close FH; + + ($width_preview, $height_preview) = JPEGsize ($preview0); + die 'Can\'t determine preview JPEG dimensions' unless ($width_preview == $height_preview); +} + # date is seconds since midnight, January 1, 1904 $date = pack4B ($date + 2082844800); @@ -112,6 +146,13 @@ my $offset4 = '????'; my $offset5 = '????'; +my $offset_preview0 = '????'; +my $offset_preview1 = '????'; +my $offset_preview2 = '????'; +my $offset_preview3 = '????'; +my $offset_preview4 = '????'; +my $offset_preview5 = '????'; + my $lengthA = '????'; my $lengthB = '????'; @@ -150,7 +191,7 @@ "\x{00}\x{00}\x{0e}\x{10}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{04}" + ($do_preview ? "\x{00}\x{00}\x{00}\x{05}" : "\x{00}\x{00}\x{00}\x{04}") ). atom ('trak', @@ -412,6 +453,7 @@ atom ('tref', atom ('imgt', + ($do_preview ? "\x{00}\x{00}\x{00}\x{04}" : ''). "\x{00}\x{00}\x{00}\x{03}" ) @@ -547,7 +589,7 @@ # [End subrecurse 'trak' atom] - atom ('trak', + ($do_preview ? atom ('trak', # [Subrecursing 'trak' atom] @@ -564,8 +606,8 @@ "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". "\x{40}\x{00}". - pack4B ($width_image). - pack4B ($width_image). + pack4B ($width_preview). + pack4B ($width_preview). "\x{00}\x{00}" ). @@ -642,8 +684,7 @@ "\x{00}\x{00}\x{00}\x{00}appl". "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{02}\x{00}". - pack2B ($width_image). - pack2B ($width_image). + pack2B ($width_preview). pack2B ($width_preview). "\x{00}\x{48}\x{00}\x{00}". "\x{00}\x{48}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". @@ -661,8 +702,12 @@ atom ('stsc', "\x{00}\x{00}\x{00}\x{00}". + + "\x{00}\x{00}\x{00}\x{02}". "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{05}". "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{02}". "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{01}" ). @@ -674,13 +719,178 @@ "\x{00}\x{00}\x{00}\x{00}". # number of items "\x{00}\x{00}\x{00}\x{06}". + pack4B (length $preview0). + pack4B (length $preview1). + pack4B (length $preview2). + pack4B (length $preview3). + pack4B (length $preview4). + pack4B (length $preview5) + ). + + atom ('stco', + # ver # flags + "\x{00}\x{00}\x{00}\x{00}". + # number entries (2) + "\x{00}\x{00}\x{00}\x{06}". + $offset_preview0. + $offset_preview1. + $offset_preview2. + $offset_preview3. + $offset_preview4. + $offset_preview5 + ) + +# [End subrecurse 'stbl' atom] + + ) + +# [End subrecurse 'minf' atom] + + ) + +# [End subrecurse 'mdia' atom] + + ) + +# [End subrecurse 'trak' atom] + + ) : ''). + + atom ('trak', + +# [Subrecursing 'trak' atom] + + atom ('tkhd', + "\x{00}\x{00}\x{00}\x{0e}". + $date.$date. + ($do_preview ? "\x{00}\x{00}\x{00}\x{04}" : "\x{00}\x{00}\x{00}\x{03}"). # track number + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{40}\x{00}". + pack4B ($width_image). # width + pack4B ($width_image). # height + "\x{00}\x{00}" + ). # tkhd + + atom ('edts', + + atom ('elst', + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}". # start time + "\x{00}\x{01}\x{00}\x{00}" # rate + ) # elst + ). # edts + + atom ('mdia', + +# [Subrecursing 'mdia' atom] + + atom ('mdhd', + "\x{00}\x{00}\x{00}\x{00}". + $date.$date. + "\x{00}\x{00}\x{0e}\x{10}". # time scale + "\x{00}\x{00}\x{0e}\x{10}". # duration + "\x{00}\x{00}\x{00}\x{00}" + ). # mdhd + + atom ('hdlr', + "\x{00}\x{00}\x{00}\x{00}mhlrvideappl". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}\x{00}\x{23}\x{19}". + "Apple Video Media Handler" + ). # hdlr + +# ReadAtom_HDLR: We found a 'vide' media! + + atom ('minf', + +# [Subrecursing 'minf' atom] + + atom ('vmhd', + "\x{00}\x{00}\x{00}\x{01}\x{00}\x{40}\x{80}\x{00}". + "\x{80}\x{00}\x{80}\x{00}" + ). # vmhd + + atom ('hdlr', + "\x{00}\x{00}\x{00}\x{00}dhlralisappl". + "\x{00}\x{00}\x{00}\x{01}\x{00}\x{01}\x{00}\x{2d}\x{18}". + "Apple Alias Data Handler" + ). # hdlr + + atom ('dinf', + +# [Subrecursing 'dinf' atom] + + atom ('dref', + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". + + atom ('alis', + "\x{00}\x{00}\x{00}\x{01}" + ) # alis + ) # dref + ). # dinf + +# [End subrecurse 'dinf' atom] + + atom ('stbl', + +# [Subrecursing 'stbl' atom] + + atom ('stsd', + + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{56}jpeg". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{00}appl". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{02}\x{00}". + + pack2B ($width_image). # image width + pack2B ($width_image). # image width + + "\x{00}\x{48}\x{00}\x{00}". + "\x{00}\x{48}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{01}\x{0c}". + "Photo - JPEG". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}\x{18}\x{ff}\x{ff}" + ). # stsd + + atom ('stts', + "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{06}\x{00}\x{00}\x{02}\x{58}" + ). # stts + + atom ('stsc', + "\x{00}\x{00}\x{00}\x{00}". + + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}" + ). # stsc + + atom ('stsz', + # ver # flags + "\x{00}\x{00}\x{00}\x{00}". + # standard size + "\x{00}\x{00}\x{00}\x{00}". + # number of items + "\x{00}\x{00}\x{00}\x{06}". pack4B (length $image0). pack4B (length $image1). pack4B (length $image2). pack4B (length $image3). pack4B (length $image4). pack4B (length $image5) - ). + ). # stsz atom ('stco', # ver # flags @@ -693,23 +903,23 @@ $offset3. $offset4. $offset5 - ) + ) # stco # [End subrecurse 'stbl' atom] - ) + ) # stbl # [End subrecurse 'minf' atom] - ) + ) # minf # [End subrecurse 'mdia' atom] - ) + ) # mdia # [End subrecurse 'trak' atom] - ). + ). # trak atom ('udta', atom ('ctyp', @@ -781,7 +991,8 @@ atom ('sean', "\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{02}". + ($do_preview ? "\x{00}\x{00}\x{00}\x{03}" + : "\x{00}\x{00}\x{00}\x{02}"). "\x{00}\x{00}\x{00}\x{00}". atom ('pdat', @@ -819,6 +1030,17 @@ "cube\x{00}\x{00}\x{00}\x{00}" ). + ($do_preview ? + atom ('tref', + "\x{00}\x{00}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{00}". + "imgt". + "\x{80}\x{00}\x{00}\x{00}". + "\x{00}\x{02}" + ) + : ''). + atom ('cuvw', "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}". @@ -850,6 +1072,27 @@ $lengthA = pack4B (length $A); $lengthB = pack4B (length $B); +if ($do_preview) +{ + $offset_preview0 = pack4B (length $mov); + $mov .= $preview0; + + $offset_preview1 = pack4B (length $mov); + $mov .= $preview1; + + $offset_preview2 = pack4B (length $mov); + $mov .= $preview2; + + $offset_preview3 = pack4B (length $mov); + $mov .= $preview3; + + $offset_preview4 = pack4B (length $mov); + $mov .= $preview4; + + $offset_preview5 = pack4B (length $mov); + $mov .= $preview5; +} + $offset0 = pack4B (length $mov); $mov .= $image0; @@ -946,6 +1189,7 @@ --width preferred window width, defaults to 1024 --height preferred window height, defaults to 768 --outfile name for output mov file, otherwise result goes to STDOUT + --preview prefix for preview track tiles =head1 License This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-02-18 10:16:42
|
Revision: 675 http://svn.sourceforge.net/panotools/?rev=675&view=rev Author: brunopostle Date: 2007-02-18 02:16:38 -0800 (Sun, 18 Feb 2007) Log Message: ----------- Fix preview track bug Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-16 23:24:08 UTC (rev 674) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-18 10:16:38 UTC (rev 675) @@ -703,11 +703,8 @@ atom ('stsc', "\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{02}". "\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{05}". "\x{00}\x{00}\x{00}\x{01}". - "\x{00}\x{00}\x{00}\x{02}". "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{01}" ). This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-02-18 23:48:30
|
Revision: 676 http://svn.sourceforge.net/panotools/?rev=676&view=rev Author: brunopostle Date: 2007-02-18 15:48:30 -0800 (Sun, 18 Feb 2007) Log Message: ----------- Allow setting pan/tilt/fov (ie yaw, pitch and vertical angle of view) Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-18 10:16:38 UTC (rev 675) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-02-18 23:48:30 UTC (rev 676) @@ -44,6 +44,12 @@ my $height_window = $opts->{'--height'} || 768; my $outfile = $opts->{'--outfile'} || undef; my $do_preview = $opts->{'--preview'} || undef; +my $pan = $opts->{'--pan'} || 0.0; +$pan += 360 if ($pan < 0); +my $tilt = $opts->{'--tilt'} || 0.0; +my $fov = $opts->{'--fov'} || 60.0; +my $minfov = $opts->{'--min-fov'} || 10.0; +my $maxfov = $opts->{'--max-fov'} || 120.0; my $prefix = $opts->{'--prefix'} or die "Usage: $0 [options] --prefix=PREFIX > OUTPUT @@ -58,6 +64,11 @@ --width preferred window width, defaults to 1024 --height preferred window height, defaults to 768 --outfile name for output mov file, otherwise result goes to STDOUT + --pan initial pan (yaw), defaults to 0.0 degrees + --tilt initial tilt (pitch), defaults to 0.0 degrees + --fov initial vertical angle of view, defaults to 60 degrees + --min-fov minimum vertical angle of view, defaults to 10 degrees + --max-fov maximum vertical angle of view, defaults to 120 degrees --preview prefix for preview track JPEG tiles "; @@ -996,34 +1007,25 @@ "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}". - - # TODO these are floats, need to figure-out which format - # minPan "\x{00}\x{02}\x{00}\x{00}". - # maxPan "\x{00}\x{00}\x{00}\x{01}". - # minTilt "\x{00}\x{00}\x{00}\x{00}". - # maxTilt "\x{00}\x{00}\x{00}\x{00}". - # minFieldOfView "\x{43}\x{b4}\x{00}\x{00}". - # maxFieldOfView "\x{c2}\x{34}\x{00}\x{00}". - # defaultPan "\x{42}\x{34}\x{00}\x{00}". - # defaultTilt - "\x{42}\x{48}\x{00}\x{00}". - # defaultFieldOfView + packfloat ($minfov). # minFieldOfView "\x{42}\x{b4}\x{00}\x{00}". - - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}". - "\x{42}\x{b4}\x{00}\x{00}\x{00}\x{00}\x{1e}\x{00}". - "\x{00}\x{00}\x{07}\x{80}". # image width? + packfloat ($pan). # defaultPan + packfloat ($tilt). # defaultTilt + packfloat ($fov). # defaultFieldOfView + "\x{00}\x{00}\x{1e}\x{00}". + pack4B ($width_image). "\x{00}\x{04}\x{00}\x{01}". "\x{00}\x{00}\x{1e}\x{00}". - "\x{00}\x{00}\x{07}\x{80}". # image width? - "\x{00}\x{04}\x{00}\x{01}\x{00}\x{00}\x{00}\x{01}". + pack4B ($width_image). + "\x{00}\x{04}\x{00}\x{01}". + "\x{00}\x{00}\x{00}\x{01}". "cube\x{00}\x{00}\x{00}\x{00}" ). @@ -1039,22 +1041,18 @@ : ''). atom ('cuvw', - "\x{00}\x{00}\x{00}\x{01}\x{00}\x{00}\x{00}\x{00}". + "\x{00}\x{00}\x{00}\x{01}". "\x{00}\x{00}\x{00}\x{00}". "\x{00}\x{00}\x{00}\x{00}". - # minFieldOfView + "\x{00}\x{00}\x{00}\x{00}". "\x{43}\x{b4}\x{00}\x{00}". - # maxFieldOfView "\x{c2}\x{b4}\x{00}\x{00}". - # defaultFieldOfView "\x{42}\x{b4}\x{00}\x{00}". - # defaultTilt - "\x{42}\x{48}\x{00}\x{00}". - # defaultPan ???? - "\x{42}\x{f0}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}". - "\x{42}\x{b4}\x{00}\x{00}" + packfloat ($minfov). # minFieldOfView + packfloat ($maxfov). # maxFieldOfView + packfloat ($pan). # defaultPan + packfloat ($tilt). # defaultTilt + packfloat ($fov) # defaultFieldOfView ) ); @@ -1135,6 +1133,15 @@ return chr(hex($1)). chr(hex($2)); } +sub packfloat +{ + my $bytes = pack ('f', shift); + $bytes =~ /(.)(.)(.)(.)/; + my $littleendian = $4.$3.$2.$1; + return $littleendian if (unpack("h*", pack("s", 1)) =~ /^1/); + return $bytes; +} + sub atom { my ($type, $data) = @_; @@ -1186,7 +1193,12 @@ --width preferred window width, defaults to 1024 --height preferred window height, defaults to 768 --outfile name for output mov file, otherwise result goes to STDOUT - --preview prefix for preview track tiles + --pan initial pan (yaw), defaults to 0.0 degrees + --tilt initial tilt (pitch), defaults to 0.0 degrees + --fov initial vertical angle of view, defaults to 60 degrees + --min-fov minimum vertical angle of view, defaults to 10 degrees + --max-fov maximum vertical angle of view, defaults to 120 degrees + --preview prefix for preview track JPEG tiles =head1 License This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-11-18 19:37:11
|
Revision: 744 http://panotools.svn.sourceforge.net/panotools/?rev=744&view=rev Author: brunopostle Date: 2007-11-18 11:37:16 -0800 (Sun, 18 Nov 2007) Log Message: ----------- More fixes for CRLF problems on Windows Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2007-11-18 19:36:27 UTC (rev 743) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2007-11-18 19:37:16 UTC (rev 744) @@ -78,26 +78,32 @@ local ($/, *FH); open (FH, $prefix ."0.jpg") or die $!; +binmode (FH, ':raw'); my $image0 = <FH>; close FH; open (FH, $prefix ."1.jpg") or die $!; +binmode (FH, ':raw'); my $image1 = <FH>; close FH; open (FH, $prefix ."2.jpg") or die $!; +binmode (FH, ':raw'); my $image2 = <FH>; close FH; open (FH, $prefix ."3.jpg") or die $!; +binmode (FH, ':raw'); my $image3 = <FH>; close FH; open (FH, $prefix ."4.jpg") or die $!; +binmode (FH, ':raw'); my $image4 = <FH>; close FH; open (FH, $prefix ."5.jpg") or die $!; +binmode (FH, ':raw'); my $image5 = <FH>; close FH; @@ -110,26 +116,32 @@ if ($do_preview) { open (FH, $do_preview ."0.jpg") or die $!; + binmode (FH, ':raw'); $preview0 = <FH>; close FH; open (FH, $do_preview ."1.jpg") or die $!; + binmode (FH, ':raw'); $preview1 = <FH>; close FH; open (FH, $do_preview ."2.jpg") or die $!; + binmode (FH, ':raw'); $preview2 = <FH>; close FH; open (FH, $do_preview ."3.jpg") or die $!; + binmode (FH, ':raw'); $preview3 = <FH>; close FH; open (FH, $do_preview ."4.jpg") or die $!; + binmode (FH, ':raw'); $preview4 = <FH>; close FH; open (FH, $do_preview ."5.jpg") or die $!; + binmode (FH, ':raw'); $preview5 = <FH>; close FH; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2008-05-15 18:29:36
|
Revision: 842 http://panotools.svn.sourceforge.net/panotools/?rev=842&view=rev Author: brunopostle Date: 2008-05-15 11:29:29 -0700 (Thu, 15 May 2008) Log Message: ----------- ftyp atom causes problems with freepv, though completely valid Modified Paths: -------------- trunk/Panotools-Script/bin/jpeg2qtvr Modified: trunk/Panotools-Script/bin/jpeg2qtvr =================================================================== --- trunk/Panotools-Script/bin/jpeg2qtvr 2008-05-10 22:48:47 UTC (rev 841) +++ trunk/Panotools-Script/bin/jpeg2qtvr 2008-05-15 18:29:29 UTC (rev 842) @@ -190,11 +190,11 @@ $mov = -atom ('ftyp', - "qt\x{20}\x{20}\x{20}\x{05}\x{03}\x{00}". - "qt\x{20}\x{20}\x{00}\x{00}\x{00}\x{00}". - "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}" -). +#atom ('ftyp', +# "qt\x{20}\x{20}\x{20}\x{05}\x{03}\x{00}". +# "qt\x{20}\x{20}\x{00}\x{00}\x{00}\x{00}". +# "\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}\x{00}" +#). atom ('moov', This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |