home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Draw / Scripts / Presets / extrud03.csc < prev    next >
Text File  |  1998-11-24  |  609b  |  22 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.9"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 5, 255, 255, 0, 0
  9.     .ApplyUniformFillColor
  10.     .RecorderSelectObjectByIndex TRUE, 1
  11.     .ApplyOutline 1524, 1, 1, 1, 100, -675, 0, -1, -1, FALSE, 2, 0, TRUE
  12.     .StoreColor 5, 0, 0, 0, 0
  13.     .SetOutlineColor
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .StoreColor 5, 255, 0, 0, 0
  16.     .StoreColor 5, 255, 255, 0, 0
  17.     .ApplyExtrude 0, 0, 0, 10, -326135, 223265, TRUE, 0, 0, 0, 0, 0, 0, 1
  18.     .ResumePainting 
  19.     .EndOfRecording 
  20. END WITHOBJECT
  21.  
  22.