home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Fill_out / Outlines / Arrows / square.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  611 b   |  20 lines
  1. REM Favorite : Outline Arrow Head
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects FALSE
  7.     .BeginDrawArrow TRUE, 0, 5
  8.     .AddArrowPoint -254000, 254000, FALSE, FALSE, TRUE, TRUE, 0, 0
  9.     .AddArrowPoint 254000, 254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  10.     .AddArrowPoint 254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  11.     .AddArrowPoint -254000, -254000, FALSE, FALSE, TRUE, FALSE, 0, 1
  12.     .AddArrowPoint -254000, 254000, FALSE, FALSE, FALSE, TRUE, 0, 1
  13.     .EndDrawArrow 
  14.     .SetOutlineArrow 0
  15.     .ResumePainting 
  16.     .EndOfRecording 
  17. END WITHOBJECT
  18.  
  19.  
  20.