home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / icechrom.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  5.5 KB  |  129 lines
  1. REM Blue- and white-shaded object with mirrored shadow on chrome-shaded
  2. REM REM blocks blended together to make a raised platform
  3. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  4.  
  5. WITHOBJECT "CorelDraw.Automation.7"
  6.     .StartOfRecording 
  7.     .SuppressPainting 
  8.     .RecorderStorePreselectedObjects TRUE
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .ApplyFountainFill 0, 0, 0, 808, 256, 0, 3, 50
  11.     .SetFountainFillColor 0, 2, 100, 20, 0, 0
  12.     .SetFountainFillColor 20, 2, 0, 0, 0, 0
  13.     .SetFountainFillColor 35, 2, 100, 20, 0, 0
  14.     .SetFountainFillColor 50, 2, 0, 0, 0, 0
  15.     .SetFountainFillColor 65, 2, 100, 20, 0, 0
  16.     .SetFountainFillColor 80, 2, 0, 0, 0, 0
  17.     .SetFountainFillColor 100, 2, 100, 20, 0, 0
  18.     .RecorderSelectObjectByIndex TRUE, 1
  19.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  20.     .SetOutlineColor 2, 0, 0, 0, 100
  21.     .RecorderSelectObjectByIndex TRUE, 1
  22.     .DuplicateObject 0, 0
  23.     .RecorderSelectObjectByIndex TRUE, 2
  24.     .StretchObject 1, 1, 2.56, 1, FALSE, TRUE, 9
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .MoveObject 0, 0
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .MoveObject 1777, -242315
  29.     .RecorderSelectObjectByIndex TRUE, 2
  30.     .MoveObject 0, 507
  31.     .RecorderSelectObjectByIndex TRUE, 2
  32.     .MoveObject 0, 507
  33.     .RecorderSelectObjectByIndex TRUE, 2
  34.     .MoveObject 0, 507
  35.     .RecorderSelectObjectByIndex TRUE, 2
  36.     .MoveObject 0, 507
  37.     .RecorderSelectObjectByIndex TRUE, 2
  38.     .MoveObject 0, 507
  39.     .RecorderSelectObjectByIndex TRUE, 2
  40.     .MoveObject 0, 507
  41.     .RecorderSelectObjectByIndex TRUE, 2
  42.     .MoveObject -507, 0
  43.     .RecorderSelectObjectByIndex TRUE, 2
  44.     .MoveObject -507, 0
  45.     .RecorderSelectObjectByIndex TRUE, 2
  46.     .MoveObject -507, 0
  47.     .RecorderSelectObjectByIndex TRUE, 2
  48.     .MoveObject 0, 507
  49.     .RecorderSelectObjectByIndex TRUE, 2
  50.     .OrderToBack 
  51.     .RecorderSelectObjectByIndex TRUE, 2
  52.     .RecorderApplyPerspective 1, 0, -160781, -4571, -146811, 109727, 146557, 109727, 146557, -109727, 0, 0, 0, 0, 0, 0
  53.     .RecorderSelectObjectByIndex TRUE, 2
  54.     .RecorderApplyPerspective 1, 0, -160781, -4571, -146811, 109727, 146557, 109727, 156463, -4571, 0, 0, 0, 0, 0, 0
  55.     .RecorderSelectObjectByIndex TRUE, 2
  56.     .ApplyFountainFill 0, 0, 0, 784, 256, 0, 3, 50
  57.     .SetFountainFillColor 0, 2, 0, 0, 0, 40
  58.     .SetFountainFillColor 24, 2, 0, 0, 0, 10
  59.     .SetFountainFillColor 50, 2, 0, 0, 0, 40
  60.     .SetFountainFillColor 75, 2, 0, 0, 0, 10
  61.     .SetFountainFillColor 100, 2, 0, 0, 0, 40
  62.     .RecorderSelectObjectByIndex TRUE, 2
  63.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  64.     .RecorderObjectScaleInfo 63652398, 18668991, 457193, -12623790
  65.     .CreateRectangle 0, 0, 0, 0, 0
  66.     .RecorderSelectObjectByIndex TRUE, 3
  67.     .RecorderApplyPerspective 1, 0, -275335, -89915, -234441, 68579, 234441, 68579, 234441, -68579, 0, 0, 0, 0, 0, 0
  68.     .RecorderSelectObjectByIndex TRUE, 3
  69.     .RecorderApplyPerspective 1, 0, -275335, -89915, -234441, 68579, 234441, 68579, 258317, -89915, 0, 0, 0, 0, 0, 0
  70.     .RecorderSelectObjectByIndex TRUE, 3
  71.     .OrderToBack 
  72.     .RecorderSelectObjectByIndex TRUE, 3
  73.     .StretchObject 0.949907, 1, 1, 1, FALSE, FALSE, 8
  74.     .RecorderSelectObjectByIndex TRUE, 3
  75.     .StretchObject 0.96659, 1, 1, 1, FALSE, FALSE, 4
  76.     .RecorderSelectObjectByIndex TRUE, 3
  77.     .StretchObject 0.982718, 1, 1, 1, FALSE, FALSE, 4
  78.     .RecorderSelectObjectByIndex TRUE, 3
  79.     .StretchObject 0.979425, 1, 1, 1, FALSE, FALSE, 8
  80.     .RecorderSelectObjectByIndex TRUE, 3
  81.     .DuplicateObject 0, 0
  82.     .RecorderSelectObjectByIndex TRUE, 4
  83.     .OrderToBack 
  84.     .RecorderSelectObjectByIndex TRUE, 4
  85.     .StretchObject 1.05692, 1, 1, 1, FALSE, FALSE, 8
  86.     .RecorderSelectObjectByIndex TRUE, 4
  87.     .StretchObject 1.05952, 1, 1, 1, FALSE, FALSE, 4
  88.     .RecorderSelectObjectByIndex TRUE, 4
  89.     .StretchObject 1, 1, 1.16109, 1, FALSE, FALSE, 6
  90.     .RecorderSelectObjectByIndex TRUE, 4
  91.     .RecorderApplyPerspective 1, 0, -282447, -89915, -234441, 68579, 234441, 68579, 258317, -89915, 0, 0, 0, 0, 0, 0
  92.     .RecorderSelectObjectByIndex TRUE, 4
  93.     .RecorderApplyPerspective 1, 0, -282447, -89915, -234441, 68579, 234441, 68579, 271017, -89915, 0, 0, 0, 0, 0, 0
  94.     .RecorderSelectObjectByIndex TRUE, 4
  95.     .RecorderApplyPerspective 1, 0, -282447, -89915, -236727, 60197, 234441, 68579, 271017, -89915, 0, 0, 0, 0, 0, 0
  96.     .RecorderSelectObjectByIndex TRUE, 4
  97.     .RecorderApplyPerspective 1, 0, -282447, -89915, -236727, 60197, 236981, 60197, 271017, -89915, 0, 0, 0, 0, 0, 0
  98.     .RecorderSelectObjectByIndex TRUE, 3
  99.     .ApplyUniformFillColor 2, 0, 0, 0, 10
  100.     .RecorderSelectObjectByIndex TRUE, 4
  101.     .ApplyUniformFillColor 2, 0, 0, 0, 40
  102.     .RecorderSelectObjectsByIndex TRUE, 4, 3, -1, -1, -1
  103.     .ApplyBlend TRUE, 6, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  104.     .RecorderSelectObjectsByIndex TRUE, 4, 3, 5, -1, -1
  105. rem
  106.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  107.     .RecorderSelectObjectByIndex TRUE, 3
  108.     .ApplyTextureFill "Samples", "Ocean water", "Water 2 Colors"
  109.     .RecorderSelectObjectByIndex TRUE, 3
  110.     .ApplyFountainFill 0, 0, 0, 805, 256, 0, 3, 50
  111.     .SetFountainFillColor 0, 2, 0, 0, 0, 20
  112.     .SetFountainFillColor 24, 2, 0, 0, 0, 0
  113.     .SetFountainFillColor 50, 2, 0, 0, 0, 20
  114.     .SetFountainFillColor 75, 2, 0, 0, 0, 0
  115.     .SetFountainFillColor 100, 2, 0, 0, 0, 20
  116.     .RecorderSelectObjectByIndex TRUE, 4
  117.     .ApplyFountainFill 0, 0, 0, 426, 256, 0, 3, 50
  118.     .SetFountainFillColor 0, 2, 0, 0, 0, 40
  119.     .SetFountainFillColor 24, 2, 0, 0, 0, 10
  120.     .SetFountainFillColor 50, 2, 0, 0, 0, 40
  121.     .SetFountainFillColor 75, 2, 0, 0, 0, 10
  122.     .SetFountainFillColor 100, 2, 0, 0, 0, 40
  123.     .RecorderSelectPreselectedObjects TRUE
  124.     .RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
  125.     .Group 
  126.     .ResumePainting 
  127.     .EndOfRecording 
  128. END WITHOBJECT
  129.