12 lines
345 B
Text
12 lines
345 B
Text
vardef swap(suffix a, b) =
|
|
save ?; string s_;
|
|
if boolean a: boolean ?
|
|
elseif numeric a: numeric ? % this one could be omitted
|
|
elseif pair a: pair ?
|
|
elseif path a: path ?
|
|
elseif pen a: pen ?
|
|
elseif picture a: picture ?
|
|
elseif string a: string ?
|
|
elseif transform a: transform ? fi;
|
|
? := a; a := b; b := ?
|
|
enddef;
|