home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design17.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.1 KB  |  57 lines
  1. REM Blue fountain fill with purple bevel      Font used: Bedrock
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  9.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  7
  10.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  14
  11.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  22
  12.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  33
  13.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  39
  14.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  47
  15.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  54
  16.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  66
  17.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  75
  18.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  84
  19.     .StoreColor 2, 20, 80, 0, 20, 0, 0, 100,  90
  20.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  21.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  22.     .RecorderSelectObjectByIndex TRUE, 1
  23.     .DuplicateObject 0, 0
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .MoveObject 12699, 0
  26.     .RecorderSelectObjectByIndex TRUE, 1
  27.     .DuplicateObject 0, 0
  28.     .RecorderSelectObjectByIndex TRUE, 3
  29.     .MoveObject 6349, 0
  30.     .RecorderSelectObjectByIndex TRUE, 3
  31.     .StoreColor 2, 0, 0, 0, 100
  32.     .ApplyUniformFillColor
  33.     .RecorderSelectObjectByIndex TRUE, 3
  34.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  35.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  12
  36.     .StoreColor 2, 100, 0, 0, 0, 0, 0, 100,  18
  37.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  29
  38.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  48
  39.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  65
  40.     .StoreColor 2, 100, 0, 0, 0, 0, 0, 100,  75
  41.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  81
  42.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  43.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  44.     .RecorderSelectObjectByIndex TRUE, 3
  45.     .OrderToFront 
  46.     .RecorderSelectObjectByIndex TRUE, 3
  47.     .ApplyOutline 508, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  48.     .StoreColor 2, 0, 0, 0, 0
  49.     .SetOutlineColor
  50.     .RecorderSelectPreselectedObjects TRUE
  51.     .RecorderSelectObjectsByIndex FALSE, 3, 2, -1, -1, -1
  52.     .Group 
  53.     .ResumePainting 
  54.     .EndOfRecording 
  55. END WITHOBJECT
  56.  
  57.