swarm-0.4: data/scenarios/Challenges/_blender/patrol-clockwise.sw

def forever = \c.
    c;
    forever c;
    end;

def encircle = \lDir. \rDir.
    turn lDir;
    b <- blocked;
    if b {
        turn rDir;
    } {
        wait 1;
    };
    fwBlocked <- blocked;
    if fwBlocked {turn rDir} {move};
    end;

def patrolCW = forever (encircle right left); end;

patrolCW;