home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Fill_out / Fills / Fountain / Radial / rings.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  789 b   |  25 lines
  1. REM Favorite : Fill
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects FALSE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  8
  10.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  14
  11.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  27
  12.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  32
  13.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  40
  14.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  58
  15.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  64
  16.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  68
  17.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  92
  18.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  100
  19.     .ApplyFountainFill 1, 0, 0, 1281, 256, 7, 3, 50
  20.     .ResumePainting 
  21.     .EndOfRecording 
  22. END WITHOBJECT
  23.  
  24.  
  25.