Removed some compilation warnings
This commit is contained in:
parent
43408b1551
commit
f57e6336f3
2 changed files with 2 additions and 1 deletions
|
@ -15,7 +15,7 @@ instance Num ExtComplex where
|
|||
fromInteger n = C (fromIntegral n, 0, 0)
|
||||
C (x,y,z) + C (x',y',z') = C (x+x', y+y', z+z')
|
||||
abs (C (x,y,z)) = C (sqrt (x*x + y*y + z*z), 0, 0)
|
||||
signum (C (x,y,z)) = C (signum x, 0, 0)
|
||||
signum (C (x,_,_)) = C (signum x, 0, 0)
|
||||
|
||||
extcomplex :: GLfloat -> GLfloat -> GLfloat -> ExtComplex
|
||||
extcomplex x y z = C (x,y,z)
|
||||
|
|
|
@ -3,6 +3,7 @@ module Mandel (mandel) where
|
|||
|
||||
import ExtComplex
|
||||
|
||||
mandel :: GLfloat -> GLfloat -> GLfloat -> Int -> Int
|
||||
mandel r i s nbIterations =
|
||||
f (extcomplex r i s) 0 nbIterations
|
||||
where
|
||||
|
|
Loading…
Reference in a new issue