Subversion Repositories AndroidProjects

unit app_particle_part;

interface

uses sux_constant, sux_object, app_constant, resource_texture,

     resource_list, app_particle_vertexbuffer;

type

  TSAnimation = record

    addpos: SXVertex2D;

    addrot: SXFloat;

    addsize: SXFloat;

    addcolor: SXColorRGB;

    adddensity: SXFloat;

    movealongrot: SXVertex2D;

  end;

  TSettings = record

    typus: SXState;

    pos: SXVertex2D;

    rot: SXFloat;

    size: SXFloat;

    color: SXColorRGB;

    density: SXFloat;

    animation: TSAnimation;

    lifetime: SXFloat;

  end;

  SAPPart=class(SUXObject)

    settings: TSettings;

    procedure onRender(const vertexbuffer: SAPVertexBuffer; const particleindex: SXInt); overload; virtual;

    procedure onRender; overload; virtual;

    procedure setTypus(const typus: SXState);

    procedure setPosition(const pos: SXVertex2D);

    procedure setRotation(const rot: SXFloat);

    procedure setSize(const size: SXFloat);

    procedure setColor(const color: SXColorRGB);

    procedure setDensity(const density: SXFloat);

    procedure setAnimation(const addpos: SXVertex2D; const addrot, addsize: SXFloat; const addcolor: SXColorRGB; const adddensity: SXFloat);

    procedure setAnimationMoveAlongRot(const movealongrot: SXVertex2D);

    function getTypus: SXState;

    function getPosition: SXVertex2D;

    function getRotation: SXFloat;

    function getSize: SXFloat;

    function getColor: SXColorRGB;

    function getDensity: SXFloat;

    function getVectorFromRotation: SXVertex2D;

    procedure processAnimation;

    procedure deleteIfInvisible;

    procedure onTimer; virtual;

    procedure delete;

    constructor Create(const parent: TObject);

    destructor Destroy; override;

  end;

implementation

uses main, gl_main, OpenGL, app_particle_main, Math;

// --- SAPPart

procedure SAPPart.onRender(const vertexbuffer: SAPVertexBuffer; const particleindex: SXInt);

var vertexindex: SXInt;

    upvector: SXVertex2D;

    pos3D, upvectorandsize: SXVertex3D;

    color: SXColorRGBA;

    angle: SXFloat;

begin

  vertexindex := particleindex * 4;

  angle := (settings.rot);

  angle := degtorad(angle);

  upvector := sx.convert.Vertex2DOf(sin(angle), cos(angle));

  pos3D := sx.convert.Vertex3DOf(settings.pos.x, settings.pos.y, 0);

  upvectorandsize := sx.convert.Vertex3DOf(upvector.x, upvector.y, settings.size);

  color := sx.convert.ColorRGBAOf(settings.color.r, settings.color.g, settings.color.b, settings.density);

  vertexbuffer.setVertex(vertexindex, pos3D, color,

    sx.convert.Vertex2DOf(0, 0),

    sx.convert.Vertex2DOf(-1, -1), upvectorandsize);

  vertexbuffer.setVertex(vertexindex + 1, pos3D, color,

    sx.convert.Vertex2DOf(1, 0),

    sx.convert.Vertex2DOf( 1, -1), upvectorandsize);

  vertexbuffer.setVertex(vertexindex + 2, pos3D, color,

    sx.convert.Vertex2DOf(1, 1),

    sx.convert.Vertex2DOf( 1,  1), upvectorandsize);

  vertexbuffer.setVertex(vertexindex + 3, pos3D, color,

    sx.convert.Vertex2DOf(0, 1),

    sx.convert.Vertex2DOf(-1,  1), upvectorandsize);

end;

procedure SAPPart.onRender;

begin

  // Default rendering method

  glPushMatrix;

  glTranslatef(settings.pos.x,settings.pos.y,0);

  glRotatef(360 - settings.rot,0,0,1);

  glScalef(settings.size,settings.size,1);

  glColor4f(settings.color.r, settings.color.g, settings.color.b, settings.density);

  glBegin(GL_QUADS);

    glTexCoord2f(0,0); glVertex2f(-1,-1);

    glTexCoord2f(1,0); glVertex2f( 1,-1);

    glTexCoord2f(1,1); glVertex2f( 1, 1);

    glTexCoord2f(0,1); glVertex2f(-1, 1);

  glEnd();

  glPopMatrix;

