home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / spectrl2.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  727 b   |  23 lines
  1. REM Off center spectral fill with reverse spectral fill on contour.
  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, 100, 0, 0, 0, 0, 0, 100,  65
  10.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  75
  11.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  12.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  13.     .ApplyFountainFill 2, 0, -50, 0, 256, 0, 1, 50
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .StoreColor 2, 0, 0, 0, 0
  16.     .StoreColor 2, 100, 100, 0, 0
  17.     .StoreColor 2, 0, 0, 0, 0
  18.     .ApplyContour 2, 1523, 5, 0
  19.     .ResumePainting 
  20.     .EndOfRecording 
  21. END WITHOBJECT
  22.  
  23.