home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / landscapepage.pdrx < prev    next >
Encoding:
Text File  |  1993-12-19  |  1.1 KB  |  57 lines
  1. /* This Genie changes a portrait format page to landscape, and vice versa. It sets up the Postscript output specs correctly.
  2. Written by Don Cox  July '92.  Adapted for PDraw, Dec '93 */
  3.  
  4.  
  5.  
  6. signal on error
  7. signal on syntax
  8. address command
  9.  
  10.  
  11. cpage = pdm_CurrentPage()
  12. psize = pdm_GetPageSize(cpage)
  13. Xsize = word(psize,1)
  14. Ysize = word(psize,2)
  15.  
  16. if Xsize = Ysize then exit_msg("Page is square")
  17. if Xsize<Ysize then 
  18. do
  19.     shape = "Portrait"
  20.     newshape = "Landscape"
  21.     neworient = 2
  22.     end
  23. else do
  24.     shape = "Landscape"
  25.     newshape = "Portrait"
  26.     neworient = 1
  27.     end
  28.  
  29. choiceint = pdm_Inform(2,"Page is currently "shape". Convert to "newshape"?","Yes","No")
  30. if choiceint  ~=0 then exit_msg("No change")
  31.  
  32. call pdm_SetPageSize(cpage,Ysize,Xsize)
  33. orient = pdm_GetPSOutputOrient(cpage)
  34.  
  35. call pdm_SetPSOutputOrient(cpage,neworient)
  36.  
  37. call exit_msg()
  38.  
  39. end
  40.  
  41. error:
  42. syntax:
  43.     do
  44.     exit_msg("Genie failed due to error: "errortext(rc))
  45.     end
  46.  
  47. exit_msg:
  48.     do
  49.     parse arg message
  50.     if message ~= "" then
  51.     call pdm_Inform(1,message,"Resume")
  52.     call pdm_ClearStatus()
  53.     call pdm_AutoUpdate(1)
  54.     exit
  55.     end
  56.  
  57.