source: trunk/PLOTS/DIVERS/meridienparallele.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 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@common
26;------------------------------------------------------------
27   case coupe of
28      'xy':BEGIN
29         if lon1 lt 180 and lon2 gt 180 then $
30          plot, [180,180],[lat1,lat2],/noerase,color=0
31         if lon1 lt 0 and lon2 gt 0 then $
32          plot, [0,0],[lat1,lat2],/noerase,color=0
33         if lon1 lt 360 and lon2 gt 360 then $
34          plot, [360,360],[lat1,lat2],/noerase,color=0
35         if lat1 lt 0 and lat2 gt 0 then $
36          plot, [lon1,lon2],[0,0],/noerase,color=0
37      END
38
39   endcase
40
41   return
42end
Note: See TracBrowser for help on using the repository browser.