Auto loading images to ASDB file , ImageFX error

[robert83]

Hi all,

I'm trying to create a program that autopopulates my asdb file with images , for testing I'm trying to load a bmp image 32x32 .

 procedure TForm1.Button1Click(Sender: TObject);
var
 PxFm: TPxFm;
 pSize: TPoint;
 Image: TBitmap;
 Dest: TBitmap;
 Tolerance: Integer;
 MaskColor: Cardinal;
 IsMasked: Boolean;
 Stream: TMemoryStream;
begin
 ASDB := TAsdb.Create(Self);
 ASDB.FileName:='media.asdb';
 ASDB.OpenMode:=opUpdate;
  if (not ASDb.Update()) then
   begin
    ShowMessage('Failed opening ASDb archive!');
    Exit;
   end;
// change the following format, if necessary
 PxFm.Format:= COLOR_A8R8G8B8;
 // retreive Texture Size from edit boxes
 PxFm.TextureWidth := 32;
 PxFm.TextureHeight:= 32;
 // retreive Pattern Size from edit boxes
 PxFm.PatternWidth := 32;
 PxFm.PatternHeight:= 32;
 // this variable is used for better readability only
 pSize:= Point(PxFm.PatternWidth, PxFm.PatternHeight);
 // this size can be smaller than pattern size to add padding
 PxFm.VisibleWidth := PxFm.PatternWidth;
 PxFm.VisibleHeight:= PxFm.PatternHeight;
 // retreive mask color and tolerance
 IsMasked:= false;
 MaskColor := Shape1.Brush.Color and $FFFFFF;
 Tolerance:= 15;
 // load the image
 Image:= TBitmap.Create();
 LoadBitmap('0.bmp', Image, ifBMP);
 // update some attributes
 PxFm.PatternCount:= (Image.Width div pSize.X) * (Image.Height div pSize.Y);
 // create destination bitmap
 Dest:= TBitmap.Create();
 TileBitmap(Dest, Image, Point(PxFm.TextureWidth, PxFm.TextureHeight),
  pSize, pSize, IsMasked, MaskColor, Tolerance);
 // create auxiliary stream to write PxFm-formatted image data
 Stream:= TMemoryStream.Create();
 WriteBitmapPxFm(Stream, Dest, PxFm);
 // we don't need destination image anymore
 Dest.Free();
 // position to the beginning of our stream
 Stream.Seek(0, soFromBeginning);
 ASDb.WriteStream('0.image', Stream, recGraphics);
 Stream.Free();
end;

I get a SIGSEGV at TileBitmap , specifically this one :

 
 procedure UnmaskAlpha(Dest: TBitmap);
var
 i, j: Integer;
 pl: PLongword;
begin
 Dest.PixelFormat:= pf32bit;
 for j:= 0 to Dest.Height - 1 do
  begin
   pl:= bmp2xlbmp(Dest).Scanline[j];
   for i:= 0 to Dest.Width - 1 do
    begin
     pl^:= pl^ or $FF000000;  <--------------------------- here 
     Inc(pl);
    end;
  end;
end;

Any idea what is wrong, manually adding this file with the Asphyre Manager , same properties is working fine. But it takes a lot of time to add 259 images....

Greeetings
Robert

[robert83]

Hi all,

Anyway after sleeping I think I'll just re-write the editor along with the game itself . The part about the TTileData . After searching a bit online , in the old Afterwarp forums , and looking for some other games
I realized they all use sprite sheets .
So I will not be adding 100 images individually for the MainMenu for example but I will add a complete SpriteSheet. I will alter my TTileData record to look like this (probably) :

 TTileData = record
   Sheet : String; // sheet name from ASDB archive (menu,level01,level02...etc)
   PatternStart :  Word;  // where my desired image starts
   PatternStop : Word; // where my desired image stops (in case it's animated)
   // AnimSpeed : Single;
 end;

I need to go to work now , but I think this might be a better idea , make the ASDB file easier to manage, and far faster to load then with my current 700 ~ individual images.

Greetings
Robert

[SilverWarior]

Have you checked the code for Asphyre Manager to see how it works? I bet that with litle work you could change it so it is capable of loading multiple images a once itno ASDB.

Also it is ture that loading entire sprite sheats would be much faster than loading individual images but that does require you to create entire spritesheat using some other program, which might in the end be even slower and require more work. Not to mention that by using of sprite sheats you need to change entire spritesheat even if you do just a small change to one of your images.

The reason why ASDB is implemented into Asphyre is that it actually is managed sprite sheat which alows you to load the textures into your game much faster than you would by loading them from individual files.

[User137]

Some missing info in your first post.

- We don't see where UnmaskAlpha() is called from.
- How is Dest: TBitmap created before sending as parameter?
- You are typecasting it, so couldn't it be procedure UnmaskAlpha(Dest: bmp2xlbmp);
- What is bmp2xlbmp anyway?