home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / spectrl3.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.2 KB  |  68 lines
  1. REM Plaque with spectral fill to back of embossed element.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .MoveObject -3301, 0
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .MoveObject 0, 3301
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .StoreColor 2, 0, 0, 0, 0
  13.     .ApplyUniformFillColor
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .DuplicateObject 0, 0
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .MoveObject 3301, 0
  18.     .RecorderSelectObjectByIndex TRUE, 2
  19.     .MoveObject 0, -3301
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .MoveObject 3301, 0
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .MoveObject 0, -3301
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .StoreColor 2, 0, 0, 0, 50
  26.     .ApplyUniformFillColor
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .DuplicateObject 0, 0
  29.     .RecorderSelectObjectByIndex TRUE, 3
  30.     .MoveObject -3301, 0
  31.     .RecorderSelectObjectByIndex TRUE, 3
  32.     .MoveObject 0, 3301
  33.     .RecorderSelectObjectByIndex TRUE, 3
  34.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  0
  35.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  36.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
  37.     .RecorderObjectScaleInfo 51942992, 17297388, 330197, -330197
  38.     .CreateRectangle 0, 0, 0, 0, 0
  39.     .RecorderSelectObjectByIndex TRUE, 4
  40.     .ApplyOutline 762, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  41.     .StoreColor 2, 100, 100, 0, 0
  42.     .SetOutlineColor
  43.     .RecorderSelectObjectByIndex TRUE, 4
  44.     .ApplyOutline 7620, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  45.     .StoreColor 2, 100, 100, 0, 0
  46.     .SetOutlineColor
  47.     .RecorderSelectObjectByIndex TRUE, 4
  48.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  0
  49.     .StoreColor 2, 0, 100, 100, 0, 0, 0, 100,  100
  50.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
  51.     .RecorderSelectObjectByIndex TRUE, 4
  52.     .OrderToBack 
  53.     .RecorderSelectObjectByIndex TRUE, 4
  54.     .DuplicateObject 0, 0
  55.     .RecorderSelectObjectByIndex TRUE, 5
  56.     .ApplyNoFill 
  57.     .RecorderSelectObjectByIndex TRUE, 5
  58.     .ApplyOutline 2540, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  59.     .StoreColor 2, 0, 0, 0, 0
  60.     .SetOutlineColor
  61.     .RecorderSelectPreselectedObjects TRUE
  62.     .RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
  63.     .Group 
  64.     .ResumePainting 
  65.     .EndOfRecording 
  66. END WITHOBJECT
  67.  
  68.