home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / icechrom.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  5.5 KB  |  132 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.  
  4. WITHOBJECT "CorelDraw.Automation.8"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  0
  10.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  20
  11.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  35
  12.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  50
  13.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  65
  14.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  80
  15.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  100
  16.     .ApplyFountainFill 0, 0, 0, 808, 256, 0, 3, 50
  17.     .RecorderSelectObjectByIndex TRUE, 1
  18.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  19.     .StoreColor 2, 0, 0, 0, 100
  20.     .SetOutlineColor
  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.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  0
  57.     .StoreColor 2, 0, 0, 0, 10, 0, 0, 100,  24
  58.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  50
  59.     .StoreColor 2, 0, 0, 0, 10, 0, 0, 100,  75
  60.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  100
  61.     .ApplyFountainFill 0, 0, 0, 784, 256, 0, 3, 50
  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.     .StoreColor 2, 0, 0, 0, 10
  100.     .ApplyUniformFillColor
  101.     .RecorderSelectObjectByIndex TRUE, 4
  102.     .StoreColor 2, 0, 0, 0, 40
  103.     .ApplyUniformFillColor
  104.     .RecorderSelectObjectsByIndex TRUE, 4, 3, -1, -1, -1
  105.     .ApplyBlend TRUE, 6, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  106.     .RecorderSelectObjectsByIndex TRUE, 4, 3, 5, -1, -1
  107. rem
  108.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  109.     .RecorderSelectObjectByIndex TRUE, 3
  110.     .ApplyTextureFill "Samples", "Ocean water", "Water 2 Colors"
  111.     .RecorderSelectObjectByIndex TRUE, 3
  112.     .StoreColor 2, 0, 0, 0, 20, 0, 0, 100,  0
  113.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  24
  114.     .StoreColor 2, 0, 0, 0, 20, 0, 0, 100,  50
  115.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  75
  116.     .StoreColor 2, 0, 0, 0, 20, 0, 0, 100,  100
  117.     .ApplyFountainFill 0, 0, 0, 805, 256, 0, 3, 50
  118.     .RecorderSelectObjectByIndex TRUE, 4
  119.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  0
  120.     .StoreColor 2, 0, 0, 0, 10, 0, 0, 100,  24
  121.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  50
  122.     .StoreColor 2, 0, 0, 0, 10, 0, 0, 100,  75
  123.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  100
  124.     .ApplyFountainFill 0, 0, 0, 426, 256, 0, 3, 50
  125.     .RecorderSelectPreselectedObjects TRUE
  126.     .RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
  127.     .Group 
  128.     .ResumePainting 
  129.     .EndOfRecording 
  130. END WITHOBJECT
  131.  
  132.