home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Fill_out / Outlines / Arrows / arrow1.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.2 KB  |  31 lines
  1. REM Favorite : Outline Arrow Head,Outline Arrow Tail
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects FALSE
  7.     .BeginDrawArrow TRUE, 0, 7
  8.     .AddArrowPoint -1016000, 0, FALSE, FALSE, TRUE, TRUE, 0, 0
  9.     .AddArrowPoint -481838, -271272, FALSE, FALSE, TRUE, FALSE, 0, 1
  10.     .AddArrowPoint 571500, -271272, FALSE, FALSE, TRUE, FALSE, 0, 1
  11.     .AddArrowPoint 31750, 0, FALSE, FALSE, TRUE, FALSE, 0, 1
  12.     .AddArrowPoint 571500, 299974, FALSE, FALSE, TRUE, FALSE, 0, 1
  13.     .AddArrowPoint -481838, 299974, FALSE, FALSE, TRUE, FALSE, 0, 1
  14.     .AddArrowPoint -1016000, 0, FALSE, FALSE, FALSE, TRUE, 0, 1
  15.     .EndDrawArrow 
  16.     .SetOutlineArrow 0
  17.     .BeginDrawArrow FALSE, 446786, 6
  18.     .AddArrowPoint 72, 0, FALSE, FALSE, TRUE, TRUE, 0, 0
  19.     .AddArrowPoint -889000, 381000, FALSE, FALSE, TRUE, FALSE, 0, 1
  20.     .AddArrowPoint -762000, 127000, TRUE, FALSE, TRUE, FALSE, 0, 1
  21.     .AddArrowPoint -762000, -127000, TRUE, FALSE, TRUE, FALSE, 0, 1
  22.     .AddArrowPoint -889000, -381000, TRUE, FALSE, TRUE, FALSE, 0, 1
  23.     .AddArrowPoint 0, 0, FALSE, FALSE, FALSE, TRUE, 0, 1
  24.     .EndDrawArrow 
  25.     .SetOutlineArrow 1
  26.     .ResumePainting 
  27.     .EndOfRecording 
  28. END WITHOBJECT
  29.  
  30.  
  31.