TheSeamau5

import Graphics.WebGL as GL
import Math.Vector3 as GL
import Math.Matrix4 as GL

type Point = {
  x : Float,
  y : Float,
  z : Float
}

TheSeamau5

import List (..)
import Graphics.Collage (..)
import Graphics.Element (..)
import Color (..)

------------------------------------------
-- 2D Point Type
type alias Point = {
  x : Float,
  y : Float

TheSeamau5

------------------------------------------------
-- 2D Point Type
type Point = {
  x : Float,
  y : Float
}

-- Convert Point to a tuple of floats
toTuple : Point -> (Float, Float)
toTuple point = (point.x, point.y)

TheSeamau5

------------------------------------------------
-- GLOBAL VARIABLES TO PLAY WITH
------------------------------------------------

-- number of iterations of the Julia Set
maxIterations : Int 
maxIterations = 100 


-- The constant c used in the julia function 

TheSeamau5

import MJS (..)
import Graphics.WebGL (..)

main = webgl (400, 400) scene

type Point = {point : V3}
toPoint vector = { point = vector }

triangle : V3 -> V3 -> V3 -> Triangle Point
triangle p1 p2 p3 = (toPoint p1, toPoint p2, toPoint p3)