易语言实现旋转的太极图

.版本 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_周期事件

旋转太极图 ()

@ybftl