home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / bargold.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.7 KB  |  47 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  12
  10.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  31
  11.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  46
  12.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  65
  13.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  14.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  15.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  16.     .RecorderSelectObjectByIndex TRUE, 1
  17.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  18.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  12
  19.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  31
  20.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  46
  21.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  65
  22.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  23.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  24.     .ApplyFountainFill 0, 0, 0, 450, 256, 0, 3, 50
  25.     .RecorderSelectObjectByIndex TRUE, 1
  26.     .DuplicateObject 0, 0
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .StretchObject 1, 1, 0.748808, 1, FALSE, FALSE, 9
  29.     .RecorderSelectObjectByIndex TRUE, 2
  30.     .StretchObject 0.95509, 1, 1, 1, FALSE, FALSE, 9
  31.     .RecorderSelectObjectByIndex TRUE, 2
  32.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  33.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  12
  34.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  31
  35.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  46
  36.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  65
  37.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  38.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  39.     .ApplyFountainFill 0, 0, 0, -419, 256, 0, 3, 50
  40.     .RecorderSelectPreselectedObjects TRUE
  41.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  42.     .Group 
  43.     .ResumePainting 
  44.     .EndOfRecording 
  45. END WITHOBJECT
  46.  
  47.