模仿一个软件卸载界面的表情 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

_启动窗口.宽度＝ 800
_启动窗口.高度＝ 600
表情界面.左边＝ 0
表情界面.顶边＝ 0
表情界面.宽度＝ _启动窗口.取用户区宽度 ()
表情界面.高度＝ _启动窗口.取用户区高度 ()
' 调试输出 (表情界面.宽度)
' 调试输出 (表情界面.高度)
' 动画框宽度：800，宽度中点：400。
' 动画框高度：600，高度中点：300。
表情界面的宽度＝表情界面.宽度
表情界面的高度＝表情界面.高度
头心横坐标＝表情界面的宽度 ÷ 2
头心纵坐标＝表情界面的高度 ÷ 2
' 画头，中心位置在窗口屏幕中间，，横坐标400，纵坐标300，宽：400，高：400。
头宽＝ 400
头高＝ 400
' 设置头的左边，在头的宽度中心位置400，减掉头的一半宽度400/2。
头左边＝头心横坐标－头宽 ÷ 2
' 设置头的顶边，在头的高度中心位置300，减掉头的一半高度400/2。
头顶边＝头心纵坐标－头高 ÷ 2
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #橙黄
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #橙黄
表情界面.画椭圆 (头左边, 头顶边, 头左边＋头宽, 头顶边＋头高)
' 画眼睛，两眼距离：50，两瞳距离：150，中心横坐标75，中心纵坐标50。
眼眶大小＝ 100
眼瞳大小＝ 50
左眼眶宽＝眼眶大小
左眼眶高＝眼眶大小
右眼眶宽＝眼眶大小
右眼眶高＝眼眶大小
左眼瞳宽＝眼瞳大小
左眼瞳高＝眼瞳大小
右眼瞳宽＝眼瞳大小
右眼瞳高＝眼瞳大小
左眼心与头心的横向距离＝ 100
左眼心与头心的纵向距离＝ 50
右眼心与头心的横向距离＝ 100
右眼心与头心的纵向距离＝ 50
左眼瞳心与头心的横向距离＝ 100
左眼瞳心与头心的纵向距离＝ 50
右眼瞳心与头心的横向距离＝ 100
右眼瞳心与头心的纵向距离＝ 50
两眼心距离＝左眼心与头心的横向距离＋右眼心与头心的横向距离
' 调试输出 (两眼心距离)
两眼框最近距离＝左眼心与头心的横向距离－左眼眶宽 ÷ 2 ＋右眼心与头心的横向距离－右眼眶宽 ÷ 2
' 调试输出 (两眼框最近距离)
左眼眶左边＝头心横坐标－左眼心与头心的横向距离－左眼眶宽 ÷ 2
左眼眶顶边＝头心纵坐标－左眼心与头心的纵向距离－右眼眶高 ÷ 2
右眼眶左边＝头心横坐标＋右眼心与头心的横向距离－右眼眶宽 ÷ 2
右眼眶顶边＝头心纵坐标－左眼心与头心的纵向距离－右眼眶高 ÷ 2
' 调试输出 (左眼眶左边)
' 调试输出 (左眼眶顶边)
' 调试输出 (右眼眶左边)
' 调试输出 (右眼眶顶边)
左眼瞳左边＝头心横坐标－左眼瞳心与头心的横向距离－左眼瞳宽 ÷ 2
左眼瞳顶边＝头心纵坐标－左眼瞳心与头心的纵向距离－右眼瞳高 ÷ 2
右眼瞳左边＝头心横坐标＋右眼瞳心与头心的横向距离－右眼瞳宽 ÷ 2
右眼瞳顶边＝头心纵坐标－左眼瞳心与头心的纵向距离－右眼瞳高 ÷ 2
' 调试输出 (左眼瞳左边)
' 调试输出 (左眼瞳顶边)
' 调试输出 (右眼瞳左边)
' 调试输出 (右眼瞳顶边)
' 眼眶颜色
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #白色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #白色
' 画左眼眶
表情界面.画椭圆 (左眼眶左边, 左眼眶顶边, 左眼眶左边＋左眼眶宽, 左眼眶顶边＋左眼眶高)
' 画右眼眶
表情界面.画椭圆 (右眼眶左边, 右眼眶顶边, 右眼眶左边＋右眼眶宽, 右眼眶顶边＋右眼眶高)
' 眼瞳颜色
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #黑色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #黑色
' 画左眼瞳孔
表情界面.画椭圆 (左眼瞳左边, 左眼瞳顶边, 左眼瞳左边＋左眼瞳宽, 左眼瞳顶边＋左眼瞳高)
' 画右眼瞳孔
表情界面.画椭圆 (右眼瞳左边, 右眼瞳顶边, 右眼瞳左边＋右眼瞳宽, 右眼瞳顶边＋右眼瞳高)
' 画嘴巴
嘴巴宽＝ 200
嘴巴高＝ 150
嘴巴左边＝头心横坐标－嘴巴宽 ÷ 2
嘴巴顶边＝头心纵坐标
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #黑色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #黑色
表情界面.画椭圆 (嘴巴左边, 嘴巴顶边, 嘴巴左边＋嘴巴宽, 嘴巴顶边＋嘴巴高)
' ' 头横向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2, 表情界面.宽度, 表情界面.高度 ÷ 2)
' ' 头纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2, 表情界面.顶边, 表情界面.宽度 ÷ 2, 表情界面.高度)
' ' 左右眼睛横向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2 － 50, 表情界面.宽度, 表情界面.高度 ÷ 2 － 50)
' ' 左眼睛纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2 － 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 － 100, 表情界面.高度)
' ' 右眼睛纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2 ＋ 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 ＋ 100, 表情界面.高度)

