Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
array.ps	10.34 KB	-rw-r--r--	2013-05-22 07:56
background.image.ps	7.77 KB	-rw-r--r--	2013-05-22 07:56
background.ps	1.33 KB	-rw-r--r--	2013-05-22 07:56
border.ps	6.04 KB	-rw-r--r--	2013-05-22 07:56
box.block.inline.ps	1.45 KB	-rw-r--r--	2013-05-22 07:56
box.block.ps	8.46 KB	-rw-r--r--	2013-05-22 07:56
box.break.ps	2.77 KB	-rw-r--r--	2013-05-22 07:56
box.button.ps	3.44 KB	-rw-r--r--	2013-05-22 07:56
box.checkbutton.ps	2.45 KB	-rw-r--r--	2013-05-22 07:56
box.container.ps	36.76 KB	-rw-r--r--	2013-05-22 07:56
box.frame.ps	7.71 KB	-rw-r--r--	2013-05-22 07:56
box.generic.inline.ps	3.27 KB	-rw-r--r--	2013-05-22 07:56
box.generic.ps	31.94 KB	-rw-r--r--	2013-05-22 07:56
box.iframe.ps	79 B	-rw-r--r--	2013-05-22 07:56
box.image.ps	4.84 KB	-rw-r--r--	2013-05-22 07:56
box.inline.ps	10.88 KB	-rw-r--r--	2013-05-22 07:56
box.inline.whitespace.ps	2.3 KB	-rw-r--r--	2013-05-22 07:56
box.input.check.ps	1.4 KB	-rw-r--r--	2013-05-22 07:56
box.input.radio.ps	884 B	-rw-r--r--	2013-05-22 07:56
box.input.text.ps	1.56 KB	-rw-r--r--	2013-05-22 07:56
box.list-item.ps	6.71 KB	-rw-r--r--	2013-05-22 07:56
box.ps	92 B	-rw-r--r--	2013-05-22 07:56
box.radiobutton.ps	2.15 KB	-rw-r--r--	2013-05-22 07:57
box.select.ps	2.76 KB	-rw-r--r--	2013-05-22 07:57
box.span.ps	97 B	-rw-r--r--	2013-05-22 07:57
box.table.cell.fake.ps	322 B	-rw-r--r--	2013-05-22 07:57
box.table.cell.ps	4.55 KB	-rw-r--r--	2013-05-22 07:57
box.table.ps	51.69 KB	-rw-r--r--	2013-05-22 07:57
box.table.row.ps	5.22 KB	-rw-r--r--	2013-05-22 07:57
box.text.ps	10.5 KB	-rw-r--r--	2013-05-22 07:57
box.whitespace.ps	2.39 KB	-rw-r--r--	2013-05-22 07:57
cellspan.ps	294 B	-rw-r--r--	2013-05-22 07:57
class.ps	826 B	-rw-r--r--	2013-05-22 07:57
color.ps	747 B	-rw-r--r--	2013-05-22 07:57
containing_block.ps	167 B	-rw-r--r--	2013-05-22 07:57
context.ps	15.66 KB	-rw-r--r--	2013-05-22 07:57
encoding.dingbats.ps	2.13 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-10.ps	2.86 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-11.ps	2.82 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-13.ps	2.93 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-14.ps	2.88 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-15.ps	2.87 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-2.ps	150 B	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-3.ps	2.92 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-4.ps	2.87 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-5.ps	3 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-7.ps	2.84 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-9.ps	2.91 KB	-rw-r--r--	2013-05-22 07:57
encoding.koi8-r.ps	3.01 KB	-rw-r--r--	2013-05-22 07:57
encoding.symbol.ps	3.08 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1250.ps	6.17 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1251.ps	8.39 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1252.ps	8.5 KB	-rw-r--r--	2013-05-22 07:57
fastps.footer.ps	24 B	-rw-r--r--	2013-05-22 07:57
fastps.header.ps	11 KB	-rw-r--r--	2013-05-22 07:57
flow.block.ps	2.89 KB	-rw-r--r--	2013-05-22 07:57
flow.box.ps	1.47 KB	-rw-r--r--	2013-05-22 07:57
flow.float.ps	1.47 KB	-rw-r--r--	2013-05-22 07:57
flow.inline.block.ps	1.57 KB	-rw-r--r--	2013-05-22 07:57
flow.inline.ps	3.31 KB	-rw-r--r--	2013-05-22 07:57
flow.legend.ps	1.79 KB	-rw-r--r--	2013-05-22 07:57
flow.table.ps	4.85 KB	-rw-r--r--	2013-05-22 07:57
flow_viewport.ps	594 B	-rw-r--r--	2013-05-22 07:57
font.ps	1.66 KB	-rw-r--r--	2013-05-22 07:57
footer.ps	4.92 KB	-rw-r--r--	2013-05-22 07:57
geometry.ps	1.34 KB	-rw-r--r--	2013-05-22 07:57
header.ps	22.95 KB	-rw-r--r--	2013-05-22 07:57
height.ps	7.47 KB	-rw-r--r--	2013-05-22 07:57
image.ps	10.34 KB	-rw-r--r--	2013-05-22 07:57
init.ps	211 B	-rw-r--r--	2013-05-22 07:57
position.ps	153 B	-rw-r--r--	2013-05-22 07:57
predicates.ps	618 B	-rw-r--r--	2013-05-22 07:57
table.ps	52.42 KB	-rw-r--r--	2013-05-22 07:57
table.row.ps	422 B	-rw-r--r--	2013-05-22 07:57
text-align.ps	3.71 KB	-rw-r--r--	2013-05-22 07:57
vertical-align.ps	1.86 KB	-rw-r--r--	2013-05-22 07:57
viewport.ps	2.99 KB	-rw-r--r--	2013-05-22 07:57
width.ps	1.15 KB	-rw-r--r--	2013-05-22 07:57

