source:
trunk/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro
@
37
Last change on this file since 37 was 37, checked in by pinsard, 18 years ago | |
---|---|
|
|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[2] | 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 | ; | |
[37] | 15 | ; KEYWORD PARAMETERS:POST et SMALL cf l''aide de plt |
[2] | 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 | ;------------------------------------------------------------ | |
[37] | 34 | PRO 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 | ;--------------------------------------------------------- | |
[2] | 42 | if keyword_set(post) then BEGIN |
[37] | 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 | |
[2] | 47 | closeps |
[37] | 48 | printps |
[2] | 49 | endif |
50 | return | |
51 | end |
Note: See TracBrowser
for help on using the repository browser.