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