home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design10.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.8 KB  |  80 lines
  1. REM Metallic plaque      Font used: Glacier
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .DuplicateObject 0, 0
  9.     .RecorderSelectObjectByIndex TRUE, 2
  10.     .MoveObject 9143, 0
  11.     .RecorderSelectObjectByIndex TRUE, 2
  12.     .StoreColor 2, 0, 0, 0, 0
  13.     .ApplyUniformFillColor
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .DuplicateObject 0, 0
  16.     .RecorderSelectObjectByIndex TRUE, 3
  17.     .OrderToFront 
  18.     .RecorderSelectObjectByIndex TRUE, 3
  19.     .StoreColor 2, 0, 0, 0, 50, 0, 0, 100,  0
  20.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  46
  21.     .StoreColor 2, 0, 0, 0, 50, 0, 0, 100,  100
  22.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  23.     .RecorderSelectObjectByIndex TRUE, 3
  24.     .MoveObject 4571, 0
  25.     .RecorderObjectScaleInfo 63449175, 19938993, 507995, -330197
  26.     .CreateRectangle 0, 0, 0, 0, 0
  27.     .RecorderSelectObjectByIndex TRUE, 4
  28.     .StoreColor 2, 0, 0, 0, 50, 0, 0, 100,  0
  29.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  100
  30.     .ApplyFountainFill 0, 0, 0, 1372, 256, 0, 0, 50
  31.     .RecorderSelectObjectByIndex TRUE, 4
  32.     .OrderToBack 
  33.     .RecorderSelectObjectByIndex TRUE, 4
  34.     .DuplicateObject 0, 0
  35.     .RecorderSelectObjectByIndex TRUE, 5
  36.     .StretchObject 0.958515, 1, 0.958515, 1, FALSE, FALSE, 1
  37.     .RecorderSelectObjectByIndex TRUE, 5
  38.     .StretchObject 1, 1, 0.958998, 1, FALSE, FALSE, 6
  39.     .RecorderSelectObjectsByIndex TRUE, 4, 5, -1, -1, -1
  40.     .AlignObjects 3, 0
  41.     .RecorderSelectObjectByIndex TRUE, 5
  42.     .StoreColor 2, 0, 0, 0, 50, 0, 0, 100,  0
  43.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  100
  44.     .ApplyFountainFill 0, 0, 0, -427, 256, 0, 0, 50
  45.     .RecorderSelectObjectByIndex TRUE, 5
  46.     .DuplicateObject 0, 0
  47.     .RecorderSelectObjectByIndex TRUE, 6
  48.     .StretchObject 1, 1, 0.954869, 1, FALSE, FALSE, 2
  49.     .RecorderSelectObjectByIndex TRUE, 6
  50.     .StretchObject 1, 1, 0.950249, 1, FALSE, FALSE, 6
  51.     .RecorderSelectObjectByIndex TRUE, 6
  52.     .StretchObject 0.982104, 1, 1, 1, FALSE, FALSE, 4
  53.     .RecorderSelectObjectByIndex TRUE, 6
  54.     .StretchObject 0.985423, 1, 1, 1, FALSE, FALSE, 8
  55.     .RecorderSelectObjectsByIndex TRUE, 5, 6, -1, -1, -1
  56.     .AlignObjects 3, 0
  57.     .RecorderSelectObjectByIndex TRUE, 6
  58.     .StoreColor 2, 0, 0, 0, 50, 0, 0, 100,  0
  59.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  100
  60.     .ApplyFountainFill 0, 0, 0, 1800, 256, 0, 0, 50
  61.     .RecorderSelectObjectsByIndex TRUE, 4, 5, 6, -1, -1
  62.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  63.     .RecorderSelectObjectByIndex TRUE, 4
  64.     .DuplicateObject 0, 0
  65.     .RecorderSelectObjectByIndex TRUE, 7
  66.     .StoreColor 2, 0, 0, 0, 100
  67.     .ApplyUniformFillColor
  68.     .RecorderSelectObjectByIndex TRUE, 7
  69.     .MoveObject 5587, -4317
  70.     .RecorderSelectObjectByIndex TRUE, 7
  71.     .OrderToBack 
  72.     .RecorderSelectObjectsByIndex TRUE, 7, 6, 5, 4, 3
  73.     .RecorderSelectPreselectedObjects FALSE
  74.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  75.     .Group 
  76.     .ResumePainting 
  77.     .EndOfRecording 
  78. END WITHOBJECT
  79.  
  80.