home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / earthgld.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  4.4 KB  |  98 lines
  1. REM Texture filled object with reflection on gold faded squares blended
  2. REM REM 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.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  11.     .SetOutlineColor 2, 0, 0, 0, 100
  12.     .RecorderSelectObjectByIndex TRUE, 1
  13.     .DuplicateObject 0, 0
  14.     .RecorderSelectObjectByIndex TRUE, 2
  15.     .StretchObject 1, 1, 1.05, 1, FALSE, TRUE, 9
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .MoveObject 0, 0
  18.     .RecorderSelectObjectByIndex TRUE, 2
  19.     .MoveObject 2539, -139699
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .MoveObject -761, 0
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .RecorderApplyPerspective 1, 0, -274827, -12191, -229107, 70103, 229107, 70103, 229107, -70357, 0, 0, 0, 0, 0, 0
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .RecorderApplyPerspective 1, 0, -274827, -12191, -229107, 70103, 229107, 70103, 268477, -12191, 0, 0, 0, 0, 0, 0
  26.     .RecorderSelectObjectByIndex TRUE, 1
  27.     .OrderToFront 
  28.     .RecorderSelectObjectByIndex TRUE, 1
  29.     .ApplyTextureFill "", "Satellite Photography", "Satellite Photography"
  30.     .RecorderSelectObjectByIndex TRUE, 2
  31.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  32.     .RecorderSelectObjectByIndex TRUE, 2
  33.     .ApplyFountainFill 0, 0, 0, 960, 256, 0, 3, 50
  34.     .SetFountainFillColor 0, 2, 60, 0, 40, 40
  35.     .SetFountainFillColor 25, 2, 100, 20, 0, 0
  36.     .SetFountainFillColor 35, 2, 0, 20, 40, 40
  37.     .SetFountainFillColor 50, 2, 40, 0, 100, 0
  38.     .SetFountainFillColor 65, 2, 0, 20, 40, 40
  39.     .SetFountainFillColor 75, 2, 100, 20, 0, 0
  40.     .SetFountainFillColor 100, 2, 60, 0, 40, 40
  41.     .RecorderObjectScaleInfo 63576174, 12953998, -787364, -22732996
  42.     .CreateRectangle 0, 0, 0, 0, 0
  43.     .RecorderSelectObjectByIndex TRUE, 3
  44.     .MoveObject 14985, 0
  45.     .RecorderSelectObjectByIndex TRUE, 3
  46.     .RecorderApplyPerspective 1, 0, -350519, -41401, -281177, 57149, 281177, 57149, 281177, -57149, 0, 0, 0, 0, 0, 0
  47.     .RecorderSelectObjectByIndex TRUE, 3
  48.     .RecorderApplyPerspective 1, 0, -350519, -41401, -281177, 57149, 281177, 57149, 352805, -43687, 0, 0, 0, 0, 0, 0
  49.     .RecorderSelectObjectByIndex TRUE, 3
  50.     .RecorderApplyPerspective 1, 0, -350519, -41401, -281177, 57149, 281177, 57149, 350773, -41401, 0, 0, 0, 0, 0, 0
  51.     .RecorderSelectObjectByIndex TRUE, 3
  52.     .StretchObject 1, 1, 1.20604, 1, FALSE, FALSE, 6
  53.     .RecorderSelectObjectByIndex TRUE, 3
  54.     .DuplicateObject 0, 0
  55.     .RecorderSelectObjectByIndex TRUE, 4
  56.     .StretchObject 0.945892, 1, 1, 1, FALSE, FALSE, 8
  57.     .RecorderSelectObjectByIndex TRUE, 4
  58.     .StretchObject 0.942532, 1, 1, 1, FALSE, FALSE, 4
  59.     .RecorderSelectObjectByIndex TRUE, 4
  60.     .StretchObject 1, 1, 0.716495, 1, FALSE, FALSE, 6
  61.     .RecorderSelectObjectByIndex TRUE, 4
  62.     .RecorderApplyPerspective 1, 0, -330199, -41401, -281177, 57149, 281177, 57149, 350773, -41401, 0, 0, 0, 0, 0, 0
  63.     .RecorderSelectObjectByIndex TRUE, 4
  64.     .RecorderApplyPerspective 1, 0, -330199, -41401, -281177, 57149, 281177, 57149, 320547, -41401, 0, 0, 0, 0, 0, 0
  65.     .RecorderSelectObjectByIndex TRUE, 3
  66.     .MoveObject 0, -43179
  67.     .RecorderSelectObjectsByIndex TRUE, 3, 4, -1, -1, -1
  68.     .OrderToBack 
  69.     .RecorderSelectObjectByIndex TRUE, 4
  70.     .ApplyFountainFill 0, 0, 0, 1205, 256, 0, 3, 50
  71.     .SetFountainFillColor 0, 2, 0, 20, 60, 20
  72.     .SetFountainFillColor 25, 2, 0, 0, 20, 0
  73.     .SetFountainFillColor 50, 2, 0, 20, 60, 20
  74.     .SetFountainFillColor 75, 2, 0, 0, 20, 0
  75.     .SetFountainFillColor 100, 2, 0, 20, 60, 20
  76.     .RecorderSelectObjectByIndex TRUE, 3
  77.     .ApplyFountainFill 0, 0, 0, 515, 256, 0, 3, 50
  78.     .SetFountainFillColor 0, 2, 0, 20, 60, 20
  79.     .SetFountainFillColor 20, 2, 0, 0, 20, 0
  80.     .SetFountainFillColor 35, 2, 0, 20, 60, 20
  81.     .SetFountainFillColor 50, 2, 0, 0, 20, 0
  82.     .SetFountainFillColor 65, 2, 0, 20, 60, 20
  83.     .SetFountainFillColor 80, 2, 0, 0, 20, 0
  84.     .SetFountainFillColor 100, 2, 0, 20, 60, 20
  85.     .RecorderSelectObjectsByIndex TRUE, 3, 4, -1, -1, -1
  86.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  87.     .RecorderSelectObjectsByIndex TRUE, 3, 4, -1, -1, -1
  88.     .ApplyBlend TRUE, 10, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  89.     .RecorderSelectPreselectedObjects TRUE
  90.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  91.     .MoveObject 0, -99059
  92.     .RecorderSelectPreselectedObjects TRUE
  93.     .RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
  94.     .Group 
  95.     .ResumePainting 
  96.     .EndOfRecording 
  97. END WITHOBJECT
  98.