surfaces(initialize):- 
	set_up_surfaces.

set_up_surfaces :-
	curr_zone(_Zone_number),!,
	repeat, gen_integer(_N, 1), (
	load_surf_data(_Zone_number,_N)
	),_N = 15,!.
	

load_surf_data(_Zone_number,_N):-
	surf_order(_Zone_number,_N,_X_coord),!,
	tell_usr(['surface_order$', _N], _X_coord);
	tell_usr(['surface_order$', _N], ' ').


'surface_order$'(_N,_Order) :-
 	curr_zone(_Current_zone),
	assert(surf_order(_Current_zone,_N,_Order)),
	uset(surf_order,[_Current_zone,_N],_Order).

