以前和路过做的绘图

cmd1152

1. @echo off
   
2. title 画画
   
3. color 0f
   
4. set $=%path%
   
5. for /f "delims== eol=$" %%a in ('set ') do (set "%%a=")
   
6. set path=%$%
   
7. setlocal enabledelayedexpansion
   
8. set "$=?□▁▂▃▄▅▆▇▏▎▍▌▋▊▉█■★☆▲△▼▽●○◆◇∶∵∴∷※←↑→↓↖↗↘↙┃━┏┓┗┛┣┫┳┻╋×√§◎¤（）《》＜＞①②③④⑤⑥⑦⑧⑨⑩∞∝∽≌∈∩∪∧∨⊙⊕⌒⊿∥⊥∠∫‰％〒℉℃°±╔╦╗╠╬╣╚╩╝═║▓卍卐〓囧の♀♂＊‖，。？！：；、·…～＆＠＃︵︶︷︸︹︺︿﹀︽︾﹁﹂﹃﹄︻︼／｜＼︴＿﹏﹍﹎￣﹋﹉﹊ˋˇ０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
   
9. for /l %%a in (0,1,1024) do (set C=!$:~%%a,1!
   
10. if "!C!" neq "" (set $%%a=!C!&set #Z=%%a))
    
11. set/a #x=32,#y=32
    
12. call :Clear
    
13. call :ReAlloc %#x% %#y%
    
14. 
    
15. :Loop 绘图
    
16. setlocal
    
17. for /l %%a in (1,1,%#y%) do (set "li%%a=┃"
    
18. for /l %%b in (1,1,%#x%) do (for /f %%c in ("!.%%b.%%a!") do (set li%%a=!li%%a!!$%%c!)))
    
19. cls
    
20. echo;┏%$w%┓
    
21. for /l %%a in (1,1,%#y%) do (echo;!li%%a!┃)
    
22. echo;┗%$w%┛
    
23. echo;保存    读取    清除    调整
    
24. echo;%$%
    
25. endlocal
    
26. 
    
27. ::检测鼠标
    
28. title 画笔!$%.s%!
    
29. cmos 0 -1 1
    
30. set /a P=%errorlevel%
    
31. set /a X=%P:~0,-3%
    
32. set /a Y=%P%-1000*%X%-1
    
33. set /a nX=(X-1)/2
    
34. if defined .%nX%.%Y% (set/a .%nX%.%Y%=%.s%)
    
35. if !Y! gtr %#y% (
    
36. set/a Y-=2
    
37. if !Y!==%#y% (
    
38. set/a sx=nx/2
    
39. if !sx!==0 (call :Save)
    
40. if !sx!==2 (call :Read)
    
41. if !sx!==4 (call :Clear)
    
42. if !sx!==6 (call :Adjust)
    
43. ) else (
    
44. set/a "n=(Y-#Y-1)*wx/2+nx"
    
45. if defined $!n! (set/a .s=n)
    
46. )
    
47. )
    
48. goto :Loop
    
49. 
    
50. :ReAlloc [x] [y] 重新分配
    
51. set/a #x=%1,#y=%2
    
52. for /l %%x in (1,1,%1) do (for /l %%y in (1,1,%2) do (if not defined .%%x.%%y (set/a .%%x.%%y=0)))
    
53. set "$w="
    
54. for /l %%a in (1,1,%#x%) do (set $w=!$w!━)
    
55. set/a wx=#x*2+16,wy=#y+#z/#x+6
    
56. mode con cols=%wx% lines=%wy%
    
57. goto :eof
    
58. 
    
59. :Save 保存
    
60. cls&echo;保存到 *.batht2
    
61. set /p bcwjm=文件名(不要后续名):^>
    
62. (for /f "delims=" %%z in ('set #^&set .') do (echo;%%z))>%bcwjm%.batht2
    
63. goto :eof
    
64. 
    
65. :Read 读取
    
66. cls&echo;读取 *.batht2
    
67. set /p dqwjm=文件名(不要后续名):^>
    
68. if exist %dqwjm%.batht2 (
    
69. FOR /F "delims=" %%z in (%dqwjm%.batht2) do (set %%z)
    
70. for /l %%x in (1,1,%#x%) do (for /l %%y in (1,1,%#y%) do (if not defined .%%x.%%y (set/a .%%x.%%y=0))))
    
71. call :ReAlloc %#x% %#y%
    
72. goto :eof
    
73. 
    
74. :Clear 清空
    
75. for /f "delims==" %%z in ('set .') do (set "%%z=")
    
76. for /l %%a in (1,1,%#x%) do (for /l %%b in (1,1,%#y%) do (set .%%a.%%b=0))
    
77. set .s=0
    
78. goto :eof
    
79. 
    
80. :Adjust 调整窗口大小
    
81. cls&echo;调整窗口大小
    
82. set /p ckdx=请输入新的窗口大小(格式[x,y]，如[32,32]。):
    
83. for /f "delims=, tokens=1-3*" %%x in ("%ckdx%") do (if "%%y" neq "" (if "%%z"=="" (set/a #x=%%x,#y=%%y)))
    
84. if %#x% lss 8 (set/a #x=8)
    
85. if %#y% lss 8 (set/a #y=8)
    
86. call :ReAlloc %#x% %#y%
    
87. goto :eof

复制代码

cmd1152

彩色版：http://www.bathome.net/viewthread.php?tid=59646&extra=

HOPE2021

回复 2# cmd1152
申请将彩色版画板授权给Hope WorkStation办公套件

cmd1152

回复 3# HOPE2021


    这个是我和他共同制作的

cmd1152

回复 3# HOPE2021


    你可以使用他，但请不要声称是自己的，你可以反映任何Bug，也可以更改一下里面的代码，但不允许更改版权。

cmd1152

回复 3# HOPE2021


   

申请将彩色版画板授权给Hope WorkStation办公套件

    抱歉，我可以给你，但不是完全授权，因为不知道路过同不同意，你可以把这个加入到你的Hope WorkStation办公套件，但不要声称是自己的

HOPE2021

回复 6# cmd1152
谢谢,我会在文件头部加入:
Rem ; Cmd1152&路过 Paint [Version 1.0.0000]
Rem ; (C) Copyright 20**-2021 Cmd1152&路过 Corp.

cmd1152

回复 7# HOPE2021


    应该是

Rem ; Cmd1152&路过 Paint [Version 1.0.0000]
Rem ; (C) Copyright 2021-2021 Cmd1152&路过 Corp.

HOPE2021

回复 8# cmd1152
哦,谢谢提醒