| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 09:34:51 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=d131d9525edb39dd4e1c6cdcbbbff422b20e5247a5cf47111f47abeddaecbe14a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%221efhthTtVMW6KYb206GjIVEFNGnBCQVz%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cd5d30ff865917-BLR
program new;var bmp: TMufasaBitmap;function LoadExample(): TPointArray; - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program new;
- var bmp: TMufasaBitmap;
- function LoadExample(): TPointArray;
- var
- p: TPoint;
- ex: TMufasaBitmap;
- begin
- bmp.Init(client.GetMBitmaps);
- bmp.LoadFromFile('images/example.bmp');
- bmp.ThresholdAdaptive(0,255, False, TM_Mean, 0);
- bmp.FindColors(Result, 0);
- bmp.DrawClear($FFFFFF);
- for p in Result do
- begin
- bmp.SetPixel(p.x,p.y, 0);
- end;
- end;
- procedure TMufasaBitmap.MarkArea(P: TPoint; Sz: Int32; color: Int32);
- var
- i,test: Int32;
- TPA: TPointArray;
- begin
- TPA := TPAFromCircle(p.x,p.y, Sz);
- FillEllipse(TPA);
- for i:=0 to High(TPA) do
- begin
- if (not InRange(TPA[i].x, 0,Self.GetWidth()-1)) or (not InRange(TPA[i].y, 0,Self.GetHeight()-1)) then
- continue;
- test := bmp.GetPixel(TPA[i].x, TPA[i].y);
- if (test = $FFFFFF) then
- bmp.SetPixel(TPA[i].x, TPA[i].y, color);
- end;
- end;
- var
- i,j,wid,hei: Int32;
- color: Int32;
- H,S,L: Extended;
- TPA,PTS: TPointArray;
- colors: TIntegerArray;
- ATPA: T2DPointArray;
- xxx: Int32;
- begin
- PTS := LoadExample();
- ShowBitmap(bmp);
- //TerminateScript;
- for TPA in ClusterTPA(PTS, 12) do
- begin
- color := Random($FFFFFF);
- ColorToHSL(color, H,S,L);
- for j:=0 to High(TPA) do
- begin
- pts := TPAFromCircle(TPA[j].x,TPA[j].y, 3);
- FillEllipse(pts);
- FilterPointsBox(pts, 0,0, bmp.getWidth-1, bmp.getHeight-1);
- colors := bmp.GetPixels(pts);
- bmp.DrawTPA(pts, $FFFFFF);
- if xxx mod 2 = 0 then
- DrawBitmapDebugImg(bmp);
- bmp.SetPixels(pts, colors);
- bmp.MarkArea(TPA[j], 12, HSLtoColor(H,70,90));
- bmp.SetPixel(TPA[j].x, TPA[j].y, HSLtoColor(H,90,15));
- Inc(xxx);
- end;
- end;
- ShowBitmap(bmp);
- bmp.Free();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
-
✅ Make $2500 in 20 minutes⭐⭐⭐ N
JavaScript | 1 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 8 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 17 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 1
JavaScript | 22 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 28 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 33 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 37 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ P
JavaScript | 43 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
