home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / coreldrw / Draw / Scripts / Presets / spectrl1.csc < prev    next >
Text File  |  1997-08-19  |  573b  |  19 lines
  1. REM Spectral conical fill.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  10.     .ApplyFountainFill 1, 0, 0, 900, 256, 0, 1, 50
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  0
  13.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  14.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
  15.     .ResumePainting 
  16.     .EndOfRecording 
  17. END WITHOBJECT
  18.  
  19.