max v2; #N vpatcher 448 294 770 681; #P newex 50 145 60 196617 vasp.pwrap; #P outlet 24 268 15 0; #P inlet 25 56 15 0; #P newex 24 232 51 196617 vasp.rect; #P newex 25 210 58 196617 vasp.join 2; #P newex 49 187 44 196617 vasp.int; #P newex 50 167 55 196617 vasp.* $1; #P newex 50 123 44 196617 vasp.dif; #P newex 25 81 55 196617 vasp.polar; #P newex 25 101 61 196617 vasp.split 2; #P comment 26 31 203 196617 multiply phase velocity by argument factor; #P connect 6 0 7 0; #P connect 7 0 9 0; #P connect 8 0 2 0; #P connect 2 0 1 0; #P connect 1 0 6 0; #P connect 4 0 5 0; #P connect 1 1 3 0; #P connect 3 0 10 0; #P connect 10 0 4 0; #P connect 5 0 6 1; #P pop;