%%%===================================================%%%
%%% 		STEP Demo						%%%
%%%   http://wasp.cs.vu.nl/step				%%%
%%%									%%%
%%%	Version 0.33 April 26, 2002				%%%
%%%									%%%
%%% 	Vrije University Amsterdam				%%%
%%%	Intelligent Multimedia Group				%%%
%%% (C) Zhisheng Huang, Anton Eliens, and Cees Visser %%%
%%%===================================================%%%

:-object stepdemo : [bcilib, step_kernel].

     var url = './yt/yt.wrl'.
	main:-
		text_area(BrowserStream),
		set_output(BrowserStream),
		format('STEP applet is running ...~n'),
		format('Loading the humaniod from ~w~n', [url]),
		format('Please wait ...~n'),
		loadURL(url),
		sleep(6000),
		script_threads,
%		change the next line to test your own scripting action
%		process_script(jump(humanoid)),
		process_script(test(humanoid)),
		process_script(taichi(humanoid)),
		true.


:-end_object stepdemo.