home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / summer.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.8 KB  |  58 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .DuplicateObject 0, 0
  9.     .RecorderSelectObjectByIndex TRUE, 2
  10.     .StoreColor 2, 0, 100, 0, 0
  11.     .ApplyUniformFillColor
  12.     .RecorderSelectObjectByIndex TRUE, 2
  13.     .StoreColor 2, 0, 0, 0, 0
  14.     .StoreColor 2, 0, 0, 100, 0
  15.     .StoreColor 2, 0, 0, 0, 0
  16.     .ApplyContour 2, 6095, 5, 0
  17.     .RecorderSelectObjectByIndex TRUE, 1
  18.     .OrderToFront 
  19.     .RecorderSelectObjectByIndex TRUE, 1
  20.     .ApplyTextureFill "", "Sky 5 Colors", "Sky 5 Colors"
  21.     .RecorderSelectObjectByIndex TRUE, 1
  22.     .ApplyOutline 13716, 1, 0, 0, 100, 0, 0, -1, -1, TRUE, 2, 0, TRUE
  23.     .StoreColor 2, 100, 0, 100, 0
  24.     .SetOutlineColor
  25.     .RecorderSelectObjectByIndex TRUE, 1
  26.     .ApplyOutline 13716, 1, 0, 0, 100, 0, 0, -1, -1, TRUE, 2, 0, TRUE
  27.     .StoreColor 2, 20, 80, 0, 20
  28.     .SetOutlineColor
  29.     .RecorderSelectObjectByIndex TRUE, 1
  30.     .DuplicateObject 0, 0
  31.     .RecorderSelectObjectByIndex TRUE, 4
  32.     .StoreColor 2, 20, 80, 0, 20
  33.     .ApplyUniformFillColor
  34.     .RecorderSelectObjectByIndex TRUE, 4
  35.     .MoveObject 507, -2793
  36.     .RecorderSelectObjectByIndex TRUE, 4
  37.     .OrderBackOne 
  38.     .RecorderSelectObjectByIndex TRUE, 4
  39.     .StoreColor 2, 0, 0, 0, 100
  40.     .ApplyUniformFillColor
  41.     .RecorderSelectObjectByIndex TRUE, 4
  42.     .ApplyOutline 13716, 1, 0, 0, 100, -900, 0, -1, -1, TRUE, 1, 0, TRUE
  43.     .StoreColor 2, 0, 0, 0, 100
  44.     .SetOutlineColor
  45.     .RecorderSelectObjectByIndex TRUE, 1
  46.     .ApplyOutline 13716, 1, 0, 0, 100, -900, 0, -1, -1, TRUE, 1, 0, TRUE
  47.     .StoreColor 2, 0, 0, 0, 100
  48.     .SetOutlineColor
  49.     .RecorderSelectObjectByIndex TRUE, 1
  50.     .ApplyTextureFill "", "Sky 5 Colors", "Sky 5 Colors"
  51.     .RecorderSelectPreselectedObjects TRUE
  52.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  53.     .Group 
  54.     .ResumePainting 
  55.     .EndOfRecording 
  56. END WITHOBJECT
  57.  
  58.