Diogo-Miranda / haskell-introduction

haskell-introduction

Draw differents figures

let line = ((400,400), (420,420))

writePng "fractal1.png" (drawPicture 4 (spiralRays (pi/27.6) 1.015 300 red line))

writePng "fractal1.png" (drawPicture 4 (spiralRays (pi/7.2) 1.015 400 white line))

writePng "fractal1.png" (drawPicture 4 (spiralRays (pi/1.23) 1.015 400 green line))

line = ((400,400), (620, 620))

writePng "fractal1.png" (drawPicture 4 (spiralRays (pi/1.23) 0.95 400 green line))