source: trunk/PLOTS/DIVERS/terminedessin.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: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 PETITDESSIN 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, PETITDESSIN=petitdessin, _EXTRA = ex
35@common
36   if keyword_set(post) then BEGIN
37      if keyword_set(petitdessin) then $
38      if total(petitdessin) NE (margescadre[2]+margescadre[0]+petitfeuille+grandfeuille $
39                                -margescadre[1]-margescadre[3]) then return
40      closeps
41      imprime,_extra = ex
42   endif
43   return
44end
Note: See TracBrowser for help on using the repository browser.