home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 37 / CD-ROM 37 / CD-ROM 37.iso / corel / Draw / Scripts / Presets / flame.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.4 KB  |  40 lines
  1. REM Flame fractal fill with red to yellow blend  outline.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyTextureFill "", "Flames", "Flames"
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .DuplicateObject 0, 0
  11.     .RecorderSelectObjectByIndex TRUE, 2
  12.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  13.     .StoreColor 2, 0, 100, 100, 0
  14.     .SetOutlineColor
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .ApplyNoFill 
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .ApplyOutline 12700, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
  19.     .StoreColor 2, 0, 100, 100, 0
  20.     .SetOutlineColor
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .DuplicateObject 0, 0
  23.     .RecorderSelectObjectByIndex TRUE, 3
  24.     .ApplyOutline 12700, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  25.     .StoreColor 2, 0, 0, 100, 0
  26.     .SetOutlineColor
  27.     .RecorderSelectObjectByIndex TRUE, 3
  28.     .ApplyOutline 2540, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
  29.     .StoreColor 2, 0, 0, 100, 0
  30.     .SetOutlineColor
  31.     .RecorderSelectObjectsByIndex TRUE, 2, 3, -1, -1, -1
  32.     .ApplyBlend TRUE, 10, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  33.     .RecorderSelectPreselectedObjects TRUE
  34.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  35.     .Group 
  36.     .ResumePainting 
  37.     .EndOfRecording 
  38. END WITHOBJECT
  39.  
  40.