Made of little things.

-- title: Black hole
-- icon: 🕳️
-- blurb: A black hole hangs over a lake and a village and pulls everything up into it.
-- hint: Newtonian gravity is on. Draw a white hole (WHOL) next to it to push back.
-- view: 7
-- thumb: 2.5
sim.newtonianGravity(true)
walls(0, 372, 611, 383)

-- Land: dunes, a lake, a village and trees
for x = 0, 611 do
  local h = math.floor(18 + 10 * math.sin(x / 37) + 6 * math.sin(x / 13))
  box(x, 371 - h, x, 371, E.DEFAULT_PT_SAND)
end
box(360, 300, 520, 371, 0)
box(360, 312, 520, 371, E.DEFAULT_PT_WATR)
for _, hx in ipairs({ 60, 120, 180 }) do
  box(hx, 318, hx + 34, 346, E.DEFAULT_PT_BRCK)
  for k = 0, 9 do box(hx - 3 + k, 317 - k, hx + 37 - k, 317 - k, E.DEFAULT_PT_WOOD) end
end
for _, tx in ipairs({ 250, 280, 545, 575 }) do
  box(tx, 314, tx + 3, 345, E.DEFAULT_PT_WOOD)
  disc(tx + 1, 306, 9, E.DEFAULT_PT_PLNT)
end

-- The black hole, 256 times heavier than a plain one
local hx, hy = 306, 110
disc(hx, hy, 3, E.DEFAULT_PT_NBHL)
set(hx - 3, hy - 3, hx + 3, hy + 3, "tmp", 25600)