end;

procedure SAPPart.setTypus(const typus: SXState);

begin

  settings.typus := typus;

end;

procedure SAPPart.setPosition(const pos: SXVertex2D);

begin

  settings.pos := pos;

end;

procedure SAPPart.setRotation(const rot: SXFloat);

begin

  settings.rot := rot;

end;

procedure SAPPart.setSize(const size: SXFloat);

begin

  settings.size := size;

end;

procedure SAPPart.setColor(const color: SXColorRGB);

begin

  settings.color := color;

end;

procedure SAPPart.setDensity(const density: SXFloat);

begin

  settings.density := density;

end;

procedure SAPPart.setAnimation(const addpos: SXVertex2D; const addrot, addsize: SXFloat; const addcolor: SXColorRGB; const adddensity: SXFloat);

begin

  settings.animation.addpos := addpos;

  settings.animation.addrot := addrot;

  settings.animation.addsize := addsize;

  settings.animation.addcolor := addcolor;

  settings.animation.adddensity := adddensity;

end;

procedure SAPPart.setAnimationMoveAlongRot(const movealongrot: SXVertex2D);

begin

  settings.animation.movealongrot := movealongrot;

end;

function SAPPart.getTypus: SXState;

begin

  result := settings.typus;

end;

function SAPPart.getPosition: SXVertex2D;

begin

  result := settings.pos;

end;

function SAPPart.getRotation: SXFloat;

begin

  result := settings.rot;

end;

function SAPPart.getSize: SXFloat;

begin

  result := settings.size;

end;

function SAPPart.getColor: SXColorRGB;

begin

  result := settings.color;

end;

function SAPPart.getDensity: SXFloat;

begin

  result := settings.density;

end;

function SAPPart.getVectorFromRotation: SXVertex2D;

var vector: SXVertex2D;

begin

  vector.x := sx.math._sin(settings.rot);

  vector.y := sx.math._cos(settings.rot);

  result := sx.math.normalizeVector(vector);

end;

procedure SAPPart.processAnimation;

var timefactor: SXFloat;

    vector, normal: SXVertex2D;

begin

  timefactor := sx.timer.getTimer;

  with settings do

  begin

    pos := sx.math.addVertices(pos, sx.math.multiplyVertex(animation.addpos, timefactor));

    rot := rot + animation.addrot * timefactor;

    size := size + animation.addsize * timefactor;

    color := sx.math.color.addColors(color, sx.math.color.multiplyColor(animation.addcolor, timefactor));

    density := density + animation.adddensity * timefactor;

    // Get movement vector

    if (animation.movealongrot.x <> 0) or (animation.movealongrot.y <> 0) then

    begin

      vector := getVectorFromRotation;

      normal.x := -vector.y;

      normal.y := vector.x;

      vector := sx.math.multiplyVertex(vector, animation.movealongrot.y);

      vector := sx.math.addVertices(vector, sx.math.multiplyVertex(normal, animation.movealongrot.x));

      pos := sx.math.addVertices(pos, sx.math.multiplyVertex(vector, timefactor));

    end;

  end;

end;

procedure SAPPart.deleteIfInvisible;

begin

  if (settings.size <= 0) or (settings.density <= 0) then

  begin

    delete;

  end;

end;

procedure SAPPart.onTimer;

begin

  sx.timer.incTimer(settings.lifetime);

  processAnimation;

  deleteIfInvisible;

end;

procedure SAPPart.delete;

begin

  SAParticle(getParent).deleteParticle(self);

end;

constructor SAPPart.Create(const parent: TObject);

begin

  inherited Create(parent, 'Particle Part');

  settings.typus := 0;

  settings.pos := sx.convert.Vertex2DOf(0, 0);

  settings.rot := 0;

  settings.size := 1;

  settings.color := sx.convert.ColorRGBOf(1, 1, 1);

  settings.density := 1;

  settings.animation.addpos := sx.convert.Vertex2DOf(0, 0);

  settings.animation.addrot := 0;

  settings.animation.addsize := 0;

  settings.animation.addcolor := sx.convert.ColorRGBOf(0, 0, 0);

  settings.animation.adddensity := 0;

  settings.animation.movealongrot := sx.convert.Vertex2DOf(0, 0);

  settings.lifetime := 0;

end;

destructor SAPPart.Destroy;

begin

  inherited;

end;

end.