FilesExpand file tree

 master

/

process_new.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

44 lines (34 loc) · 1.41 KB

 master

/

process_new.lua

Copy path

Top

File metadata and controls

• Code
• Blame

44 lines (34 loc) · 1.41 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

require"imlua"

require"imlua_process"

function save_histogram (hist, filename, format)

local height = 200 -- altura da imagem

local max = math.max(unpack(hist)) -- pega o maior valor do histograma

local n = table.getn(hist) + 1 -- zero-based

local image = im.ImageCreate(n, height, im.GRAY, im.BYTE) -- cria a imagem

local white = 255

local black = 0

local render = function (x, y, d, param)

local v = hist[x] / max

local h = v * height

if y <= h then return black end

return white

end

im.ProcessRenderOp(image, render, "histogram", {}, 0)

image:Save(filename, format)

end

local filename = "lena.jpg"

local image = im.FileImageLoad(filename)

save_histogram(im.CalcHistogram(image, 0, 0), "lena_histogram_R.gif", "GIF")

save_histogram(im.CalcHistogram(image, 1, 0), "lena_histogram_G.gif", "GIF")

save_histogram(im.CalcHistogram(image, 2, 0), "lena_histogram_B.gif", "GIF")

save_histogram(im.CalcGrayHistogram(image, 0), "lena_histogram_gray.gif", "GIF")

local r, g, b = im.ProcessSplitComponentsNew(image)

r:Save("lena_r.jpg", "JPEG")

g:Save("lena_g.jpg", "JPEG")

b:Save("lena_b.jpg", "JPEG")

local rgb = im.ProcessMergeComponentsNew({r, g, b})

rgb:Save("lena_rgb.jpg", "JPEG")

local replace = im.ProcessReplaceColorNew(image, { 146, 93, 145 }, { 255, 0, 255 })

replace:Save("lena_replace.jpg", "JPEG")

local bitmask = im.ProcessBitMaskNew(image, "01111010", im.BIT_XOR)

replace:Save("lena_bitmask.jpg", "JPEG")