source: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/meridienparallele.pro @ 163

Last change on this file since 163 was 163, checked in by navarro, 18 years ago

header improvements : type of parameters and keywords, default values, spell checking + idldoc assistant (IDL online_help)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.2 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5;
6; @file_comments
7; Trace some meridians or parallel
8;
9; @categories
10; Graphics
11;
12; @param COUPE
13; The type of drawing we treat
14;
15; @uses
16; common.pro
17;
18; @history
19; Sebastien Masson (smasson\@lodyc.jussieu.fr)
20;                       11/12/98
21;
22; @version
23; $Id$
24;
25;-
26;------------------------------------------------------------
27;------------------------------------------------------------
28;------------------------------------------------------------
29PRO meridienparallele, coupe
30;
31  compile_opt idl2, strictarrsubs
32;
33@common
34;------------------------------------------------------------
35   case coupe of
36      'xy':BEGIN
37         if lon1 lt 180 and lon2 gt 180 then $
38          plot, [180,180],[lat1,lat2],/noerase,color=0
39         if lon1 lt 0 and lon2 gt 0 then $
40          plot, [0,0],[lat1,lat2],/noerase,color=0
41         if lon1 lt 360 and lon2 gt 360 then $
42          plot, [360,360],[lat1,lat2],/noerase,color=0
43         if lat1 lt 0 and lat2 gt 0 then $
44          plot, [lon1,lon2],[0,0],/noerase,color=0
45      END
46
47   endcase
48
49   return
50end
Note: See TracBrowser for help on using the repository browser.