:-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.