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.02.2006-Milano: Unit port establishment
25
{ agg_conv_smooth_poly1.pas }
27
agg_conv_smooth_poly1 ;
35
agg_vcgen_smooth_poly1 ,
36
agg_conv_adaptor_vcgen ,
42
conv_smooth_poly1 = object(conv_adaptor_vcgen )
43
the_generator : vcgen_smooth_poly1;
45
constructor Construct(vs : vertex_source_ptr );
46
destructor Destruct; virtual;
48
procedure smooth_value_(v : double );
49
function _smooth_value : double;
53
conv_smooth_poly1_curve = object(conv_curve )
54
m_smooth : conv_smooth_poly1;
56
constructor Construct(vs : vertex_source_ptr );
57
destructor Destruct; virtual;
59
procedure smooth_value_(v : double );
60
function _smooth_value : double;
68
{ LOCAL VARIABLES & CONSTANTS }
69
{ UNIT IMPLEMENTATION }
71
constructor conv_smooth_poly1.Construct;
73
the_generator.Construct;
75
inherited Construct(vs ,@the_generator );
80
destructor conv_smooth_poly1.Destruct;
84
the_generator.Destruct;
89
procedure conv_smooth_poly1.smooth_value_;
91
vcgen_smooth_poly1_ptr(generator ).smooth_value_(v );
96
function conv_smooth_poly1._smooth_value;
98
result:=vcgen_smooth_poly1_ptr(generator )._smooth_value;
103
constructor conv_smooth_poly1_curve.Construct;
105
m_smooth.Construct(vs );
107
inherited Construct(@m_smooth );
112
destructor conv_smooth_poly1_curve.Destruct;
121
procedure conv_smooth_poly1_curve.smooth_value_;
123
vcgen_smooth_poly1_ptr(m_smooth.generator ).smooth_value_(v );
128
function conv_smooth_poly1_curve._smooth_value;
130
result:=vcgen_smooth_poly1_ptr(m_smooth.generator )._smooth_value;