home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 37 / CD-ROM 37 / CD-ROM 37.iso / corel / Draw / Scripts / Presets / design18.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.4 KB  |  41 lines
  1. REM Blue fountain fill with black to purple  blended edge    Font used:
  2. REM REM Bassoon
  3.  
  4. WITHOBJECT "CorelDraw.Automation.8"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyOutline 5080, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  10.     .StoreColor 2, 0, 0, 0, 100
  11.     .SetOutlineColor
  12.     .RecorderSelectObjectByIndex TRUE, 1
  13.     .DuplicateObject 0, 0
  14.     .RecorderSelectObjectByIndex TRUE, 2
  15.     .ApplyOutline 508, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  16.     .StoreColor 2, 0, 100, 0, 0
  17.     .SetOutlineColor
  18.     .RecorderSelectPreselectedObjects TRUE
  19.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  20.     .ApplyBlend TRUE, 10, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .DuplicateObject 0, 0
  23.     .RecorderSelectObjectByIndex TRUE, 4
  24.     .ApplyOutline 508, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  25.     .StoreColor 2, 0, 0, 0, 0
  26.     .SetOutlineColor
  27.     .RecorderSelectObjectByIndex TRUE, 4
  28.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  29.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  25
  30.     .StoreColor 2, 40, 0, 0, 0, 0, 0, 100,  48
  31.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  69
  32.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  33.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  34.     .RecorderSelectPreselectedObjects TRUE
  35.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  36.     .Group 
  37.     .ResumePainting 
  38.     .EndOfRecording 
  39. END WITHOBJECT
  40.  
  41.