home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / design06.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.2 KB  |  58 lines
  1. REM Gold offset      Font used: Playwright
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  9.     .RecorderSelectObjectByIndex TRUE, 1
  10.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  11.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  5
  12.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  14
  13.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  22
  14.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  30
  15.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  37
  16.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  46
  17.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  53
  18.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  65
  19.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  79
  20.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  91
  21.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  22.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  23.     .RecorderSelectObjectByIndex TRUE, 1
  24.     .DuplicateObject 0, 0
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .MoveObject -6603, 0
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  29.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  10
  30.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  29
  31.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  48
  32.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  93
  33.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  34.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  35.     .RecorderSelectObjectByIndex TRUE, 2
  36.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  37.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  10
  38.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  29
  39.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  79
  40.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  85
  41.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  42.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  43.     .RecorderSelectObjectByIndex TRUE, 2
  44.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  0
  45.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  22
  46.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  46
  47.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  79
  48.     .StoreColor 2, 0, 20, 100, 0, 0, 0, 100,  85
  49.     .StoreColor 2, 0, 0, 0, 100, 0, 0, 100,  100
  50.     .ApplyFountainFill 0, 0, 0, 900, 256, 0, 3, 50
  51.     .RecorderSelectPreselectedObjects TRUE
  52.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  53.     .Group 
  54.     .ResumePainting 
  55.     .EndOfRecording 
  56. END WITHOBJECT
  57.  
  58.