home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalMacros / Macros / StretchObjects.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  915 b   |  43 lines
  1. /* StretchObjects 1.0 (30.04.94) BY NDY's */
  2. OPTIONS RESULTS
  3. GetDocItemPrefs "DECIMAL"
  4. deci=RESULT
  5. DocItemPrefs "DECIMAL PERIOD"
  6. GetPageSetup "WIDTH"
  7. pw=RESULT
  8. GetSectionSetup "INSIDE OUTSIDE"
  9. PARSE VAR RESULT x1 x2
  10. pw=pw-x1-x2
  11. FirstObject "SELECTED"
  12. o=RESULT
  13. IF o~=0 THEN
  14.   DO
  15.     cnt=0
  16.     DO UNTIL o=0
  17.       obj.cnt=o
  18.       NextObject o "SELECTED"
  19.       o=RESULT
  20.       cnt=cnt+1
  21.     END
  22.     DO i=0 TO cnt-1
  23.       GetObjectType obj.i
  24.       type=RESULT
  25.       GetObjectCoords obj.i
  26.       PARSE VAR RESULT p l t w h
  27.       IF type=2 | type=3 THEN
  28.         SetObjectCoords obj.i p x1 t x1+pw h
  29.       ELSE
  30.         DO
  31.           GetObjectRotation obj.i
  32.           rot=RESULT
  33.           IF rot~=0 THEN
  34.             SetObjectRotation obj.i 0
  35.           SetObjectCoords obj.i p x1 t pw h
  36.           IF rot~=0 THEN
  37.             SetObjectRotation obj.i rot
  38.         END
  39.     END
  40.   END
  41. IF deci~="" THEN DocItemPrefs "DECIMAL" deci
  42. EXIT
  43.