home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalMacros / Macros / ExpandObjects.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  1.0 KB  |  48 lines
  1. /* EnlargeObjects 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.         DO
  29.           h2=(h-t)*pw/(w-l)
  30.           t=t+(h-t-h2)/2
  31.           SetObjectCoords obj.i p x1 t x1+pw t+h2
  32.         END
  33.       ELSE
  34.         DO
  35.           GetObjectRotation obj.i
  36.           rot=RESULT
  37.           IF rot~=0 THEN
  38.             SetObjectRotation obj.i 0
  39.           h2=h*pw/w
  40.           SetObjectCoords obj.i p x1 t+(h-h2)/2 pw h2
  41.           IF rot~=0 THEN
  42.             SetObjectRotation obj.i rot
  43.         END
  44.     END
  45.   END
  46. IF deci~="" THEN DocItemPrefs "DECIMAL" deci
  47. EXIT
  48.