用C/C++编的海龟作图

海龟作图，程序虽短，但功能齐全！！ 设置海龟类型的基本操作为：procedure StartTurtleGraphlcs ；｛显示作图窗口，并在窗口内写出本人的姓名、上机号和实验题号。｝procedure StartTurtle；｛令海龟处于作图的初始状态。即显示作图窗口，并将海龟定位在窗口正中；}｛置画笔状态为落笔、龟头朝向为0度（正东方向）。｝procedure PenUp；｛改变画笔状态为抬笔。从此时起，海龟移动将不在屏幕上作图。｝procedure PenDown；｛改变画笔状态为落笔。从此时起，海龟移动将在屏幕上作图。｝function TurtleHeadins：inteser ；｛返回海龟头当前朝向的角度。｝function TurtlePos：PaPoint；｛返回海龟的当前位置。｝procedureMove（steps：Integer）； {依照海龟头的当前朝向，向前移动海龟steps步。｝procedureTurn（degrees：Integer）；｛改变海龟头的当前朝向，逆时针旋转degrees度。｝procedure MoveTTo（newPos：aPolnt）；｛将海龟移动到新的位置 newPos。如果是落笔状态，则同时作图。