home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / coreldrw / Draw / Scripts / Presets / barmagen.csc < prev    next >
Text File  |  1997-08-19  |  2KB  |  53 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, 0, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  13
  10.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  24
  11.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  36
  12.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  50
  13.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  62
  14.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  73
  15.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  86
  16.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  100
  17.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  18.     .RecorderSelectObjectByIndex TRUE, 1
  19.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  0
  20.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  13
  21.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  24
  22.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  36
  23.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  50
  24.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  62
  25.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  73
  26.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  86
  27.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  100
  28.     .ApplyFountainFill 0, 0, 0, 450, 256, 0, 3, 50
  29.     .RecorderSelectObjectByIndex TRUE, 1
  30.     .DuplicateObject 0, 0
  31.     .RecorderSelectObjectByIndex TRUE, 2
  32.     .StretchObject 1, 1, 0.720412, 1, FALSE, FALSE, 9
  33.     .RecorderSelectObjectByIndex TRUE, 2
  34.     .StretchObject 0.948457, 1, 1, 1, FALSE, FALSE, 9
  35.     .RecorderSelectObjectByIndex TRUE, 2
  36.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  0
  37.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  13
  38.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  24
  39.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  36
  40.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  50
  41.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  62
  42.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  73
  43.     .StoreColor 2, 0, 40, 0, 0, 0, 0, 100,  86
  44.     .StoreColor 2, 0, 100, 0, 0, 0, 0, 100,  100
  45.     .ApplyFountainFill 0, 0, 0, -500, 256, 0, 3, 50
  46.     .RecorderSelectPreselectedObjects TRUE
  47.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  48.     .Group 
  49.     .ResumePainting 
  50.     .EndOfRecording 
  51. END WITHOBJECT
  52.  
  53.