Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
11
Task/Metaprogramming/PostScript/metaprogramming-1.ps
Normal file
11
Task/Metaprogramming/PostScript/metaprogramming-1.ps
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
/ift {
|
||||
4 dict begin
|
||||
[/.if /.then] let*
|
||||
count array astore /.stack exch def
|
||||
/_restore {clear .stack aload pop}.
|
||||
.stack aload pop .if {
|
||||
_restore .then
|
||||
} {
|
||||
_restore
|
||||
} ifelse
|
||||
end}.
|
||||
Loading…
Add table
Add a link
Reference in a new issue