%% Automatically generated by FSA Utilities.
%% For more info, cf. http://www.let.rug.nl/~vannoord/Fsa/

fa(
%begin sigma and symbols
t(fsa_preds,fsa_preds),
%end sigma and symbols
3, % number of states
[ % begin start states
0
], % end start states
[ % begin final states
0,
1
], % end final states
[ % begin transitions
trans(0,a/x,2),
trans(0,b/x,1),
trans(0,$@(not_in([b]))/ $@(not_in([b])),0),
trans(1,a/[],0),
trans(1,a/x,2),
trans(1,b/x,1),
trans(1,$@(not_in([b]))/ $@(not_in([b])),0),
trans(2,b/[],1)
], % end transitions
[]). % jumps

:- fsa_globals:fsa_global_set(regex,'.'(*('.'(~($(-({}(','('.'(a,'.'(b,[])),','(b,','('.'(b,'.'(a,[])),'.'(a,'.'(b,'.'(a,[]))))))),[]))),'.'(cross_product({}(','('.'(a,'.'(b,[])),','(b,','('.'(b,'.'(a,[])),'.'(a,'.'(b,'.'(a,[]))))))),{}('.'(x,[]))),[]))),'.'(~($(-({}(','('.'(a,'.'(b,[])),','(b,','('.'(b,'.'(a,[])),'.'(a,'.'(b,'.'(a,[]))))))),[]))),[]))).
:- dynamic current_state/6.
current_state(0,200,200.0,'757',plum2,'ridge -borderwidth 5').
current_state(1,320,140.0,'758',red,'ridge -borderwidth 5').
current_state(2,320,260.0,'759','SteelBlue1',flat).
:- fsa_globals:fsa_global_set(v_angle,0.15).