filnam='./test6.html'

'q gxinfo'


res = result
x = sublin(res,3)
y = sublin(res,4)
xl= subwrd(x,4)
xr= subwrd(x,6)
yu= subwrd(y,4)
yo= subwrd(y,6)

'set clip 'xl' 'xr' 'yu' 'yo


'set strsiz 0.1'
'set font 0'
res=read(filnam)
str=sublin(res,2)
 anz=subwrd(str,1)
 i=0
*  while i<anz
  

  
  while i<250
*say i
    res=read(filnam)
    str=sublin(res,2)
    nam=subwrd(str,1)
    tmax=subwrd(str,7)
    tmin=subwrd(str,6)
    lat=subwrd(str,3)
    lon=subwrd(str,4)
    'q ll2xy ' lon' 'lat
    x = subwrd(result,1)
    y = subwrd(result,2)
    it=(4)*0.0125

     if(tmax<-20.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 33 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif


     if(tmax>=-20.0 & tmax<-16.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 31 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif

     if(tmax>=-16 & tmax<-12)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 30 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif
     
     if(tmax>=-12 & tmax<-8.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 29 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif     
     
 
     if(tmax>=-8.0 & tmax<-4)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 28 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif     

     if(tmax>=-4 & tmax<0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
*    'draw mark 5 'x-0.0' 'y-0.0' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 26 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif      
     

     
     if(tmax>=0 & tmax<4)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 23 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif          
     
     if(tmax>=4.0 & tmax<8)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 85 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif       
     
     
     if(tmax>=8 & tmax<12.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 86 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
     if(tmax>=12 & tmax<16)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 87 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
     if(tmax>=16. & tmax<20.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 88 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
     if(tmax>=20.0 & tmax<24)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 89 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
     if(tmax>=24 & tmax<28.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 90 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     

     if(tmax>=28 & tmax<32.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 92 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
     if(tmax>=32.0 & tmax<36)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 93 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     


     

     if(tmax>=36.0)
    'set font 0'
    'set strsiz 0.09 0.09'
    'set string 1 c 5'
    'set line 55 'x' 'y' 'it
    'draw recf 'x-0.21' 'y-0.15' 'x+0.24' 'y-0.0''
    'set line 52 1 1'
    'draw recf 'x-0.21' 'y-0.0' 'x+0.24' 'y+0.14''
    'set line 1 1 1'
    'draw rec 'x-0.21' 'y-0.15' 'x+0.24' 'y+0.15''
    'set string 1 c 5'
    'draw string 'x+0.00' 'y+0.07' 'tmax
    'draw string 'x+0.00' 'y-0.07' 'tmin    
     endif   
     
  
          
     i=i+1
  endwhile