14 lines
151 B
PostScript
14 lines
151 B
PostScript
|
/F {
|
||
|
|
{
|
||
|
|
{0 eq} {pop 1} is?
|
||
|
|
{0 gt} {dup 1 sub F M sub} is?
|
||
|
|
} cond
|
||
|
|
}.
|
||
|
|
|
||
|
|
/M {
|
||
|
|
{
|
||
|
|
{0 eq} {pop 0} is?
|
||
|
|
{0 gt} {dup 1 sub M F sub} is?
|
||
|
|
} cond
|
||
|
|
}.
|