proc perlin(pos: Vec2f; seed: uint64 = 0): float32 {....raises: [], tags: [],
    forbids: [].}