vertex_list_2d(initialize):- 
	set_up_fields_2d.

set_up_fields_2d :-
	curr_zone(_Zone_number),!,
	repeat, gen_integer(_N, 1), (
	load_x_v_2d(_Zone_number,_N),
	load_y_v_2d(_Zone_number,_N)
	),_N = 20,!.
	

load_x_v_2d(_Zone_number,_N):-
	x_vertex(_Zone_number,_N,_X_coord),!,
	tell_usr(['x_coord2$', _N], _X_coord);
	tell_usr(['x_coord2$', _N], 0).

load_y_v_2d(_Zone_number,_N):-
	y_vertex(_Zone_number,_N,_Y_coord),!,
	tell_usr(['y_coord2$', _N], _Y_coord);
	tell_usr(['y_coord2$', _N], 0).



'x_coord2$'(_N,_X_coord) :-
 	curr_zone(_Current_zone),
	assert(x_vertex(_Current_zone,_N,_X_coord)),
	uset(x_vertex,[_Current_zone,_N],_X_coord).


'y_coord2$'(_N,_Y_coord) :-
 	curr_zone(_Current_zone),
	assert(y_vertex(_Current_zone,_N,_Y_coord)),
	uset(y_vertex,[_Current_zone,_N],_Y_coord).
