1 #! /usr/bin/env lua
2 -- fileheader 14bytes
3 -- infoheader 40bytes
4 -- 数据用小端储存方式
5 -- local fileheader =
6 -- {
7 -- bfType = 2 byte,
8 -- bfSize = 4 byte,
9 -- bfReserved1 = 2 byte, must = 0,
10 -- bfReserved2 = 2 byte, must = 0,
11 -- bfOffBits = 4 byte,
12
13 -- }
14 -- local infoheader =
15 -- {
16 -- biSize = 4 byte, default = 40,
17 -- biWidth = 4 byte,
18 -- biHeight = 4 byte,
19 -- biPlanes = 2 byte, must =1,
20 -- biBitCount = 2 byte , 1/4/8/24/32
21 -- bitCompression = 4 byte
22 -- biSizeImage = 4 byte
23 -- biXPelsPerMeter = 4 byte
24 -- biYPelsPerMeter = 4 byte
25 -- biClrUsed = 4 byte
26 -- biClrImortant = 4 byte
27 -- }
28
29 local BMP = {}
30 function BMP:new( ... )
31 local biBitCount = 24 -- 24bit/像素,也就是3byte/像素
32 local biWidth = 256 -- 默认256像素宽
33 local biHeight = 256 -- 默认256像素高
34 local message = string.format("生成24位位图,大小为 %d * %d ...",biWidth,biHeight)
35 print(message)
36 -- 生成FHeader
37 self:createFHeader(biWidth,biHeight,biBitCount)
38 -- 生成IHeader
39 self:createIHeader(biWidth,biHeight,biBitCount)
40 local fname = "bmp_" .. os.date("%X"):gsub(":","") .. ".bmp"
41 local file = io.open(fname,"wb")
42 file:write(self.fheader)
43 file:write(self.iheader)
44 -- 生成图像数据的方法,都是生成self.data(256*256的矩阵)
45 local arg = { ... }
46 -- 空,随机生成各个像素点
47 if not next(arg) then
48 self:creatRandomData()
49 else
50 self:creatRandomMap()
51 end
52
53 if self.data then
54 file:write(self.data)
55 end
56 file:close()
57 os.execute("open " .. fname)
58
59 -- -- 调用图像数据生成函数
60 -- local bmp_data = self:creatSingleton()
61 -- local function testBMP()
62 -- local file = io.open("bmp.bmp","wb")
63 -- file:write(self.fheader)
64 -- file:write(self.iheader)
65 -- file:write(bmp_data)
66 -- file:close()
67 -- end
68 -- return testBMP
69 end
70
71 function BMP:createFHeader(biWidth,biHeight,biBitCount)
72 self.bfType = 0x4D42
73 self.bfSize = biWidth * biHeight * biBitCount/8 + 54 --写死54字节的header
74 self.bfReserved1 = 0
75 self.bfReserved2 = 0
76 self.bfOffBits = 54 -- 32位位图不要调色板,所以偏移54位后就是图像数据
77 self.bfpackfmt = "<I2I4I2I2I4"
78 print(string.format("文件大小为: %d ,文件头大小为: %d ",self.bfSize,string.packsize(self.bfpackfmt)))
79 self.fheader = string.pack(self.bfpackfmt,self.bfType,self.bfSize,self.bfReserved1,self.bfReserved2,self.bfOffBits)
80 end
81
82
83 function BMP:createIHeader(biWidth,biHeight,biBitCount)
84 self.biSize = 40 -- infoheader头默认大小
85 self.biWidth = biWidth
86 self.biHeight = biHeight
87 self.biPlanes = 1
88 self.biBitCount = biBitCount
89 self.bitCompression = 0
90 self.biSizeImage = 0
91 self.biXPelsPerMeter = 0
92 self.biYPelsPerMeter = 0
93 self.biClrUsed = 0
94 self.biClrImortant = 0
95 self.bipackfmt = "<I4I4i4I2I2I4I4I4I4I4I4"
96 print(string.format("位图头大小为: %d ",string.packsize(self.bipackfmt)))
97 self.iheader = string.pack(self.bipackfmt,self.biSize,self.biWidth,self.biHeight,self.biPlanes,self.biBitCount,self.bitCompression,self.biSizeImage,self.biXPelsPerMeter,self.biYPelsPerMeter,self.biClrUsed,self.biClrImortant)
98 end
99
100 function BMP:creatRandomData()
101 local singlefmt = "<I1I1I1"
102 local tab_plex = {}
103 math.randomseed(os.time())
104 local b,g,r = math.random(256)-1,math.random(256)-1,math.random(256)-1
105 local randomspeed = 12800
106 for i = 1, self.biWidth*self.biHeight,1 do
107 if i%randomspeed == 0 then
108 b,g,r = math.random(256)-1,math.random(256)-1,math.random(256)-1
109 end
110 table.insert(tab_plex,string.pack(singlefmt,b,g,r))
111 end
112 self.data = table.concat(tab_plex)
113 end
114
115 function BMP:creatSingleData (b,g,r)
116 local b = tonumber(b) or 0
117 local g = tonumber(g) or 255
118 local r = tonumber(r) or 0
119 local singlefmt = "<I1I1I1"
120 local tab_plex = {}
121 for i = 1, self.biWidth* self.biHeight,1 do
122 table.insert(tab_plex,string.pack(singlefmt,b,g,r))
123 end
124 self.data = table.concat(tab_plex)
125 end
126
127 function BMP:creatFuncData (tab_arg)
128
129 end
130
131 function BMP:creatRandomMap(diffcult)
132 -- 一个点具有实际表示 4*4的像素
133 local plex_per_cell = 8
134 local clr_open = {255,255,255}
135 local clr_close = {0,0,0}
136 -- 要生成的是64*64的0/1矩阵,如果false就是堵住的点,如果是true是开服的点
137 local row,column = self.biWidth/plex_per_cell,self.biHeight/plex_per_cell
138 local map = {}
139 local singlefmt = "<I1I1I1"
140 local tab_plex = {}
141 local diffcult = diffcult or 5
142 math.randomseed(os.time())
143 for i = 1,row do
144 for j =1,column do
145 local var = math.random(10)
146 if var>diffcult then
147 map[row*(i-1)+j] = true
148 else
149 map[row*(i-1)+j] = false
150 end
151 end
152 end
153 print()
154 -- 开始生成self.data 表,通过map表坐标映射生成self.data
155 for i,isopen in ipairs(map) do
156 local map_column = i%(column)
157 if map_column ==0 then map_column = column end
158 local map_row = (i - map_column)//row +1
159 --print(map_row,map_column)
160 -- map_row,map_column 都乘以4映射一个数组出来,再根据数据算出在self.data中的索引
161 local map_t ={}
162 for k = (map_row-1)*plex_per_cell,map_row*plex_per_cell do
163 for j = (map_column-1)*plex_per_cell,map_column*plex_per_cell do
164 -- print(map_row,map_column, "=> ",k,j )
165 table.insert(map_t,{k,j})
166 end
167 end
168
169 for _,pos in ipairs(map_t) do
170 local k,j = table.unpack(pos)
171 --print(k,j)
172 if isopen then
173 tab_plex[(k-1)*self.biWidth + j] = string.pack(singlefmt,clr_open[1],clr_open[2],clr_open[3])
174 else
175 tab_plex[(k-1)*self.biWidth + j] = string.pack(singlefmt,clr_close[1],clr_close[2],clr_close[3])
176 end
177 end
178 end
179 self.data = table.concat(tab_plex)
180 end
181
182
183 BMP:new("123")
最后一个是按照块大小生成数组，再通过数组的值映射成图像的块，最后会生成这样的图片:
