blob: ea47c2ba7735a7f0b66b2d3a8274e06559505c04 (
plain)
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
|
package FLTK.Images.RGB is
type RGB_Image is new Image with private;
function Copy
(This : in RGB_Image;
Width, Height : in Natural)
return RGB_Image;
function Copy
(This : in RGB_Image)
return RGB_Image;
procedure Color_Average
(This : in out RGB_Image;
Col : in Color;
Amount : in Blend);
procedure Desaturate
(This : in out RGB_Image);
private
type RGB_Image is new Image with null record;
overriding procedure Finalize
(This : in out RGB_Image);
end FLTK.Images.RGB;
|