% $Header: /cvsroot/html2ps/postscript/footer.ps,v 1.1 2005/12/18 07:21:38 Konstantin Exp $
                                  
% As BODY generated box have zero calculated width at the very moment,
% and we need some box to use as a parameter to _calc_percentage_margins, 
% we'll create a fake box having with equal to the viewport width.
  
                                   % => BODY
  dup /pre-reflow-images
  call-method                      % => BODY

  box-block-create                 % => BODY MediaBox
  pagewidth
  lmargin sub
  rmargin sub                      % => BODY MediaBox PW
  1 index put-width                % => BODY MediaBox

% Calculate actual margin values
  1 index box-generic-calc-percentage-margins
                                   % => BODY

  pagewidth
  lmargin sub
  rmargin sub
  1 index get-hor-extra sub
  1 index put-width                % => BODY

  pageheight
  tmargin sub
  bmargin sub
  1 index get-vert-extra sub
  1 index put-height
  
  pageheight tmargin sub
  1 index get-extra-top sub
  1 index put-top

  lmargin
  1 index get-extra-left add
  1 index put-left  
  
% create the initial context
                                   % => Box
  context-create                   % => Box Context
  1 index flow-viewport-create     % => Box Context Viewport
  1 index context-push-viewport    % => Box Context
  
  
  exch 1 index                     % => Context Box Context
  /null                            % => Context Box Context FakeParent
  2 index /reflow call-method      % => Context Box
  dup /reflow-inline call-method

% flow absolute-positioned boxes
  1 index
  context-get-absolute-positioned {% => Context Box AbsoluteBox
    2 index context-push
    
    2 index exch 
    /reflow-absolute call-method

    1 index context-pop
  } forall

% flow fixed-positioned boxes
  1 index
  context-get-fixed-positioned {% => Context Box AbsoluteBox
    2 index context-push
    
    2 index exch 
    box-block-reflow-fixed

    1 index context-pop
  } forall

% Make the top-level box competely fill the last page
  /pages 1 index get-full-height real-page-height div ceiling 1 max def

% Note we cannot have less than 1 page in our doc; max() call
% is required as we, in general, CAN have the content height strictly equal to 0.
% In this case wi still render the very first page

  pages real-page-height mul
  1 index get-top                     
  pageheight tmargin sub          
  sub                             
  add                              % => Context Box H
  dup 2 index put-height           % => Context Box H
  1 index get-content 0 get put-height

  dup viewport-create              % => Context Box Viewport

% generate a list of anchors
  << >>                            % => Context Box Viewport List
  dup 
  2 index                          % => Context Box Viewport List List Viewport
  4 index                          % => Context Box Viewport List List Viewport Box
  /reflow-anchors                 
  call-method                      % => Context Box Viewport Anchors
  
  1 index viewport-put-anchors     % => Context Box Viewport
  exch                             % => Context Viewport Box
  1 index /page-offset bmargin put
  1 index /height real-page-height put
 
  1 1 pages {                      % => Context Viewport Box I
    0 0 moveto

    2 index viewport-init-page

    gsave
    2 index viewport-setup-clip
    
    2 index                        % => Context Viewport Box I Viewport
    2 index /show call-method      % => Context Viewport Box I

% Absolute positioned boxes should be shown after all other boxes, because 
% they're placed higher in the stack-order
    3 index
    context-get-absolute-positioned { 
                                   % => Context Viewport Box I AbsoluteBox
      dup /visibility get-css-value /visible eq {
        3 index                    % => Context Viewport Box I AbsoluteBox Viewport
        1 index                    % => Context Viewport Box I AbsoluteBox ViewportAbsoluteBox
        /show call-method          % => Context Viewport Box I AbsoluteBox
      } if

      pop
    } forall                       % => Context Viewport Box I

    grestore
    
    3 index
    context-get-fixed-positioned { 
                                   % => Context Viewport Box I AbsoluteBox
      dup /visibility get-css-value /visible eq {
        3 index                    % => Context Viewport Box I AbsoluteBox Viewport
        1 index                    % => Context Viewport Box I AbsoluteBox ViewportAbsoluteBox
        box-block-show-fixed
      } if

      pop
    } forall                       % => Context Viewport Box I

    setting-draw-page-border {
      2 index viewport-draw-page-border
    } if
    
% Add page if currently rendered page is not last
    2 index viewport-next-page

    showpage
    pop
    initpage
  } for