| 1 | function scr_normalize |
| 2 | { |
| 3 | vector_length = sqrt(sqr(arg0[0]) + sqr(arg0[1])); |
| 4 | if (arg0[0] != 0) |
| 5 | arg0[0] = arg0[0] / vector_length; |
| 6 | if (arg0[1] != 0) |
| 7 | arg0[1] = arg0[1] / vector_length; |
| 8 | output_vector = [arg0[0], arg0[1]]; |
| 9 | return output_vector; |
| 10 | } |