home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / emboss.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.3 KB  |  44 lines
  1. REM Plaque with embossed text.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 0, 50
  9.     .ApplyUniformFillColor
  10.     .RecorderSelectObjectByIndex TRUE, 1
  11.     .DuplicateObject 0, 0
  12.     .RecorderSelectObjectByIndex TRUE, 2
  13.     .MoveObject -3555, 7619
  14.     .RecorderSelectObjectByIndex TRUE, 2
  15.     .MoveObject 0, -2539
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .StoreColor 2, 0, 0, 0, 25
  18.     .ApplyUniformFillColor
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .DuplicateObject 0, 0
  21.     .RecorderSelectObjectByIndex TRUE, 3
  22.     .MoveObject -3555, 2539
  23.     .RecorderSelectObjectByIndex TRUE, 3
  24.     .StoreColor 2, 0, 0, 0, 0
  25.     .ApplyUniformFillColor
  26.     .RecorderSelectObjectByIndex TRUE, 2
  27.     .OrderToFront 
  28.     .RecorderObjectScaleInfo 63322176, 23799787, 0, 253997
  29.     .CreateRectangle 0, 0, 0, 0, 0
  30.     .RecorderSelectObjectByIndex TRUE, 4
  31.     .StoreColor 2, 0, 0, 0, 25
  32.     .ApplyUniformFillColor
  33.     .RecorderSelectObjectByIndex TRUE, 4
  34.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  35.     .RecorderSelectObjectByIndex TRUE, 4
  36.     .OrderToBack 
  37.     .RecorderSelectPreselectedObjects TRUE
  38.     .RecorderSelectObjectsByIndex FALSE, 4, 3, 2, -1, -1
  39.     .Group 
  40.     .ResumePainting 
  41.     .EndOfRecording 
  42. END WITHOBJECT
  43.  
  44.