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