source: trunk/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro @ 37

Last change on this file since 37 was 37, checked in by pinsard, 18 years ago

upgrade of PLOTS/DIVERS according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

  • 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: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@cm_4ps
37  IF NOT keyword_set(key_forgetold) THEN BEGIN
38@updatenew
39@updatekwd
40  ENDIF
41;---------------------------------------------------------
42   if keyword_set(post) then BEGIN
43      if keyword_set(small) then $
44      if total(small) NE $
45        (page_margins[2]+page_margins[0]+total(page_size) $
46         -page_margins[1]-page_margins[3]) then return
47      closeps
48      printps
49   endif
50   return
51end
Note: See TracBrowser for help on using the repository browser.