Subversion Repositories Kolibri OS

Rev

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

  1. ((function noise4
  2.   (signature vec4
  3.     (parameters (declare (in) vec4 p))
  4.     (
  5.       (declare () float _x)
  6.       (declare () float _y)
  7.       (declare () float _z)
  8.       (declare () float _w)
  9.       (declare () vec4 _r)
  10.  
  11.       (declare () vec4 _p)
  12.       (assign (xyzw) (var_ref _p) (expression vec4 + (var_ref p) (constant vec4 (1559.0 113.0 1861.0 797.0))) )
  13.  
  14.       (assign (x) (var_ref _x) (expression float noise(var_ref p)))
  15.       (assign (x) (var_ref _y) (expression float noise(expression vec4 + (var_ref p) (constant vec4 (601.0 313.0 29.0 277.0)))))
  16.       (assign (x) (var_ref _z) (expression float noise(var_ref _p)))
  17.       (assign (x) (var_ref _w) (expression float noise(expression vec4 + (var_ref _p) (constant vec4 (601.0 313.0 29.0 277.0)))))
  18.  
  19.       (assign (x) (var_ref _r) (var_ref _x))
  20.       (assign (y) (var_ref _r) (var_ref _y))
  21.       (assign (z) (var_ref _r) (var_ref _z))
  22.       (assign (w) (var_ref _r) (var_ref _w))
  23.       (return (var_ref _r))
  24.     ))
  25.  
  26.   (signature vec4
  27.     (parameters (declare (in) vec3 p))
  28.     (
  29.       (declare () float _x)
  30.       (declare () float _y)
  31.       (declare () float _z)
  32.       (declare () float _w)
  33.       (declare () vec4 _r)
  34.  
  35.       (declare () vec3 _p)
  36.       (assign (xyz) (var_ref _p) (expression vec3 + (var_ref p) (constant vec3 (1559.0 113.0 1861.0))) )
  37.  
  38.       (assign (x) (var_ref _x) (expression float noise(var_ref p)))
  39.       (assign (x) (var_ref _y) (expression float noise(expression vec3 + (var_ref p) (constant vec3 (601.0 313.0 29.0)))))
  40.       (assign (x) (var_ref _z) (expression float noise(var_ref _p)))
  41.       (assign (x) (var_ref _w) (expression float noise(expression vec3 + (var_ref _p) (constant vec3 (601.0 313.0 29.0)))))
  42.  
  43.       (assign (x) (var_ref _r) (var_ref _x))
  44.       (assign (y) (var_ref _r) (var_ref _y))
  45.       (assign (z) (var_ref _r) (var_ref _z))
  46.       (assign (w) (var_ref _r) (var_ref _w))
  47.       (return (var_ref _r))
  48.     ))
  49.  
  50.   (signature vec4
  51.     (parameters (declare (in) vec2 p))
  52.     (
  53.       (declare () float _x)
  54.       (declare () float _y)
  55.       (declare () float _z)
  56.       (declare () float _w)
  57.       (declare () vec4 _r)
  58.  
  59.       (declare () vec2 _p)
  60.       (assign (xy) (var_ref _p) (expression vec2 + (var_ref p) (constant vec2 (1559.0 113.0))) )
  61.  
  62.       (assign (x) (var_ref _x) (expression float noise(var_ref p)))
  63.       (assign (x) (var_ref _y) (expression float noise(expression vec2 + (var_ref p) (constant vec2 (601.0 313.0)))))
  64.       (assign (x) (var_ref _z) (expression float noise(var_ref _p)))
  65.       (assign (x) (var_ref _w) (expression float noise(expression vec2 + (var_ref _p) (constant vec2 (601.0 313.0)))))
  66.  
  67.       (assign (x) (var_ref _r) (var_ref _x))
  68.       (assign (y) (var_ref _r) (var_ref _y))
  69.       (assign (z) (var_ref _r) (var_ref _z))
  70.       (assign (w) (var_ref _r) (var_ref _w))
  71.       (return (var_ref _r))
  72.     ))
  73.  
  74.   (signature vec4
  75.     (parameters (declare (in) float p))
  76.     (
  77.       (declare () float _x)
  78.       (declare () float _y)
  79.       (declare () float _z)
  80.       (declare () float _w)
  81.       (declare () vec4 _r)
  82.  
  83.       (declare () float _p)
  84.       (assign (x) (var_ref _p) (expression float + (var_ref p) (constant float (1559.0))) )
  85.  
  86.       (assign (x) (var_ref _x) (expression float noise(var_ref p)))
  87.       (assign (x) (var_ref _y) (expression float noise(expression float + (var_ref p) (constant float (601.0)))))
  88.       (assign (x) (var_ref _z) (expression float noise(var_ref _p)))
  89.       (assign (x) (var_ref _w) (expression float noise(expression float + (var_ref _p) (constant float (601.0)))))
  90.  
  91.       (assign (x) (var_ref _r) (var_ref _x))
  92.       (assign (y) (var_ref _r) (var_ref _y))
  93.       (assign (z) (var_ref _r) (var_ref _z))
  94.       (assign (w) (var_ref _r) (var_ref _w))
  95.       (return (var_ref _r))
  96.     ))
  97. ))
  98.