rfivet
/
uemacs
mirror of https://github.com/rfivet/uemacs.git
1
0
Fork 0
Code Releases Activity

Use lines instead of block Unicode characters.(poor rendering in some environments).

This commit is contained in:
Renaud 2021-08-31 12:57:37 +08:00
parent 64eb0d5deb
commit 60a56b74b0
2 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
blindmaz.cmd
View File

@ -2,7 +2,8 @@
#7 set $seed
#execute-file maze.cmd
execute-file floodmaz.cmd
#execute-file floodmaz.cmd
execute-file sharpmaz.cmd
set %x 2
set %y $curline
end-of-line

51
sharpmaz.cmd Normal file
View File

@ -0,0 +1,51 @@
execute-file maze.cmd
end-of-line
set %ec &sub $curcol 1
end-of-file
set %el &sub $curline 1
set $curline %el
set %spaces $line
set $curline 1
set %old $line
set $line %spaces
set %l 2
!while &less %l %el
set $curline %l
set %c 1
!while &less %c %ec
set $curcol %c
!if &not &equ $curchar 32
set %v 0
set $curline &sub %l 1
set $curcol %c
!if &not &equ $curchar 32
set %v &add %v 1
!endif
set $curline %l
set $curcol &sub %c 1
!if &not &equ $curchar 32
set %v &add %v 2
!endif
set $curcol &add %c 1
!if &not &equ $curchar 32
set %v &add %v 4
!endif
set $curline &add %l 1
set $curcol %c
!if &not &equ $curchar 32
set %v &add %v 8
!endif
set $curline %l
set $curcol %c
set $curchar &asc &mid "╳╵╴┘╶└─┴╷│┐┤┌├┬┼" &add %v 1 1
!endif
set %c &add %c 1
!endwhile
set %l &add %l 1
!endwhile
set $curline 1
set $line %old
set $curline 3
set $curcol 1