home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Draw / Scripts / Presets / earthgld.csc < prev    next >
Text File  |  1998-11-24  |  5KB  |  99 lines
  1. REM Texture filled object with reflection on gold faded squares blended
  2. REM REM together to make a raised platform
  3.  
  4. WITHOBJECT "CorelDraw.Automation.9"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyOutline 3556, 0, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  10.     .StoreColor 2, 0, 0, 0, 100
  11.     .SetOutlineColor
  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.     .StoreColor 2, 60, 0, 40, 40, 0, 0, 100,  0
  34.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  25
  35.     .StoreColor 2, 0, 20, 40, 40, 0, 0, 100,  35
  36.     .StoreColor 2, 40, 0, 100, 0, 0, 0, 100,  50
  37.     .StoreColor 2, 0, 20, 40, 40, 0, 0, 100,  65
  38.     .StoreColor 2, 100, 20, 0, 0, 0, 0, 100,  75
  39.     .StoreColor 2, 60, 0, 40, 40, 0, 0, 100,  100
  40.     .ApplyFountainFill 0, 0, 0, 960, 256, 0, 3, 50
  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.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  71.     .StoreColor 2, 0, 0, 20, 0, 0, 0, 100,  25
  72.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  50
  73.     .StoreColor 2, 0, 0, 20, 0, 0, 0, 100,  75
  74.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  75.     .ApplyFountainFill 0, 0, 0, 1205, 256, 0, 3, 50
  76.     .RecorderSelectObjectByIndex TRUE, 3
  77.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  0
  78.     .StoreColor 2, 0, 0, 20, 0, 0, 0, 100,  20
  79.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  35
  80.     .StoreColor 2, 0, 0, 20, 0, 0, 0, 100,  50
  81.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  65
  82.     .StoreColor 2, 0, 0, 20, 0, 0, 0, 100,  80
  83.     .StoreColor 2, 0, 20, 60, 20, 0, 0, 100,  100
  84.     .ApplyFountainFill 0, 0, 0, 515, 256, 0, 3, 50
  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.  
  99.