wait(gaussRangeInt(5000, 10000)); done.
Simba Code:
program new;
{$i srl-6/srl.simba}
const
HIGH = 1000;
TRIES = 120000;
var
bmp: integer;
t, i, del: integer;
begin
bmp := createBitmap(1001, 500);
getMufasaBitmap(bmp).lineTo(point(0, 250), point(1000, 250), clRed);
getMufasaBitmap(bmp).drawText('0', point(0, 100), bigChars, true, clRed);
getMufasaBitmap(bmp).drawText(toStr(HIGH), point(930, 100), bigChars, true, clRed);
for i := 0 to tries do
begin
t := gaussRangeInt(0, HIGH);
if (fastGetPixel(bmp, t, 250) = clLime) then
begin
del := 0;
repeat
inc(del);
if (fastGetPixel(bmp, t, 250 - del) <> clLime) then
begin
fastSetPixel(bmp, t, 250 - del, clLime);
break;
end;
if (fastGetPixel(bmp, t, 250 + del) <> clLime) then
begin
fastSetPixel(bmp, t, 250 + del, clLime);
break;
end;
until false;
end else
fastSetPixel(bmp, t, 250, clLime);
end;
debugBitmap(bmp);
end.