子程序名	返回值类型	公开	备注
_表情界面_鼠标位置被移动	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

表情界面.左边＝ 0
表情界面.顶边＝ 0
表情界面.宽度＝ _启动窗口.取用户区宽度 ()
表情界面.高度＝ _启动窗口.取用户区高度 ()
' 调试输出 (表情界面.宽度)
' 调试输出 (表情界面.高度)
' 动画框宽度：800，宽度中点：400。
' 动画框高度：600，高度中点：300。
表情界面的宽度＝表情界面.宽度
表情界面的高度＝表情界面.高度
头心横坐标＝表情界面的宽度 ÷ 2
头心纵坐标＝表情界面的高度 ÷ 2
' 画头，中心位置在窗口屏幕中间，，横坐标400，纵坐标300，宽：400，高：400。
头宽＝ 400
头高＝ 400
' 设置头的左边，在头的宽度中心位置400，减掉头的一半宽度400/2。
头左边＝头心横坐标－头宽 ÷ 2
' 设置头的顶边，在头的高度中心位置300，减掉头的一半高度400/2。
头顶边＝头心纵坐标－头高 ÷ 2
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #橙黄
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #橙黄
表情界面.画椭圆 (头左边, 头顶边, 头左边＋头宽, 头顶边＋头高)
' 画眼睛，两眼距离：50，两瞳距离：150，中心横坐标75，中心纵坐标50。
眼眶大小＝ 100
眼瞳大小＝ 50
眼瞳移动最大距离＝ (眼眶大小－眼瞳大小) ÷ 2
左眼眶宽＝眼眶大小
左眼眶高＝眼眶大小
右眼眶宽＝眼眶大小
右眼眶高＝眼眶大小
左眼瞳宽＝眼瞳大小
左眼瞳高＝眼瞳大小
右眼瞳宽＝眼瞳大小
右眼瞳高＝眼瞳大小
左眼心与头心的横向距离＝ 100
左眼心与头心的纵向距离＝ 50
右眼心与头心的横向距离＝ 100
右眼心与头心的纵向距离＝ 50
左眼瞳心与头心的横向距离＝ 100
左眼瞳心与头心的纵向距离＝ 50
右眼瞳心与头心的横向距离＝ 100
右眼瞳心与头心的纵向距离＝ 50
左眼瞳心移动后与头心的横向距离＝左眼瞳心与头心的横向距离 �� (横向位置 �� (头心横坐标－左眼瞳心与头心的横向距离)) ÷ 眼瞳移动最大距离
左眼瞳心移动后与头心的纵向距离＝左眼瞳心与头心的纵向距离 �� (纵向位置 �� (头心纵坐标－左眼瞳心与头心的纵向距离)) ÷ 眼瞳移动最大距离
右眼瞳心移动后与头心的横向距离＝右眼瞳心与头心的横向距离 �� (横向位置 �� (头心横坐标－右眼瞳心与头心的横向距离)) ÷ 眼瞳移动最大距离
右眼瞳心移动后与头心的纵向距离＝右眼瞳心与头心的纵向距离 �� (纵向位置 �� (头心纵坐标－右眼瞳心与头心的纵向距离)) ÷ 眼瞳移动最大距离
两眼心距离＝左眼心与头心的横向距离＋右眼心与头心的横向距离
' 调试输出 (两眼心距离)
两眼框最近距离＝左眼心与头心的横向距离－左眼眶宽 ÷ 2 ＋右眼心与头心的横向距离－右眼眶宽 ÷ 2
' 调试输出 (两眼框最近距离)
左眼眶左边＝头心横坐标－左眼心与头心的横向距离－左眼眶宽 ÷ 2
左眼眶顶边＝头心纵坐标－左眼心与头心的纵向距离－右眼眶高 ÷ 2
右眼眶左边＝头心横坐标＋右眼心与头心的横向距离－右眼眶宽 ÷ 2
右眼眶顶边＝头心纵坐标－左眼心与头心的纵向距离－右眼眶高 ÷ 2
' 调试输出 (左眼眶左边)
' 调试输出 (左眼眶顶边)
' 调试输出 (右眼眶左边)
' 调试输出 (右眼眶顶边)
左眼瞳左边＝头心横坐标－左眼瞳心移动后与头心的横向距离－左眼瞳宽 ÷ 2
左眼瞳顶边＝头心纵坐标－左眼瞳心移动后与头心的纵向距离－右眼瞳高 ÷ 2
右眼瞳左边＝头心横坐标＋右眼瞳心移动后与头心的横向距离－右眼瞳宽 ÷ 2
右眼瞳顶边＝头心纵坐标－左眼瞳心移动后与头心的纵向距离－右眼瞳高 ÷ 2
' 调试输出 (左眼瞳左边)
' 调试输出 (左眼瞳顶边)
' 调试输出 (右眼瞳左边)
' 调试输出 (右眼瞳顶边)
' 眼眶颜色
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #白色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #白色
' 画左眼眶
表情界面.画椭圆 (左眼眶左边, 左眼眶顶边, 左眼眶左边＋左眼眶宽, 左眼眶顶边＋左眼眶高)
' 画右眼眶
表情界面.画椭圆 (右眼眶左边, 右眼眶顶边, 右眼眶左边＋右眼眶宽, 右眼眶顶边＋右眼眶高)
' 眼瞳颜色
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #黑色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #黑色
' 画左眼瞳孔
表情界面.画椭圆 (左眼瞳左边, 左眼瞳顶边, 左眼瞳左边＋左眼瞳宽, 左眼瞳顶边＋左眼瞳高)
' 画右眼瞳孔
表情界面.画椭圆 (右眼瞳左边, 右眼瞳顶边, 右眼瞳左边＋右眼瞳宽, 右眼瞳顶边＋右眼瞳高)
' 画嘴巴
嘴巴宽＝ 200
嘴巴高＝ 150
嘴巴左边＝头心横坐标－嘴巴宽 ÷ 2
嘴巴顶边＝头心纵坐标
表情界面.画出方式＝ 12
表情界面.画笔颜色＝ #黑色
表情界面.刷子类型＝ 1
表情界面.刷子颜色＝ #黑色
表情界面.画椭圆 (嘴巴左边, 嘴巴顶边, 嘴巴左边＋嘴巴宽, 嘴巴顶边＋嘴巴高)

