home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / baryellw.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.5 KB  |  64 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,  14
  10.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  25
  11.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  36
  12.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  49
  13.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  62
  14.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  72
  15.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  16.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  17.     .ApplyFountainFill 0, 0, 0, 450, 256, 0, 3, 50
  18.     .RecorderSelectObjectByIndex TRUE, 1
  19.     .DuplicateObject 0, 0
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .StretchObject 1, 1, 0.727273, 1, FALSE, FALSE, 9
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .StretchObject 0.955556, 1, 1, 1, FALSE, FALSE, 9
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  0
  26.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  14
  27.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  24
  28.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  36
  29.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  47
  30.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  62
  31.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  72
  32.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  33.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  100
  34.     .ApplyFountainFill 0, 0, 0, 372, 256, 0, 3, 50
  35.     .RecorderSelectObjectByIndex TRUE, 2
  36.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  0
  37.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  14
  38.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  24
  39.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  36
  40.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  47
  41.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  62
  42.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  72
  43.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  44.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  100
  45.     .ApplyFountainFill 0, 0, 0, -381, 256, 0, 3, 50
  46.     .RecorderSelectObjectByIndex TRUE, 1
  47.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  0
  48.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  14
  49.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  25
  50.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  36
  51.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  49
  52.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  62
  53.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  72
  54.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  85
  55.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  100
  56.     .ApplyFountainFill 0, 0, 0, 450, 256, 0, 3, 50
  57.     .RecorderSelectPreselectedObjects TRUE
  58.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  59.     .Group 
  60.     .ResumePainting 
  61.     .EndOfRecording 
  62. END WITHOBJECT
  63.  
  64.