-- -- lua5.1 toDPI.lua -- -- doug rice copyright September 2011 -- -- description - produces DPI pictures -- pictures in img_ip are prepared to DIP standard of 1400 wide x 1050 high with border -- pictures output to -- ./img_op -- and -- ./img_op/sm -- -- require "gd" -- -- Sec 1.0 Functions -- -- capture dir /b *.jpg and pasted into string below. picsStr="" -- -- -- -- -- Picture is any dimension -- -- We want to fit an image to a canvas of 1400 : 1050 -- wantHeight,wantWidth -- allow for border so fit img into toDPI -- imgX => toX -- imgY => toY -- -- if ( wantY / wantX ) > ( imgY / imgX ) then portrait. -- if ( wantY / wantX ) < ( imgY / imgX ) then landscape. -- -- function prepareDPI( text, size, ang, filename111, offset, wantWidth, wantHeight , rotate ) im = "" im = 1 im = nil im_org = "" im_org = 1 im_org = nil -- rotate = true fn = picsA[ offset+1 ] A,B,C = string.match( fn,"(.-)([^/]*)(\.JPG)") print( text, size, ang, filename, offset, wantWidth, wantHeight , rotate , fn ) --[==[ if B then rotate = string.match( B,"([r]*)") end ]==] print( "split filename:", fn, ":-", A,"-",B,"-", C ,"-", rotate ) if ( rotate == "c" ) then print( "Clockwise", picsA[ offset+1 ] ) im_org_port = gd.createFromJpeg( picsA[ offset+1 ] ) imgX,imgY = im_org_port:sizeXY() --gd.copyRotated(dstImage, srcImage, dstX, dstY, srcX, srcY, srcW, srcH, ang) --dstImage:copyRotated(srcImage, dstX, dstY, srcX, srcY, srcW, srcH, ang) im_org = gd.createTrueColor( imgY, imgX ) gd.copyRotated(im_org, im_org_port, imgY / 2, imgX/2, 0,0, imgX, imgY, -90) im_org_port=nil end if ( rotate == "cc" ) then print( "CounterClockwise", picsA[ offset+1 ] ) im_org_port = gd.createFromJpeg( picsA[ offset+1 ] ) imgX,imgY = im_org_port:sizeXY() --gd.copyRotated(dstImage, srcImage, dstX, dstY, srcX, srcY, srcW, srcH, ang) --dstImage:copyRotated(srcImage, dstX, dstY, srcX, srcY, srcW, srcH, ang) im_org = gd.createTrueColor( imgY, imgX ) gd.copyRotated(im_org, im_org_port, imgY / 2, imgX/2, 0,0, imgX, imgY, 90) im_org_port=nil end if ( rotate == "m" ) then print( " main ======================", picsA[ offset+1 ] ) im_org = gd.createFromJpeg( picsA[ offset+1 ] ) end imgX,imgY = im_org:sizeXY() --[==[ rotate the incoming image ]==] -- we don't have the detection for wrong size border = 10 -- wantHeight = 1050 -- wantWidth = 1400 im = gd.createTrueColor( wantWidth , wantHeight ) color = im:colorAllocateAlpha( 0, 0, 0, 64) color2 = im:colorAllocateAlpha( 255, 255, 255, 64) white = im:colorAllocateAlpha( 255, 255, 255, 0 ) black = im:colorAllocateAlpha( 0,0,0,0 ) bcolor = im:colorAllocateAlpha( 0,64,64, 0 ) bcolor = im:colorAllocateAlpha( 0,8,8, 0 ) bcolor = black color = white red = im:colorAllocateAlpha( 255,0,0, 0 ) red2 = im:colorAllocateAlpha( 200,200, 200, 0 ) -- portrait -- -- Picture is any dimension -- -- We want to fit an image to a canvas of 1400 : 1050 -- wantHeight,wantWidth -- allow for border so fit img into toDPI -- imgX => toX -- imgY => toY -- -- if ( wantY / wantX ) > ( imgY / imgX ) then portrait. -- if ( wantY / wantX ) < ( imgY / imgX ) then landscape. -- -- -- work out toX wantY = wantHeight-1 wantX = wantWidth-1 border = 5 imgX,imgY = im_org:sizeXY() if ( ( wantY/wantX ) < ( imgY/imgX ) ) then --[==[ gdImage:rectangle(x1, y1, x2, y2, color) rectangle is used to draw a rectangle with the two corners (upper left first, then lower right) specified, using the color index specified. gdImage:filledRectangle(x1, y1, x2, y2, color) filledRectangle is used to draw a rectangle with the two corners (upper left first, then lower right) specified, filled using the color index specified. -- dstImage:copyResampled(srcImage, dstX, dstY, srcX, srcY, dstW, dstH, srcW, srcH) ]==] -- background canvas im:filledRectangle( 0,0, wantWidth-1, wantHeight-1 , bcolor ) toHeight = wantHeight - border*2 -1 toWidth = wantHeight/imgY*imgX - border*2 -1 -- border im:filledRectangle( ( wantWidth-toWidth-border*2 ) /2 -1 ,0, (wantWidth+toWidth+border*2)/2-1, wantHeight-1 , red2 ) -- dstImage:copyResampled(srcImage, dstX, dstY, srcX, srcY, dstW, dstH, srcW, srcH) im:copyResampled(im_org, ( wantWidth-toWidth ) /2 , border, 0,0, toWidth, toHeight, imgX, imgY) im:rectangle( ( wantWidth-toWidth-border*2 ) /2 -1 ,0, (wantWidth+toWidth+border*2)/2-1, wantHeight-1 , black ) else -- background canvas im:filledRectangle( 0,0, wantWidth-1, wantHeight-1 , bcolor ) toHeight = wantWidth/imgX*imgY - border*2 toWidth = wantWidth - border*2 -- border im:filledRectangle( 0, ( wantHeight-toHeight-border*2 ) /2 -1 , wantWidth-1,(wantHeight+toHeight +border*2)/2-1, red2 ) -- dstImage:copyResampled(srcImage, dstX, dstY, srcX, srcY, dstW, dstH, srcW, srcH) im:copyResampled(im_org, border, (wantHeight-toHeight ) /2 , 0,0, toWidth,toHeight, imgX, imgY) im:rectangle( 0, ( wantHeight-toHeight-border*2 ) /2 -1 , wantWidth-1, (wantHeight+toHeight +border*2)/2-1, black ) end font = "./Vera.ttf" --font = "./Vivaldii.TTF" --font = "./TT0756M_.TTF" --font = "arch___i.ttf" --font = "Anniebtn.ttf" title = "Year 6 PGL, Copyright (C) 2012" im:stringFT( white, font, size, math.rad(ang), border +2 , border + 2 + size * 1.4 , title ) im:stringFT( black, font, size, math.rad(ang), border +4 , border + 4 + size * 1.4 , title ) print( title ) --[==[ im:stringFT( color, font, size, math.rad(ang), border +2 , border + 2 + ( size * 1.4 )*2, picsA[ offset+1 ] ) im:stringFT( color2, font, size, math.rad(ang), border +3 , border + 3 + size * 1.4 , "Copyright (C) Doug Rice 2011 " ) im:stringFT( color2, font, size, math.rad(ang), border +3 , border + 3 + ( size * 1.4 )*2, picsA[ offset+1 ] ) --[==[ ]==] im:sharpen( 20 ) fn = picsA[ offset+1 ] -- split the file name into path, name and extension A,B,C = string.match( fn,"(.-)([^/]*)(\.JPG)") print( "split filename:", fn, ":-", A,"-",B,"-", C ) fn = picsA[ offset+1 ] im:jpeg( filename .. "_" .. B .. ".jpg" , 85 ) -- im:jpeg( filename .. ".jpg", 85 ) im = nil im_org = nil -- force a garbage collect as it ran out of virtual memory without it. collectgarbage ( "collect" ) end -- find files and rotate them. function rotate_rc() print( " rotate_rc()" ) picsA = {} fi = io.popen( "dir /b .\\img_ip\\rc\\*.JPG ") for i in fi:lines() do print( "+"..i ) print( "#picsA ",picsA ) picsA[ #picsA+1 ] = "./img_ip/rc/" .. i end cnt = #picsA print( "cnt" ,cnt ) steps = cnt while( steps > 0 ) do steps = steps - 1 filename = "./img_op/PGL-2012-year6-" .."_" prepareDPI( "", 10, 0 , filename, steps , 1400, 1050 , "c") end end function rotate_rcc() print( " rotate_rcc()" ) picsA = {} fi = io.popen( "dir /b .\\img_ip\\rcc\\*.JPG ") for i in fi:lines() do print( "+"..i ) print( "#picsA ",picsA ) picsA[ #picsA+1 ] = "./img_ip/rcc/" .. i end cnt = #picsA print( "cnt" ,cnt ) steps = cnt while( steps > 0 ) do steps = steps - 1 filename = "./img_op/PGL-2012-year6-" .."_" prepareDPI( "", 10, 0 , filename, steps , 1400, 1050 , "cc") end end function main() cnt = 0 for w in string.gmatch(picsStr, "%C+") do print("=="..w.."==") if string.len(w) > 0 then -- picsA[cnt] = "./APSC/"..w picsA[cnt] = "./"..w cnt = cnt + 1 end end picsA = {} fi = io.popen( "dir /b .\\img_ip\\*.jpg ") for i in fi:lines() do print( "+"..i ) print( "#picsA ",picsA ) picsA[ #picsA+1 ] = "./img_ip/" .. i end cnt = #picsA print( "cnt" ,cnt ) steps = cnt while( steps > 0 ) do steps = steps - 1 -- function prepareDPI( text, size, ang, filename, offset, wantWidth, wantHeight ) -- im:jpeg( "./img_op/dhr" .. filename .. ".jpg", 100 ) -- im2:jpeg( "./img_op/sm/dhr" .. filename .. "_lt.jpg", 100 ) -- filename = "./img_op/PGL-May-DHR-" .. (1000+ steps ).."" -- filename = "./img_op/PGL-2012-year6-" .. (1000+ steps ).."_" filename = "./img_op/PGL-2012-year6-" .."_" -- filename = "./img_op/fps_studionight_may2102_dhr- -" .. (1000+steps )..""-- -- prepareDPI( "", 10, 0 , 1000+steps, steps , 1400, 1050 ) prepareDPI( "", 10, 0 , filename, steps , 1400, 1050 ,"m" ) -- prepareDPI( "", 10, 0 , 1000+steps, steps , 1500, 1000 ) -- filename = "./img_op/PGL-May-DHR-2-" .. (1000+ steps ).."" -- filename = "./img_op/fps_studionight_may2102_dhr- -" .. (1000+steps ).."" -- prepareDPI( "", 10, 0 , 1000+steps, steps , 1280, 1024 ) -- filename = "./img_op/PGL-2012-year6-" .. (1000+ steps ) .."_lt_" -- prepareDPI( "", 10, 0 , 1000+steps, steps , 300, 200 ) --[==[ filename = "./img_op/sm/panel-May 12-DHR-" .. (1000+ steps ) .."_lt" prepareDPI( "", 10, 0 , 1000+steps, steps , 150, 150 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."_lt" prepareDPI( "", 10, 0 , 1000+steps, steps , 150, 150 ) filename = "./img_op/dhr" .. (2000+ steps ).."" prepareDPI( "", 10, 0 , 1000+steps, steps , 1280, 1024 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."ltw" prepareDPI( "", 10, 0 , 1000+steps, steps , 800, 300 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."ltsq" prepareDPI( "", 10, 0 , 1000+steps, steps , 800, 800 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."ltsqm" prepareDPI( "", 10, 0 , 1000+steps, steps , 80, 80 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."lt43" prepareDPI( "", 10, 0 , 1000+steps, steps , 400, 300 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."lrp" prepareDPI( "", 10, 0 , 1000+steps, steps , 300, 400 ) filename = "./img_op/sm/dhr" .. (1000+ steps ) .."lrt" prepareDPI( "", 10, 0 , 1000+steps, steps , 300, 800 ) ]==] end end -- -- prepare lines for web page -- --http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm#T32 function img() fi = io.popen( "dir /b .\\img_op\\*.jpg ") opStr = "" for i in fi:lines() do A,B,C = string.match( i ,"(.-)([^\\]*)(\.jpg)") -- print( A,"-",B,"-", C ) --

