home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / 3dplaque.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  6.9 KB  |  184 lines
  1. REM 3D Plaque with gold engraved plate.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .MoveObject -3301, 0
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .MoveObject 0, 3301
  11.     .RecorderSelectObjectByIndex TRUE, 1
  12.     .ApplyLensEffect 1, FALSE, FALSE, FALSE, 0, 0, 200
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .DuplicateObject 0, 0
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .MoveObject 3301, 0
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .MoveObject 0, -3301
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .MoveObject 3301, 0
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .MoveObject 0, -3301
  23.     .RecorderSelectObjectByIndex TRUE, 2
  24.     .StoreColor 2, 0, 0, 0, 100
  25.     .ApplyLensEffect 10, FALSE, FALSE, FALSE, 0, 0, 500
  26.     .RecorderSelectObjectByIndex TRUE, 2
  27.     .StoreColor 2, 0, 0, 0, 100
  28.     .ApplyLensEffect 10, FALSE, FALSE, FALSE, 0, 0, 200
  29.     .RecorderSelectObjectByIndex TRUE, 2
  30.     .DuplicateObject 0, 0
  31.     .RecorderSelectObjectByIndex TRUE, 3
  32.     .MoveObject -3301, 0
  33.     .RecorderSelectObjectByIndex TRUE, 3
  34.     .MoveObject 0, 3301
  35.     .RecorderSelectObjectByIndex TRUE, 3
  36.     .ApplyLensEffect 0, TRUE, TRUE, FALSE, 22061944, 1242708, 20971701
  37.     .RecorderSelectObjectByIndex TRUE, 3
  38.     .StoreColor 2, 0, 60, 60, 40, 0, 0, 100,  0
  39.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  80
  40.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  41.     .ApplyFountainFill 1, 0, -50, 900, 256, 0, 3, 50
  42.     .RecorderObjectScaleInfo 51942992, 17297388, 330197, -330197
  43.     .CreateRectangle 0, 0, 0, 0, 0
  44.     .RecorderSelectObjectByIndex TRUE, 4
  45.     .OrderToBack 
  46.     .RecorderSelectObjectByIndex TRUE, 4
  47.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  48.     .RecorderSelectObjectByIndex TRUE, 4
  49.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  50.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  51.     .ApplyFountainFill 0, 0, 0, -450, 256, 0, 0, 50
  52.     .RecorderObjectScaleInfo 4317989, 4317989, -23444161, 6146773
  53.     .CreateEllipse 0, 0, 0, 0, 270000000, 270000000, TRUE
  54.     .RecorderSelectObjectByIndex TRUE, 5
  55.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  56.     .RecorderSelectObjectByIndex TRUE, 5
  57.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  58.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  59.     .ApplyFountainFill 1, 0, 0, 900, 256, 0, 0, 50
  60.     .RecorderSelectObjectByIndex TRUE, 5
  61.     .StretchObject 0.3, 1, 0.3, 1, FALSE, FALSE, 9
  62.     .RecorderSelectObjectByIndex TRUE, 5
  63.     .MoveObject 0, 0
  64.     .RecorderSelectObjectByIndex TRUE, 5
  65.     .MoveObject -3301, 0
  66.     .RecorderSelectObjectByIndex TRUE, 5
  67.     .MoveObject 0, 3301
  68.     .RecorderSelectObjectByIndex TRUE, 5
  69.     .MoveObject -3301, 0
  70.     .RecorderSelectObjectByIndex TRUE, 5
  71.     .MoveObject 0, 3301
  72.     .RecorderSelectObjectByIndex TRUE, 5
  73.     .MoveObject -3301, 0
  74.     .RecorderSelectObjectByIndex TRUE, 5
  75.     .MoveObject 0, 3301
  76.     .RecorderSelectObjectByIndex TRUE, 5
  77.     .DuplicateObject 0, 0
  78.     .RecorderSelectObjectByIndex TRUE, 6
  79.     .MoveObject 475995, 0
  80.     .RecorderSelectObjectByIndex TRUE, 6
  81.     .MoveObject 3301, 0
  82.     .RecorderSelectObjectByIndex TRUE, 6
  83.     .MoveObject 3301, 0
  84.     .RecorderSelectObjectByIndex TRUE, 6
  85.     .MoveObject 3301, 0
  86.     .RecorderSelectObjectByIndex TRUE, 6
  87.     .MoveObject 3301, 0
  88.     .RecorderSelectObjectByIndex TRUE, 6
  89.     .MoveObject 3301, 0
  90.     .RecorderSelectObjectByIndex TRUE, 6
  91.     .MoveObject 3301, 0
  92.     .RecorderSelectObjectByIndex TRUE, 6
  93.     .MoveObject 3301, 0
  94.     .RecorderSelectObjectByIndex TRUE, 6
  95.     .MoveObject 3301, 0
  96.     .RecorderSelectObjectByIndex TRUE, 6
  97.     .MoveObject -3301, 0
  98.     .RecorderSelectObjectByIndex TRUE, 6
  99.     .MoveObject -3301, 0
  100.     .RecorderSelectObjectByIndex TRUE, 6
  101.     .DuplicateObject 0, 0
  102.     .RecorderSelectObjectByIndex TRUE, 7
  103.     .MoveObject 0, -129793
  104.     .RecorderSelectObjectByIndex TRUE, 7
  105.     .MoveObject 0, -3301
  106.     .RecorderSelectObjectByIndex TRUE, 7
  107.     .MoveObject 0, -3301
  108.     .RecorderSelectObjectByIndex TRUE, 7
  109.     .MoveObject 0, -3301
  110.     .RecorderSelectObjectByIndex TRUE, 7
  111.     .MoveObject 0, -3301
  112.     .RecorderSelectObjectByIndex TRUE, 7
  113.     .MoveObject 0, -3301
  114.     .RecorderSelectObjectByIndex TRUE, 7
  115.     .MoveObject 0, -3301
  116.     .RecorderSelectObjectByIndex TRUE, 7
  117.     .DuplicateObject 0, 0
  118.     .RecorderSelectObjectByIndex TRUE, 8
  119.     .MoveObject -475995, 0
  120.     .RecorderSelectObjectByIndex TRUE, 8
  121.     .MoveObject -3301, 0
  122.     .RecorderSelectObjectByIndex TRUE, 8
  123.     .MoveObject -3301, 0
  124.     .RecorderSelectObjectByIndex TRUE, 8
  125.     .MoveObject -3301, 0
  126.     .RecorderSelectObjectByIndex TRUE, 8
  127.     .MoveObject -3301, 0
  128.     .RecorderSelectObjectByIndex TRUE, 8
  129.     .MoveObject -3301, 0
  130.     .RecorderSelectObjectByIndex TRUE, 8
  131.     .MoveObject -3301, 0
  132.     .RecorderObjectScaleInfo 60604372, 25958796, 330197, -330197
  133.     .CreateRectangle 0, 0, 0, 0, 0
  134.     .RecorderSelectObjectByIndex TRUE, 9
  135.     .StoreColor 2, 0, 20, 40, 60
  136.     .ApplyUniformFillColor
  137.     .RecorderSelectObjectByIndex TRUE, 9
  138.     .OrderToBack 
  139.     .RecorderSelectObjectByIndex TRUE, 9
  140.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  141.     .RecorderObjectScaleInfo 2158980, 25958796, -28854399, -330197
  142.     .CreateRectangle 0, 0, 0, 0, 0
  143.     .RecorderSelectObjectByIndex TRUE, 10
  144.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  145.     .RecorderSelectObjectByIndex TRUE, 10
  146.     .RecorderApplyPerspective 1, 0, -36829, -439927, -36829, 439927, 36321, 366013, 36321, -366013, 0, 0, 0, 0, 0, 0
  147.     .RecorderSelectObjectByIndex TRUE, 10
  148.     .ApplyLensEffect 1, FALSE, FALSE, FALSE, 0, 0, 300
  149.     .RecorderObjectScaleInfo 60604372, 2158980, 330197, 11531582
  150.     .CreateRectangle 0, 0, 0, 0, 0
  151.     .RecorderSelectObjectByIndex TRUE, 11
  152.     .RecorderApplyPerspective 1, 0, -623823, -23621, -671829, 24129, 671829, 24129, 623823, -23621, 0, 0, 0, 0, 0, 0
  153.     .RecorderSelectObjectByIndex TRUE, 11
  154.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  155.     .RecorderSelectObjectByIndex TRUE, 11
  156.     .ApplyLensEffect 1, FALSE, FALSE, FALSE, 0, 0, 150
  157.     .RecorderObjectScaleInfo 2158980, 25958796, 29540193, -330197
  158.     .CreateRectangle 0, 0, 0, 0, 0
  159.     .RecorderSelectObjectByIndex TRUE, 12
  160.     .RecorderApplyPerspective 1, 0, -36321, -366013, -36321, 366013, 36829, 439927, 36829, -439927, 0, 0, 0, 0, 0, 0
  161.     .RecorderSelectObjectByIndex TRUE, 12
  162.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  163.     .RecorderSelectObjectByIndex TRUE, 12
  164.     .StoreColor 2, 0, 0, 0, 100
  165.     .ApplyLensEffect 10, FALSE, FALSE, FALSE, 0, 0, 300
  166.     .RecorderObjectScaleInfo 60604372, 2158980, 330197, -12242776
  167.     .CreateRectangle 0, 0, 0, 0, 0
  168.     .RecorderSelectObjectByIndex TRUE, 13
  169.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  170.     .RecorderSelectObjectByIndex TRUE, 13
  171.     .StoreColor 2, 0, 0, 0, 100
  172.     .ApplyLensEffect 10, FALSE, FALSE, FALSE, 0, 0, 150
  173.     .RecorderSelectObjectByIndex TRUE, 13
  174.     .RecorderApplyPerspective 1, 0, -671829, -23621, -623823, 24129, 623823, 24129, 671829, -23621, 0, 0, 0, 0, 0, 0
  175.     .RecorderSelectObjectsByIndex TRUE, 13, 12, 11, 10, 9
  176.     .RecorderSelectObjectsByIndex FALSE, 8, 7, 6, 5, 4
  177.     .RecorderSelectPreselectedObjects FALSE
  178.     .RecorderSelectObjectsByIndex FALSE, 3, 2, -1, -1, -1
  179.     .Group 
  180.     .ResumePainting 
  181.     .EndOfRecording 
  182. END WITHOBJECT
  183.  
  184.