Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4358 Serge 1 
((function noise2
2 
  (signature vec2
3 
    (parameters (declare (in) vec4 p))
4 
    (
5 
      (declare () float a)
6 
      (declare () float b)
7 
      (declare () vec2 t)
8 
 
9 
      (assign (x) (var_ref a) (expression float noise (var_ref p)))
10 
      (assign (x) (var_ref b) (expression float noise (expression vec4 + (var_ref p) (constant vec4 (601.0 313.0 29.0 277.0)))))
11 
      (assign (x) (var_ref t) (var_ref a))
12 
      (assign (y) (var_ref t) (var_ref b))
13 
      (return (var_ref t))
14 
    ))
15 
 
16 
  (signature vec2
17 
    (parameters (declare (in) vec3 p))
18 
    (
19 
      (declare () float a)
20 
      (declare () float b)
21 
      (declare () vec2 t)
22 
 
23 
      (assign (x) (var_ref a) (expression float noise (var_ref p)))
24 
      (assign (x) (var_ref b) (expression float noise (expression vec3 + (var_ref p) (constant vec3 (601.0 313.0 29.0)))))
25 
      (assign (x) (var_ref t) (var_ref a))
26 
      (assign (y) (var_ref t) (var_ref b))
27 
      (return (var_ref t))
28 
    ))
29 
 
30 
  (signature vec2
31 
    (parameters
32 
      (declare (in ) vec2 p)
33 
    )
34 
    (
35 
      (declare () float a)
36 
      (declare () float b)
37 
      (declare () vec2 t)
38 
 
39 
      (assign (x) (var_ref a) (expression float noise (var_ref p)))
40 
      (assign (x) (var_ref b) (expression float noise (expression vec2 + (var_ref p) (constant vec2 (601.0 313.0)))))
41 
      (assign (x) (var_ref t) (var_ref a))
42 
      (assign (y) (var_ref t) (var_ref b))
43 
      (return (var_ref t))
44 
    ))
45 
 
46 
  (signature vec2
47 
    (parameters
48 
      (declare (in ) float p)
49 
    )
50 
    (
51 
      (declare () float a)
52 
      (declare () float b)
53 
      (declare () vec2 t)
54 
 
55 
      (assign (x) (var_ref a) (expression float noise (var_ref p)))
56 
      (assign (x) (var_ref b) (expression float noise (expression float + (var_ref p) (constant float (601.0)))))
57 
      (assign (x) (var_ref t) (var_ref a))
58 
      (assign (y) (var_ref t) (var_ref b))
59 
      (return (var_ref t))
60 
    ))
61 
))