function h = MakePollen1(phi)
% One parameter Orthonormal Pollen Family
% y = MakePollen1(phi)
% Input: phi - angle in [0, 2 *pi)
% Output:  h - low pass ON wavelet filter
% phi=pi/6 corresponds to Daubechies 4 tap ON filter
s = 2 * sqrt(2);
h(1) = (1 + cos(phi) - sin(phi))/s;
h(2) = (1 + cos(phi) + sin(phi))/s;
h(3) = (1 - cos(phi) + sin(phi))/s;
h(4) = (1 - cos(phi) - sin(phi))/s;
% B. Vidakovic, 12/8/2002