1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
--A script to compose 4 images
require"imlua"
require"imlua_process"
require"iuplua"
function CombineImages(comb_image)
local w = comb_image:Width()-offset
local h = comb_image:Height()-offset
local half_w = math.floor(w/2)
local half_h = math.floor(h/2)
local x = {0, 0, half_w+offset, half_w+offset}
local y = {0, half_h+offset, 0, half_h+offset}
for i = 1, 4 do
local img_w = images[i]:Width()
local img_h = images[i]:Height()
if (img_w ~= half_w or img_h ~= half_h) then
local rz_w, rz_h, img_aspect
img_aspect = img_w/img_h
-- keep image aspect ratio
if (img_aspect ~= aspect) then
if (img_aspect < aspect) then
rz_h = half_h
rz_w = math.floor(rz_h * img_aspect)
else
rz_w = half_w
rz_h = math.floor(rz_w / img_aspect)
end
else
rz_w = half_w
rz_h = half_h
end
if (img_w ~= rz_w or img_h ~= rz_h) then
resize_image = im.ImageCreate(rz_w, rz_h, im.RGB, im.BYTE)
im.ProcessResize(images[i], resize_image, 1) -- do bilinear interpolation
images[i]:Destroy()
images[i] = resize_image
end
end
im.ProcessInsert(comb_image, images[i], comb_image, x[i], y[i]) -- insert resize in dst and place the result in dst
end
end
function Save_Combine_Image(comb_image)
local i=0
local filename
repeat
i=i+1
local num=1000+i
numstr=string.sub(tostring(num),-3)
filename = "..\\combine"..numstr..".jpg"
-- check if exists
local res,msg=io.open(filename)
io.close()
until not res
print("Saving:", filename)
comb_image:Save(filename, "JPEG")
os.execute(filename)
end
function LoadImages()
local max_w, max_h = 0, 0
for i = 1, 4 do
if (not files[i]) then
error("Error, must drop 4 files.")
end
print("Loading:", files[i])
images[i] = im.FileImageLoadBitmap(files[i])
if (not images[i]) then
error("Failed to load image: "..files[i])
end
local img_w = images[i]:Width()
local img_h = images[i]:Height()
if (img_w < img_h) then
-- always landscape (w>h)
local rot_image = im.ImageCreate(img_h, img_w, im.RGB, im.BYTE)
im.ProcessRotate90(images[i], rot_image, true)
images[i]:Destroy()
images[i] = rot_image
local t = img_w
img_w = img_h
img_h = t
end
if (max_w < img_w) then max_w = img_w end
if (max_h < img_h) then max_h = img_h end
end
return max_w, max_h
end
function ReleaseAll(comb_image)
comb_image:Destroy()
for i = 1, 4 do
images[i]:Destroy()
images[i] = nil
files[i] = nil
end
end
--Script Starts
files = {}
images = {}
aspect = 15/10
offset = 20
dlg = iup.dialog{
iup.label{title="Drop here 4 photos."},
title="Combine",
size="150x50"}
function dlg:dropfiles_cb(filename, num)
files[num+1] = filename
if (num == 0) then
local max_w, max_h = LoadImages()
local w, h = 2*max_w+offset, 2*max_h+offset
if (w/h ~= aspect) then
if (w/h < aspect) then
w = h * aspect
else
h = w / aspect
end
end
print("Combining...")
local comb_image = im.ImageCreate(w, h, im.RGB, im.BYTE)
-- white background
im.ProcessRenderConstant(comb_image, {255, 255, 255})
CombineImages(comb_image)
Save_Combine_Image(comb_image)
ReleaseAll(comb_image)
end
end
dlg:show()
iup.MainLoop()
|
