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