如果真 (横向位置＜头心横坐标)

' 画上巴

上巴宽＝ 200

上巴高＝纵向位置 ÷ 4

上巴左边＝头心横坐标－上巴宽 ÷ 2

上巴顶边＝头心纵坐标

表情界面.画出方式＝ 12

表情界面.画笔颜色＝ #橙黄 ' #黑色

表情界面.刷子类型＝ 1

表情界面.刷子颜色＝ #橙黄

表情界面.画椭圆 (上巴左边, 上巴顶边, 上巴左边＋上巴宽, 上巴顶边＋上巴高)

如果真 (横向位置＞头心横坐标)

' 画下巴

下巴宽＝ 200

下巴高＝纵向位置 ÷ 4

下巴左边＝头心横坐标－下巴宽 ÷ 2

下巴顶边＝头心纵坐标＋嘴巴高－下巴高

表情界面.画出方式＝ 12

表情界面.画笔颜色＝ #橙黄 ' #黑色

表情界面.刷子类型＝ 1

表情界面.刷子颜色＝ #橙黄

表情界面.画椭圆 (下巴左边, 下巴顶边, 下巴左边＋下巴宽, 嘴巴顶边＋嘴巴高)
' ' 头横向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2, 表情界面.宽度, 表情界面.高度 ÷ 2)
' ' 头纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2, 表情界面.顶边, 表情界面.宽度 ÷ 2, 表情界面.高度)
' ' 左右眼睛横向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2 － 50, 表情界面.宽度, 表情界面.高度 ÷ 2 － 50)
' ' 左眼睛纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2 － 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 － 100, 表情界面.高度)
' ' 右眼睛纵向中线
' 表情界面.画出方式＝ 5  ' 反转颜色。
' 表情界面.画笔颜色＝ #黑色
' 表情界面.画直线 (表情界面.宽度 ÷ 2 ＋ 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 ＋ 100, 表情界面.高度)

