经过大量修改的DrawRLE8Pic过程

weyl

这次对遮挡的修改大量依赖这个子程.同时增加了混合颜色效果.
推荐使用, 建议其余子程对此封装.

1. //这是改写的绘制RLE8图片程序, 增加了选调色板, 遮挡控制, 亮度, 半透明, 混合色等
   
2. //colorPanel: Pchar; 调色板的指针. 某些情况下需要使用静态调色板, 避免静态图跟随水的效果
   
3. //num, px, py: integer; 图片的编号和位置
   
4. //Pidx: Pinteger; Ppic: PByte; 图片的索引和内容的资源所在地
   
5. //RectArea: Pchar; 画图的范围, 所指向地址应为连续4个integer, 表示一个矩形, 仅图片的部分或全部会出现在这个矩形内才画
   
6. //Image: PChar; widthI, heightI, sizeI: integer; 映像的位置, 尺寸, 每单位长度. 如果Img不为空, 则会将图画到这个镜像上, 否则画到屏幕
   
7. //shadow, alpha: integer; 图片的暗度和透明度, 仅在画到屏幕上时有效
   
8. //BlockImageW: PChar; 大小与场景和战场映像相同. 如果此地址不为空, 则会记录该像素的场景深度depth, 用于遮挡计算.
   
9. //BlockScreenR: PChar; widthR, heightR, sizeR: integer; 该映像应该与屏幕像素数相同, 保存屏幕上每一点的深度值
   
10. //depth: integer; 所画物件的深度, 即场景坐标 x + y, 深度高的物件会遮挡深度低的.
    
11. //当BlockImageW不为空时, 将该值写入BlockImageW, 如果该值超出范围(0~128), 会根据图片的y坐标计算一个,
    
12. //但是需注意计算值在场景内包含高度的情况下是不准确的.
    
13. //当Image为空, 即画到屏幕上时, 同时BlockScreenR不为空, 如果所绘像素的已有深度大于该值, 则按照alpha绘制该像素
    
14. //即该值起作用的机会有两种: Image不为空(到映像), 且BlockImageW不为空; 或者Image为空(到屏幕), 且BlockScreenR不为空.
    
15. //如果在画到屏幕时避免该值起作用, 可以设为128, 这是深度理论上的最大值(实际达不到)
    
16. //MixColor: Uint32; MixAlpha: integer 图片的混合颜色和混合度, 仅在画到屏幕上时有效
    
17. 
    
18. procedure DrawRLE8Pic3(colorPanel: Pchar; num, px, py: integer; Pidx: Pinteger; Ppic: PByte; RectArea: Pchar; Image: PChar; widthI, heightI, sizeI: integer; shadow, alpha: integer;
    
19.   BlockImageW: PChar; BlockScreenR: PChar; widthR, heightR, sizeR: integer; depth: integer; MixColor: Uint32; MixAlpha: integer);
    
20. var
    
21.   w, h, xs, ys: smallint;
    
22.   offset, length, p, isAlpha, lenInt: integer;
    
23.   l, l1, ix, iy, pixdepth: integer;
    
24.   pix, pix1, pix2, pix3, pix4, colorin, color1, color2, color3, color4: Uint32;
    
25. begin
    
26.   if num = 0 then
    
27.     offset := 0
    
28.   else
    
29.   begin
    
30.     inc(Pidx, num - 1);
    
31.     offset := Pidx^;
    
32.   end;
    
33. 
    
34.   Inc(Ppic, offset);
    
35.   w := Psmallint((Ppic))^;
    
36.   Inc(Ppic, 2);
    
37.   h := Psmallint((Ppic))^;
    
38.   Inc(Ppic, 2);
    
39.   xs := Psmallint((Ppic))^;
    
40.   Inc(Ppic, 2);
    
41.   ys := Psmallint((Ppic))^;
    
42.   Inc(Ppic, 2);
    
43.   pixdepth := 0;
    
44. 
    
45.   lenInt := sizeof(integer);
    
46. 
    
47.   if (px - xs + w >= pint(RectArea)^) and (px - xs < pint(RectArea)^ + pint(RectArea + lenInt * 2)^)
    
48.     and (py - ys + h >= pint(RectArea + lenInt)^) and (py - ys < pint(RectArea + lenInt)^ + pint(RectArea + lenInt * 3)^) then
    
49.   begin
    
50.     for iy := 1 to h do
    
51.     begin
    
52.       l := Ppic^;
    
53.       inc(Ppic, 1);
    
54.       w := 1;
    
55.       p := 0;
    
56.       for ix := 1 to l do
    
57.       begin
    
58.         l1 := Ppic^;
    
59.         inc(Ppic);
    
60.         if p = 0 then
    
61.         begin
    
62.           w := w + l1;
    
63.           p := 1;
    
64.         end
    
65.         else if p = 1 then
    
66.         begin
    
67.           p := 2 + l1;
    
68.         end
    
69.         else if p > 2 then
    
70.         begin
    
71.           p := p - 1;
    
72.           if (w - xs + px >= pint(RectArea)^) and (iy - ys + py >= pint(RectArea + lenInt)^)
    
