-
Notifications
You must be signed in to change notification settings - Fork 0
/
noisep.sc
66 lines (60 loc) · 2.91 KB
/
noisep.sc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
# precompiled version
sugar-if main-module?
using import .noise
compile-object
default-target-triple
compiler-file-kind-object
"noise.o"
do
let
OS2noise_new =
static-typify
fn (seed)
OpenSimplex2S seed
u64
OS2noise2 = (static-typify OpenSimplex2S.noise2 OpenSimplex2S f64 f64)
OS2noise2XbeforeY = (static-typify OpenSimplex2S.noise2-XbeforeY OpenSimplex2S f64 f64)
OS2noise3classic = (static-typify OpenSimplex2S.noise3-classic OpenSimplex2S f64 f64 f64)
OS2noise3XYbeforeZ = (static-typify OpenSimplex2S.noise3-XYbeforeZ OpenSimplex2S f64 f64 f64)
OS2noise3XZbeforeY = (static-typify OpenSimplex2S.noise3-XZbeforeY OpenSimplex2S f64 f64 f64)
OS2noise4classic = (static-typify OpenSimplex2S.noise4-classic OpenSimplex2S f64 f64 f64 f64)
OS2noise4XYbeforeZW = (static-typify OpenSimplex2S.noise4-XYbeforeZW OpenSimplex2S f64 f64 f64 f64)
OS2noise4XZbeforeYW = (static-typify OpenSimplex2S.noise4-XZbeforeYW OpenSimplex2S f64 f64 f64 f64)
OS2noise4XYZbeforeW = (static-typify OpenSimplex2S.noise4-XYZbeforeW OpenSimplex2S f64 f64 f64 f64)
locals;
'O2
else
using import struct
using import Array
struct Grad2 plain
dx : f64
dy : f64
struct Grad3 plain
dx : f64
dy : f64
dz : f64
struct Grad4 plain
dx : f64
dy : f64
dz : f64
dw : f64
let PSIZE = 2048
struct OpenSimplex2S
_perm : (Array i16 PSIZE)
_perm-grad2 : (Array Grad2 PSIZE)
_perm-grad3 : (Array Grad3 PSIZE)
_perm-grad4 : (Array Grad4 PSIZE)
inline __typecall (cls seed)
(extern 'OS2noise_new (function (uniqueof this-type -1) u64)) seed
let noise2 = (extern 'OS2noise2 (function f64 (viewof this-type) f64 f64))
let noise2-XbeforeY = (extern 'OS2noise2XbeforeY (function f64 (viewof this-type) f64 f64))
let noise3-classic = (extern 'OS2noise3classic (function f64 (viewof this-type) f64 f64 f64))
let noise3-XYbeforeZ = (extern 'OS2noise3XYbeforeZ (function f64 (viewof this-type) f64 f64 f64))
let noise3-XZbeforeY = (extern 'OS2noise3XZbeforeY (function f64 (viewof this-type) f64 f64 f64))
let noise4-classic = (extern 'OS2noise4classic (function f64 (viewof this-type) f64 f64 f64 f64))
let noise4-XYbeforeZW = (extern 'OS2noise4XYbeforeZW (function f64 (viewof this-type) f64 f64 f64 f64))
let noise4-XZbeforeYW = (extern 'OS2noise4XZbeforeYW (function f64 (viewof this-type) f64 f64 f64 f64))
let noise4-XYZbeforeW = (extern 'OS2noise4XYZbeforeW (function f64 (viewof this-type) f64 f64 f64 f64))
do
let OpenSimplex2S
locals;