home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalMacros / Macros / TwoPageGraphic.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  667 b   |  26 lines
  1. /* TwoPageGraphic 1.0 (13.03.95) by NDY's */
  2. ADDRESS "FINALW.1"
  3. OPTIONS RESULTS
  4. FirstObject "SELECTED"
  5. IF RESULT=0 THEN EXIT
  6. obj=RESULT
  7. GetDocItemPrefs "DECIMAL"
  8. deci=Upper(RESULT)
  9. DocItemPrefs "DECIMAL PERIOD" /* Use decimal point */
  10. GetObjectCoords obj
  11. PARSE VAR RESULT page x y w h
  12. GetPageSetup "WIDTH LEFT RIGHT FIRSTPAGE"
  13. PARSE VAR RESULT width left right first
  14. /* Copy only one object */
  15. SelectObject
  16. SelectObject obj
  17. Copy
  18. Paste
  19. FirstObject "SELECTED"
  20. obj2=RESULT
  21. IF (page-first)//2 THEN
  22.   SetObjectCoords obj2 page+1 left-width+right+x y w h
  23. ELSE
  24.   SetObjectCoords obj2 Max(page-1,first) width-right-left+x y w h
  25. DocItemPrefs "DECIMAL " deci /* Old setting */
  26.