From af45f95f16cee22f8f012f706f4d0a42eaeb68fa Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 22 Nov 2012 11:48:47 +0000 Subject: Fixes line ending issues --- src/corelib/render/software/ctrl/agg_ctrl.pas | 446 +++++++++++++------------- 1 file changed, 223 insertions(+), 223 deletions(-) (limited to 'src/corelib/render/software/ctrl/agg_ctrl.pas') diff --git a/src/corelib/render/software/ctrl/agg_ctrl.pas b/src/corelib/render/software/ctrl/agg_ctrl.pas index 0c8d198e..81372532 100644 --- a/src/corelib/render/software/ctrl/agg_ctrl.pas +++ b/src/corelib/render/software/ctrl/agg_ctrl.pas @@ -1,223 +1,223 @@ -//---------------------------------------------------------------------------- -// 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 -// -//---------------------------------------------------------------------------- -// -// Function render_ctrl -// -// [Pascal Port History] ----------------------------------------------------- -// -// 13.12.2005-Milano: Unit port establishment -// -{ agg_ctrl.pas } -unit - agg_ctrl ; - -INTERFACE - -{$I agg_mode.inc } - -uses - agg_basics , - agg_trans_affine , - agg_rasterizer_scanline_aa , - agg_scanline , - agg_renderer_scanline , - agg_render_scanlines , - agg_vertex_source , - agg_color ; - -{ TYPES DEFINITION } -type - ctrl_ptr = ^ctrl; - ctrl = object(vertex_source ) - m_x1 , - m_y1 , - m_x2 , - m_y2 : double; - - m_flip_y : boolean; - - m_mtx : trans_affine_ptr; - - constructor Construct(x1 ,y1 ,x2 ,y2 : double; flip_y : boolean ); - destructor Destruct; virtual; - - function in_rect(x ,y : double ) : boolean; virtual; - - function on_mouse_button_down(x ,y : double ) : boolean; virtual; - function on_mouse_button_up (x ,y : double ) : boolean; virtual; - - function on_mouse_move(x ,y : double; button_flag : boolean ) : boolean; virtual; - function on_arrow_keys(left ,right ,down ,up : boolean ) : boolean; virtual; - - procedure transform(mtx : trans_affine_ptr ); - procedure no_transform; - - procedure transform_xy(x ,y : double_ptr ); - - procedure inverse_transform_xy(x ,y : double_ptr ); - - function scale : double; - - function _color(i : unsigned ) : aggclr_ptr; virtual; - - end; - -{ GLOBAL PROCEDURES } - procedure render_ctrl(ras : rasterizer_scanline_ptr; sl : scanline_ptr; r : renderer_scanline_ptr; c : ctrl_ptr ); - - -IMPLEMENTATION -{ LOCAL VARIABLES & CONSTANTS } -{ UNIT IMPLEMENTATION } -{ CONSTRUCT } -constructor ctrl.Construct; -begin - inherited Construct; - - m_x1:=x1; - m_y1:=y1; - m_x2:=x2; - m_y2:=y2; - - m_flip_y:=flip_y; - - m_mtx:=NIL; - -end; - -{ DESTRUCT } -destructor ctrl.Destruct; -begin - inherited Destruct; - -end; - -{ IN_RECT } -function ctrl.in_rect; -begin - result:=false; - -end; - -{ ON_MOUSE_BUTTON_DOWN } -function ctrl.on_mouse_button_down; -begin - result:=false; - -end; - -{ ON_MOUSE_BUTTON_UP } -function ctrl.on_mouse_button_up; -begin - result:=false; - -end; - -{ ON_MOUSE_MOVE } -function ctrl.on_mouse_move; -begin - result:=false; - -end; - -{ ON_ARROW_KEYS } -function ctrl.on_arrow_keys; -begin - result:=false; - -end; - -{ TRANSFORM } -procedure ctrl.transform; -begin - m_mtx:=mtx; - -end; - -{ NO_TRANSFORM } -procedure ctrl.no_transform; -begin - m_mtx:=NIL; - -end; - -{ TRANSFORM_XY } -procedure ctrl.transform_xy; -begin - if m_flip_y then - y^:=m_y1 + m_y2 - y^; - - if m_mtx <> NIL then - m_mtx.transform(m_mtx ,x ,y ); - -end; - -{ INVERSE_TRANSFORM_XY } -procedure ctrl.inverse_transform_xy; -begin - if m_mtx <> NIL then - m_mtx.inverse_transform(m_mtx ,x ,y ); - - if m_flip_y then - y^:=m_y1 + m_y2 - y^; - -end; - -{ SCALE } -function ctrl.scale; -begin - if m_mtx <> NIL then - result:=m_mtx.scale - else - result:=1.0; - -end; - -{ _COLOR } -function ctrl._color; -begin - result:=NIL; - -end; - -{ RENDER_CTRL } -procedure render_ctrl; -var - i : unsigned; - -begin - if c.num_paths > 0 then - for i:=0 to c.num_paths - 1 do - begin - ras.reset; - ras.add_path(c ,i ); - - r.color_(c._color(i ) ); - - render_scanlines(ras ,sl ,r ); - - end; - -end; - -END. - +//---------------------------------------------------------------------------- +// 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 +// +//---------------------------------------------------------------------------- +// +// Function render_ctrl +// +// [Pascal Port History] ----------------------------------------------------- +// +// 13.12.2005-Milano: Unit port establishment +// +{ agg_ctrl.pas } +unit + agg_ctrl ; + +INTERFACE + +{$I agg_mode.inc } + +uses + agg_basics , + agg_trans_affine , + agg_rasterizer_scanline_aa , + agg_scanline , + agg_renderer_scanline , + agg_render_scanlines , + agg_vertex_source , + agg_color ; + +{ TYPES DEFINITION } +type + ctrl_ptr = ^ctrl; + ctrl = object(vertex_source ) + m_x1 , + m_y1 , + m_x2 , + m_y2 : double; + + m_flip_y : boolean; + + m_mtx : trans_affine_ptr; + + constructor Construct(x1 ,y1 ,x2 ,y2 : double; flip_y : boolean ); + destructor Destruct; virtual; + + function in_rect(x ,y : double ) : boolean; virtual; + + function on_mouse_button_down(x ,y : double ) : boolean; virtual; + function on_mouse_button_up (x ,y : double ) : boolean; virtual; + + function on_mouse_move(x ,y : double; button_flag : boolean ) : boolean; virtual; + function on_arrow_keys(left ,right ,down ,up : boolean ) : boolean; virtual; + + procedure transform(mtx : trans_affine_ptr ); + procedure no_transform; + + procedure transform_xy(x ,y : double_ptr ); + + procedure inverse_transform_xy(x ,y : double_ptr ); + + function scale : double; + + function _color(i : unsigned ) : aggclr_ptr; virtual; + + end; + +{ GLOBAL PROCEDURES } + procedure render_ctrl(ras : rasterizer_scanline_ptr; sl : scanline_ptr; r : renderer_scanline_ptr; c : ctrl_ptr ); + + +IMPLEMENTATION +{ LOCAL VARIABLES & CONSTANTS } +{ UNIT IMPLEMENTATION } +{ CONSTRUCT } +constructor ctrl.Construct; +begin + inherited Construct; + + m_x1:=x1; + m_y1:=y1; + m_x2:=x2; + m_y2:=y2; + + m_flip_y:=flip_y; + + m_mtx:=NIL; + +end; + +{ DESTRUCT } +destructor ctrl.Destruct; +begin + inherited Destruct; + +end; + +{ IN_RECT } +function ctrl.in_rect; +begin + result:=false; + +end; + +{ ON_MOUSE_BUTTON_DOWN } +function ctrl.on_mouse_button_down; +begin + result:=false; + +end; + +{ ON_MOUSE_BUTTON_UP } +function ctrl.on_mouse_button_up; +begin + result:=false; + +end; + +{ ON_MOUSE_MOVE } +function ctrl.on_mouse_move; +begin + result:=false; + +end; + +{ ON_ARROW_KEYS } +function ctrl.on_arrow_keys; +begin + result:=false; + +end; + +{ TRANSFORM } +procedure ctrl.transform; +begin + m_mtx:=mtx; + +end; + +{ NO_TRANSFORM } +procedure ctrl.no_transform; +begin + m_mtx:=NIL; + +end; + +{ TRANSFORM_XY } +procedure ctrl.transform_xy; +begin + if m_flip_y then + y^:=m_y1 + m_y2 - y^; + + if m_mtx <> NIL then + m_mtx.transform(m_mtx ,x ,y ); + +end; + +{ INVERSE_TRANSFORM_XY } +procedure ctrl.inverse_transform_xy; +begin + if m_mtx <> NIL then + m_mtx.inverse_transform(m_mtx ,x ,y ); + + if m_flip_y then + y^:=m_y1 + m_y2 - y^; + +end; + +{ SCALE } +function ctrl.scale; +begin + if m_mtx <> NIL then + result:=m_mtx.scale + else + result:=1.0; + +end; + +{ _COLOR } +function ctrl._color; +begin + result:=NIL; + +end; + +{ RENDER_CTRL } +procedure render_ctrl; +var + i : unsigned; + +begin + if c.num_paths > 0 then + for i:=0 to c.num_paths - 1 do + begin + ras.reset; + ras.add_path(c ,i ); + + r.color_(c._color(i ) ); + + render_scanlines(ras ,sl ,r ); + + end; + +end; + +END. + -- cgit v1.2.3-54-g00ecf