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
//----------------------------------------------------------------------------
25
// [Pascal Port History] -----------------------------------------------------
27
// 23.06.2006-Milano: ptrcomp adjustments
28
// 30.01.2006-Milano: Unit port establishment
30
{ agg_span_solid.pas }
46
span_solid_ptr = ^span_solid;
47
span_solid = object(span_generator )
50
constructor Construct(alloc : span_allocator_ptr );
52
procedure color_(c : aggclr_ptr );
53
function _color : aggclr_ptr;
55
function generate(x ,y : int; len : unsigned ) : aggclr_ptr; virtual;
63
{ LOCAL VARIABLES & CONSTANTS }
64
{ UNIT IMPLEMENTATION }
66
constructor span_solid.Construct;
68
inherited Construct(alloc );
75
procedure span_solid.color_;
82
function span_solid._color;
89
function span_solid.generate;
94
span:=_allocator.span;
99
inc(ptrcomp(span ) ,sizeof(aggclr ) );
104
result:=_allocator.span;