Page 2 of 3 FirstFirst 123 LastLast
Results 11 to 20 of 28

Thread: Spriter - Tool for making 2d animations easier

  1. #11
    Thanks a lot Dan! =)... I will try to use it with ZenGL Engine. I will post the code here as soon I get it working!

    It would be interesting to post about it on official forum,, and if possible put it on!

  2. #12
    There is some incompatibilities with Delphi 2010.

    - Overloaded methods should explicitly use the overload clause.
    - I had to add .Items in some places, by example need to change SpineTextures.[i] to SpineTextures.Items[i]
    - Incompatible type Char and AnsiChar on lines like these one : _Chars[i] := Chr(b); I fixed it using _Chars[i] := AnsiChar(Chr(b)); but I don't know for sure if this is correct! =)

    Everything else seems to be working well on Delphi 2010!

    Everything else but the draw routine is working with ZenGL already! I'm not 100% sure but It seems ZenGL does not have a function to draw a array of vertices, but only to draw triangles pr2d_TriList. I think I will also need to use tess_Triangulate to convert from vertices to triangles but all of this mess with my head, probably I will need some help from Andrey! =)

  3. #13
    thanks for testing it with delphi, when I have the time I will try it as well.
    the rendering method is quite simple, the array always consists of 4 vertices and the vertex format is:
    TSpineVertexData = packed record
      x, y, u, v, r, g, b, a: Single;
    so you really just need to draw a quadrangle or basically two triangles.

  4. #14
    Hummm... we are getting closer! =)

      pv: PSpineVertexArray absolute Vertices;
      p, t: array of zglTPoint2D;
      SetLength(p, 6);
      // first triangle
      p[0].x := pv^[0].x;
      p[0].y := pv^[0].y;
      p[1].x := pv^[1].x;
      p[1].y := pv^[1].y;
      p[2].x := pv^[2].x;
      p[2].y := pv^[2].y;
      // second triangle
      p[3].x := pv^[1].x;
      p[3].y := pv^[1].y;
      p[4].x := pv^[2].x;
      p[4].y := pv^[2].y;
      p[5].x := pv^[3].x;
      p[5].y := pv^[3].y;
      pr2d_TriList(@Texture, @p[0], nil, 0, length(p) - 1, $FFFFFF, 255, FX_BLEND or PR2D_FILL);
      SetLength(t, 6);
      // first triangle
      t[0].x := pv^[0].u;
      t[0].y := pv^[0].v;
      t[1].x := pv^[1].u;
      t[1].y := pv^[1].v;
      t[2].x := pv^[2].u;
      t[2].y := pv^[2].v;
      // second triangle
      t[3].x := pv^[1].u;
      t[3].y := pv^[1].v;
      t[4].x := pv^[2].u;
      t[4].y := pv^[2].v;
      t[5].x := pv^[3].u;
      t[5].y := pv^[3].v;
      pr2d_TriList(@Texture, @p[0], @t[0], 0, length(p) - 1, $FFFFFF, 255, FX_BLEND or PR2D_FILL);
    Attached Images Attached Images

  5. #15
    the second triangle should be 0,2,3 because the vertices are passed in clockwise order

  6. #16
    Thanks Dan! =)

    Ohh yes! It is working now! =)

      pv: PSpineVertexArray absolute Vertices;
      vert, text: array of zglTPoint2D;
      SetLength(vert, 6);
      // first triangle
      vert[0].x := pv^[0].x;
      vert[0].y := pv^[0].y;
      vert[1].x := pv^[1].x;
      vert[1].y := pv^[1].y;
      vert[2].x := pv^[2].x;
      vert[2].y := pv^[2].y;
      // second triangle
      vert[3].x := pv^[0].x;
      vert[3].y := pv^[0].y;
      vert[4].x := pv^[2].x;
      vert[4].y := pv^[2].y;
      vert[5].x := pv^[3].x;
      vert[5].y := pv^[3].y;
      SetLength(text, 6);
      // first triangle
      text[0].x := pv^[0].u;
      text[0].y := 1-pv^[0].v;
      text[1].x := pv^[1].u;
      text[1].y := 1-pv^[1].v;
      text[2].x := pv^[2].u;
      text[2].y :=1- pv^[2].v;
      // second triangle
      text[3].x := pv^[0].u;
      text[3].y := 1-pv^[0].v;
      text[4].x := pv^[2].u;
      text[4].y := 1-pv^[2].v;
      text[5].x := pv^[3].u;
      text[5].y := 1-pv^[3].v;
      pr2d_TriList(nil, @vert[0], @text[0], 0, length(vert) - 1, $FFFFFF, 255, FX_BLEND);
      pr2d_TriList(TG2SpineTexture(Texture).Texture, @vert[0], @text[0], 0, length(vert) - 1, $FFFFFF, 255, FX_BLEND or PR2D_FILL);
    Attached Images Attached Images

  7. #17
    alright I have ported the runtime to smart mobile studio:

  8. #18
    I have fixed all the delphi incompatibilities. the download link is still the same.

  9. #19
    Quote Originally Posted by Dan View Post
    TSpineVertexData = packed record
      x, y, u, v, r, g, b, a: Single;
    Is there any speed benefit in using single type for color channels? Because this takes 12 bytes less data per vertex:
    TSpineVertexData = packed record
      x, y, u, v: Single;
      r, g, b, a: byte;

  10. #20
    manipulating floats is a lot faster than integer types in this case. suppose you want to multiply two colors with floats you can do just that multiply them, with bytes you'll need to convert them to floats, multiply and convert them back.
    also 12 bytes per vertex is not a major loss, since every attachment only has 4 vertices=)

Page 2 of 3 FirstFirst 123 LastLast


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
Comodo SSL