:-object titlemove1: [bcilib].

var count = 5000.
var distance=  5.0.
var increment = 0.30.
var url='./title/title1.wrl'.


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

move_title(0):-!.


move_title(N):- N1 is N-1,
			getSFVec3f(title, translation, Xt,Yt,_Zt),
                  getSFVec3f(myViewpoint,position, X,Y,Z),
	            Zt is Z - distance,
                  setSFVec3f(title, translation,Xt,Yt,Zt),
	            Znew is Z - increment,
                  setSFVec3f(myViewpoint,position,X,Y,Znew),
			sleep(150),
			move_title(N1).






:-end_object titlemove1.