子程序名	返回值类型	公开	备注
_关闭按钮_被单击

销毁 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br />
.支持库 iext2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
_启动窗口.宽度 ＝ 800<br />
_启动窗口.高度 ＝ 600<br />
表情界面.左边 ＝ 0<br />
表情界面.顶边 ＝ 0<br />
表情界面.宽度 ＝ _启动窗口.取用户区宽度 ()<br />
表情界面.高度 ＝ _启动窗口.取用户区高度 ()<br />
' 调试输出 (表情界面.宽度)<br />
' 调试输出 (表情界面.高度)<br />
<br />
' 动画框宽度：800，宽度中点：400。<br />
' 动画框高度：600，高度中点：300。<br />
表情界面的宽度 ＝ 表情界面.宽度<br />
表情界面的高度 ＝ 表情界面.高度<br />
头心横坐标 ＝ 表情界面的宽度 ÷ 2<br />
头心纵坐标 ＝ 表情界面的高度 ÷ 2<br />
<br />
' 画头，中心位置在窗口屏幕中间，，横坐标400，纵坐标300，宽：400，高：400。<br />
头宽 ＝ 400<br />
头高 ＝ 400<br />
' 设置头的左边，在头的宽度中心位置400，减掉头的一半宽度400/2。<br />
头左边 ＝ 头心横坐标 － 头宽 ÷ 2<br />
' 设置头的顶边，在头的高度中心位置300，减掉头的一半高度400/2。<br />
头顶边 ＝ 头心纵坐标 － 头高 ÷ 2<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #橙黄<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #橙黄<br />
表情界面.画椭圆 (头左边, 头顶边, 头左边 ＋ 头宽, 头顶边 ＋ 头高)<br />
<br />
' 画眼睛，两眼距离：50，两瞳距离：150，中心横坐标75，中心纵坐标50。<br />
眼眶大小 ＝ 100<br />
眼瞳大小 ＝ 50<br />
<br />
左眼眶宽 ＝ 眼眶大小<br />
左眼眶高 ＝ 眼眶大小<br />
右眼眶宽 ＝ 眼眶大小<br />
右眼眶高 ＝ 眼眶大小<br />
<br />
左眼瞳宽 ＝ 眼瞳大小<br />
左眼瞳高 ＝ 眼瞳大小<br />
右眼瞳宽 ＝ 眼瞳大小<br />
右眼瞳高 ＝ 眼瞳大小<br />
<br />
左眼心与头心的横向距离 ＝ 100<br />
左眼心与头心的纵向距离 ＝ 50<br />
右眼心与头心的横向距离 ＝ 100<br />
右眼心与头心的纵向距离 ＝ 50<br />
<br />
左眼瞳心与头心的横向距离 ＝ 100<br />
左眼瞳心与头心的纵向距离 ＝ 50<br />
右眼瞳心与头心的横向距离 ＝ 100<br />
右眼瞳心与头心的纵向距离 ＝ 50<br />
<br />
两眼心距离 ＝ 左眼心与头心的横向距离 ＋ 右眼心与头心的横向距离<br />
' 调试输出 (两眼心距离)<br />
两眼框最近距离 ＝ 左眼心与头心的横向距离 － 左眼眶宽 ÷ 2 ＋ 右眼心与头心的横向距离 － 右眼眶宽 ÷ 2<br />
' 调试输出 (两眼框最近距离)<br />
左眼眶左边 ＝ 头心横坐标 － 左眼心与头心的横向距离 － 左眼眶宽 ÷ 2<br />
左眼眶顶边 ＝ 头心纵坐标 － 左眼心与头心的纵向距离 － 右眼眶高 ÷ 2<br />
右眼眶左边 ＝ 头心横坐标 ＋ 右眼心与头心的横向距离 － 右眼眶宽 ÷ 2<br />
右眼眶顶边 ＝ 头心纵坐标 － 左眼心与头心的纵向距离 － 右眼眶高 ÷ 2<br />
' 调试输出 (左眼眶左边)<br />
' 调试输出 (左眼眶顶边)<br />
' 调试输出 (右眼眶左边)<br />
' 调试输出 (右眼眶顶边)<br />
左眼瞳左边 ＝ 头心横坐标 － 左眼瞳心与头心的横向距离 － 左眼瞳宽 ÷ 2<br />
左眼瞳顶边 ＝ 头心纵坐标 － 左眼瞳心与头心的纵向距离 － 右眼瞳高 ÷ 2<br />
右眼瞳左边 ＝ 头心横坐标 ＋ 右眼瞳心与头心的横向距离 － 右眼瞳宽 ÷ 2<br />
右眼瞳顶边 ＝ 头心纵坐标 － 左眼瞳心与头心的纵向距离 － 右眼瞳高 ÷ 2<br />
' 调试输出 (左眼瞳左边)<br />
' 调试输出 (左眼瞳顶边)<br />
' 调试输出 (右眼瞳左边)<br />
' 调试输出 (右眼瞳顶边)<br />
<br />
' 眼眶颜色<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #白色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #白色<br />
' 画左眼眶<br />
表情界面.画椭圆 (左眼眶左边, 左眼眶顶边, 左眼眶左边 ＋ 左眼眶宽, 左眼眶顶边 ＋ 左眼眶高)<br />
' 画右眼眶<br />
表情界面.画椭圆 (右眼眶左边, 右眼眶顶边, 右眼眶左边 ＋ 右眼眶宽, 右眼眶顶边 ＋ 右眼眶高)<br />
<br />
' 眼瞳颜色<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #黑色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #黑色<br />
' 画左眼瞳孔<br />
表情界面.画椭圆 (左眼瞳左边, 左眼瞳顶边, 左眼瞳左边 ＋ 左眼瞳宽, 左眼瞳顶边 ＋ 左眼瞳高)<br />
' 画右眼瞳孔<br />
表情界面.画椭圆 (右眼瞳左边, 右眼瞳顶边, 右眼瞳左边 ＋ 右眼瞳宽, 右眼瞳顶边 ＋ 右眼瞳高)<br />
<br />
' 画嘴巴<br />
嘴巴宽 ＝ 200<br />
嘴巴高 ＝ 150<br />
嘴巴左边 ＝ 头心横坐标 － 嘴巴宽 ÷ 2<br />
嘴巴顶边 ＝ 头心纵坐标<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #黑色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #黑色<br />
表情界面.画椭圆 (嘴巴左边, 嘴巴顶边, 嘴巴左边 ＋ 嘴巴宽, 嘴巴顶边 ＋ 嘴巴高)<br />
<br />
' ' 头横向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2, 表情界面.宽度, 表情界面.高度 ÷ 2)<br />
<br />
' ' 头纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2, 表情界面.顶边, 表情界面.宽度 ÷ 2, 表情界面.高度)<br />
<br />
' ' 左右眼睛横向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2 － 50, 表情界面.宽度, 表情界面.高度 ÷ 2 － 50)<br />
<br />
' ' 左眼睛纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2 － 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 － 100, 表情界面.高度)<br />
<br />
' ' 右眼睛纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2 ＋ 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 ＋ 100, 表情界面.高度)<br />
<br />
<br />
<br />
.子程序 _表情界面_鼠标位置被移动, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
<br />
表情界面.左边 ＝ 0<br />
表情界面.顶边 ＝ 0<br />
表情界面.宽度 ＝ _启动窗口.取用户区宽度 ()<br />
表情界面.高度 ＝ _启动窗口.取用户区高度 ()<br />
' 调试输出 (表情界面.宽度)<br />
' 调试输出 (表情界面.高度)<br />
<br />
' 动画框宽度：800，宽度中点：400。<br />
' 动画框高度：600，高度中点：300。<br />
表情界面的宽度 ＝ 表情界面.宽度<br />
表情界面的高度 ＝ 表情界面.高度<br />
头心横坐标 ＝ 表情界面的宽度 ÷ 2<br />
头心纵坐标 ＝ 表情界面的高度 ÷ 2<br />
<br />
' 画头，中心位置在窗口屏幕中间，，横坐标400，纵坐标300，宽：400，高：400。<br />
头宽 ＝ 400<br />
头高 ＝ 400<br />
' 设置头的左边，在头的宽度中心位置400，减掉头的一半宽度400/2。<br />
头左边 ＝ 头心横坐标 － 头宽 ÷ 2<br />
' 设置头的顶边，在头的高度中心位置300，减掉头的一半高度400/2。<br />
头顶边 ＝ 头心纵坐标 － 头高 ÷ 2<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #橙黄<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #橙黄<br />
表情界面.画椭圆 (头左边, 头顶边, 头左边 ＋ 头宽, 头顶边 ＋ 头高)<br />
<br />
' 画眼睛，两眼距离：50，两瞳距离：150，中心横坐标75，中心纵坐标50。<br />
眼眶大小 ＝ 100<br />
眼瞳大小 ＝ 50<br />
眼瞳移动最大距离 ＝ (眼眶大小 － 眼瞳大小) ÷ 2<br />
<br />
左眼眶宽 ＝ 眼眶大小<br />
左眼眶高 ＝ 眼眶大小<br />
右眼眶宽 ＝ 眼眶大小<br />
右眼眶高 ＝ 眼眶大小<br />
左眼瞳宽 ＝ 眼瞳大小<br />
左眼瞳高 ＝ 眼瞳大小<br />
右眼瞳宽 ＝ 眼瞳大小<br />
右眼瞳高 ＝ 眼瞳大小<br />
<br />
左眼心与头心的横向距离 ＝ 100<br />
左眼心与头心的纵向距离 ＝ 50<br />
右眼心与头心的横向距离 ＝ 100<br />
右眼心与头心的纵向距离 ＝ 50<br />
<br />
左眼瞳心与头心的横向距离 ＝ 100<br />
左眼瞳心与头心的纵向距离 ＝ 50<br />
右眼瞳心与头心的横向距离 ＝ 100<br />
右眼瞳心与头心的纵向距离 ＝ 50<br />
<br />
左眼瞳心移动后与头心的横向距离 ＝ 左眼瞳心与头心的横向距离 － (横向位置 － (头心横坐标 － 左眼瞳心与头心的横向距离)) ÷ 眼瞳移动最大距离<br />
左眼瞳心移动后与头心的纵向距离 ＝ 左眼瞳心与头心的纵向距离 － (纵向位置 － (头心纵坐标 － 左眼瞳心与头心的纵向距离)) ÷ 眼瞳移动最大距离<br />
右眼瞳心移动后与头心的横向距离 ＝ 右眼瞳心与头心的横向距离 ＋ (横向位置 － (头心横坐标 － 右眼瞳心与头心的横向距离)) ÷ 眼瞳移动最大距离<br />
右眼瞳心移动后与头心的纵向距离 ＝ 右眼瞳心与头心的纵向距离 － (纵向位置 － (头心纵坐标 － 右眼瞳心与头心的纵向距离)) ÷ 眼瞳移动最大距离<br />
<br />
<br />
两眼心距离 ＝ 左眼心与头心的横向距离 ＋ 右眼心与头心的横向距离<br />
' 调试输出 (两眼心距离)<br />
两眼框最近距离 ＝ 左眼心与头心的横向距离 － 左眼眶宽 ÷ 2 ＋ 右眼心与头心的横向距离 － 右眼眶宽 ÷ 2<br />
' 调试输出 (两眼框最近距离)<br />
左眼眶左边 ＝ 头心横坐标 － 左眼心与头心的横向距离 － 左眼眶宽 ÷ 2<br />
左眼眶顶边 ＝ 头心纵坐标 － 左眼心与头心的纵向距离 － 右眼眶高 ÷ 2<br />
右眼眶左边 ＝ 头心横坐标 ＋ 右眼心与头心的横向距离 － 右眼眶宽 ÷ 2<br />
右眼眶顶边 ＝ 头心纵坐标 － 左眼心与头心的纵向距离 － 右眼眶高 ÷ 2<br />
' 调试输出 (左眼眶左边)<br />
' 调试输出 (左眼眶顶边)<br />
' 调试输出 (右眼眶左边)<br />
' 调试输出 (右眼眶顶边)<br />
左眼瞳左边 ＝ 头心横坐标 － 左眼瞳心移动后与头心的横向距离 － 左眼瞳宽 ÷ 2<br />
左眼瞳顶边 ＝ 头心纵坐标 － 左眼瞳心移动后与头心的纵向距离 － 右眼瞳高 ÷ 2<br />
右眼瞳左边 ＝ 头心横坐标 ＋ 右眼瞳心移动后与头心的横向距离 － 右眼瞳宽 ÷ 2<br />
右眼瞳顶边 ＝ 头心纵坐标 － 左眼瞳心移动后与头心的纵向距离 － 右眼瞳高 ÷ 2<br />
' 调试输出 (左眼瞳左边)<br />
' 调试输出 (左眼瞳顶边)<br />
' 调试输出 (右眼瞳左边)<br />
' 调试输出 (右眼瞳顶边)<br />
<br />
' 眼眶颜色<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #白色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #白色<br />
' 画左眼眶<br />
表情界面.画椭圆 (左眼眶左边, 左眼眶顶边, 左眼眶左边 ＋ 左眼眶宽, 左眼眶顶边 ＋ 左眼眶高)<br />
' 画右眼眶<br />
表情界面.画椭圆 (右眼眶左边, 右眼眶顶边, 右眼眶左边 ＋ 右眼眶宽, 右眼眶顶边 ＋ 右眼眶高)<br />
<br />
' 眼瞳颜色<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #黑色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #黑色<br />
' 画左眼瞳孔<br />
表情界面.画椭圆 (左眼瞳左边, 左眼瞳顶边, 左眼瞳左边 ＋ 左眼瞳宽, 左眼瞳顶边 ＋ 左眼瞳高)<br />
' 画右眼瞳孔<br />
表情界面.画椭圆 (右眼瞳左边, 右眼瞳顶边, 右眼瞳左边 ＋ 右眼瞳宽, 右眼瞳顶边 ＋ 右眼瞳高)<br />
<br />
' 画嘴巴<br />
嘴巴宽 ＝ 200<br />
嘴巴高 ＝ 150<br />
嘴巴左边 ＝ 头心横坐标 － 嘴巴宽 ÷ 2<br />
嘴巴顶边 ＝ 头心纵坐标<br />
表情界面.画出方式 ＝ 12<br />
表情界面.画笔颜色 ＝ #黑色<br />
表情界面.刷子类型 ＝ 1<br />
表情界面.刷子颜色 ＝ #黑色<br />
表情界面.画椭圆 (嘴巴左边, 嘴巴顶边, 嘴巴左边 ＋ 嘴巴宽, 嘴巴顶边 ＋ 嘴巴高)<br />
<br />
.如果真 (横向位置 ＜ 头心横坐标)<br />
    ' 画上巴<br />
    上巴宽 ＝ 200<br />
    上巴高 ＝ 纵向位置 ÷ 4<br />
    上巴左边 ＝ 头心横坐标 － 上巴宽 ÷ 2<br />
    上巴顶边 ＝ 头心纵坐标<br />
    表情界面.画出方式 ＝ 12<br />
    表情界面.画笔颜色 ＝ #橙黄  ' #黑色<br />
    表情界面.刷子类型 ＝ 1<br />
    表情界面.刷子颜色 ＝ #橙黄<br />
    表情界面.画椭圆 (上巴左边, 上巴顶边, 上巴左边 ＋ 上巴宽, 上巴顶边 ＋ 上巴高)<br />
