home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design16.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.9 KB  |  53 lines
  1. REM Bevel      Font used: Glacier
  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, 0, 60, 100, 0, 0, 0, 100,  9
  10.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  16
  11.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  23
  12.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  32
  13.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  40
  14.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  46
  15.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  53
  16.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  62
  17.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  69
  18.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  79
  19.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  86
  20.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  21.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  22.     .RecorderSelectObjectByIndex TRUE, 1
  23.     .DuplicateObject 0, 0
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .MoveObject 4317, 0
  26.     .RecorderSelectObjectByIndex TRUE, 1
  27.     .DuplicateObject 0, 0
  28.     .RecorderSelectObjectByIndex TRUE, 3
  29.     .MoveObject 2031, 0
  30.     .RecorderSelectObjectByIndex TRUE, 3
  31.     .OrderToFront 
  32.     .RecorderSelectObjectByIndex TRUE, 3
  33.     .StoreColor 2, 0, 0, 0, 100
  34.     .ApplyUniformFillColor
  35.     .RecorderSelectObjectByIndex TRUE, 3
  36.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  37.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  15
  38.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  21
  39.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  29
  40.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  51
  41.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  67
  42.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  76
  43.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  86
  44.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  45.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  46.     .RecorderSelectPreselectedObjects TRUE
  47.     .RecorderSelectObjectsByIndex FALSE, 3, 2, -1, -1, -1
  48.     .Group 
  49.     .ResumePainting 
  50.     .EndOfRecording 
  51. END WITHOBJECT
  52.  
  53.