Rename

% $Header: /cvsroot/html2ps/postscript/box.text.ps,v 1.1 2005/12/18 07:21:37 Konstantin Exp $

/box-text-create {                 % =>
  box-generic-inline-create

% setup box-specific properties
  dup /Text () put
  dup /Encoding ISOLatin1Encoding put
  
% setup inherited method references
  dup box-text-setup-methods
  dup /box-text add-type
} def

/box-text-draw-overline {         % => Text Box
  newpath
  
% Get the thickness of the font underline
  0
  currentfont 
  font-underline-thick             % => Text Box UThick
  setlinewidth                     % => Text Box

% Get the position of the font underline 
  currentfont 
  font-overline-pos               % => Text Box UPos

1 index get-left
  2 index get-top
  3 index get-default-baseline
  sub                              % => Text Box UPos X Y'
% Note that UPos is negative
  2 index add                      % => Text Box UPos X Y'

moveto

1 index /get-width call-method
  0 
  rlineto
  stroke                           % => Text Box UPos

pop pop pop
} def

/box-text-draw-line-through {      % => Text Box
  newpath
  
% Get the line thickness
  0
  currentfont 
  font-underline-thick             % => Text Box UThick
  setlinewidth                     % => Text Box

% Get the position of the font underline 
  currentfont 
  font-line-through-pos            % => Text Box UPos

moveto

1 index /get-width call-method
  0 
  rlineto
  stroke                           % => Text Box UPos

pop pop pop
} def

/box-text-draw-underline {         % => Text Box
  newpath
  
% Get the line thickness
  0
  currentfont 
  font-underline-thick             % => Text Box UThick
  setlinewidth                     % => Text Box

% Get the position of the font underline 
  currentfont 
  font-underline-pos               % => Text Box UPos

moveto

1 index /get-width call-method
  0 
  rlineto
  stroke                           % => Text Box UPos

pop pop pop
} def

/box-text-find-font { % => Box
 dup /font-size get-css-value
 
 1 index
 /font-family get-css-value % => Box FontSize FontFamily
 exch scalefont % => Box <>

exch pop % => <>
} def

/box-text-get-min-width {          % => Context This
  dup get-full-width
  exch pop
  exch pop
} def

/box-text-get-max-width {          % => Context This
  dup get-full-width
  exch pop
  exch pop
} def

