:-object titlemove0: [bcilib].

var count = 3000.
var increment = 0.15.
var url='./title/title0.wrl'.


main :- text_area(Browser),
        set_output(Browser),
	  loadURL(url),
        sleep(3000),
      move_title(count).

move_title(0):-!.

move_title(N):- N>0,
		    N1 is N-1,
                getSFVec3f(myViewpoint,position, X,Y,Z),
	          Znew is Z - increment,
                setSFVec3f(myViewpoint, position,X,Y,Znew),
		    sleep(150),
		    move_title(N1).





:-end_object titlemove0.