18 lines
145 B
PostScript
18 lines
145 B
PostScript
|
/female{
|
||
|
|
/n exch def
|
||
|
|
n 0 eq
|
||
|
|
{1}
|
||
|
|
{
|
||
|
|
n n 1 sub female male sub
|
||
|
|
}ifelse
|
||
|
|
}def
|
||
|
|
|
||
|
|
/male{
|
||
|
|
/n exch def
|
||
|
|
n 0 eq
|
||
|
|
{0}
|
||
|
|
{
|
||
|
|
n n 1 sub male female sub
|
||
|
|
}ifelse
|
||
|
|
}def
|