translate to tcl

[salah jubeh]

CAN ANY BODY HELP ME IN TRANSLATE THIS TO TCL

 map = mapscript.Map('rquery.map')

 layer = map.getLayer(0)    

 pnt = mapscript.Point()  

 pnt.x = 440780  pnt.y = 3751260      

layer.queryByPoint( map, pnt, mapscript.MS_MULTIPLE, 180.0 )    

layer.open()  for i in range(1000):    

result = layer.getResult( i )    

if result is None:      

break            

print '(%d,%d)' % (result.shapeindex, result.tileindex)            

s = layer.getShape( result.shapeindex, result.tileindex )    

for i in range(layer.numitems):      

print '%s: %s' % (layer.getItem(i), s.getValue(i))              

layer.close()  

		
---------------------------------
Yahoo! Mail
Bring photos to life! New PhotoMail  makes sharing a breeze. 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.osgeo.org/pipermail/mapserver-users/attachments/20060310/ec29b915/attachment.htm>