opStr = opStr .. "

\n" --print( "#picsA ",picsA ) --picsA[ #picsA+1 ] = "./img_ip/" .. i end opStrHead = [==[ ]==] opStrTail = [==[ ]==] print( opStrHead .. opStr .. opStrTail ) fo = io.open( "./img_op/index1.htm","w") fo:write( opStrHead .. opStr .. opStrTail ) fo:close() end print( " put pictures into img_ip,") print( " put pictures into img_ip\\rc if they need rotating clockwise,") print( " put pictures into img_ip\\rcc if they need rotating CounterClockwise,") -- make input directories os.execute("mkdir .\\img_ip") os.execute("mkdir .\\img_ip\rc") os.execute("mkdir .\\img_ip\rcc") -- make ouput directories print( " pictures are put into img_op" ) os.execute("mkdir .\\img_op") os.execute("mkdir .\\img_op\\sm") rotate_rc() rotate_rcc() main() -- img() -- -- dir /b *.jpg | lua5.1 pipe.lua -- -- -- for line in io.lines() do -- print( "++++++"..line.."===") -- end --[==[ -- -- simple test to open a file line by line -- -- -- test fi = io.open( "txt.lua") for i in fi:lines() do print( ">",i ) end -- -- dir /b | txt.lua -- for i in io.lines() do print( i ) end -- -- test processing lines from dir command -- fi = io.popen( "dir /b") for i in fi:lines() do print( "+"..i ) end ]==]