home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / highligh.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.2 KB  |  72 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .DuplicateObject 0, 0
  9.     .RecorderSelectObjectByIndex TRUE, 2
  10.     .MoveObject 8127, 0
  11.     .RecorderSelectObjectByIndex TRUE, 2
  12.     .MoveObject 0, -8127
  13.     .RecorderSelectObjectByIndex TRUE, 2
  14.     .MoveObject 8127, 0
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .MoveObject 0, -8127
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StoreColor 2, 20, 80, 0, 50
  19.     .ApplyUniformFillColor
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .OrderToBack 
  22.     .RecorderSelectPreselectedObjects TRUE
  23.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  24.     .ApplyBlend TRUE, 20, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  25.     .RecorderSelectObjectByIndex TRUE, 1
  26.     .DuplicateObject 0, 0
  27.     .RecorderSelectObjectByIndex TRUE, 4
  28.     .StoreColor 2, 0, 0, 0, 0
  29.     .ApplyUniformFillColor
  30.     .RecorderSelectObjectByIndex TRUE, 4
  31.     .MoveObject -761, 0
  32.     .RecorderSelectObjectByIndex TRUE, 4
  33.     .MoveObject 0, 761
  34.     .RecorderSelectObjectByIndex TRUE, 4
  35.     .MoveObject -761, 0
  36.     .RecorderSelectObjectByIndex TRUE, 4
  37.     .MoveObject 0, 761
  38.     .RecorderSelectObjectByIndex TRUE, 4
  39.     .MoveObject -761, 0
  40.     .RecorderSelectObjectByIndex TRUE, 4
  41.     .MoveObject 0, 761
  42.     .RecorderSelectObjectByIndex TRUE, 4
  43.     .DuplicateObject 0, 0
  44.     .RecorderSelectObjectByIndex TRUE, 5
  45.     .MoveObject 761, 0
  46.     .RecorderSelectObjectByIndex TRUE, 5
  47.     .MoveObject 0, -761
  48.     .RecorderSelectObjectByIndex TRUE, 5
  49.     .MoveObject 761, 0
  50.     .RecorderSelectObjectByIndex TRUE, 5
  51.     .MoveObject 0, -761
  52.     .RecorderSelectObjectByIndex TRUE, 5
  53.     .StoreColor 2, 20, 80, 0, 20
  54.     .ApplyUniformFillColor
  55.     .RecorderObjectScaleInfo 65455786, 22936195, 965191, -1041390
  56.     .CreateRectangle 0, 0, 0, 0, 0
  57.     .RecorderSelectObjectByIndex TRUE, 6
  58.     .StoreColor 2, 20, 80, 0, 20
  59.     .ApplyUniformFillColor
  60.     .RecorderSelectObjectByIndex TRUE, 6
  61.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  62.     .RecorderSelectObjectByIndex TRUE, 6
  63.     .OrderToBack 
  64.     .RecorderSelectObjectsByIndex TRUE, 6, 5, 4, 3, 2
  65.     .RecorderSelectPreselectedObjects FALSE
  66.     .RecorderSelectObjectsByIndex FALSE, -1, -1, -1, -1, -1
  67.     .Group 
  68.     .ResumePainting 
  69.     .EndOfRecording 
  70. END WITHOBJECT
  71.  
  72.