home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / ray2.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  2.2 KB  |  55 lines
  1. REM Green and yellow rays from center of object.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  0
  9.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  2
  10.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  3
  11.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  7
  12.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  8
  13.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  12
  14.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  13
  15.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  17
  16.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  18
  17.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  22
  18.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  23
  19.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  27
  20.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  28
  21.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  32
  22.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  33
  23.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  37
  24.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  38
  25.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  42
  26.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  43
  27.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  47
  28.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  48
  29.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  52
  30.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  53
  31.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  57
  32.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  58
  33.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  62
  34.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  63
  35.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  67
  36.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  68
  37.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  72
  38.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  73
  39.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  77
  40.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  78
  41.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  82
  42.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  83
  43.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  87
  44.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  88
  45.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  92
  46.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  93
  47.     .StoreColor 2, 100, 0, 100, 0, 0, 0, 100,  97
  48.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  98
  49.     .StoreColor 2, 0, 0, 100, 0, 0, 0, 100,  100
  50.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 3, 50
  51.     .ResumePainting 
  52.     .EndOfRecording 
  53. END WITHOBJECT
  54.  
  55.