14 lines
433 B
Plaintext
14 lines
433 B
Plaintext
procedure main(A)
|
|
/mh := \A[1] | 12
|
|
/mw := \A[2] | 16
|
|
mz := DisplayMaze(GenerateMaze(mh,mw))
|
|
WriteImage(mz.filename) # save file
|
|
WAttrib(mz.window,"canvas=normal") # show it
|
|
until Event() == &lpress # wait for left mouse press
|
|
Solver(mz.maze)
|
|
DisplayMazeSolution(mz)
|
|
WriteImage(mz.filename ?:= (="maze-", "maze-solved-" || tab(0)))
|
|
until Event() == &lpress # wait
|
|
close(mz.window)
|
|
end
|