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
// 25.01.2006-Milano: Unit port establishment
25
{ agg_conv_segmentator.pas }
27
agg_conv_segmentator ;
36
agg_conv_adaptor_vpgen ,
37
agg_vpgen_segmentator ;
41
conv_segmentator = object(conv_adaptor_vpgen )
42
the_generator : vpgen_segmentator;
44
constructor Construct(vs : vertex_source_ptr );
45
destructor Destruct; virtual;
47
procedure approximation_scale_(s : double );
48
function _approximation_scale : double;
56
{ LOCAL VARIABLES & CONSTANTS }
57
{ UNIT IMPLEMENTATION }
59
constructor conv_segmentator.Construct;
61
the_generator.Construct;
63
inherited Construct(vs ,@the_generator );
68
destructor conv_segmentator.Destruct;
72
the_generator.Destruct;
76
{ APPROXIMATION_SCALE_ }
77
procedure conv_segmentator.approximation_scale_;
79
vpgen.approximation_scale_(s );
83
{ _APPROXIMATION_SCALE }
84
function conv_segmentator._approximation_scale;
86
result:=vpgen._approximation_scale;