:- pce_global(@in_out_link, make_in_out_link).
 
make_in_out_link(L) :-
        new(L, link(in, out, line(arrows := second))).
projekt :-
        new(P, picture('Projekt')),
        send(P, open),
        send(P, display, new(B1, box(50,50)), point(10,100)),
        send(P, display, new(B2, box(50,50)), point(100,20)),
	send(P, display, new(B3, box(50,50)), point(100,100)),
	send(P, display, new(B4, box(50,50)), point(100,180)),
	send(P, display, new(B5, box(50,50)), point(190,20)),
	send(P, display, new(B6, box(50,50)), point(190,100)),
	send(P, display, new(B7, box(50,50)), point(280,75)),

        send(B1, handle, handle(w, h/2, in)),
        send(B2, handle, handle(0, h/2, out)),
	send(B2, handle, handle(w, h/2, in)),
	send(B3, handle, handle(0, h/2, out)),
	send(B3, handle, handle(w, h/2, in)),
	send(B4, handle, handle(0, h/2, out)),
	send(B4, handle, handle(w, h/2, in)),
	send(B5, handle, handle(0, h/2, out)),
	send(B5, handle, handle(w, h/2, in)),
	send(B6, handle, handle(0, h/2, out)),
	send(B6, handle, handle(w, h/2, in)),
	send(B7, handle, handle(0, h/2, out)),

        send_list([B1, B3], recogniser, new(move_gesture(left))),
	send_list([B2, B5], recogniser, new(move_gesture(left))),
	send_list([B3, B6], recogniser, new(move_gesture(left))),
	send_list([B4, B6], recogniser, new(move_gesture(left))),
	send_list([B5, B7], recogniser, new(move_gesture(left))),
	send_list([B6, B7], recogniser, new(move_gesture(left))),

        send(B1, connect, B3, @in_out_link),
	send(B2, connect, B5, @in_out_link),
	send(B3, connect, B6, @in_out_link),
	send(B4, connect, B6, @in_out_link),
	send(B5, connect, B7, @in_out_link),
	send(B6, connect, B7, @in_out_link).