home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / threed01.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  832 b   |  25 lines
  1. REM Blue fountain fill face, VP locked to object, 3 light sources    Font
  2. REM REM used: AvantGarde Bk BT
  3.  
  4. WITHOBJECT "CorelDraw.Automation.8"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  0
  10.     .StoreColor 2, 100, 0, 0, 0, 0, 0, 100,  100
  11.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 0, 50
  12.     .RecorderSelectObjectByIndex TRUE, 1
  13.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
  14.     .StoreColor 2, 0, 0, 0, 100
  15.     .SetOutlineColor
  16.     .RecorderSelectObjectByIndex TRUE, 1
  17.     .StoreColor 2, 100, 100, 0, 0
  18.     .StoreColor 2, 100, 100, 0, 0
  19.     .StoreColor 2, 0, 0, 0, 100
  20.     .ApplyExtrude 0, 0, 0, 20, -49275, -39369, TRUE, 3, 100, 10, 32, 7, 35, 2
  21.     .ResumePainting 
  22.     .EndOfRecording 
  23. END WITHOBJECT
  24.  
  25.