home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design11.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.2 KB  |  36 lines
  1. REM 3D Drop shadow to back      Font used: USA Black (Italic)
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 60, 100, 0, 0, 0, 100,  100
  10.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .ApplyOutline 1270, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  13.     .StoreColor 2, 0, 0, 0, 100
  14.     .SetOutlineColor
  15.     .RecorderSelectObjectByIndex TRUE, 1
  16.     .DuplicateObject 0, 0
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StretchObject 1, 1, 0.527778, 1, FALSE, FALSE, 2
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .SkewObject -22600000, 0, 6
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .OrderToBack 
  23.     .RecorderSelectObjectByIndex TRUE, 2
  24.     .StoreColor 2, 0, 0, 0, 80, 0, 0, 100,  0
  25.     .StoreColor 2, 0, 0, 0, 20, 0, 0, 100,  100
  26.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  29.     .RecorderSelectPreselectedObjects TRUE
  30.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  31.     .Group 
  32.     .ResumePainting 
  33.     .EndOfRecording 
  34. END WITHOBJECT
  35.  
  36.