.版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .子程序 __启动窗口_首次激活 画板1.刷子颜色 ＝ #白色 画板1.画笔颜色 ＝ #白色 画板1.画饼 (0, 0, 380, 380, 190, 5, 190, 375) ' 白半圆 画板1.刷子颜色 ＝ #黑色 画板1.画笔颜色 ＝ #黑色 画板1.画饼 (0, 0, 380, 380, 190, 375, 190, 5) ' 黑半圆 画板1.画饼 (95, 190, 285, 380, 0, 0, 0, 0) ' 黑中圆 画板1.刷子颜色 ＝ #白色 画板1.画笔颜色 ＝ #白色 画板1.画饼 (95, 0, 285, 190, 0, 0, 0, 0) ' 白中圆 画板1.画饼 (160, 255, 220, 315, 0, 0, 0, 0) ' 白眼 画板1.刷子颜色 ＝ #黑色 画板1.画笔颜色 ＝ #黑色 画板1.画饼 (160, 65, 220, 125, 0, 0, 0, 0) ' 黑眼 .子程序 旋转太极图 .局部变量 旋转, 整数型, 静态 旋转 ＝ 旋转 ＋ 1 .如果真 (旋转 ＞ 360) 旋转 ＝ 0 .如果真结束 画板1.画笔颜色 ＝ #黑色 画板1.刷子颜色 ＝ #黑色 画板1.画饼 (95 ＋ 95 × 求余弦 ((旋转 ＋ 90) × #pi ÷ 180), 95 ＋ 95 × 求正弦 ((旋转 ＋ 90) × #pi ÷ 180), 285 ＋ 95 × 求余弦 ((旋转 ＋ 90) × #pi ÷ 180), 285 ＋ 95 × 求正弦 ((旋转 ＋ 90) × #pi ÷ 180), 0, 0, 0, 0) ' 黑中圆 画板1.画笔颜色 ＝ #白色 画板1.刷子颜色 ＝ #白色 画板1.画饼 (95 ＋ 95 × 求余弦 ((旋转 ＋ 270) × #pi ÷ 180), 95 ＋ 95 × 求正弦 ((旋转 ＋ 270) × #pi ÷ 180), 285 ＋ 95 × 求余弦 ((旋转 ＋ 270) × #pi ÷ 180), 285 ＋ 95 × 求正弦 ((旋转 ＋ 270) × #pi ÷ 180), 0, 0, 0, 0) ' 白中圆 画板1.画饼 (160 ＋ 95 × 求余弦 ((旋转 ＋ 90) × #pi ÷ 180), 160 ＋ 95 × 求正弦 ((旋转 ＋ 90) × #pi ÷ 180), 220 ＋ 95 × 求余弦 ((旋转 ＋ 90) × #pi ÷ 180), 220 ＋ 95 × 求正弦 ((旋转 ＋ 90) × #pi ÷ 180), 0, 0, 0, 0) ' 白眼 画板1.画笔颜色 ＝ #黑色 画板1.刷子颜色 ＝ #黑色 画板1.画饼 (160 ＋ 95 × 求余弦 ((旋转 ＋ 270) × #pi ÷ 180), 160 ＋ 95 × 求正弦 ((旋转 ＋ 270) × #pi ÷ 180), 220 ＋ 95 × 求余弦 ((旋转 ＋ 270) × #pi ÷ 180), 220 ＋ 95 × 求正弦 ((旋转 ＋ 270) × #pi ÷ 180), 0, 0, 0, 0) ' 黑眼 .子程序 _时钟1_周期事件 旋转太极图 ()