Anonymous user
Maze generation: Difference between revisions
→{{header|Icon}} and {{header|Unicon}}: + enhanced window parameters, title, simplified wall clearing
m (→{{header|Icon}} and {{header|Unicon}}: + new image) |
(→{{header|Icon}} and {{header|Unicon}}: + enhanced window parameters, title, simplified wall clearing) |
||
Line 1,084:
every d := !rd do
case d of { # try all, clearing wall on success
NORTH : maze[r,c] +:= ( GenerateMaze(r-1,c),
EAST : maze[r,c] +:= ( GenerateMaze(r,c+1),
SOUTH : maze[r,c] +:= ( GenerateMaze(r+1,c),
WEST : maze[r,c] +:= ( GenerateMaze(r,c-1),
}
return # signal success to caller
Line 1,105:
ww := (cw := (mw := *maze[1]) * CELL) + 2 * BORDER # win, cell, maze width
wparms := [ sprintf("Maze %dx%d",
"g","bg=white","canvas=hidden",
sprintf("size=%d,%d",ww,wh),
sprintf("dx=%d",BORDER),
| |||