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

Modified image

Browse source
This commit is contained in:
Yann Esposito 2012-05-10 16:51:54 +02:00
parent 983c554481
commit 1b8433100c
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
02_Edges/HGLMandelEdge.lhs
View file

@ -37,6 +37,8 @@
> -- We enter the main loop > -- We enter the main loop
> mainLoop > mainLoop
> display = do > display = do
> -- set the background color (dark solarized theme)
> clearColor $= Color4 0 0.1686 0.2117 1
> clear [ColorBuffer] -- make the window black > clear [ColorBuffer] -- make the window black
> loadIdentity -- reset any transformation > loadIdentity -- reset any transformation
> preservingMatrix drawMandelbrot > preservingMatrix drawMandelbrot
@ -67,7 +69,8 @@ And now, we should change our list of points.
Instead of drawing every point of the visible surface, Instead of drawing every point of the visible surface,
we will choose only point on the surface. we will choose only point on the surface.
> allPoints = positivePoints ++ map (\(x,y,c) -> (x,-y,c)) (reverse positivePoints) > allPoints = positivePoints ++
> map (\(x,y,c) -> (x,-y,c)) (reverse positivePoints)
We only need to compute the positive point. We only need to compute the positive point.
The mandelbrot set is symetric on the abscisse axis. The mandelbrot set is symetric on the abscisse axis.
@ -105,7 +108,7 @@ To find the smallest number such that mandel x y > 0 we create a simple dichotom
No rocket science here. No rocket science here.
See the result now: See the result now:
blogimage("HGLMandelEdge.png","The edge of the mandelbrot set") blogimage("HGLMandelEdges.png","The edges of the mandelbrot set")
<div style="display:none"> <div style="display:none">