%
%	init.t:
%
%	Routines that create some initial shapes to transform using
%	geometric replacement rules.
%
procedure line(var pts: fractal, var n: int)
	pts(1).x := 0
	pts(1).y := 0
	pts(2).x := 1.0
	pts(2).y := 0
	n := 2
end line


procedure triangle(var pts: fractal, var n: int)
	pts(1).x := 0
	pts(1).y := 0
	pts(3).x := 1.0
	pts(3).y := 0
	pts(2) := Rotate(pts(1), pts(3), Pi/3)
	n := 3
end triangle

procedure square(var pts: fractal, var n: int)
	pts(1).x := 0
	pts(1).y := 0
	pts(2).x := 0
	pts(2).y := -1
	pts(3).x := 1
	pts(3).y := -1
	pts(4).x := 1
	pts(4).y := 0
	pts(5).x := 0
	pts(5).y := 0
	n := 5
end square