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.list-item.ps,v 1.1 2005/12/18 07:21:37 Konstantin Exp $

/box-list-item-height-koeff 0.7 def
/box-list-item-bullet-size-koeff 0.15 def

/box-list-item-create {
  box-block-create
  
  dup /MarkerImage /null put
  dup /MarkerString ( ) put
  
  dup box-list-item-setup-methods
  dup /box-list-item add-type
} def

/box-list-item-get-marker-box-width { % => ListItem
  dup /list-style get-css-value
  /type get {                         % => ListItem Type
    dup /none eq { pop 0 exit } if
    
    dup /disc eq
    1 index /circle eq or
    1 index /square eq or { pop dup /font-size get-css-value exit } if

pop
    
    dup /font-family get-css-value
    1 index /font-size get-css-value
    scalefont
    setfont

dup box-list-item-get-string
    stringwidth pop                   % => ListItem Width
  } loop                              % => ListItem Width
  exch pop                            % => Width
} def

/box-list-item-get-marker-image {
  /MarkerImage get
} def

/box-list-item-get-string {
  /MarkerString get
} def

/box-list-item-put-marker-image {  % => Image This
  exch /MarkerImage exch put
} def

/box-list-item-put-string {
  exch /MarkerString exch put
} def

/box-list-item-reflow {            % => Context Parent Box
% If list-style-position is inside, we'll need to move marker box inside the 
% list-item box and offset all content by its size;
  dup /list-style get-css-value /position get
  /inside eq {
% Add marker box width to text-indent value
    dup box-list-item-get-marker-box-width
    1 index put-additional-text-indent
  } if
  
  3 copy box-block-reflow
  pop pop pop
} def

/box-list-item-show {              % => Viewport This
% Draw generic block box
  2 copy box-container-show

% Draw marker 
% Determine the marker box base X coordinate
  dup get-left                     % => Viewport This MX

% Determine the base Y coordinate of marker box
  1 index box-container-get-first-data
  dup /null ne {                   % => Viewport This MX Element
    dup get-top
    1 index get-default-baseline sub
    exch pop        
  } {                              % => Viewport This MX /null
    pop
    1 index get-top
  } ifelse                         % => Viewport This MX MY

% If list-style-position is inside, we'll need to move marker box inside the 
% list-item box and offset all content by its size;
  2 index /list-style get-css-value /position get
  /inside eq {
    2 index box-list-item-get-marker-box-width
    2 index add                    % => Viewport This MX MY MX'
    3 2 roll pop
    exch
  } if

2 index box-list-item-get-marker-image 
  /null ne {                       % => Viewport This MX MY 
    exch 3 index 3 index
    box-list-item-show-image 
  } {                              % => Viewport This MX MY 
    exch
    3 index 3 index                % => Viewport This MY MX Viewport This
    dup /list-style get-css-value /type get
    {
      dup /none eq   { pop pop pop pop pop exit } if
      dup /disc eq   { pop box-list-item-show-disc exit } if
      dup /circle eq { pop box-list-item-show-circle exit } if
      dup /square eq { pop box-list-item-show-square exit } if
      pop box-list-item-show-string exit
    } loop
  } ifelse                         % => Viewport This

pop pop
} def

/box-list-item-setup-methods {     % => Box
  dup /Methods get
  dup /reflow {box-list-item-reflow} put
  dup /show   {box-list-item-show} put
  pop pop
} def

/box-list-item-show-circle {       % => MY MX Viewport This
  dup /color get-css-value
  color-apply

0.1 setlinewidth
  
  dup /font-size get-css-value
  2 div neg
  3 index add                      % => MY MX Viewport This X

1 index /font-size get-css-value
  0.4 mul
  box-list-item-height-koeff mul
  5 index add                      % => MY MX Viewport This X Y 
  
  2 copy newpath moveto

2 index /font-size get-css-value
  box-list-item-bullet-size-koeff mul
                                   % => MY MX Viewport This X Y R
  
  0 360 arc closepath stroke

pop pop pop pop
} def

/box-list-item-show-disc {         % => MY MX Viewport This
  dup /color get-css-value
  color-apply

dup /font-size get-css-value
  2 div neg
  3 index add                      % => MY MX Viewport This X

1 index /font-size get-css-value
  0.4 mul
  box-list-item-height-koeff mul
  5 index add                      % => MY MX Viewport This X Y

2 copy newpath moveto
  
  2 index /font-size get-css-value
  box-list-item-bullet-size-koeff mul
                                   % => MY MX Viewport This X Y R
  
  0 360 arc closepath fill
  
  pop pop pop pop
} def

/box-list-item-show-image {        % => MY MX Viewport This
  dup box-list-item-get-marker-image
                                   % => MY MX Viewport This Image
  3 index
  5 index moveto                   % => MY MX Viewport This Image

dup /SX get px
  1 index /SY get px
  2 index 
  image-show                       % => MY MX Viewport This Image

pop pop pop pop pop
} def

/box-list-item-show-square {       % => MY MX Viewport This
  dup /color get-css-value
  color-apply

2 index
  1 index /font-size get-css-value
  0.512 mul sub

4 index
  2 index /font-size get-css-value
  0.3 mul
  box-list-item-height-koeff mul add

2 index /font-size get-css-value 0.25 mul
  3 index /font-size get-css-value 0.25 mul
    
  rectfill
    
  pop pop pop pop
} def

/box-list-item-show-string {       % => MY MX Viewport This
  box-text-create                  % => MY MX Viewport This TextBox
  
  1 index box-list-item-get-string % => MY MX Viewport This TextBox String
  1 index put-text                 % => MY MX Viewport This TextBox

1 index
  /font-family get-css-value       % => MY MX Viewport This TextBox Font
  1 index exch
  /font-family exch put-css-value  % => MY MX Viewport This TextBox

1 index
  /font-size get-css-value         % => MY MX Viewport This TextBox FontSize
  1 index exch
  /font-size exch put-css-value    % => MY MX Viewport This TextBox

1 index
  /color get-css-value             % => MY MX Viewport This TextBox Color
  1 index exch
  /color exch put-css-value        % => MY MX Viewport This TextBox

dup box-text-setup               % => MY MX Viewport This TextBox

dup get-default-baseline
  1 index put-baseline

4 index
  1 index get-baseline add
  4 index
  2 index get-full-width sub       % => MY MX Viewport This TextBox MY MX
  2 index
  box-generic-move-to              % => MY MX Viewport This TextBox

2 index exch
  box-text-show                     
    
  pop pop pop pop
} def