ResizeBox

[Janilabo]

[scar]procedure ResizeBox(var bx: TBox; pixels, method: Integer);

begin

case method of

0: bx := Box((bx.X1 - pixels), (bx.Y1 - pixels), (bx.X2 + pixels), (bx.Y2 + pixels)); // WHOLE AREA (ALL AREAS BELOW)

1: bx := Box((bx.X1 - pixels), bx.Y1, (bx.X2 + pixels), bx.Y2); // WIDTH

2: bx := Box(bx.X1, (bx.Y1 - pixels), bx.X2, (bx.Y2 + pixels)); // HEIGHT

3: bx := Box(bx.X1, (bx.Y1 - pixels), bx.X2, bx.Y2); // UP

4: bx := Box(bx.X1, bx.Y1, bx.X2, (bx.Y2 + pixels)); // DOWN

5: bx := Box((bx.X1 - pixels), bx.Y1, bx.X2, bx.Y2); // LEFT

6: bx := Box(bx.X1, bx.Y1, (bx.X2 + pixels), bx.Y2); // RIGHT

7: bx := Box((bx.X1 - pixels), (bx.Y1 - pixels), bx.X2, bx.Y2); // TOP-LEFT

8: bx := Box(bx.X1, (bx.Y1 - pixels), (bx.X2 + pixels), bx.Y2); // TOP-RIGHT

9: bx := Box((bx.X1 - pixels), bx.X1, bx.X2, (bx.Y2 + pixels)); // BOTTOM-LEFT

10: bx := Box(bx.X1, bx.Y1, (bx.X2 + pixels), (bx.Y2 + pixels)); // BOTTOM-RIGHT

end;

end;

 

var

r_pixels: TIntArray;

h, i, m: Integer;

m_bx, r_bx: TBox;

 

begin

ClearDebug;

m_bx := Box(10, 10, 100, 100);

WriteLn('Original m_bx: ' + BoxToStr(m_bx) + #13#10);

r_pixels := [-1, 1, 5, 10];

h := High(r_pixels);

for i := 0 to h do

begin

for m := 0 to 10 do

begin

r_bx := m_bx;

ResizeBox(r_bx, r_pixels, m);

WriteLn('Resized m_bx: ' + BoxToStr(r_bx) + ' [' + 'Pixels: ' + IntToStr(r_pixels) + ', Method: ' + IntToStr(m) + ']');

end;

if (i < h) then

WriteLn('');

end;

end.[/scar]

[TerryKig]

can you buy bitcoin in a tfsa what is the market cap of ssw buy bitcoin with academy google forms crypto scam can i buy bitcoins on mycelium crypto broker list affordable crypto games shiba inua coin deepdotweb how to buy bitcoins newton crypto resident evil developer bitcoin buy business buy mastercard with crypto $apex crypto why did crypto drop today

tezos price abra bitcoin philippines stack coin buy thousands of bitcoin onlinw taiwan dollar to hkd rabbit hole crypto can you buy partial bitcoin on coinbase 250 bitcoin to aud hong kong crypto trading anchorage digital

75 bitcoin to nok michael saylor 0.1 bitcoin ada crypto exchange can you buy shib with bitcoin how to buy bitcoin with uphold 250 dolares a bitcoin best seats crypto arena can i buy bitcoin gold now gary gensler fired runestone crypto

buy a whole bitcoin crypto monster jam new crypto coins reddit crypto.com card rewards 1 million bitcoin to gbp amp crypto forum crypto dag milady meme coin crypto krystal defi bitcoin code review

how to buy bitcoins with bolivares xls 30d buy bitcoin with account instantly eve online crypto exchange to buy bitcoin cash