home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Fill_out / Outlines / Arrows / arrow2.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.3 KB  |  33 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, 194310, 6
  8.     .AddArrowPoint 0, 254000, FALSE, FALSE, TRUE, FALSE, 0, 0
  9.     .AddArrowPoint -254000, 0, FALSE, FALSE, TRUE, FALSE, 0, 1
  10.     .AddArrowPoint 0, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  11.     .AddArrowPoint 254000, 254000, FALSE, FALSE, TRUE, FALSE, 0, 0
  12.     .AddArrowPoint 0, 0, FALSE, FALSE, TRUE, FALSE, 0, 1
  13.     .AddArrowPoint 254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  14.     .EndDrawArrow 
  15.     .SetOutlineArrow 0
  16.     .BeginDrawArrow FALSE, 243586, 9
  17.     .AddArrowPoint -421132, -93472, FALSE, FALSE, TRUE, TRUE, 0, 0
  18.     .AddArrowPoint -514350, -280670, FALSE, FALSE, TRUE, FALSE, 0, 1
  19.     .AddArrowPoint 0, 0, FALSE, FALSE, TRUE, FALSE, 0, 1
  20.     .AddArrowPoint -514350, 280924, FALSE, FALSE, TRUE, FALSE, 0, 1
  21.     .AddArrowPoint -421132, 93726, FALSE, FALSE, TRUE, FALSE, 0, 1
  22.     .AddArrowPoint -702056, 280924, FALSE, FALSE, TRUE, FALSE, 0, 1
  23.     .AddArrowPoint -514858, 0, FALSE, FALSE, TRUE, FALSE, 0, 1
  24.     .AddArrowPoint -702056, -280670, FALSE, FALSE, TRUE, FALSE, 0, 1
  25.     .AddArrowPoint -421132, -93472, FALSE, FALSE, FALSE, TRUE, 0, 1
  26.     .EndDrawArrow 
  27.     .SetOutlineArrow 1
  28.     .ResumePainting 
  29.     .EndOfRecording 
  30. END WITHOBJECT
  31.  
  32.  
  33.