Variazione trioraria della pressione al livello del mare* Vittorio Villasmunta - 20100104, 20141130
* Mappa della variazione trioraria di pressione al ldm dalle 00 alle 03 di oggi
* nomefile: varps.gs
* prmslmsl mean sea level none pressure reduced to msl [pa]
'set display color white'
'c'
'reset'
'set grid off'
'set t 1'
'query time'
curtime=subwrd(result,3)
ora_v=substr(curtime,1,2)
giorno_v=substr(curtime,4,2)
mese_v=substr(curtime,6,3)
anno_v=substr(curtime,9,4)
gg_set=subwrd(result,6)
* These are the BLUE shades
'set rgb 16 0 0 255'
'set rgb 17 25 25 255'
'set rgb 18 50 50 255'
'set rgb 19 75 75 255'
'set rgb 20 100 100 255'
'set rgb 21 125 125 255'
'set rgb 22 150 150 255'
'set rgb 23 175 175 255'
'set rgb 24 200 200 255'
'set rgb 25 225 225 255'
* These are the RED shades
'set rgb 26 255 225 225'
'set rgb 27 255 200 200'
'set rgb 28 255 175 175'
'set rgb 29 255 150 150'
'set rgb 30 255 125 125'
'set rgb 31 255 100 100'
'set rgb 32 255 75 75'
'set rgb 33 255 50 50'
'set rgb 34 255 25 25'
'set rgb 35 255 0 0'
'set clevs -20 -18 -16 -14 -12 -10 -8 -6 -4 -2 0 2 4 6 8 10 12 14 16 18 20'
'set ccols 35 34 33 32 31 30 29 28 27 26 0 25 24 23 22 21 20 19 18 17 16'
'set grads off'
'set gxout shaded'
'set csmooth on'
'set cint 2'
'map europe'
'd (prmslmsl(t=2)-prmslmsl(t=1))/100'
'cbarn'
'set gxout contour'
'set cint 1'
'set ccolor 1'
'd (prmslmsl(t=2)-prmslmsl(t=1))/100'
* Inserisce il titolo in alto sulla mappa
'draw title Variazione trioraria di pressione al ldm dalle 00 di oggi\Init: 'gg_set' 'giorno_v''mese_v''anno_v' at 'ora_v'Z '
* Aggiunge una scritta in calce
'draw string 1.2 0.3 Dati GFS High Resolution - Elaborazione: V.Villasmunta'
'printim var_pres.gif'
|  |
|
