draw mark

[liuzf406]

Dear Martins,
 
Thanks so much.
I got it.
Do you know how to set the color for the mark?
Best,
Liu


在2010-04-03 03:09:22，"Guilherme Martins" <jgmsantos at GMAIL.COM> 写道：
Use this script below.

I hope help you.

Guilherme.

'open 2002dv.ctl' 

plat.1=-20.25777778 
plat.2=-20.54361111 
plat.3=-20.585 

plon.1=-47.87083333 
plon.2=-47.42305556 
plon.3=-47.89138889 

i=1 
 
'd abs(vwnd)'
 
while(i<3) 
   'query w2xy 'plon.i' 'plat.i 
   xpos=subwrd(result,3) 
   ypos=subwrd(result,6) 
 
   'draw mark 9 'xpos' 'ypos' 0.15'
   i=i+1 
endwhile 
 

2010/4/2 liuzf406 <liuzf406 at 126.com>

Dear users,
 
I need to draw some stations in my map, and use the following code:
lon='-87.75 -81.8 -120.45 -111.67 -75.55 -97.22 -124.48 -104.755 -100.746 -80.163236'
lat='41.78 40.37 34.9 35.13 35.27 31.62 47.67 40.8064 41.0592 25.7325'
j=1
cn=999
while(j<cn)
 'q w2xy '%subwrd(lon,i)%' '%subwrd(lat,i)
  x = subwrd(result,3)
  y = subwrd(result,6)
  'draw mark 3 'x' 'y' 0.1'
  j=j+1
 endwhile
But it can not work, How can I draw these stations?
 
Thanks so much!
Liu



-- 
-----------------------------------------------------------
José Guilherme Martins dos Santos
Grupo de Modelagem da Atmosfera e Interfaces - GMAI
Divisão de Modelagem e Desenvolvimento - DMD
Centro de Previsão de Tempo e Estudos Climáticos - INPE
Rodovia Presidente Dutra, km 39 - CEP 12630-000
Cachoeira Paulista, SP, Brasil
Telefone(CP): +55 12 3186 8502
Celular(SJC): +55 12 91678770 / +55 12 81528580
E-mail: guilherme.martins at cptec.inpe.br
E-mail alternativo: jgmsantos at gmail.com
Homepage: http://guilhermemartins.hd1.com.br/
-----------------------------------------------------------
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20100403/5977ff4d/attachment.html