21 lines
402 B
PostScript
21 lines
402 B
PostScript
% $Header: /cvsroot/html2ps/postscript/table.row.ps,v 1.1 2005/12/18 07:21:38 Konstantin Exp $
|
|
|
|
/get-row-baseline { % => Row
|
|
% Calculate maximal baseline for each cell contained
|
|
% Cell baseline is the baseline of its first line box
|
|
{
|
|
get-content
|
|
dup length 0 gt {
|
|
0 get
|
|
get-baseline
|
|
max
|
|
} {
|
|
pop
|
|
} ifelse
|
|
}
|
|
exch
|
|
0 exch
|
|
reduce
|
|
|
|
} def
|