mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-15 15:10:47 +01:00
112 lines
2.5 KiB
ObjectPascal
112 lines
2.5 KiB
ObjectPascal
//----------------------------------------------------------------------------
|
|
// Anti-Grain Geometry - Version 2.4 (Public License)
|
|
// Copyright (C) 2002-2005 Maxim Shemanarev (http://www.antigrain.com)
|
|
//
|
|
// Anti-Grain Geometry - Version 2.4 Release Milano 3 (AggPas 2.4 RM3)
|
|
// Pascal Port By: Milan Marusinec alias Milano
|
|
// milan@marusinec.sk
|
|
// http://www.aggpas.org
|
|
// Copyright (c) 2005-2006
|
|
//
|
|
// Permission to copy, use, modify, sell and distribute this software
|
|
// is granted provided this copyright notice appears in all copies.
|
|
// This software is provided "as is" without express or implied
|
|
// warranty, and with no claim as to its suitability for any purpose.
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
// Contact: mcseem@antigrain.com
|
|
// mcseemagg@yahoo.com
|
|
// http://www.antigrain.com
|
|
//
|
|
//----------------------------------------------------------------------------
|
|
//
|
|
// Pascal replacement of the vertex_source templetized concept from C++.
|
|
// This file is originaly not a part of the AGG.
|
|
//
|
|
// [Pascal Port History] -----------------------------------------------------
|
|
//
|
|
// 19.12.2005-Milano: Unit port establishment
|
|
//
|
|
{ agg_vertex_source.pas }
|
|
unit
|
|
agg_vertex_source ;
|
|
|
|
INTERFACE
|
|
|
|
{$I agg_mode.inc }
|
|
|
|
uses
|
|
agg_basics ;
|
|
|
|
{ TYPES DEFINITION }
|
|
type
|
|
vertex_source_ptr = ^vertex_source;
|
|
vertex_source = object
|
|
constructor Construct;
|
|
destructor Destruct; virtual;
|
|
|
|
procedure remove_all; virtual;
|
|
procedure add_vertex(x ,y : double; cmd : unsigned ); virtual;
|
|
|
|
function num_paths : unsigned; virtual;
|
|
procedure rewind(path_id : unsigned ); virtual;
|
|
function vertex(x ,y : double_ptr ) : unsigned; virtual;
|
|
|
|
function func_operator_gamma(x : double ) : double; virtual;
|
|
function operator_array (i : unsigned ) : unsigned; virtual; abstract;
|
|
|
|
end;
|
|
|
|
{ GLOBAL PROCEDURES }
|
|
|
|
|
|
IMPLEMENTATION
|
|
{ LOCAL VARIABLES & CONSTANTS }
|
|
{ UNIT IMPLEMENTATION }
|
|
{ CONSTRUCT }
|
|
constructor vertex_source.Construct;
|
|
begin
|
|
end;
|
|
|
|
{ DESTRUCT }
|
|
destructor vertex_source.Destruct;
|
|
begin
|
|
end;
|
|
|
|
{ REMOVE_ALL }
|
|
procedure vertex_source.remove_all;
|
|
begin
|
|
end;
|
|
|
|
{ ADD_VERTEX }
|
|
procedure vertex_source.add_vertex;
|
|
begin
|
|
end;
|
|
|
|
{ NUM_PATHS }
|
|
function vertex_source.num_paths;
|
|
begin
|
|
result:=0;
|
|
|
|
end;
|
|
|
|
{ REWIND }
|
|
procedure vertex_source.rewind;
|
|
begin
|
|
end;
|
|
|
|
{ VERTEX }
|
|
function vertex_source.vertex;
|
|
begin
|
|
end;
|
|
|
|
{ FUNC_OPERATOR_GAMMA }
|
|
function vertex_source.func_operator_gamma;
|
|
begin
|
|
result:=x;
|
|
|
|
end;
|
|
|
|
END.
|
|
|