:- consult('plnxt.pl').
 
start :-
	
	trigger_create(_,check_black_line,[nxt_rotate(350,120,force),start]),
	
	nxt_go(300).
 
check_black_line :-
	nxt_light(Value,force),
	Value < 35.