home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / sgi / 13647 < prev    next >
Encoding:
Text File  |  1992-09-15  |  3.2 KB  |  113 lines
  1. Newsgroups: comp.sys.sgi
  2. Path: sparky!uunet!news.larc.nasa.gov!icat.larc.nasa.gov!smith
  3. From: smith@icat.larc.nasa.gov (Steven L. Smith)
  4. Subject: Re: Euroweather data
  5. Message-ID: <BuM8xE.Mu1@news.larc.nasa.gov>
  6. Sender: news@news.larc.nasa.gov (USENET Network News)
  7. Organization: NASA Langley Research Center, Hampton, VA  USA
  8. References: <18n71qINNi9g@darkstar.UCSC.EDU> <1992Sep11.114718.26874@ringer.cs.utsa.edu> <1992Sep14.184015.21413@iitmax.iit.edu>
  9. Date: Tue, 15 Sep 1992 10:53:38 GMT
  10. Lines: 101
  11.  
  12. In article <1992Sep14.184015.21413@iitmax.iit.edu>, thsspxh@iitmax.iit.edu (Patrick HURT) writes:
  13. |> In article <1992Sep11.114718.26874@ringer.cs.utsa.edu> senseman@ricky.brainlab.utsa.edu (David M. Senseman) writes:
  14. |> >In article <18n71qINNi9g@darkstar.UCSC.EDU> mmcohen@cats.ucsc.edu (Michael M Cohen) writes:
  15. |> >>
  16. |> >>Someone was asking about European weather maps
  17. |> >>for bgpaste? ... Should work with a bit of editing
  18. |> >>for the weather shell recently posted.
  19. |> >>
  20. |> >
  21. |> >The original post in this thread (which I missed somehow) mentioned
  22. |> >something about getting US weather maps but not European. Could someone
  23. |> >E-Mail me the site for getting US Weather maps? Thanks.
  24. |> >-- 
  25. |> 
  26. |> Me too, please! Also, if anybody has a script getting the weather
  27. |> by ftp, and popping it up on the screen, please mail it to me.
  28. |> 
  29. |> Thanks, Patrick.
  30. |> 
  31. |> -- 
  32.  
  33. The script, which I got and modified from F.R. Phelan is as follows:
  34.  
  35. --Begin-----------------------------------------------------------------------
  36. #!/bin/csh -f
  37. # display-weather-map
  38. # Sets the background to the latest USA weather map.
  39. #
  40. # Original:
  41. # Ron Boisvert, NIST, 25 Jun 92
  42. #
  43. # Modified for SGI:
  44. # F.R. Phelan Jr.
  45. # NIST Polymers Division
  46. # September 1, 1992
  47. #
  48. #
  49. #Background info:
  50. #nslookup vmd.cso.uiuc.edu
  51. #Non-authoritative answer:
  52. #Name:    VMD.CSO.UIUC.EDU
  53. #Addresses:  128.174.5.98, 192.17.13.1
  54. #
  55.  
  56. #Default settings ...
  57. set NameOfThisScript = weather
  58. set infile = /usr/tmp/weather.$$.ftp
  59. set gif_file = /usr/tmp/weather.$$.GIF
  60. set rgb_file1 = /usr/tmp/weather.$$.rgb.1
  61. set rgb_file2 = /usr/tmp/weather.$$.rgb.2
  62.  
  63.  
  64. # Usage.
  65. if ($#argv != 0) then
  66.   echo 
  67.   echo $NameOfThisScript":"
  68.   echo "A script to display the current US weather map."
  69.   echo 
  70.   echo "Usage: $NameOfThisScript"
  71.   echo
  72.   exit 1
  73. endif
  74.  
  75. onintr cleanup
  76.  
  77. cat > $infile << END
  78. user anonymous
  79. cd wx
  80. binary
  81. get CVIS.GIF $gif_file
  82. bye
  83. END
  84.  
  85. echo Getting current weather map image...
  86. ftp -n 128.174.5.98 < $infile
  87.  
  88. # Begin my mode.
  89. gif $gif_file
  90. rm -f $infile $gif_file
  91. # End my mode.
  92.  
  93. #fromgif $gif_file $rgb_file1
  94. #izoom $rgb_file1 $rgb_file2 1.06 1.7
  95.  
  96. #echo .......... Painting Root Window
  97. #bgpaste -t 0 0 0 $rgb_file2
  98.  
  99. # give the machine some time to paste ...
  100. #sleep 20
  101.  
  102. #cleanup:
  103.  
  104. #       rm -f $infile $gif_file $rgb_file1 $rgb_file2
  105. --End---------------------------------------------------------------------------
  106.  
  107. *******************************************************************************
  108. Steve Smith                          | Internet: smith@icat.larc.nasa.gov
  109. NASA Langley Research Center         |           s.l.smith@larc.nasa.gov
  110. M/S 152                              | Voice: (804) 864-2004
  111. Hampton, VA 23681                    | FAX  : (804) 864-7793
  112. *******************************************************************************
  113.