增加了的"级数"参数来递归的调用它自己。当"级别"达到"最大级别"这个全局变量时，在"P1"和"P4"之间就画上直线。函数"中点（midpoint）"去两个点，并返回这两点间的线段的中点。
代码实现.
Haskell.用线性插值计算P和Q之间的一点R，插值参数为t用法：linearInterp P Q t返回：代表点（1-t）P + tQ的表> linearInterp :: [Float]->[Float]->Float->[Float]> lin