home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / threed03.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  882 b   |  26 lines
  1. REM Purple / blue fountain fill face, VP locked to object, 2 light sources
  2. REM REM    Font used: BankGothic Md 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, 0, 100, 0, 0, 0, 0, 100,  46
  11.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  100
  12.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, FALSE
  15.     .StoreColor 2, 0, 0, 0, 100
  16.     .SetOutlineColor
  17.     .RecorderSelectObjectByIndex TRUE, 1
  18.     .StoreColor 2, 100, 100, 0, 0
  19.     .StoreColor 2, 0, 0, 0, 0
  20.     .StoreColor 2, 0, 0, 0, 100
  21.     .ApplyExtrude 4, 0, 0, 10, 24637, -22605, TRUE, 12, 79, 5, 56, 0, 0, 2
  22.     .ResumePainting 
  23.     .EndOfRecording 
  24. END WITHOBJECT
  25.  
  26.