@@ -3,84 +3,92 @@ pngtopnm = "/home/mark/netpbm-10.34/converter/other/pngtopnm" pnmtopng = "/home/mark/netpbm-10.34/converter/other/pnmtopng" -png_files = Dir['poster-*-00*.png'] +page_glob_template = 'poster-inline-breaks-%02d-00*.pnm' +complete_page_template_pnm = 'poster-complete-%02d.pnm' +complete_page_template_png = 'poster-complete-%02d.png' -page_numbers = Hash.new +png_files = Dir['poster-inline-breaks-*-00*.png'] +png_files.sort! -png_files.each do |p| - p =~ /^poster-inline-breaks-(\d+)-/ - page_numbers[$1] = true - p_converted = p.gsub(/png$/,'pnm') - if FileTest.exists?( p_converted ) - puts "#{p} already converted" - else - puts "Converting #{p} to PGM" - system "#{pngtopnm} #{p} > #{p_converted}" - end -end +page_numbers = png_files.collect { |e| e.gsub(/poster-inline-breaks-(\d\d)-.*/,'\1') }.sort.uniq -pages = page_numbers.length +puts "There seem to be #{page_numbers.length} pages of poster..." -def pnm_size( filename ) - - size_string = nil - - open(filename) do |f| - f.gets # Read the P5 - size_string = f.gets # Read the width and height - end +widths = Array.new( page_numbers.length ) +heights = Array.new( page_numbers.length, 0 ) + +# Calculate the final dimensions of each poster: - if size_string =~ /^(\d+) (\d+) */ - return [ Integer($1), Integer($2) ] +png_files.each do |png_file| + png_width, png_height = `png-find-grid-revised/png-size #{png_file}`.chomp.split(/x/).collect { |e| Integer(e) } + png_file =~ /^poster-inline-breaks-(\d+)-/ + page = Integer($1) + if widths[page] + if png_width != widths[page] + raise "BUG: Not all the same width!" + end else - return nil + widths[page] = png_width end + heights[page] += png_height +end +puts "Poster pages will have dimensions:" +widths.each_index do |i| + puts sprintf( "%02d: %d x %d", i, widths[i], heights[i] ) end -0.upto(pages-1) do |i| +# Now create the huge PNM files, by stripping the headings from each +# and concatenating: - width = nil - total_height = 0 +pages_started = Array.new( page_numbers.length, false ) - pnm_files = Dir[sprintf('poster-inline-breaks-%02d-00*.pnm',i)] - pnm_files.sort! +png_files.each do |png_file| - pnm_files.each do |p| + png_file =~ /^poster-inline-breaks-(\d+)-/ + page_string = $1 + page = Integer(page_string) - w, h = pnm_size( p ) + output_filename = sprintf(complete_page_template_pnm,page); - if width - if w != width - raise "BUG: Not all the same width!" - end - else - width = w + unless pages_started[page] + puts "Starting new page: #{page}" + # Output the heading and indicated we've started: + output_filename = sprintf(complete_page_template_pnm,page) + open( output_filename, "w" ) do |o| + o.puts("P5") + o.puts("#{widths[page]} #{heights[page]}") + o.puts("255") end - - total_height += h - + pages_started[page] = true end - output_file = sprintf('poster-complete-%02d.pnm',i) - output_file_png = sprintf('poster-complete-%02d.png',i) - - open( output_file, "w" ) do |o| - o.puts("P5") - o.puts("#{width} #{total_height}") - o.puts("255") - pnm_files.each do |p| - puts "Concatenating #{p}..." - open(p) do |f| + puts " Adding strip: #{png_file}" + open( output_filename, "a" ) do |o| + Kernel.open( "|-", "r" ) do |f| + if f f.gets # Read the P5 f.gets # Read the width and height f.gets # Read the 255 o.write(f.read) + else + begin + exec( pngtopnm, png_file ) + rescue + raise "Couldn't exec #{command}: #{$!}\n" + end end end end - # puts "Converting to a PNG" - # system "#{pnmtopng} #{output_file} > #{output_file_png}" - end + +## This takes ages and is basically pointless since we almost +## always want to work with a reduced size version instead. +# +# page_numbers.each_index do |i| +# puts "Creating PNG version of page #{i}:" +# pnm = sprintf( complete_page_template_pnm, i ) +# png = sprintf( complete_page_template_png, i ) +# system "#{pnmtopng} #{pnm} > #{png}" +# end compose-pnm-files-multi-page 7655ba1c657af9853a516e6c039c993bff3af7cc Mark Longair mark@claret.study http://github.com/mhl/unicode-poster/commit/c663bec349a353abe5f4bcc78b75e28406d82b81 c663bec349a353abe5f4bcc78b75e28406d82b81 2008-07-18T11:28:08-07:00 2008-07-18T11:28:08-07:00 Save 12 GiB of disk space by converting to PGM and concatenating in one go 234d9c97fe826fbab4a3cce2618641929302d34b Mark Longair mark@claret.study