控制台虚拟终端序列 32 位真彩色显示，支持 Alpha 通道！（仅限 Win 10 / Win 11）

HOPE2021

您没听错，Cmd支持 32 位真彩色！
我在去年发了一篇帖子（http://www.bathome.net/viewthread.php?tid=63749），简单实现了控制台的绘图。但我觉得，仅仅是24位真彩色还不够。所以我在今天简单对32位色进行了支持。
32位色说起来也不复杂，本质上还是24位色，只不过添加了一个 Alpha 通道，经过一定运算，将其用 24 位色的形式渲染出来。
下面是32位色转24位色的算法：

1. 输出 = 前景色 * Alpha / 255 + 背景色 * (255 - Alpha) / 255

复制代码

下面就是我的实例：
按键说明：

1. < / >        换档
   
2. + / -        值增/减 1
   
3. O / P        值增/减 8
   
4. [ / ]        值增/减 16

复制代码

源码：

1. @Mode Con: Cols=80 Lines=25 & @Echo Off & @Chcp 936 > Nul & @Title 32 位色测试
   
2. For /L %%_ in (0,1,3) Do (
   
3.         Set lngColor[0][%%_]=127
   
4.         Set lngColor[1][%%_]=127
   
5.         Set "cur[0][%%_]= "
   
6.         Set "cur[1][%%_]= "
   
7. )
   
8. Set /A idx1=0
   
9. Set /A idx2=0
   
10. Set "cur[%idx1%][%idx2%]=#"
    
11. @Call :LoadFunctions
    
12. @Goto :Main
    
13. %= VT100 虚拟终端序列 32 位色尝试 =%
    
14. 
    
15. :Main
    
16.         Set "ESC="
    
17.         If Not Defined ESC (
    
18.                 For /F "Delims=#" %%_ in ('Prompt #$E# ^& Echo On ^& For %%$ in ^(1^) Do DosKey') Do Set "ESC=%%_"
    
19.         )
    
20.         @Call :Draw
    
21.         %_Getch:#ascCode#=ascKey%
    
22.         If "%ascKey%"=="" @Goto :Main
    
23.         Set "cur[%idx1%][%idx2%]= "
    
24. 
    
25.         %==================================================================%
    
26. 
    
27.         If "%ascKey%"==">" Set "ascKey=."
    
28.         If "%ascKey%"=="<" Set "ascKey=,"
    
29.         If "%ascKey%"=="." (       
    
30.                 Set /A "idx2+=1"
    
31.                 If %idx1% Equ 0 (If %idx2% Equ 2 (Set /A idx1=1,idx2=0))
    
32.                 If %idx1% Equ 1 (If %idx2% Equ 3 (Set /A idx1=0,idx2=0))
    
33.         )
    
34.         If "%ascKey%"=="," (       
    
35.                 Set /A "idx2-=1"
    
36.                 If %idx1% Equ 0 (If %idx2% Equ 0 (Set /A idx1=1,idx2=3))
    
37.                 If %idx1% Equ 1 (If %idx2% Equ 0 (Set /A idx1=0,idx2=2))
    
38.         )
    
39. 
    
40.         %==================================================================%
    
41. 
    
42.         If "%ascKey%"=="_" Set "ascKey=-"
    
43.         If "%ascKey%"=="=" Set "ascKey=+"
    
44. 
    
45.         Set /A lngTemp=lngColor[%idx1%][%idx2%]
    
46. 
    
47.         If "%ascKey%"=="-" (       
    
48.                 If %lngTemp% Gtr 0 (Set /A lngColor[%idx1%][%idx2%]-=1)
    
49.         )
    
50.         If "%ascKey%"=="+" (       
    
51.                 If %lngTemp% Lss 255 (Set /A lngColor[%idx1%][%idx2%]+=1)
    
52.         )
    
53. 
    
54.         %==================================================================%
    
55. 
    
56.         If /I "%ascKey%"=="o" (       
    
57.                 If %lngTemp% Gtr 7 (Set /A lngColor[%idx1%][%idx2%]-=8) Else (Set /A lngColor[%idx1%][%idx2%]=0)
    
58.         )
    
59.         If /I "%ascKey%"=="p" (       
    
60.                 If %lngTemp% Lss 248 (Set /A lngColor[%idx1%][%idx2%]+=8) Else (Set /A lngColor[%idx1%][%idx2%]=255)
    
61.         )
    
62. 
    
63.         %==================================================================%
    
64. 
    
65.         If "%ascKey%"=="{" Set "ascKey=["
    
66.         If "%ascKey%"=="}" Set "ascKey=]"
    
67. 
    
