;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
;+
; NAME:terminedessin
;
; PURPOSE:termnine le dessin si besion est qd c''est un postcsript.
;
; CATEGORY:mise en forme et allegement de l''ecrityre de plt, pltz et pltt
;
; CALLING SEQUENCE:terminedessin
;
; INPUTS:
;
; KEYWORD PARAMETERS:POST et SMALL cf l''aide de plt
;
; OUTPUTS:
;
; COMMON BLOCKS:
;	common.pro
;
; SIDE EFFECTS:
;
; RESTRICTIONS:
;
; EXAMPLE:
;
; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
;                       3/6/1999
;-
;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
PRO terminedessin, POST = post, SMALL = small, _extra = ex
;---------------------------------------------------------
;
  compile_opt idl2, strictarrsubs
;
@cm_4ps
  IF NOT keyword_set(key_forgetold) THEN BEGIN
@updatenew
@updatekwd
  ENDIF
;---------------------------------------------------------
   if keyword_set(post) then BEGIN
      if keyword_set(small) then $
      if total(small) NE $
        (page_margins[2]+page_margins[0]+total(page_size) $
         -page_margins[1]-page_margins[3]) then return
      closeps
      printps
   endif
   return
end