home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / barorang.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.5 KB  |  42 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  10
  10.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  21
  11.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  32
  12.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  43
  13.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  55
  14.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  70
  15.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  86
  16.     .StoreColor 2, 0, 60, 100, 0, 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.74271, 1, FALSE, FALSE, 9
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .StretchObject 0.953395, 1, 1, 1, FALSE, FALSE, 9
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  0
  26.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  10
  27.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  21
  28.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  32
  29.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  43
  30.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  55
  31.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  70
  32.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  86
  33.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  100
  34.     .ApplyFountainFill 0, 0, 0, -471, 256, 0, 3, 50
  35.     .RecorderSelectPreselectedObjects TRUE
  36.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  37.     .Group 
  38.     .ResumePainting 
  39.     .EndOfRecording 
  40. END WITHOBJECT
  41.  
  42.