/twoByPagePageNumber 0 def /twoByPageLeftMargin 20 def /twoByPageBop0 { twoByPageWidth twoByPageLeftMargin add 0 translate 90 rotate } def /twoByPageBop1 { twoByPageWidth twoByPageLeftMargin add twoByPageSize 2 div translate 90 rotate } def /twoByPageBop2 { 0 twoByPageSize translate -90 rotate } def /twoByPageBop3 { 0 twoByPageSize 2 div translate -90 rotate } def /bop-hook { /twoByPageSize matrix currentmatrix dup dup 0 get dup mul exch 1 get dup mul add sqrt exch 5 get exch div def /twoByPageWidth twoByPageSize 2 sqrt div def [ { twoByPageBop0 } { twoByPageBop1 } { twoByPageBop2 } { twoByPageBop3 } ] twoByPagePageNumber get exec 2 sqrt 2 div dup scale } def /twoByPageShowPage { showpage } bind def /showpage { twoByPagePageNumber 2 mod 0 eq { initgraphics } { twoByPageShowPage } ifelse } def /eop-hook { /twoByPagePageNumber twoByPagePageNumber 1 add 4 mod def } def /end-hook { twoByPagePageNumber 2 mod 0 eq { twoByPageShowPage } if } def