uemacs/sharpmaz.cmd

## sharpmaz.cmd -- redraw a block maze using line characters

execute-file maze.cmd

set %meml $curline
set %memc $curcol
end-of-line
set %ec &sub $curcol 1
end-of-file
set %el &sub $curline 1
previous-line
set %spaces $line
beginning-of-file
set %old $line
set $line %spaces
next-line

!while &less $curline %el
	set $curcol 1
	!while &less $curcol %ec
		!if &not &equ $curchar 32
			set %v 0
			set %inc 1
			previous-line
			!gosub check
			next-line
			backward-character
			!gosub check
			2 forward-character
			!gosub check
			next-line
			backward-character
			!gosub check
			previous-line
			# alternatively use single width "╳╵╴┘╶└─┴╷│┐┤┌├┬┼"
			set $curchar &asc &mid "╳╹╸┛╺┗━┻╻┃┓┫┏┣┳╋" &add %v 1 1
		!endif
		forward-character
	!endwhile
	next-line
!endwhile

beginning-of-file
set $line %old
set $curline %meml
set $curcol %memc
!return

:check
	!if &not &equ $curchar 32
		set %v &add %v %inc
	!endif
	set %inc &tim %inc 2
!return