7 lines
142 B
PostScript
7 lines
142 B
PostScript
|
/doors [ 100 { false } repeat ] def
|
||
|
|
|
||
|
|
1 1 100 { dup 1 sub exch 99 {
|
||
|
|
dup doors exch get not doors 3 1 roll put
|
||
|
|
} for } for
|
||
|
|
doors pstack
|