1
//----------------------------------------------------------------------------
2
// Anti-Grain Geometry - Version 2.4 (Public License)
3
// Copyright (C) 2002-2005 Maxim Shemanarev (http://www.antigrain.com)
5
// Anti-Grain Geometry - Version 2.4 Release Milano 3 (AggPas 2.4 RM3)
6
// Pascal Port By: Milan Marusinec alias Milano
8
// http://www.aggpas.org
9
// Copyright (c) 2005-2006
11
// Permission to copy, use, modify, sell and distribute this software
12
// is granted provided this copyright notice appears in all copies.
13
// This software is provided "as is" without express or implied
14
// warranty, and with no claim as to its suitability for any purpose.
16
//----------------------------------------------------------------------------
17
// Contact: mcseem@antigrain.com
18
// mcseemagg@yahoo.com
19
// http://www.antigrain.com
21
// [Pascal Port History] -----------------------------------------------------
23
// 24.01.2006-Milano: Unit port establishment
25
{ agg_conv_adaptor_vpgen.pas }
27
agg_conv_adaptor_vpgen ;
36
agg_vpgen_segmentator ;
40
conv_adaptor_vpgen = object(vertex_source )
42
m_vpgen : vertex_source_ptr;
46
m_poly_flags : unsigned;
49
constructor Construct(source ,gen : vertex_source_ptr );
51
procedure set_source(source : vertex_source_ptr );
53
function vpgen : vpgen_segmentator_ptr;
55
procedure rewind(path_id : unsigned ); virtual;
56
function vertex(x ,y : double_ptr ) : unsigned; virtual;
64
{ LOCAL VARIABLES & CONSTANTS }
65
{ UNIT IMPLEMENTATION }
67
constructor conv_adaptor_vpgen.Construct;
80
procedure conv_adaptor_vpgen.set_source;
87
function conv_adaptor_vpgen.vpgen;
89
result:=vpgen_segmentator_ptr(m_vpgen );
94
procedure conv_adaptor_vpgen.rewind;
96
m_source.rewind(path_id );
98
vpgen_segmentator_ptr(m_vpgen ).reset;
108
function conv_adaptor_vpgen.vertex;
118
cmd:=m_vpgen.vertex(x ,y );
120
if not is_stop(cmd ) then
123
if (m_poly_flags <> 0 ) and
124
not vpgen_segmentator_ptr(m_vpgen )._auto_unclose then
136
if m_vertices < 0 then
138
if m_vertices < -1 then
142
result:=path_cmd_stop;
148
vpgen_segmentator_ptr(m_vpgen ).move_to(m_start_x ,m_start_y );
156
cmd:=m_source.vertex(@tx ,@ty );
158
if is_vertex(cmd ) then
159
if is_move_to(cmd ) then
161
if vpgen_segmentator_ptr(m_vpgen )._auto_close and
162
(m_vertices > 2 ) then
164
vpgen_segmentator_ptr(m_vpgen ).line_to(m_start_x ,m_start_y );
166
m_poly_flags:=path_cmd_end_poly or path_flags_close;
175
vpgen_segmentator_ptr(m_vpgen ).move_to(tx ,ty );
184
vpgen_segmentator_ptr(m_vpgen ).line_to(tx ,ty );
190
if is_end_poly(cmd ) then
194
if is_closed(cmd ) or
195
vpgen_segmentator_ptr(m_vpgen )._auto_close then
197
if vpgen_segmentator_ptr(m_vpgen )._auto_close then
198
m_poly_flags:=m_poly_flags or path_flags_close;
200
if m_vertices > 2 then
201
vpgen_segmentator_ptr(m_vpgen ).line_to(m_start_x ,m_start_y );
211
if vpgen_segmentator_ptr(m_vpgen )._auto_close and
212
(m_vertices > 2 ) then
214
vpgen_segmentator_ptr(m_vpgen ).line_to(m_start_x ,m_start_y );
216
m_poly_flags:=path_cmd_end_poly or path_flags_close;