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

Last change on this file since 114 was 114, checked in by smasson, 18 years ago

new compilation options (compile_opt idl2, strictarrsubs) in each routine
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:meridienparallele
6;
7; PURPOSE:trace certains medidiens ou paralles
8;
9; CATEGORY:
10;
11; CALLING SEQUENCE:meridienparallele, coupe
12;
13; INPUTS:coupe: le type de dessin que l''on traite
14;
15; COMMON BLOCKS:
16;       common.pro
17;
18; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
19;                       11/12/98
20;-
21;------------------------------------------------------------
22;------------------------------------------------------------
23;------------------------------------------------------------
24PRO meridienparallele, coupe
25;
26  compile_opt idl2, strictarrsubs
27;
28@common
29;------------------------------------------------------------
30   case coupe of
31      'xy':BEGIN
32         if lon1 lt 180 and lon2 gt 180 then $
33          plot, [180,180],[lat1,lat2],/noerase,color=0
34         if lon1 lt 0 and lon2 gt 0 then $
35          plot, [0,0],[lat1,lat2],/noerase,color=0
36         if lon1 lt 360 and lon2 gt 360 then $
37          plot, [360,360],[lat1,lat2],/noerase,color=0
38         if lat1 lt 0 and lat2 gt 0 then $
39          plot, [lon1,lon2],[0,0],/noerase,color=0
40      END
41
42   endcase
43
44   return
45end
Note: See TracBrowser for help on using the repository browser.