viewDate_in=openFile "d:/temp/viewport_TM.txt" mode:"a+"
timeStart=timeStamp()
ss=$teapot02
while not eof viewDate_in do
	(
	dd=execute (readline viewDate_in)
	dd=translate (xformmat dd (ss.transform $.transform)) (ss.pos+$.pos)

	viewport.settm dd
	)
loop
endTime=timeStamp()
format "take time:%\n" ((endTime-timeStart)/1000.0)
close viewDate_in