平行光源のE3DCreateLight lid1E3DSetDirectionalLight lid1, lightdirx1, lightdiry1, lightdirz1, lightr1, lightg1, lightb1の部分を省いたらシェーダーが効いて表示されました。バグかなあ。