vertex_list_3d(initialize):- 
	set_up_fields_3d.


set_up_fields_3d :-
	curr_zone(_Zone_number),!,
	repeat, gen_integer(_N, 1), (
	load_x_v_3d(_Zone_number,_N),
	load_y_v_3d(_Zone_number,_N),
	load_z_v_3d(_Zone_number,_N)
	),_N = 20,!.

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

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

load_z_v_3d(_Zone_number,_N):-
	z_vertex(_Zone_number,_N,_Z_coord),!,
	tell_usr(['z_coord3$', _N], _Z_coord);
	tell_usr(['z_coord3$', _N], 0).

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

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

'z_coord3$'(_N,_Z_coord) :-
 	curr_zone(_Current_zone),
	assert(z_vertex(_Current_zone,_N,_Z_coord)),
	uset(z_vertex,[_Current_zone,_N],_Z_coord).
