21 lines
294 B
PostScript
21 lines
294 B
PostScript
/cellspan-create { % => Row Col Size
|
|
<< >>
|
|
dup /Size 3 index put
|
|
dup /Column 4 index put
|
|
dup /Row 5 index put
|
|
exch pop
|
|
exch pop
|
|
exch pop
|
|
} def
|
|
|
|
/cellspan-get-row {
|
|
/Row get
|
|
} def
|
|
|
|
/cellspan-get-column {
|
|
/Column get
|
|
} def
|
|
|
|
/cellspan-get-size {
|
|
/Size get
|
|
} def |