%
% fractaltypes.t
%
% Elementary types and constants for deterministic fractal program
%

const N := 2048				% max line segments in fractal
const Pi := 3.1415927
const scale := 512			% scale factor for image
const Xres := 800			% X and Y resolutions
const Yres := 800
const xoffset := 100			% display offset in X, Y
const yoffset := -Yres + 100

type realpoint:
	record
		x: real
		y: real
	end record

type intpoint:
	record
		x: int
		y: int
	end record


type fractal:
	array 1..N of realpoint