home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Fill_out / Outlines / headtail.csc < prev   
Encoding:
Text File  |  1997-08-19  |  1.2 KB  |  32 lines
  1. REM Favorite : Outline,Outline Style,Outline Width,Outline Arrow Head,Outline Arrow Tail
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects FALSE
  7.     .SetOutlineWidth 7056
  8.     .SetOutlineMiscProperties 2, 2, 0, 0, 100, 0, FALSE, FALSE
  9.     .StoreColor 2, 0, 100, 0, 0
  10.     .SetOutlineColor
  11.     .BeginDrawArrow TRUE, 0, 5
  12.     .AddArrowPoint -254000, 254000, FALSE, FALSE, TRUE, TRUE, 0, 0
  13.     .AddArrowPoint 254000, 254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  14.     .AddArrowPoint 254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  15.     .AddArrowPoint -254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  16.     .AddArrowPoint -254000, 254000, FALSE, FALSE, FALSE, TRUE, 0, 1
  17.     .EndDrawArrow 
  18.     .SetOutlineArrow 0
  19.     .BeginDrawArrow FALSE, 0, 5
  20.     .AddArrowPoint -254000, 254000, FALSE, FALSE, TRUE, TRUE, 0, 0
  21.     .AddArrowPoint 254000, 254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  22.     .AddArrowPoint 254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  23.     .AddArrowPoint -254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  24.     .AddArrowPoint -254000, 254000, FALSE, FALSE, FALSE, TRUE, 0, 1
  25.     .EndDrawArrow 
  26.     .SetOutlineArrow 1
  27.     .ResumePainting 
  28.     .EndOfRecording 
  29. END WITHOBJECT
  30.  
  31.  
  32.