yogsototh/hglmandel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed some compilation warnings

Browse source
This commit is contained in:
Yann Esposito 2012-06-15 11:51:11 +02:00
parent 43408b1551
commit f57e6336f3
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
06_Mandelbulb/ExtComplex.hs
View file

@ -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)

1
06_Mandelbulb/Mandel.hs
View file

@ -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