<br />
.如果真结束<br />
.如果真 (横向位置 ＞ 头心横坐标)<br />
    ' 画下巴<br />
    下巴宽 ＝ 200<br />
    下巴高 ＝ 纵向位置 ÷ 4<br />
    下巴左边 ＝ 头心横坐标 － 下巴宽 ÷ 2<br />
    下巴顶边 ＝ 头心纵坐标 ＋ 嘴巴高 － 下巴高<br />
    表情界面.画出方式 ＝ 12<br />
    表情界面.画笔颜色 ＝ #橙黄  ' #黑色<br />
    表情界面.刷子类型 ＝ 1<br />
    表情界面.刷子颜色 ＝ #橙黄<br />
    表情界面.画椭圆 (下巴左边, 下巴顶边, 下巴左边 ＋ 下巴宽, 嘴巴顶边 ＋ 嘴巴高)<br />
<br />
<br />
.如果真结束<br />
' ' 头横向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2, 表情界面.宽度, 表情界面.高度 ÷ 2)<br />
<br />
' ' 头纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2, 表情界面.顶边, 表情界面.宽度 ÷ 2, 表情界面.高度)<br />
<br />
' ' 左右眼睛横向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.左边, 表情界面.高度 ÷ 2 － 50, 表情界面.宽度, 表情界面.高度 ÷ 2 － 50)<br />
<br />
' ' 左眼睛纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2 － 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 － 100, 表情界面.高度)<br />
<br />
' ' 右眼睛纵向中线<br />
' 表情界面.画出方式 ＝ 5  ' 反转颜色。<br />
' 表情界面.画笔颜色 ＝ #黑色<br />
' 表情界面.画直线 (表情界面.宽度 ÷ 2 ＋ 100, 表情界面.顶边, 表情界面.宽度 ÷ 2 ＋ 100, 表情界面.高度)<br />
<br />
<br />
.子程序 _关闭按钮_被单击<br />
<br />
销毁 ()