aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Brownian-tree/Seed7/brownian-tree.seed7
View file

@ -34,7 +34,7 @@ const proc: genBrownianTree (in integer: fieldSize, in integer: numParticles) is
# Bumped into something
world[py][px] := 1;
rect(SCALE * pred(px), SCALE * pred(py), SCALE, SCALE, white);
DRAW_FLUSH;
flushGraphic;
bumped := TRUE;
else
py +:= dy;
@ -43,11 +43,3 @@ const proc: genBrownianTree (in integer: fieldSize, in integer: numParticles) is
until bumped;
end for;
end func;
const proc: main is func
begin
screen(SIZE * SCALE, SIZE * SCALE);
KEYBOARD := GRAPH_KEYBOARD;
genBrownianTree(SIZE, 20000);
readln(KEYBOARD);
end func;