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
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Franois Pessaux, projet Cristal, INRIA Rocquencourt *)
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
(* Jun Furuse, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1999,2000,2001,2002,2001,2002 *)
(* Institut National de Recherche en Informatique et en Automatique. *)
(* Distributed only by permission. *)
(* *)
(***********************************************************************)
open Color
open Bitmap
type elt = int
type t = {
width: int;
height: int;
colormap: Color.map; (* should not be mutable *)
mutable transparent: int;
mutable infos: Info.info list;
data: Bitmap.t
}
let create_with width height cmap transparent init_buffer =
{ width= width;
height= height;
colormap= cmap;
transparent= transparent;
infos= [];
data= Bitmap.create_with 1 width height init_buffer }
;;
let create width height =
{ width= width;
height= height;
colormap= {map= [||]; max= 256};
transparent= (-1);
infos= [];
data= Bitmap.create 1 width height None }
;;
let make width height init =
let init = Some (String.make 1 (char_of_int init))
in
{ width= width;
height= height;
colormap= {map= [||]; max= 256};
transparent= (-1);
infos= [];
data= Bitmap.create 1 width height init }
;;
(* access method *)
let unsafe_get t x y =
let str, pos = t.data.access x y in
int_of_char str.[pos]
;;
let unsafe_set t x y c =
let str, pos = t.data.access x y in
str.[pos] <- char_of_int c
;;
let get t x y =
Region.check t.width t.height x y;
unsafe_get t x y
;;
let set t x y c =
Region.check t.width t.height x y;
unsafe_set t x y c
;;
let unsafe_get_rgb t x y =
t.colormap.map.( unsafe_get t x y )
;;
let get_rgb t x y =
t.colormap.map.( get t x y )
;;
let set_colormap t map =
t.colormap.max <- map.max;
t.colormap.map <- map.map
let destroy t =
Bitmap.destroy t.data
;;
let sub src x y w h =
{ width= w;
height= h;
colormap= Color.copy src.colormap;
transparent= src.transparent;
infos= [];
data= Bitmap.sub src.data x y w h }
;;
let blit src sx sy dst dx dy w h =
Bitmap.blit src.data sx sy dst.data dx dy w h
;;
let to_rgb24 t =
let rgb24 = Rgb24.create t.width t.height in
for y = 0 to t.height - 1 do
for x = 0 to t.width - 1 do
Rgb24.unsafe_set rgb24 x y (unsafe_get_rgb t x y)
done
done;
rgb24
;;
let to_rgba32 t =
let rgba32 = Rgba32.create t.width t.height in
for y = 0 to t.height - 1 do
for x = 0 to t.width - 1 do
Rgba32.unsafe_set rgba32 x y
(let index = unsafe_get t x y in
{ color= t.colormap.map.(index);
alpha= if index = t.transparent then 0 else 255 })
done
done;
rgba32
;;
|
