home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / alpha / pscript4.dll / 259 / 39 < prev    next >
Text File  |  1999-10-14  |  2KB  |  30 lines
  1. %%BeginResource: file Pscript_Nup 5.0 0
  2. U `/realshowpage 0 d/$m matrix d/nx_nup 0 d/ny_nup 0 d/pagew_nup 0 d/pageh_nup
  3. 0 d/paperw_nup 0 d/paperh_nup 0 d/nups 0 d/pgx_nup 0 d/pgy_nup 0 d
  4. /papermarg_nup 1 d/pagemarg_nup 10 d/framenup T d/nupv 5 array d/xoffset 0 d
  5. /yoffset 0 d/borderlinewidth 0 d/nupangle 0 d E/definenup{/LH/nupshowpage ld
  6. nupv astore !/pgx_nup 0 store/pgy_nup 0 store}bd/startnup{/pgy_nup ~ store
  7. /pgx_nup ~ store nupv aload !/ny_nup ~ store/nx_nup ~ store/pageh_nup ~ store
  8. /pagew_nup ~ store/borderlinewidth ~ store @/nupangle ~ store R clippath/nups
  9. pathbbox 3 -1 $ sub papermarg_nup sub ny_nup V pagemarg_nup sub pageh_nup V ~ 3
  10. -1 $ sub papermarg_nup sub nx_nup V pagemarg_nup sub pagew_nup V 2 copy gt{~}if
  11. ! store nups @ +S/paperw_nup pagew_nup pagemarg_nup nups V add store/paperh_nup
  12. pageh_nup pagemarg_nup nups V add store pathbbox $m aload ! pagemarg_nup nups V
  13. @ 8 ^ 11 ^ sub paperh_nup ny_nup mul sub add 2 V ~ 9 ^ 12 ^ sub paperw_nup
  14. nx_nup mul sub add 2 V 7 ^ 0 eq{8 -4 $ 4 2 $ 8 4 $}if 8 -2 $ add 0 gt{9}{neg 7}
  15. ? ^ add 4 -1 $ sub ~ 5 -2 $ add 0 gt{5}{neg 3}? ^ add 3 -1 $ sub 2 copy/yoffset
  16. ~ store/xoffset ~ store + ! ! ! !/paperw_nup paperw_nup paperh_nup $m
  17. idtransform abs/paperh_nup ~ store abs store/pagew_nup pagew_nup pageh_nup $m
  18. idtransform abs/pageh_nup ~ store abs store $m 0 get abs $m 1 get abs lt{
  19. /nx_nup ny_nup/ny_nup nx_nup store store}if borderlinewidth 0 gt{.48 nups V @
  20. /borderlinewidth ~ store Lw}{/framenup F d}? $m concat pgx_nup paperw_nup mul
  21. pgy_nup paperh_nup mul + $m matrix invertmatrix concat N startpage}bd/reinitnup
  22. {startnup}bd/startpage{: 0 0 $m transform pagew_nup pageh_nup $m dtransform rc}
  23. bd/realshowpage/LH ld/nupshowpage{; $m concat framenup{pagemarg_nup 2 V nups V
  24. @ $m idtransform abs neg ~ abs neg ~ paperw_nup paperh_nup rs}if/pgx_nup
  25. pgx_nup 1 add @ nx_nup eq{! 0 store paperw_nup 1 nx_nup sub mul/pgy_nup pgy_nup
  26. 1 add @ ny_nup eq{! 0 store paperh_nup 1 ny_nup sub mul}{store paperh_nup}?}
  27. {store paperw_nup 0}? + $m matrix invertmatrix concat startpage}bd/finalpage{;
  28. realshowpage/LH/realshowpage ld}bd
  29. %%EndResource
  30.