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