(1) 问题描述
针对一个简单的基于对象的动画语言，设计一个程序解释并执行用该语言编写的动画程序，最后将该动画演示出来。
该动画语言的语法如下：
<command> = <object defn> | <move-cmd>
<object defn> = (define <var> <draw-list>)
<draw-list> = (<draw-cmd> … <draw-cmd>)
<draw-cmd> = <line-cmd> | <circle-cmd>
<line-cmd> = (line <posn> <posn>)
<circle-cmd> = (circle <posn> r)
<posn> = (x y)
<move-cmd> = <place-cmd> | <shift-cmd> | <erase-cmd> | <loop-cmd>
<place-cmd> = (place <posn> <var>)
<shift-cmd> = (shift <var> <direction>)
<direction> = left | right | up | down
<erase-cmd> = (erase <var>)
<loop-cmd> = (loop n (<move-cmd> … <move-cmd>))
图6-48 动画语言的文法
用该语言可编写下面的动画程序：
(define cross ( (line (0 0) (50 50)) (line (50 0) (0 50)) (circle (25 25) 25) ) )
(place cross (50 50))
(loop 100 ( (shift cross right) (shift cross up) ) )
(erase cross)
该动画程序实现了一个内部带叉的圆圈从(50,50)向屏幕右上角(实际上是右下角)移动后消失的动画过程。
(2) 课程设计目的
灵活的应用线性和嵌套结构解决问题。
(3) 基本要求
① 设计并实现该动画语言的解释执行器。
② 写一个人走过街道的动画程序，并用解释器进行解释执行。
③ 将结果演示出来。(用C图形库即可)
(4) 实现提示
关键在于将动画程序中的对象提取出来，然后将每一行程序中的动作加在对象上即可。
