home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Draw / Scripts / Presets / design08.csc < prev    next >
Text File  |  1998-11-24  |  1KB  |  42 lines
  1. REM Blue fountain fill with feathered drop  shadow    Font used: AvantGarde
  2. REM REM Bk BT
  3.  
  4. WITHOBJECT "CorelDraw.Automation.9"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .StoreColor 2, 0, 0, 0, 100
  10.     .ApplyUniformFillColor
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .ApplyOutline 3556, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  13.     .StoreColor 2, 0, 0, 0, 0
  14.     .SetOutlineColor
  15.     .RecorderSelectObjectByIndex TRUE, 1
  16.     .DuplicateObject 0, 0
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StoreColor 5, 153, 153, 153, 0
  19.     .ApplyUniformFillColor
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .ApplyOutline 254, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  22.     .StoreColor 2, 0, 0, 0, 50
  23.     .SetOutlineColor
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .DuplicateObject 0, 0
  26.     .RecorderSelectObjectByIndex TRUE, 3
  27.     .MoveObject -7619, 6095
  28.     .RecorderSelectObjectByIndex TRUE, 3
  29.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  0
  30.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  100
  31.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 0, 50
  32.     .RecorderSelectPreselectedObjects TRUE
  33.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  34.     .ApplyBlend TRUE, 10, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  35.     .RecorderSelectPreselectedObjects TRUE
  36.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  37.     .Group 
  38.     .ResumePainting 
  39.     .EndOfRecording 
  40. END WITHOBJECT
  41.  
  42.