/usr/share/GvRng/gvr_progs/escape.gvr is in gvrng 4.4-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | #
define turnright:
do 3:
turnleft
define sidestep_right:
turnright
move
turnleft
define sidestep_back_left:
turnleft
move
turnright
define shuffle:
sidestep_right
if front_is_clear:
sidestep_back_left
move
define go_to_wall:
while front_is_clear:
if right_is_blocked:
turnright
else:
shuffle
define follow_perimeter:
if front_is_clear:
move
else:
turnleft
define follow_until_door_is_on_right:
while right_is_blocked:
follow_perimeter
define exit_door:
turnright
move
go_to_wall
turnleft
follow_until_door_is_on_right
exit_door
turnoff
|