Subversion Repositories Kolibri OS

Rev

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

  1. ((function modf
  2.    (signature float
  3.      (parameters
  4.        (declare (in)  float x)
  5.        (declare (out) float i))
  6.      ((declare () float t)
  7.       (assign (x) (var_ref t) (expression float trunc (var_ref x)))
  8.       (assign (x) (var_ref i) (var_ref t))
  9.       (return (expression float - (var_ref x) (var_ref t)))))
  10.  
  11.    (signature vec2
  12.      (parameters
  13.        (declare (in)  vec2 x)
  14.        (declare (out) vec2 i))
  15.      ((declare () vec2 t)
  16.       (assign (xy) (var_ref t) (expression vec2 trunc (var_ref x)))
  17.       (assign (xy) (var_ref i) (var_ref t))
  18.       (return (expression vec2 - (var_ref x) (var_ref t)))))
  19.  
  20.    (signature vec3
  21.      (parameters
  22.        (declare (in)  vec3 x)
  23.        (declare (out) vec3 i))
  24.      ((declare () vec3 t)
  25.       (assign (xyz) (var_ref t) (expression vec3 trunc (var_ref x)))
  26.       (assign (xyz) (var_ref i) (var_ref t))
  27.       (return (expression vec3 - (var_ref x) (var_ref t)))))
  28.  
  29.    (signature vec4
  30.      (parameters
  31.        (declare (in)  vec4 x)
  32.        (declare (out) vec4 i))
  33.      ((declare () vec4 t)
  34.       (assign (xyzw) (var_ref t) (expression vec4 trunc (var_ref x)))
  35.       (assign (xyzw) (var_ref i) (var_ref t))
  36.       (return (expression vec4 - (var_ref x) (var_ref t)))))
  37. ))
  38.