source: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro @ 134

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

change *.pro file properties (del eof-style, del executable, set keywords Id
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:terminedessin
6;
7; PURPOSE:termnine le dessin si besion est qd c''est un postcsript.
8;
9; CATEGORY:mise en forme et allegement de l''ecrityre de plt, pltz et pltt
10;
11; CALLING SEQUENCE:terminedessin
12;
13; INPUTS:
14;
15; KEYWORD PARAMETERS:POST et SMALL cf l''aide de plt
16;
17; OUTPUTS:
18;
19; COMMON BLOCKS:
20;       common.pro
21;
22; SIDE EFFECTS:
23;
24; RESTRICTIONS:
25;
26; EXAMPLE:
27;
28; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
29;                       3/6/1999
30;-
31;------------------------------------------------------------
32;------------------------------------------------------------
33;------------------------------------------------------------
34PRO terminedessin, POST = post, SMALL = small, _extra = ex
35;---------------------------------------------------------
36;
37  compile_opt idl2, strictarrsubs
38;
39@cm_4ps
40  IF NOT keyword_set(key_forgetold) THEN BEGIN
41@updatenew
42@updatekwd
43  ENDIF
44;---------------------------------------------------------
45   if keyword_set(post) then BEGIN
46      if keyword_set(small) then $
47      if total(small) NE $
48        (page_margins[2]+page_margins[0]+total(page_size) $
49         -page_margins[1]-page_margins[3]) then return
50      closeps
51      printps
52   endif
53   return
54end
Note: See TracBrowser for help on using the repository browser.