Source code used to draw grid of 8 example arrows for "arrow" documentation

% Draw eight example arrows.  Mark vertices with circles.

marker_args = { 'Marker',          'o', ...
                'MarkerFaceColor', 'g', ...
                'MarkerSize',        5 };

% -- Single arrows --

% Arrow "A".
h = davinci( 'arrow', 'X',           [0 10], ...
                      'Y',           [0  0], ...
                      'Head.Length',      4, ...
                      'Head.Width',       4 );
set( h.head, marker_args{:} );
hold on

% Arrow "B".
h = davinci( 'arrow', 'X',           [15 25], ...
                      'Y',           [ 0  0], ...
                      'Head.Length',       3, ...
                      'Head.Width',        8, ...
                      'Head.Sweep',        2, ...
                      'Shaft.Width',     0.9 );
set( h, marker_args{:} );

% Arrow "C".
h = davinci( 'arrow', 'X',           [  0  10], ...
                      'Y',           [-10 -10], ...
                      'Head.Length',        10, ...
                      'Head.Width',          5, ...
                      'Head.Sweep',          4, ...
                      'Shaft.Width',         2 );
set( h, marker_args{:} );

% Arrow "D".
h = davinci( 'arrow', 'X',           [ 15  25], ...
                      'Y',           [-10 -10], ...
                      'Head.Length',        10, ...
                      'Head.Width',          5, ...
                      'Head.Sweep',          0, ...
                      'Shaft.Width',         5 );
set( h, marker_args{:} );

% -- Double arrows --

% Arrow "E".
h = davinci( 'arrow', 'X',           [  0  10], ...
                      'Y',           [-20 -20], ...
                      'ArrowType',    'double', ...
                      'Head.Length',         3, ...
                      'Head.Width',          6, ...
                      'Head.Sweep',          1 );
set( h.head_1, marker_args{:} );
set( h.head_2, marker_args{:} );

% Arrow "F".
h = davinci( 'arrow', 'X',              [ 15 25], ...
                      'Y',             [-20 -20], ...
                      'ArrowType',      'double', ...
                      'Shaft.Type',  'rectangle', ...
                      'Head.Length',           2, ...
                      'Head.Width',            8, ...
                      'Head.Sweep',            2, ...
                      'Shaft.Width',         0.9 );
set( h, marker_args{:} );

% Arrow "G".
h = davinci( 'arrow', 'X',            [  0  10], ...
                      'Y',            [-30 -30], ...
                      'ArrowType',     'double', ...
                      'Shaft.Type', 'rectangle', ...
                      'Head.Length',          3, ...
                      'Head.Width',           5, ...
                      'Head.Sweep',           0, ...
                      'Shaft.Width',          5 );
set( h, marker_args{:} );

% Arrow "H".
h = davinci( 'arrow', 'X',             [ 15  25], ...
                      'Y',             [-30 -30], ...
                      'ArrowType',      'double', ...
                      'Shaft.Type',  'rectangle', ...
                      'Head.Length',           5, ...
                      'Head.Width',            5, ...
                      'Head.Sweep',            0, ...
                      'Shaft.Width',           5 );
set( h, marker_args{:} );

daspect( [1 1 1] )
hold off