3 files changed, 202 insertions, 1 deletions
diff --git a/test/lua/combine9view.lua b/test/lua/combine9view.lua
new file mode 100644
index 0000000..d606355
--- /dev/null
+++ b/test/lua/combine9view.lua
@@ -0,0 +1,125 @@
+--A script to compose 9 photos, with 4/6 aspect ratio
+
+require"imlua"
+require"imlua_process"
+require"iuplua"
+require"view_image"
+
+err_msg = {
+  "No error.",
+  "Error while opening the file.",
+  "Error while accessing the file.",
+  "Invalid or unrecognized file format.",
+  "Invalid or unsupported data.",
+  "Invalid or unsupported compression.",
+  "Insufficient memory",
+  "Interrupted by the counter",
+}
+
+function Confirm(title,msg)
+  if continue then
+    b=iup.Alarm(title, msg ,"Continue" ,"Exit")
+    if b==2 then continue=false print("Script Aborted!") end
+  end
+end
+
+function Create_Host_Image()
+  if continue then
+    local screenx=1024*3 screeny=684*3
+    dst_photo = im.ImageCreate(screenx, screeny, im.RGB, im.BYTE)
+    resize_photo = im.ImageCreate(1024, 684, im.RGB, im.BYTE) -- for resize
+  end
+end
+
+function Create_Host_Name(name)
+  if continue then
+    i=0
+    repeat
+      i=i+1
+      num=1000+i
+      numstr=string.sub(tostring(num),-3)
+--      path="D:/Composite/"
+--      path="D:/Downloads/Test/"
+      path = "./"
+      ext=".jpg"
+      Result=path..name..numstr..ext
+      res,msg=io.open(Result)
+      io.close()
+    until not res
+  end
+end
+
+function Get_Source_Photo()
+  if continue then
+--    path="D:/MyPictures/"
+    path="test/*.jpg"
+    Source, err = iup.GetFile(path)
+    print("Source: ", Source)
+    if err<0 then continue=false end
+  end
+end
+
+function Insert_Photo(num)
+  if continue then
+    title="Photo "..num.." of 9" --msg=Source Confirm(title,msg)
+    wd=dst_photo:Width()
+    hd=dst_photo:Height()
+    --print("Dst Size:",wd,hd)
+    src_photo, err=im.FileImageLoadBitmap(Source)
+    if (err and err ~= im.ERR_NONE) then
+      error(err_msg[err+1])
+    end
+    if (not View_Image(src_photo, title)) then continue = false return end
+    valuex=src_photo:Width()
+    valuey=src_photo:Height()
+    --print("Source Size:",valuex,valuey)
+    panex={0,1024,2048,0,1024,2048,0,1024,2048}
+    paney={0,0,0,684,684,684,1368,1368,1368}
+    Xd=panex[num] 
+    Yd=paney[num]
+    Wd=1024 Hd=684
+    -- extract a proportional rectangle from the source image
+    if 1.5*valuey>valuex then
+        Ws=valuex 
+        Xs=0
+        Hs=math.floor(valuex/1.5) 
+        Ys=math.floor((valuey-Hs)/2)
+      else
+        Hs=valuey 
+        Ys=0
+        Ws=math.floor(1.5*Hs) 
+        Xs=math.floor((valuex-Ws)/2)
+       end
+       
+    --print("Crop Size:",Ws, Hs)
+    --print("Crop Shift:",Xs,Ys)
+    crop_photo = im.ImageCreate(Ws, Hs, im.RGB, im.BYTE)   
+    im.ProcessCrop(src_photo, crop_photo, Xs,Ys)
+    im.ProcessResize(crop_photo, resize_photo, 1) -- do bilinear interpolation
+    im.ProcessInsert(dst_photo, resize_photo, dst_photo, Xd, Yd) -- insert resize in dst and place the result in dst
+    crop_photo:Destroy()
+    
+    if num==9 then src_photo:CopyAttributes(dst_photo) end
+  end
+end
+
+function Save_Composite_Photo()
+  if continue then
+    name="Composite"
+    Create_Host_Name(name)
+    if (not View_Image(dst_photo, "Composite")) then continue = false return end
+    dst_photo:Save(Result, "JPEG")
+    --os.execute(Result)
+  end
+end
+
+--Script Starts
+continue=true
+title="9 Panel Composite" msg="Photos can be anysize." Confirm(title,msg)
+Create_Host_Image()
+for i=1,9 do
+  num=i
+  Get_Source_Photo()
+  Insert_Photo(num)
+  end
+Save_Composite_Photo()
diff --git a/test/lua/multimorpho.lua b/test/lua/multimorpho.lua
index be612c6..742d713 100644
--- a/test/lua/multimorpho.lua
+++ b/test/lua/multimorpho.lua
@@ -16,7 +16,7 @@ err_msg = {
   "Invalid or unrecognized file format.",
   "Invalid or unsupported data.",
   "Invalid or unsupported compression.",
-  "Insuficient memory",
+  "Insufficient memory",
   "Interrupted by the counter",
 }
 
diff --git a/test/lua/view_image.lua b/test/lua/view_image.lua
new file mode 100644
index 0000000..c156bd3
--- /dev/null
+++ b/test/lua/view_image.lua
@@ -0,0 +1,76 @@
+require"imlua"
+require"cdlua"
+require"cdluaim"
+require"iuplua"
+require"iupluacd"
+
+iup.key_open()
+
+function View_Image(image, title)
+  ret = false
+
+  cnv = iup.canvas{}
+  
+  function cnv:action()
+    local canvas = dlg.canvas
+    local image = dlg.image
+    
+    if (not canvas) then return end
+    
+    canvas:Activate()
+    cw, ch = canvas:GetSize()
+    iw = image:Width()
+    ih = image:Height()
+    
+    if (iw > ih) then
+      h = iw/iw * ch
+      y = (ch-h)/2
+      x = 0
+      w = cw
+    else
+      w = iw/ih * ch
+      x = (cw-w)/2
+      y = 0
+      h = ch
+    end
+    
+    canvas:Clear()
+    image:cdCanvasPutImageRect(canvas, x, y, w, h, 0, 0, 0, 0)
+  end
+
+  function cnv:button_cb()
+    dlg:close_cb()
+    ret = true
+    return iup.CLOSE
+  end
+  
+  dlg = iup.dialog{iup.vbox{cnv, iup.label{title="Click to accept or press Esc to abort."}}}
+  dlg.placement="maximized"
+  dlg.title = title
+  dlg.cnv = cnv
+  dlg.image = image
+  
+  function dlg:k_any(c)
+  print("K_any("..c..")")
+    if (c == iup.K_ESC) then
+      dlg:close_cb()
+      return iup.CLOSE
+    end
+  end
+
+  function dlg:close_cb()
+    local canvas = self.canvas
+    if canvas then canvas:Kill() end
+  end
+
+  function dlg:map_cb()
+    canvas = cd.CreateCanvas(cd.IUP, self.cnv)
+    self.canvas = canvas
+  end
+  
+  dlg:show()
+  iup.MainLoop()
+  dlg:destroy()
+  
+  return ret
+end