73.             and (w - xs + px < pint(RectArea)^ + pint(RectArea + lenInt * 2)^) and (iy - ys + py < pint(RectArea + lenInt)^ + pint(RectArea + lenInt * 3)^) then
    
74.           begin
    
75.             if image = nil then
    
76.             begin
    
77.               pix := sdl_maprgb(screen.format, puint8(colorPanel + l1 * 3)^ * (4 + shadow), puint8(colorPanel + l1 * 3 + 1)^ * (4 + shadow), puint8(colorPanel + l1 * 3 + 2)^ * (4 + shadow));
    
78.               if (alpha <> 0) then
    
79.               begin
    
80.                 if (BlockScreenR = nil) then
    
81.                 begin
    
82.                   isAlpha := 1;
    
83.                 end
    
84.                 else
    
85.                 begin
    
86.                   if ((w - xs + px) < widthR) and ((iy - ys + py) < heightR) then
    
87.                   begin
    
88.                     pixdepth := pint(BlockScreenR + ((w - xs + px) * heightR + (iy - ys + py)) * sizeR)^;
    
89.                     if pixdepth > depth then
    
90.                     begin
    
91.                       isAlpha := 1;
    
92.                     end
    
93.                     else
    
94.                       isAlpha := 0;
    
95.                   end;
    
96.                 end;
    
97.                 if (isAlpha = 1) and (Alpha < 100) then
    
98.                 begin
    
99.                   colorin := getpixel(screen, w - xs + px, iy - ys + py);
    
100.                   pix1 := pix and $FF;
     
101.                   color1 := colorin and $FF;
     
102.                   pix2 := pix shr 8 and $FF;
     
103.                   color2 := colorin shr 8 and $FF;
     
104.                   pix3 := pix shr 16 and $FF;
     
105.                   color3 := colorin shr 16 and $FF;
     
106.                   pix4 := pix shr 24 and $FF;
     
107.                   color4 := colorin shr 24 and $FF;
     
108.                   pix1 := (alpha * color1 + (100 - alpha) * pix1) div 100;
     
109.                   pix2 := (alpha * color2 + (100 - alpha) * pix2) div 100;
     
110.                   pix3 := (alpha * color3 + (100 - alpha) * pix3) div 100;
     
111.                   pix4 := (alpha * color4 + (100 - alpha) * pix4) div 100;
     
112.                   pix := pix1 + pix2 shl 8 + pix3 shl 16 + pix4 shl 24;
     
113.                 end;
     
114.               end;
     
115.               if mixAlpha <> 0 then
     
116.               begin
     
117.                 colorin := MixColor;
     
118.                 pix1 := pix and $FF;
     
119.                 color1 := colorin and $FF;
     
120.                 pix2 := pix shr 8 and $FF;
     
121.                 color2 := colorin shr 8 and $FF;
     
122.                 pix3 := pix shr 16 and $FF;
     
123.                 color3 := colorin shr 16 and $FF;
     
124.                 pix4 := pix shr 24 and $FF;
     
125.                 color4 := colorin shr 24 and $FF;
     
126.                 pix1 := (mixAlpha * color1 + (100 - mixAlpha) * pix1) div 100;
     
127.                 pix2 := (mixAlpha * color2 + (100 - mixAlpha) * pix2) div 100;
     
128.                 pix3 := (mixAlpha * color3 + (100 - mixAlpha) * pix3) div 100;
     
129.                 pix4 := (mixAlpha * color4 + (100 - mixAlpha) * pix4) div 100;
     
130.                 pix := pix1 + pix2 shl 8 + pix3 shl 16 + pix4 shl 24;
     
131.               end;
     
132.               if (Alpha < 100) or (pixdepth <= depth) then
     
133.                 putpixel(screen, w - xs + px, iy - ys + py, pix);
     
134.             end
     
135.             else
     
136.             begin
     
137.               if ((w - xs + px) < widthI) and ((iy - ys + py) < heightI) then
     
138.               begin
     
139.                 if (BlockImageW <> nil) then
     
140.                 begin
     
141.                   if (depth < 0) or (depth > 128) then
     
142.                     depth := py div 9 - 1;
     
143.                   Pint(BlockImageW + ((w - xs + px) * heightI + (iy - ys + py)) * sizeI)^ := depth;
     
144.                 end;
     
145.                 Pint(image + ((w - xs + px) * heightI + (iy - ys + py)) * sizeI)^ :=
     
146.                   sdl_maprgb(screen.format, puint8(colorPanel + l1 * 3)^ * (4 + shadow), puint8(colorPanel + l1 * 3 + 1)^ * (4 + shadow), puint8(colorPanel + l1 * 3 + 2)^ * (4 + shadow));
     
147.               end;
     
148.             end;
     
149.           end;
     
150.           w := w + 1;
     
151.           if p = 2 then
     
152.           begin
     
153.             p := 0;
     
154.           end;
     
155.         end;
     
156.       end;
     
157.     end;
     
158.   end;
     
159. 
     
160. end;           

复制代码

winson7891

速度如何？

winson7891

哎今时今日的MOD其实很少用这个RLE8算法了老实说