home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / fractal.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.7 KB  |  50 lines
  1. REM FRACTAL SHADOW - a fractal texture with a feathered shadow.    Font
  2. REM REM used: Arial
  3.  
  4. WITHOBJECT "CorelDraw.Automation.8"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyOutline 127000, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
  10.     .StoreColor 2, 0, 0, 0, 0
  11.     .SetOutlineColor
  12.     .RecorderSelectObjectByIndex TRUE, 1
  13.     .StoreColor 2, 0, 0, 0, 0
  14.     .ApplyUniformFillColor
  15.     .RecorderSelectObjectByIndex TRUE, 1
  16.     .DuplicateObject 0, 0
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StoreColor 2, 0, 0, 0, 20
  19.     .ApplyUniformFillColor
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .ApplyOutline 127000, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  22.     .StoreColor 2, 0, 0, 0, 20
  23.     .SetOutlineColor
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  26.     .RecorderSelectObjectByIndex TRUE, 2
  27.     .DuplicateObject 0, 0
  28.     .RecorderSelectObjectByIndex TRUE, 3
  29.     .MoveObject 0, 3301
  30.     .RecorderSelectObjectByIndex TRUE, 3
  31.     .MoveObject 0, 3301
  32.     .RecorderSelectObjectByIndex TRUE, 3
  33.     .MoveObject 0, 3301
  34.     .RecorderSelectObjectByIndex TRUE, 3
  35.     .ApplyTextureFill "", "Mineral.Cloudy 5 Colors", "Mineral.Cloudy 5 Colors"
  36.     .RecorderSelectObjectByIndex TRUE, 3
  37.     .ApplyOutline 762, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  38.     .StoreColor 2, 0, 0, 0, 0
  39.     .SetOutlineColor
  40.     .RecorderSelectPreselectedObjects TRUE
  41.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  42.     .ApplyBlend TRUE, 20, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  43.     .RecorderSelectPreselectedObjects TRUE
  44.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  45.     .Group 
  46.     .ResumePainting 
  47.     .EndOfRecording 
  48. END WITHOBJECT
  49.  
  50.