let debug_opt_legend s =
waddstr s.window 40 1 "q: stop visualization ";
waddstr s.window 40 2 "Legend: ";
waddstr s.window 40 3 "+: Line-check ";
waddstr s.window 40 4 "|: wall found in line-check ";
waddstr s.window 40 5 "O: start/end of line-check ";
waddstr s.window 40 6 " "