68.         If "%ascKey%"=="[" (       
    
69.                 If %lngTemp% Gtr 15 (Set /A lngColor[%idx1%][%idx2%]-=16) Else (Set /A lngColor[%idx1%][%idx2%]=0)
    
70.         )
    
71.         If "%ascKey%"=="]" (       
    
72.                 If %lngTemp% Lss 240 (Set /A lngColor[%idx1%][%idx2%]+=16) Else (Set /A lngColor[%idx1%][%idx2%]=255)
    
73.         )
    
74. 
    
75.         %==================================================================%
    
76. 
    
77.         Set "cur[%idx1%][%idx2%]=#"
    
78. @Goto :Main
    
79. 
    
80. :LoadFunctions
    
81.         Set _Getch=Set "#ascCode#=" ^& ( For /F "Usebackq Delims=" %%_ in (`XCopy /L /W "%~f0" "%~f0" 2^^^>Nul`) Do If Not Defined #ascCode# ( Set "#ascCode#=%%_") ) ^& Call Set "#ascCode#=%%#ascCode#:~-1%%"
    
82. @Goto :Eof
    
83. 
    
84. :Draw
    
85.         @Call :GotoXY 3 2
    
86.         Set /P strTemp=%ESC%[?25l+<Nul
    
87.         Set "strColor[0]=%ESC%[38;2;%lngColor[0][0]%;%lngColor[0][1]%;%lngColor[0][2]%m%ESC%[48;2;%lngColor[0][0]%;%lngColor[0][1]%;%lngColor[0][2]%m"
    
88.         Set "strColor[2]=%ESC%[38;2;%lngColor[1][0]%;%lngColor[1][1]%;%lngColor[1][2]%m%ESC%[48;2;%lngColor[1][0]%;%lngColor[1][1]%;%lngColor[1][2]%m"
    
89.         Set /A "lngR=%lngColor[1][0]%*%lngColor[1][3]%/255+%lngColor[0][0]%*(255-%lngColor[1][3]%)/255"
    
90.         Set /A "lngG=%lngColor[1][1]%*%lngColor[1][3]%/255+%lngColor[0][1]%*(255-%lngColor[1][3]%)/255"
    
91.         Set /A "lngB=%lngColor[1][2]%*%lngColor[1][3]%/255+%lngColor[0][2]%*(255-%lngColor[1][3]%)/255"
    
92.         Set "strColor[1]=%ESC%[38;2;%lngR%;%lngG%;%lngB%m%ESC%[48;2;%lngR%;%lngG%;%lngB%m"
    
93. 
    
94.         For /L %%_ in (0,1,2) Do (
    
95.                 For /L %%` in (0,1,23) Do Set /P strTemp=-<Nul
    
96.                 Set /P strTemp=+<Nul
    
97.         )
    
98.         @Call :GotoXY 3 13
    
99.         Set /P strTemp=+<Nul
    
100.         For /L %%_ in (0,1,2) Do (
     
101.                 For /L %%` in (0,1,23) Do Set /P strTemp=-<Nul
     
102.                 Set /P strTemp=+<Nul
     
103.         )
     
104.         SetLocal EnableExtensions EnableDelayedExpansion
     
105.         For /L %%_ in (3,1,12) Do (
     
106.                 @Call :GotoXY 3 %%_
     
107.                 Set /P strTemp=%ESC%[37m%ESC%[40m^|<Nul
     
108.                 For /L %%` in (0,1,2) Do (
     
109.                         Set /P strTemp=!strColor[%%`]!<Nul
     
110.                         For /L %%[ in (0,1,23) Do Set /P strTemp=#<Nul
     
111.                         Set /P strTemp=%ESC%[37m%ESC%[40m^|<Nul
     
112.                 )
     
113.         )
     
114.         EndLocal
     
115. 
     
116.         %==================================================================%
     
117. 
     
118.         @Call :GotoXY 3 16
     
119.         (Echo.背景色：[%cur[0][0]%]R:%lngColor[0][0]% [%cur[0][1]%]G:%lngColor[0][1]% [%cur[0][2]%]B:%lngColor[0][2]%        )
     
120.         @Call :GotoXY 3 18
     
121.         (Echo.前景色：[%cur[1][0]%]R:%lngColor[1][0]% [%cur[1][1]%]G:%lngColor[1][1]% [%cur[1][2]%]B:%lngColor[1][2]% [%cur[1][3]%]A:%lngColor[1][3]%        )
     
122. @Goto :Eof
     
123. 
     
124. :GotoXY
     
125.         Set /P=%ESC%[%2;%1H< Nul
     
126. @Goto :Eof

复制代码

效果图：