/box-text-reflow {                 % => Context Parent This
% Check if we need a line break here (possilble several times in a row, if we
% have a long word and a floating box intersecting with this word

% To prevent infinite loop, we'll use a limit of 100 sequental line feeds

0                               % => Content Parent This 0(LFs)
   {
     1 add                         % => Context Parent This LFs'

3 index
     3 index
     3 index
     /maybe-line-break
     call-method                   % => Context Parent This LFs Flag
      
     1 index 100 ge
     or {
       exit
     } if
   } loop                          % => Context Parent This LFs
   pop                             % => Context Parent This

% Determine the baseline position and height of the text-box using line-height CSS property
   dup box-generic-apply-line-height
    
% set default baseline
   dup get-default-baseline
   1 index put-baseline

% append current box to parent line box
   dup 2 index
   box-container-append-line       % => Context Parent This

% Determine coordinates of upper-left _margin_ corner
   1 index 1 index
   box-generic-guess-corner        % => Context Parent This

% Offset parent current X coordinate
   dup get-full-width
   2 index get-current-x
   add                             % => Context Parent This CX'
   2 index put-current-x           % => Context Parent This

% Extends parents height
   dup get-bottom-margin           % => Context Parent This BM
   2 index
   box-generic-extend-height       % => Context Parent This

% Update the value of current collapsed margin; pure text (non-span)
% boxes always have zero margin

2 index context-pop-collapsed-margin
   0 3 index context-push-collapsed-margin

% Clear the stack
  pop pop pop
} def

/box-text-setup { % => Box
% select the font used to render current text box
 dup box-text-find-font % => Box <>

dup font-ascender % => Box <> Ascender
 1 index font-descender % => Box <> Ascender Descender

3 2 roll
  setfont                          % => Box Ascender Descender

1 index 3 index put-default-baseline
  
  add
% 1 index /font-size get-css-value min
  1 index put-height               % => Box
  
% determine the width of the current text box
  dup get-text stringwidth         % => Box SX __
  pop                              % => Box SX
  1 index put-width                % => Box

pop
} def

/box-text-setup-methods {          % => Box
% Setup method references
  dup get-box-dict /Methods get    % => Box Methods
  dup /get-min-width {box-text-get-min-width} put
  dup /get-max-width {box-text-get-max-width} put
  dup /reflow        {box-text-reflow} put
  dup /show          {box-text-show} put
  pop pop
} def

/box-text-show {                   % => Viewport Box    
% Check if current text box will be cut-off by the page edge
% Get Y coordinate of the top edge of the box
  dup get-top-margin               % => Viewport Box Top

% Get Y coordinate of the bottom edge of the box
  1 index get-bottom-margin        % => Viewport Box Top Bottom

1 index
  4 index viewport-get-bottom
  gt                               % => Viewport Box Top Bottom TopInside

1 index
  5 index viewport-get-bottom
  gt                               % => Viewport Box Top Bottom TopInside BottomInside

2 copy 
  not and                          % => Viewport Box Top Bottom TopInside BottomInside TopInside&&!BottomInside
  {                                % => Viewport Box Top Bottom TopInside BottomInside
% If yes, do not draw current text box at all; add an required value
% to the viewport page offset to make the text box fully visible on the next page
    5 index
    viewport-get-offset-delta      % => Viewport Box Top Bottom TopInside BottomInside OD
    
    4 index
    7 index viewport-get-bottom
    sub                            % => Viewport Box Top Bottom TopInside BottomInside OD ODNew
    max                            % => Viewport Box Top Bottom TopInside BottomInside OD'

6 index
    viewport-put-offset-delta      % => Viewport Box Top Bottom TopInside BottomInside

pop pop
  } {                              % => Viewport Box Top Bottom TopInside BottomInside
    or not {                       % => Viewport Box Top Bottom
    } {                            % => Viewport Box Top Bottom
% draw generic box
      3 index 3 index
      box-generic-show

2 index get-left 
 3 index get-top 
 4 index get-default-baseline
 sub 
 moveto
 
 2 index get-text % => Viewport Box Top Bottom Text
 
 3 index
 box-text-find-font % => Viewport Box Top Bottom Text <>
 setfont
 show % => Viewport Box Top Bottom

% draw text decoration
      2 index /text-decoration get-css-value 
      3 index get-text             % => Viewport Box Top Bottom Decoration Text
% underline
      1 index /underline get {     % => Viewport Box Top Bottom Decoration Text
        dup 
        5 index                    % => Viewport Box Top Bottom Decoration Text Text Box
        box-text-draw-underline    % => Viewport Box Top Bottom Decoration Text
      } if
      
% overline
      1 index /overline get {      % => Viewport Box Top Bottom Decoration Text
        dup 
        5 index                    % => Viewport Box Top Bottom Decoration Text Text Box
        box-text-draw-overline     % => Viewport Box Top Bottom Decoration Text
      } if

% line-through
      1 index /line-through get {  % => Viewport Box Top Bottom Decoration Text
        dup 
        5 index                    % => Viewport Box Top Bottom Decoration Text Text Box
        box-text-draw-line-through % => Viewport Box Top Bottom Decoration Text
      } if

pop pop 
    } ifelse
  } ifelse                         % => Viewport Box Top Bottom

pop pop pop pop
} def

/get-encoding {
  /Encoding get
} def

/get-text {                        % => Box
  /Text get
} def

/put-encoding {                    % => Encoding Box
  exch
  /Encoding
  exch
  put
} def

/put-text {                        % => Text Box
  exch
  /Text
  exch
  put
} def

%%%%%%%%%%%%%%%%%%%%

/show-enc-text-box {
% Check if this box will be cut on the bottom edge of the page (i.e. bottom < 0)
 dup get-bottom bmargin gt {
 show-enc-text-box-force
 } {
% do not display this box; also, store the additional offset to show this text on the next page
 /vdelta vdelta 2 index get-top bmargin sub max def
 pop
 } ifelse
} def

/show-enc-text-box-force {         % => Box
  show-generic-box                 % => Box
  currentpoint 
  2 index get-content              % => Box X Y Content
  aload pop                       
  show-enc-text
  moveto

dup get-text-decoration % => Box Decor
 dup /Underline known {
 currentpoint
 3 index get-content % => Box Decor X Y [Text <>]
 aload pop pop 
 draw-underline
 moveto
 } if

dup /Overline known {
    currentpoint
    3 index get-content 
    aload pop pop 
    draw-overline
    moveto
  } if

dup /Line-Through known {
    currentpoint
    3 index get-content 
    aload pop pop 
    draw-line-through
    moveto
  } if

pop                              % => Box

} def

/show-enc-text { % => Text <>
 setfont % => Text 
 show % => 
} def