home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Draw / Scripts / Presets / roundout.csc < prev    next >
Text File  |  1998-11-24  |  1KB  |  34 lines
  1. REM Rounded outline look.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.9"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyNoFill 
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .ApplyOutline 25400, 0, 0, 0, 100, -900, 0, -1, -1, FALSE, 1, 0, TRUE
  11.     .StoreColor 2, 0, 0, 0, 50
  12.     .SetOutlineColor
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .ApplyOutline 12700, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  15.     .StoreColor 2, 0, 0, 0, 50
  16.     .SetOutlineColor
  17.     .RecorderSelectObjectByIndex TRUE, 1
  18.     .DuplicateObject 0, 0
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .ApplyOutline 12700, 1, 0, 0, 100, -900, 0, -1, -1, FALSE, 1, 0, TRUE
  21.     .StoreColor 2, 0, 0, 0, 0
  22.     .SetOutlineColor
  23.     .RecorderSelectObjectByIndex TRUE, 2
  24.     .ApplyOutline 3302, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  25.     .StoreColor 2, 0, 0, 0, 0
  26.     .SetOutlineColor
  27.     .RecorderSelectPreselectedObjects TRUE
  28.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  29.     .ApplyBlend TRUE, 5, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  30.     .ResumePainting 
  31.     .EndOfRecording 
  32. END WITHOBJECT
  33.  
  34.