红绿3D图片生成器源码

.版本 2
.支持库 edroptarget
.支持库 BmpOperate
.支持库 eAPI
.支持库 shell
.支持库 eImgConverter

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (图片框1.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 wt1, 位图
.局部变量 wt2, 位图
.局部变量 y, 整数型
.局部变量 x, 整数型
.局部变量 r, 字节集
.局部变量 gb, 字节集
.局部变量 time, 文本型

连续赋值 (取图片宽度 (接收到的文件路径), 画板1.宽度, 画板2.宽度)
连续赋值 (取图片高度 (接收到的文件路径), 画板1.高度, 画板2.高度)
画板1.画图片 (载入图片 (读入文件 (接收到的文件路径)), 6, 0, 取图片宽度 (接收到的文件路径), 取图片高度 (接收到的文件路径), )  ' 正 6 突出感   看不出  -6  画面内部跟随眼镜会晃动而动
画板2.画图片 (载入图片 (读入文件 (接收到的文件路径)), 0, 0, 取图片宽度 (接收到的文件路径), 取图片高度 (接收到的文件路径), )
wt1.载入数据 (画板1.取图片 (, ))
wt2.载入数据 (画板2.取图片 (, ))
' wt3.载入数据 (画板3.取图片 (, ))
.计次循环首 (wt1.取高度 (), y)
    .计次循环首 (wt1.取宽度 (), x)
        r ＝ 到字节集 (wt1.取某点颜色 (x － 1, y － 1))
        gb ＝ 到字节集 (wt2.取某点颜色 (x － 1, y － 1))
        wt1.置某点颜色 (x － 1, y － 1, 取颜色值 (r [1], gb [2], gb [3]))
        处理事件 ()
    .计次循环尾 ()
    处理事件 ()
.计次循环尾 ()
画板1.画图片 (载入图片 (wt1.取位图数据 ()), 0, 0, , , )
画板2.清除 (, , , )
画板2.宽度 ＝ 画板2.宽度 － 6
画板1.复制 (6, 0, 画板1.宽度, 画板1.高度, 画板2, 0, 0, )
图片框1.图片 ＝ 画板2.取图片 (, )  ' wt1.取位图数据 ()
time ＝ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (取秒 (取现行时间 ()))
写到文件 (取特定目录 (3) ＋ “红绿3D” ＋ time ＋ “.png”, 画板2.取图片 (, ))  ' wt1.取位图数据 ())
转换到PNG (取特定目录 (3) ＋ “红绿3D” ＋ time ＋ “.png”, 取特定目录 (3) ＋ “红绿3D” ＋ time ＋ “.png”, 24)
标题 ＝ “文件已经写到桌面：” ＋ “红绿3D” ＋ time ＋ “.png”

@汉族