Update the code to remove warnings
This commit is contained in:
parent
be4471f0f1
commit
ab1ec9ec92
2 changed files with 2 additions and 1 deletions
|
@ -36,7 +36,6 @@ Here is a real working code, I've hidden most display functions.
|
||||||
The YGL, is a kind of framework to display 3D functions.
|
The YGL, is a kind of framework to display 3D functions.
|
||||||
But it can easily be extended to many kind of representation.
|
But it can easily be extended to many kind of representation.
|
||||||
|
|
||||||
> import Debug.Trace (trace)
|
|
||||||
> import YGL -- Most the OpenGL Boilerplate
|
> import YGL -- Most the OpenGL Boilerplate
|
||||||
> import Mandel -- The 3D Mandelbrot maths
|
> import Mandel -- The 3D Mandelbrot maths
|
||||||
|
|
||||||
|
@ -198,6 +197,7 @@ Because we consider partial functions
|
||||||
|
|
||||||
With the color function.
|
With the color function.
|
||||||
|
|
||||||
|
> colorFromValue :: Point -> Color
|
||||||
> colorFromValue n =
|
> colorFromValue n =
|
||||||
> let
|
> let
|
||||||
> t :: Point -> Scalar
|
> t :: Point -> Scalar
|
||||||
|
|
|
@ -15,6 +15,7 @@ module YGL (
|
||||||
Point
|
Point
|
||||||
, Time
|
, Time
|
||||||
, Scalar
|
, Scalar
|
||||||
|
, Color
|
||||||
, Point3D
|
, Point3D
|
||||||
, makePoint3D -- helper (x,y,z) -> Point3D
|
, makePoint3D -- helper (x,y,z) -> Point3D
|
||||||
, (-*<) -- scalar product on Point3D
|
, (-*<) -- scalar product on Point3D
|
||||||
|
|
Loading…
Reference in a new issue