Subversion Repositories Kolibri OS

Rev

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

  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. ))
  62.