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
RevLine 
[2]1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5;
[142]6; @file_comments
7; Trace some meridians or parallel
[2]8;
[142]9; @categories
[157]10; Graphics
[2]11;
[163]12; @param COUPE
13; The type of drawing we treat
[2]14;
[142]15; @uses
16; common.pro
[2]17;
[142]18; @history
[157]19; Sebastien Masson (smasson\@lodyc.jussieu.fr)
[142]20;                       11/12/98
[2]21;
[142]22; @version
23; $Id$
24;
[2]25;-
26;------------------------------------------------------------
27;------------------------------------------------------------
28;------------------------------------------------------------
29PRO meridienparallele, coupe
[114]30;
31  compile_opt idl2, strictarrsubs
32;
[2]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.