home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 58 / af058b.adf / PV21.lha / REXX / LineWgt-1pt.pvrx < prev    next >
Text File  |  1991-07-02  |  340b  |  16 lines
  1. /* Line-1pt.pvrx---sets Line (Border) Weight to 1 pt.
  2.    Copyright © 1991 by Stylus, Inc. */
  3.  
  4. /* Try to get exclusive lock on project window.
  5.     If can't get lock, not polite to interrupt. */
  6. 'Lock'
  7. if rc ~= 0 then exit
  8.  
  9. Attrs.EdgeWidth = 0.01384
  10. 'SetCurrAttrs Attrs'
  11.  
  12. 'UnLock'
  13.  
  14. /* Based on 0.01384"-pt */
  15. /* Integer PV rounds to 0.013672 */
  16.