Revision as of 19:02, 4 October 2020 (view source) Chkas (talk \| contribs) m (→‎{{header\|EasyLang}}) ← Older edit		Revision as of 14:56, 27 December 2020 (view source) Chkas (talk \| contribs) (→‎{{header\|EasyLang}}) Newer edit →
Line 3,817: [https://easylang.online/apps/forest-fire.html Run it] <lang>~~subr~~p_fire ~~init~~= 0.00002 p_tree = 0.002 for r range 100▼ # for c range 100▼ len f[] ~~i = r~~102 * 102 ~~+ c + 103~~ len p[i] =len -1f[] set_background 100 if randomf < 0.55▼ clear_screen f[i] = 1▼ ▲ for cr range 100 else▼ ▲ for rc range 100 f[i] = 0▼ i = .r * 102 + c + 103 ▲ if randomf < 0.555 ▲ f[i] = 01 . . ~~timer 0~~ . set_timer 0 # subr show for r range 100 Line 3,837 ⟶ 3,840: h = f[i] if h <> p[i] ~~move~~move_pen c + 0.5 r + 0.5 if h = 0 ~~color~~set_color ~~210~~100 draw_circle 0.6 elif h = 1 ~~color~~set_color ~~161~~151 draw_circle 0.5 else ~~color~~set_color ~~960~~9 * 100 + (18 - 2 * h) * 10 draw_circle 0.5 . rect 1 1▼ . . Line 3,857 ⟶ 3,862: if p[i] = 0 f[i] = 0 if randomf < ~~0.003~~p_tree f[i] = 1 . elif p[i] = 101 f[i] = 0▼ ~~else~~ f[i] = 1 s = 0p[i - 103] + p[i - 102] + p[i - 101] ~~s += p[i - 103] + p[i - 102] + p[i - 101]~~ s += p[i - 1] + p[i + 1] s += p[i + 101] + p[i + 102] + p[i + 103] if s >= 109 or randomf < ~~0.00001~~p_fire f[i] = 109 . ▲ elif fp[i] = 04 ▲ f[i] = 10 ▲ else ▲ ~~rect~~f[i] 1= p[i] - 1 . . Line 3,878 ⟶ 3,884: call show call update ~~timer~~set_timer 0.2 ~~call init~~.</lang>▼ . ~~len f[] 102 * 102~~ ~~len p[] len f[]~~ ▲call init</lang> =={{header\|Emacs Lisp}}==

Forest fire: Difference between revisions

Forest fire (view source)

Revision as of 14:56, 27 December 2020