.版本 2 .支持库 BmpOperate .程序集 窗口程序集1 .程序集变量 位图数据, 位图 .子程序 _按钮1_被单击 .如果真 (通用对话框1.打开 ()) 位图数据.载入文件 (通用对话框1.文件名) 图片框1.图片 ＝ 位图数据.取位图数据 () .如果真结束 .子程序 _按钮2_被单击 .局部变量 起始X, 双精度小数型 .局部变量 其实Y, 双精度小数型 .局部变量 终点X, 双精度小数型 .局部变量 终点Y, 双精度小数型 .局部变量 圆心x, 双精度小数型 .局部变量 圆心Y, 双精度小数型 .局部变量 r .局部变量 x .局部变量 y .局部变量 i .局部变量 cnt, 双精度小数型 .如果真 (位图数据.取位图数据 () ＝ { }) 位图数据.创建 (图片框1.宽度, 图片框1.高度, 24, #银白) .如果真结束 r ＝ 到整数 (编辑框3.内容) 圆心x ＝ 到整数 (编辑框1.内容) 圆心Y ＝ 到整数 (编辑框2.内容) 起始X ＝ 圆心x － r 其实Y ＝ 圆心Y － r 终点X ＝ 圆心x ＋ r 终点Y ＝ 圆心Y ＋ r .如果真 (起始X ＜ 0) 起始X ＝ 0 .如果真结束 .如果真 (其实Y ＜ 0) 其实Y ＝ 0 .如果真结束 .如果真 (终点X ＞ 位图数据.取宽度 ()) 终点X ＝ 位图数据.取宽度 () .如果真结束 .如果真 (终点Y ＞ 位图数据.取高度 ()) 终点Y ＝ 位图数据.取高度 () .如果真结束 .计次循环首 (1234, ) x ＝ 求余弦 (cnt) × 100 ＋ 100 y ＝ 求正弦 (cnt) × 100 ＋ 100 位图数据.置某点颜色 (x, y, #红色) cnt ＝ cnt － 0.01 .计次循环尾 () 图片框1.图片 ＝ 位图数据.取位图数据 () .子程序 _按钮3_被单击 位图数据.载入数据 ({ }) 图片框1.图片 ＝ 位图数据.取位图数据 () .子程序 __启动窗口_创建完毕