Mercurial > octave-libgccjit
comparison src/graphics.cc @ 7440:4e3b073e910e
[project @ 2008-02-02 18:23:50 by jwe]
author | jwe |
---|---|
date | Sat, 02 Feb 2008 18:23:50 +0000 |
parents | 464a55f1a5c2 |
children | af92b34f3a3a |
comparison
equal
deleted
inserted
replaced
7439:1867156fc552 | 7440:4e3b073e910e |
---|---|
1899 | 1899 |
1900 ColumnVector F (c_center), f (F), UP (c_upv); | 1900 ColumnVector F (c_center), f (F), UP (c_upv); |
1901 normalize (f); | 1901 normalize (f); |
1902 normalize (UP); | 1902 normalize (UP); |
1903 | 1903 |
1904 if (abs (dot (f, UP)) > 1e-15) | 1904 if (std::abs (dot (f, UP)) > 1e-15) |
1905 { | 1905 { |
1906 double fa = 1/sqrt(1-f(2)*f(2)); | 1906 double fa = 1/sqrt(1-f(2)*f(2)); |
1907 scale (UP, fa, fa, fa); | 1907 scale (UP, fa, fa, fa); |
1908 } | 1908 } |
1909 | 1909 |