savebitmap

[A-man]

When I use savebitmap() I can't find the file anywhere. I've double checked my path names and such, and I've tried saving it to different folders and I can't access it. Is it saved as a hidden file? Is it only accessible to scar? Can someone help me out?

[LordJashin]

When I use savebitmap() I can't find the file anywhere. I've double checked my path names and such, and I've tried saving it to different folders and I can't access it. Is it saved as a hidden file? Is it only accessible to scar? Can someone help me out?

Sure, post your script, even if it doesn't work, or is just one line.

 

Try using for the path ScriptPath, or AppPath, etc.

[A-man]

program New;

var

r, g, b, color, x, y, width, height, i, pic: Integer;

final_color, red, green, blue: T2DIntArray;

 

procedure rotate(pic: integer);

begin

for x := 0 to width-1 do

begin

for y := 0 to height-1 do

begin

final_color[x][y] := blue[x][y];

fastsetpixel(pic, x, y, final_color[x][y]);

end;

end;

savebitmap(pic, 'C:\Users\A-man\Pictures\SCAR Bitmaps\blank2.bmp');

end;

 

begin

cleardebug();

width := 64;

height := 64;

setlength(red, width);

setlength(green, width);

setlength(blue, width);

setlength(final_color, width);

for i := 0 to width-1 do

begin

setlength(red, height);

setlength(green, height);

setlength(blue, height);

setlength(final_color, height);

end;

pic := loadbitmap('C:\Users\A-man\Pictures\SCAR Bitmaps\blank.bmp');

for x := 0 to width-1 do

begin

for y := 0 to height-1 do

begin

colortorgb(fastgetpixel(pic, x, y), r, g, b);

red[x][y] := r;

green[x][y] := g;

blue[x][y] := b;

//green[x][y] := fastgetpixel(pic, x, y); //colortorgb

end;

end;

freebitmap(pic);

end.

 

---------- Post added at 07:42 AM ---------- Previous post was at 07:41 AM ----------

 

sorry, how do you do the codeboxes? that looks horrible. Anyways, this should load an image blank.bmp (which it does successfully), and save it as blank2.bmp.

[Bixby Sayz]

Am I reading this right? You have a procedure named rotate but you don't actually call it in the main loop.

[A-man]

Oh man, *facepalm* haha, I'm working on a rotate function, it doesn't do anything except convert it to bluescale for testing purposes, but yeah, that would do it Thanks for using your eyes, unlike me