redCV/samples/image_convolution/fastConvolution3.red at master · red/redCV · GitHub

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
Red [
	Title:   "Fast Convolution tests "
	Author:  "ldci"
	File: 	 %fastConvolution3.red
	Needs:	 'View
]

{rcvFastConvolve works on an unique channel for faster calculation
 here rcvFastConvolve is applied to each RGB channel of source image}

;required libs
#include %../../libs/tools/rcvTools.red
#include %../../libs/core/rcvCore.red
#include %../../libs/matrix/rcvMatrix.red
#include %../../libs/imgproc/rcvImgProc.red

;a fast laplacian mask
mask: [-1.0 0.0 -1.0 0.0 4.0 0.0 -1.0 0.0 -1.0]
isize: 256x256
isFile: false
factor: 0.5
delta: 	0.0

img1: rcvCreateImage isize
imgC1: rcvCreateImage img1/size		; create images for rgb
imgC2: rcvCreateImage img1/size
imgC3: rcvCreateImage img1/size
imgD:  rcvCreateImage img1/size		; and merged image
bitSize: 32

loadImage: does [
	canvas1/image: canvas2/image: canvas3/image: canvas4/image: black
	tmp: request-file
	if not none? tmp [
		isFile: true
		img1: rcvLoadImage tmp
		imgC1: rcvCreateImage img1/size					; create image for rgb
		imgC2: rcvCreateImage img1/size
		imgC3: rcvCreateImage img1/size
		imgD:  rcvCreateImage img1/size					; and merged image
		mat0:  matrix/init 2 bitSize img1/size	; create all matrices we need for argb
		mat1:  matrix/init 2 bitSize img1/size
		mat2:  matrix/init 2 bitSize img1/size
		mat3:  matrix/init 2 bitSize img1/size
		mat11: matrix/init 2 bitSize img1/size
		mat21: matrix/init 2 bitSize img1/size
		mat31: matrix/init 2 bitSize img1/size
		canvas1/image: img1
		sl1/data: 0.0 sl2/data: 0.0
		convolve
	]
]


convolve: does [
	b: rcvSplit2Mat img1 bitSize
	mat0: b/1
	mat1: b/2
	mat2: b/3
	mat3: b/4
	rcvConvolveMat mat1 mat11 mask factor delta
	rcvConvolveMat mat2 mat21 mask factor delta
	rcvConvolveMat mat3 mat31 mask factor delta
	rcvMat2Image mat11 imgC1
	rcvMat2Image mat21 imgC2
	rcvMat2Image mat31 imgC3
	canvas2/image: imgC1
	canvas3/image: imgC2
	canvas4/image: imgC3
	rcvMerge2Image mat0 mat11 mat21 mat31 imgD
	canvas5/image: imgD
]


view win: layout [
	title "Fast Convolution tests"
	origin 10x10 space 10x10
	button 50 "Load" [loadImage]
	text 100 "Multiplier"
	sl1: slider 200 [factor: 0.5 + (face/data * 19.5)
		f1/data: form to integer! factor
		if isFile [convolve]
	]
	f1: field 50 "0"
	text 100 "Brightness"
	sl2: slider 200 [delta: 0.0 + (face/data * 256.0)
		f2/data: to integer!  delta
		if isFile [convolve]
	]
	f2: field 50 "0"
	pad 430x0
	button 50  "Quit" [quit]
	return
	text 100 "Source"
	pad 156x0 text "Channel 1: R"
	pad 176x0 text "Channel 2: G"
	pad 176x0 text "Channel 3: B"
	pad 170x0 text "RGB Filtered"
	return
	canvas1: base isize
	canvas2: base isize
	canvas3: base isize
	canvas4: base isize
	canvas5: base isize
	do [sl1/data: 0.0 sl2/data: 0.0]
]