8位转16位调色版

admin

1. 故国之晚秋  21:22:50
   
2. pSrc := PWORD(gColor1555Map);
   
3.     for i := 0 to 255 do
   
4.     begin
   
5.       if (gMainPalette[i].rgbRed = 0) and (gMainPalette[i].rgbGreen = 0) and (gMainPalette[i].rgbBlue = 0) then
   
6.         pSrc^ := 0 else
   
7.       pSrc^ :=  $8000 or (((gMainPalette[i].rgbRed shl 7) and $7C00)) or (((gMainPalette[i].rgbGreen shl 2) and $3E0))
   
8.         or (((gMainPalette[i].rgbBlue shr 3) and $1F));
   
9.       Inc(pSrc);
   
10.     end;
    
11. 故国之晚秋  21:22:55
    
12. 转换公式
    
13. 故国之晚秋  21:23:07
    
14. 8位转换到1555的16位格式
    
15. None  21:23:17
    
16. 我看看
    
17. 故国之晚秋  21:23:21
    
18. 恩
    
19. None  21:23:25
    
20. gColor1555Map
    
21. 这是什么
    
22. 
    
23. 故国之晚秋  21:23:29
    
24. 游戏开始做一次转换就可以了
    
25. 故国之晚秋  21:23:49
    
26. TColor16Map = array[Byte] of Word;
    
27.   PColor16Map = ^TColor16Map;
    
28. gColor1555Map: PColor16Map = nil;
    
29. 故国之晚秋  21:24:12
    
30.   
    
31. 故国之晚秋  21:24:24
    
32. 8位转到16位下
    
33. None  21:24:43
    
34. 漂亮
    
35. None  21:25:19
    
36.       pSrc^ :=  $8000 or (((gMainPalette[i].rgbRed shl 7) and $7C00)) or (((gMainPalette[i].rgbGreen shl 2) and $3E0))
    
37.         or (((gMainPalette[i].rgbBlue shr 3) and $1F));
    
38. 
    
39. 这算法，你是怎么弄来的
    
40. None  21:25:21
    
41. 那么强

复制代码