Mercurial > games > semicongine

view tests/test_noise.nim @ 908:75a544b946ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
did: always use FIFO swapchain mode, as recommended in a talk on the Vulkan youtube channel (except you know what you are doing, which is cleary not the case here)
author Sam <sam@basx.dev>
date Tue, 05 Mar 2024 14:26:46 +0700
parents 902735626b66
children 71315636ba82
line wrap: on
line source

import semicongine

const w = 500
const h = 500

var o = "P2\n" & $ w & " " & $ h & "\n255\n"

for y in 0 ..< h:
  for x in 0 ..< w:
    let v = (
      perlin(newVec2f(float(x) * 0.01, float(y) * 0.01)) * 0.7 +
      perlin(newVec2f(float(x) * 0.05, float(y) * 0.05)) * 0.25 +
      perlin(newVec2f(float(x) * 0.2, float(y) * 0.2)) * 0.05
    )
    o = o & $(int((v * 0.5 + 0.5) * 255)) & " "
  o = o & "\n"
echo o