BitmapsMerge function

[LordJashin]

This will merge an array of bitmaps either Horizontally or vertically (puts them together) based on what you put for Vertical boolean.

 

Maybe a better name for this? I don't think merge is the right word?

Any suggestions on how to make this better? Some good TIA functions could slim this down.

 

[scar]

 

{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

function BitmapsMerge(BmpArr: array of TSCARBitmap; Vertical: Boolean): TSCARBitmap;

Contributors: LordJashin

Description: Merges an array of bitmaps (puts side by side) either horizontally or vertically depending on Vertical boolean

There must be 2 or more bitmaps for this to do anything

Date Created: November 19th, 2012. By LordJashin.

Last Modified: November 19th, 2012. By LordJashin.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

 

function BitmapsMerge(BmpArr: array of TSCARBitmap; Vertical: Boolean): TSCARBitmap;

var

i, j, w, h, x, y: Integer;

b, bw, bh: TIntArray;

begin

Result := TSCARBitmap.Create('');

h := high(BmpArr);

if (h < 1) then Exit;

for i := 0 to h do

if BitmapExists(BmpArr) then

begin

SetLength(b, j + 1);

SetLength(bw, j + 1);

SetLength(bh, j + 1);

b[j] := i;

bw[j] := BmpArr.Width;

bh[j] := BmpArr.Height;

Inc(j);

end;

if ((j - 1) < 1) then Exit;

if not Vertical then

begin

h := TIAMax(bh);

w := TIASum(bw);

end

else

begin

h := TIASum(bh);

w := TIAMax(bw);

end;

Result.SetSize(w, h);

for i := 0 to (j - 1) do

if not Vertical then

begin

BmpArr[b].DrawTo(Result, x, y);

x := x + BmpArr[b].Width;

end

else

begin

BmpArr[b].DrawTo(Result, x, y);

y := y + BmpArr[b].Height;

end;

end;

[/scar]

 

Next I'm going to make a bitmap debugging function with TSCARBitmapClient used inside of DebugATPA.

Edited November 20, 2012 by LordJashin

[Bixby Sayz]

Perhaps StackBitmaps or TileBitmaps?

[LordJashin]

I think I'll do TileBitmaps. Or maybe BitmapLine?

 

EDIT: Thing is...with tiling I think of this: http://images2.fanpop.com/images/photos/4000000/Obama-tiled-small-barack-obama-4063341-2200-1700.jpg

 

I think I'll go with Jani's approach with all the "Line" functions. So I'll call it BitmapLine...

Edited November 20, 2012 by LordJashin

[Bixby Sayz]

Yeah, I'm with you on tile. Line works for me.

[LordJashin]

I updated OSI with the new changes. You can now use Debug functions on Bitmaps very easily:

 

[scar]

{$DEFINE OSIDebug}

{$I OSI/OSI.scar}

 

var

Bmp: TSCARBitmap;

 

begin

Bmp := TSCARBitmap.Create('deNrtncuZ6ygQRj2TlRNSHM7AO4UwK629dxLedAg3CI/1guJRCGRdt5HO+XrhRjICmaIA1S/+/ee/0xMAAAAAAAAAAAAAAA7Pz/18vv/kpwPsj+bS3CLJN5v+aE6Xk/1rr/K8azund00jDpn0HFO6dSfnEt1ttUXnXzSor181OA45jkD++2qx5rOXblqROKdvXc3jLa+0lXdbNgSs4KgsOIKwXf25nue+Oqe9vc5ZZwVjx950xhM5RbLuo71e2/P1z1I+D/stpy6zA2oewgpEuur72vMZqznSTEGmvJqBbNWiVVzf7GCj1zWN3/c7whJPl5QV+Jb4aISfMl90RkTSrPr853TN98H+nEM4UzDj7cSQW7YW2aNmOoKy1ptsfrn52Azn0o7ZSkfgu6HBWGK+CXa/ZGQT+5my9us75hN20dVYQab/et0KfMFhHIHXrvrmPY1G5IjCmS+sGy1kW4EzQw8n4KkR3dDPixGRrawyu3+6kwJR35cVdHiDozgCu1Jqh83jZzk8ONmePxhRLA6KoiulZhjWf30ug5yeBPl75RGDFluk8/Xe2HzkInDXNF4dg3yiibA7R1A2hgEAAAAAAAAAAAAAgL3y59q2PDaAI+E1+EdzuZymPxMgIBP7v/lh7f3spo+Hfu6tk9g9ZuPyTz7fU/lo3LpoJn5WTdeJQyY9Vt/uQTsA2cDm5vdqHl6YTNRH3M+iCb3a/xzHb5tx32itIbQiZLl1Wmksnwxv9Sqn+eylGwMR5zy6k1+vsKZw8LFQoj0krMA/JK1AHJ0/PDq3A1fzySmJMJmcr4d1TNcajkffVV5ObVRDoFhBbKThWoH51w6KIlYQH7EsWsHri7IN2xFRcImpgkE6VgAR5oF9/ogo7QukFWzlC8y8QDu/P8e7ylCvWIPvbZ8FAZhHyMIL3DqvYSzPC3JHRBHi+Sz6AjHpiLVte2gwHNXH4QsgukAUtq61VmBbo5eD/O5KKxib93St14VEOxfzBTlTxgpg3Rw5Y6XUbX7usueYW2SldLaOeD6JhaxwobX/PE5qgqyU8rBGBIawez9U38jzAgAAAAAAAAAAAACATfgaVY777JjywN9geAj7jionznaqmWScUiSfIVFtqFK5YPKPhvAl0oPyBFG7Y/VF1cLrLhhbU3EoYHVPLSO/abkqZzHn91QzTgSdlv/Fsabi7lqrl9Lmg/KMER32vrXt+dAPr+uKYAl/5RWqnOUz31PNRL+S9BG9FYgYpynAOxG2XWIFscShglP0oPysXHdM7JoujHIsPV+EWrX3a5ej5hB6jbZ1HZbx3bYnEW7dDZucUuYCO1ZfV8ROln9/2wreVs3E3YGWj7CCrBja8vSgPKOZD4HrYzfoxdNGe5uLEpdbdL69t7HB7aKPlr74Inoq2wBuDxEk7PbwcuB367yOqxYrSAUnl6hytLu9oWomfV0vn8k6YlXbyAqC9MnZDR3IcN0cK+jERgs5VhA53xV65/06MkzXFDIikvJaQiR2Nyi2d5VapjbhfVuhylnIeQvVjOYOokf7LquJX3QrK/DLY99R8JgDy3/BCpLNUlnEmL6uWYGzJub38Prlah8RrVDlLOb8vmomuLSaj50dx6xvOytQJz7PT1qBuxTwMn/3W2O375TEWTpwV0Lc2zt0+9LKQje9XyvQarFypXQj1UzQ/Sr5iJVSU+BJFh1XA5Wmx8pjCz8Uw/77OhrPxwwX+2rO9ypRTv1859a15zbDCtRKyUPm/ouRbds17XzIL2fdKidlSvWdtvxtb9ijPOp8E5UTfJalNTcAAAAAAAAAAABYCSqbSsoDW4DKZgOVzUJ9v5DoT5w+f8cvAEdlk65XrspGr++Xdn0xO70fVRmEyqbcCjIS5/pO6pib7X7N6+5V1YwMqXLbalQFo6pdFHWM79PHS+hxXPWqft7rA1HZLKZHyqPVV4sF1VUzTiTzsgrmqahdEuqYcl9Qo+qnYHCIymajdK2+CSuI6wW0GNfEXCMa4ZxQx2xkBVWpfsp8ASqbvPr65dHqW2YFCbVLmRUk1TGfsoLvUf2UWwEqm6z6eoeU+op0d4SgWYc2s46rYLRfP62OUa1Ajr1XqoS+U/Wzem0ElU2uyiZVX1eDM88WU6oZXQgTU8GoahdFHRPsxu7t2BiOTHah+lnxvOCJyqbO8vB7AXwJqH4AAAAAAAAAAGA3oLKppDywBahsNlHZJOuVMqo8JYKM0H4nn+/k199lh8omXa/VKpt3HhhFo9rqev/tCkP4xdqhsim3gpINbgblyBQ8M/nH1B43abVLd5XvAU75LPa+ebsPRGWzmJ5dHhP3OEdp5hi45gvMj8LeNxuPx1DZbJrul8dEAs/jzHesgL1vPuYLUNnk1TevPN9tBex9o1sBKpus+maVZ6UVRNQu7H3z2XlBvFSobB6l5TGVGra/lHPD7pbMP1C7sPfN558XPFHZ1FmeSsvP3jfweVDBAAAAAAAAAAAAZILKppLywBagstlAZSNilX9E3ZvH2xb36SX9Y6p1UNmk65WrsgkiZFaUIW4IW6t1nrves2ZdJAYqm3IrUAQ1QwVNfJpsaSLeRovDie9l04cbJVUt2l45alzWHveseV+tg8pmVXpQnimW8lXytps+2BGazcFGJmvpct7hjIg0VUsi1nSFLzigWgeVzXbpQ7MfGuFgg7MVuCHfTyPf0NK9kZUNVFaHRh+wgt2rdVDZrEsPy/NqWt0wKO2/0nRWX3AAK6hdrYPKZq0V+Ifu/Vh31pc5W3JIu5YjpWi6Y1zK6oGzgKDtlfPU96bZ8Z41280L4rmhskmqbJzxrdMqNM+upctF5qbrvHuYyieYpd66eOH3u2fNSrUOKpsdlefg9wG1Dnwe1DoAAAAAAAAAALB7Dq+yQU1zJKpU2QRRrzLIcC7tm1asR5NuuUhetJdN9Fl5RXztU61aVTbj43tbzjmGZ2N3oOQ5RLk4YYdJNlG1ePE8lT6o+uX3kWZbQR0qmyHDu4leM5+TapoylcdikJWI6VLVKIWqlgIrML44pkZJqmMS1rrzPWtKWnUNKpvRrIZ2OHYvXn+b3u0lS+Whu4P5Wk45NTXKszCSOW9QJF9wHVejJMqT47v3t2dNapxWqcpmci5WjbVoBcUqj8IR44o4/2dUraPEsvq+QAnHzSmPPgLc+Z41+b9yHSobM8Sae6QMK3Bb8pJ6RXMH2irBRlZQMEqcI43japRyKyi6P1XuWVNiBTWobAKt1qIVlKk81Kz8ViHnI7oVFKha8qxgvo26GiVpBQfds6Z0tvvVKhupK5FbxvRH1RFFqcpj+briJQyjDCSuRnkWqFqyV0r9ibCnRkmpY1QrOMCeNSXPC56obL7jujsDFQwAAAAAAAAAAABAdaCyQWVzIFDZlPcDWvkLbKwpVsqURmL/Zs9V29MxVDZJd1C2h04R6za7qeUp9pdGSmTfVVQ2aZVNvPxTiJHdWWMqw3CtKWhn8o8mrqm937zApKCcedGMWr10AzyomqakVaOyWXAH8fJHo6lNvOUcTWqah7MLYX+ajfqL7n1TWq9MH30cNU1q/IbKplRlo5ffliHc7WIeZ0oriDQbbXeP4nqlR3oHVdPk/8qobHJmB/Gj8+2yhUlZgd+811pBtF55HExNU2IFqGwSVU7toTMVQ7aNpC+4OEIVMV/4UQeH+fUS3T5qmpVrDqhslA5f3UNHVDx4AcUwhXHnko425+JZVuQ+rKkXapp3nhc8Udmsvm6pwnePoKY59k+fcCgAAAAAAAAAAADw+/BeKTgai6qZ8I1/40Pe8czx6/ac1yH/2a59JqI9U3afUTqHeKoCn0Z/03gk3MVTrMgwEn/niOXoNSe2xw25qewJO9Q/Foq2t7nd+vFafRDjdW7wmhUEzT5hBZpWBSuADxJXzTgDHs8KfuaAXt0K0kbhDYqwAvgKAtVMyheY9v+uFai+oC4VBlTvCRTVjLZqZM7vu+vrBiOionEawN+xgvjajrYDnbAaq2cMrMBXYGEFUN0cObJSOrRqYzJWLDlaga6CyVgpjYgoWSOCv82Xz0Z5XgAAAAAAAAAAAAAAAAAAAAAAAAAf4H/lXt8B');

SetBitmapAsClient(Bmp);

DebugTBA([box(0, 0, 50, 50), Box(50, 50, 100, 100)]);

wait(3000);

HideDebugImgWindow;

Bmp.Free;

end.

[/scar]

[TerryKig]

crypto nwo virus 10000 bitcoin pizza guy 1099 misc crypto blast2l.com scam buy bitcoin or wait when is the kar98k coming back how do you make money with cryptocurrency $fet crypto kilt crypto buying petrol oil with bitcoin us economy implodes shardbound crypto youtuber mediacoin how long does bitcoin transfer take link coin price

how to build cryptocurrency 3ull buy bitcoin no cap can i buy products at newegg with bitcoin how to buy bitcoin with litecoin on coinbase how do i use paypal money to buy bitcoins ethereurm price is it right tome to buy into bitcoin aave crypto loan utopia labs

400 million bitcoin purchase 0.00936974 bitcoin cash value crypto airdrop taxable event selling csgo skins for crypto do crypto airdrops work why airdrop crypto 50 cent album bitcoin bitcoin in 2012 sui tokens bonk news crypto

are crypto.com fees high capital of soma headway crunchbase bitcoin etf decision date internet computer crypto acura of valley stream bitcoin render price prediction 2025 how do i buy bitcoin on td ameritrade cheapest place to buy bitcoin with debit card how to make a cryptocurrency coin

plonky2 best crypto academy silta crypto dapps parker lewis bitcoin