使用双线性或双三次插值算法来缩小图片

z573277679

今天论坛偶然看到，然后用AI重写了一份，发现代码非常简洁干净。虽然不是我需要的，但是想学习一下。目前有个bug不会解决，希望各大佬解决了告诉我一下是什么原因。纯源码，控件两个按钮和两个图片框

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

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

缩放图片 (图片框1, 1)  ' 双线性插值

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

缩放图片 (图片框2, 2)  ' 双三次插值

子程序名	返回值类型	公开	备 注
缩放图片
参数名	类 型	参考	可空	数组	备 注
图片框	图片框
缩放算法	整数型

变量名	类 型	静态	数组	备 注
图片	字节集
位图对象	位图
计时	整数型

计时 ＝ 取启动时间 ()
位图对象.载入文件 (取运行目录 () ＋ “\32.BMP”)
如果真 (位图对象.是否为空 ())
调试输出 (“图片载入失败：” ＋ 位图对象.取错误信息 ())
返回 ()

图片 ＝ 位图_缩放 (位图对象, 600, 600, 缩放算法)
图片框.图片 ＝ 图片
如果 (缩放算法 ＝ 1)
透明标签1.标题 ＝ “共用时：” ＋ 到文本 (取启动时间 () － 计时)
透明标签2.标题 ＝ “共用时：” ＋ 到文本 (取启动时间 () － 计时)

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

' 位图对象的缩放方法，整合双线性和双三次插值

子程序名	返回值类型	公开	备 注
位图_缩放	字节集
参数名	类 型	参考	可空	数组	备 注
位图对象	位图
目标宽度	整数型
目标高度	整数型
缩放算法	整数型

变量名	类 型	静态	数组	备 注
源宽度	整数型
源高度	整数型
位图头	字节集
新图像数据	字节集
源图像数据	字节集
x比例	小数型
y比例	小数型
源x	整数型
源y	整数型
sx	小数型
sy	小数型
dx	小数型
dy	小数型
蓝色	字节型
绿色	字节型
红色	字节型
透明度	字节型
i	整数型
j	整数型
像素位置	整数型
x权重	小数型		4
y权重	小数型		4

源宽度 ＝ 位图对象.取宽度 ()
源高度 ＝ 位图对象.取高度 ()
如果真 (位图对象.是否为空 () 或 源宽度 ＝ -1 或 源高度 ＝ -1)
调试输出 (“位图对象错误：” ＋ 位图对象.取错误信息 ())
返回 ({  })

源图像数据 ＝ 位图对象.取像素点阵 ()
位图头 ＝ 取字节集左边 (位图对象.取位图数据 (), 取字节集内整数 (位图对象.取位图数据 (), 14, ) ＋ 14)
' 更新位图头
置字节集内整数 (位图头, 2, 目标宽度 × 目标高度 × 4 ＋ 取字节集长度 (位图头), )
置字节集内整数 (位图头, 18, 目标宽度, )
置字节集内整数 (位图头, 22, 目标高度, )
置字节集内整数 (位图头, 34, 目标宽度 × 目标高度 × 4, )
x比例 ＝ 源宽度 ÷ 目标宽度
y比例 ＝ 源高度 ÷ 目标高度
新图像数据 ＝ 取空白字节集 (目标宽度 × 目标高度 × 4)
计次循环首 (目标高度, j)
sy ＝ (j － 1 ＋ 0.5) × y比例 － 0.5
源y ＝ 取整 (sy)
dy ＝ sy － 源y
如果 (缩放算法 ＝ 2)  ' 双三次插值
双三次插值_取权重 (dy, y权重)



计次循环首 (目标宽度, i)
sx ＝ (i － 1 ＋ 0.5) × x比例 － 0.5
源x ＝ 取整 (sx)
dx ＝ sx － 源x
如果 (缩放算法 ＝ 2)  ' 双三次插值
双三次插值_取权重 (dx, x权重)
计算双三次插值像素 (x权重, y权重, 源x, 源y, 源宽度, 源高度, 源图像数据, 红色, 绿色, 蓝色, 透明度)
计算双线性插值像素 (dx, dy, 源x, 源y, 源宽度, 源高度, 源图像数据, 红色, 绿色, 蓝色, 透明度)

像素位置 ＝ ( (j － 1) × 目标宽度 ＋ i － 1) × 4
新图像数据 [像素位置] ＝ 蓝色
新图像数据 [像素位置 ＋ 1] ＝ 绿色
新图像数据 [像素位置 ＋ 2] ＝ 红色
新图像数据 [像素位置 ＋ 3] ＝ 透明度
计次循环尾 ()
计次循环尾 ()
返回 (位图头 ＋ 新图像数据)

子程序名	返回值类型	公开	备 注
双三次插值_取权重
参数名	类 型	参考	可空	数组	备 注
坐标差	小数型
返回权重	小数型

变量名	类 型	静态	数组	备 注
常数	小数型
临时值	小数型		4
i	整数型
x	小数型

常数 ＝ -0.5
临时值 [1] ＝ 1 ＋ 坐标差
临时值 [2] ＝ 坐标差
临时值 [3] ＝ 1 － 坐标差
临时值 [4] ＝ 2 － 坐标差
重定义数组 (返回权重, 假, 4)
计次循环首 (4, i)
x ＝ 取绝对值 (临时值 [i])
判断 (x ≤ 1)
返回权重 [i] ＝ (常数 ＋ 2) × 求次方 (x, 3) ��� (常数 ＋ 3) × 求次方 (x, 2) ＋ 1
判断 (x ＞ 1 且 x ＜ 2)
返回权重 [i] ＝ 常数 × 求次方 (x, 3) － 5 × 常数 × 求次方 (x, 2) ＋ 8 × 常数 × x － 4 × 常数
返回权重 [i] ＝ 0

计次循环尾 ()

子程序名	返回值类型	公开	备 注
计算双三次插值像素
参数名	类 型	参考	可空	数组	备 注
x权重	小数型
y权重	小数型
x	整数型
y	整数型
源宽度	整数型
源高度	整数型
源图像数据	字节集
返回R	字节型
返回G	字节型
返回B	字节型
返回A	字节型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
红色	小数型
绿色	小数型
蓝色	小数型
透明度	小数型
像素位置	整数型
当前x	整数型
当前y	整数型

计次循环首 (4, j)
当前y ＝ 限制范围 (y ＋ j － 2, 0, 源高度 － 1)
计次循环首 (4, i)
当前x ＝ 限制范围 (x ＋ i － 2, 0, 源宽度 － 1)
像素位置 ＝ (当前y × 源宽度 ＋ 当前x) × 4
蓝色 ＝ 蓝色 ＋ x权重 [i] × y权重 [j] × 源图像数据 [像素位置]
绿色 ＝ 绿色 ＋ x权重 [i] × y权重 [j] × 源图像数据 [像素位置 ＋ 1]
红色 ＝ 红色 ＋ x权重 [i] × y权重 [j] × 源图像数据 [像素位置 ＋ 2]
透明度 ＝ 透明度 ＋ x权重 [i] × y权重 [j] × 源图像数据 [像素位置 ＋ 3]
计次循环尾 ()
计次循环尾 ()
返回R ＝ 限制范围 (取整 (红色), 0, 255)
返回G ＝ 限制范围 (取整 (绿色), 0, 255)
返回B ＝ 限制范围 (取整 (蓝色), 0, 255)
返回A ＝ 限制范围 (取整 (透明度), 0, 255)

子程序名	返回值类型	公开	备 注
计算双线性插值像素
参数名	类 型	参考	可空	数组	备 注
x权重	小数型
y权重	小数型
x	整数型
y	整数型
源宽度	整数型
源高度	整数型
源图像数据	字节集
返回R	字节型
返回G	字节型
返回B	字节型
返回A	字节型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
红色	小数型
绿色	小数型
蓝色	小数型
透明度	小数型
像素位置	整数型
当前x	整数型
当前y	整数型
权重	小数型		4

权重 [1] ＝ (1 － x权重) �� (1 － y权重)
权重 [2] ＝ x权重 �� (1 － y权重)
权重 [3] ＝ (1 － x权重) × y权重
权重 [4] ＝ x权重 × y权重
计次循环首 (2, j)
当前y ＝ 限制范围 (y ＋ j － 1, 0, 源高度 － 1)
计次循环首 (2, i)
当前x ＝ 限制范围 (x ＋ i － 1, 0, 源宽度 － 1)
像素位置 ＝ (当前y × 源宽度 ＋ 当前x) × 4
蓝色 ＝ 蓝色 ＋ 权重 [ (j － 1) × 2 ＋ i] × 源图像数据 [像素位置]
绿色 ＝ 绿色 ＋ 权重 [ (j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 1]
红色 ＝ 红色 ＋ 权重 [ (j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 2]
透明度 ＝ 透明度 ＋ 权重 [ (j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 3]
计次循环尾 ()
计次循环尾 ()
返回R ＝ 限制范围 (取整 (红色), 0, 255)
返回G ＝ 限制范围 (取整 (绿色), 0, 255)
返回B ＝ 限制范围 (取整 (蓝色), 0, 255)
返回A ＝ 限制范围 (取整 (透明度), 0, 255)

子程序名	返回值类型	公开	备 注
限制范围	整数型
参数名	类 型	参考	可空	数组	备 注
被限制值	整数型
最小值	整数型
最大值	整数型

如果 (被限制值 ＜ 最小值)
返回 (最小值)


如果 (被限制值 ＞ 最大值)
返回 (最大值)



返回 (被限制值)

i支持库列表	支持库注释
BmpOperate	位图操作支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 BmpOperate<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 缩放图片 (图片框1, 1)  ' 双线性插值<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 缩放图片 (图片框2, 2)  ' 双三次插值<br /> <br /> .子程序 缩放图片, , 公开<br /> .参数 图片框, 图片框<br /> .参数 缩放算法, 整数型<br /> .局部变量 图片, 字节集<br /> .局部变量 位图对象, 位图<br /> .局部变量 计时, 整数型<br /> <br /> 计时 ＝ 取启动时间 ()<br /> 位图对象.载入文件 (取运行目录 () ＋ “\32.BMP”)<br /> <br /> .如果真 (位图对象.是否为空 ())<br />     调试输出 (“图片载入失败：” ＋ 位图对象.取错误信息 ())<br />     返回 ()<br /> .如果真结束<br /> <br /> 图片 ＝ 位图_缩放 (位图对象, 600, 600, 缩放算法)<br /> 图片框.图片 ＝ 图片<br /> <br /> .如果 (缩放算法 ＝ 1)<br />     透明标签1.标题 ＝ “共用时：” ＋ 到文本 (取启动时间 () － 计时)<br /> .否则<br />     透明标签2.标题 ＝ “共用时：” ＋ 到文本 (取启动时间 () － 计时)<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 位图对象的缩放方法，整合双线性和双三次插值<br /> <br /> .子程序 位图_缩放, 字节集, 公开<br /> .参数 位图对象, 位图, 参考<br /> .参数 目标宽度, 整数型<br /> .参数 目标高度, 整数型<br /> .参数 缩放算法, 整数型<br /> .局部变量 源宽度, 整数型<br /> .局部变量 源高度, 整数型<br /> .局部变量 位图头, 字节集<br /> .局部变量 新图像数据, 字节集<br /> .局部变量 源图像数据, 字节集<br /> .局部变量 x比例, 小数型<br /> .局部变量 y比例, 小数型<br /> .局部变量 源x, 整数型<br /> .局部变量 源y, 整数型<br /> .局部变量 sx, 小数型<br /> .局部变量 sy, 小数型<br /> .局部变量 dx, 小数型<br /> .局部变量 dy, 小数型<br /> .局部变量 蓝色, 字节型<br /> .局部变量 绿色, 字节型<br /> .局部变量 红色, 字节型<br /> .局部变量 透明度, 字节型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 像素位置, 整数型<br /> .局部变量 x权重, 小数型, , "4"<br /> .局部变量 y权重, 小数型, , "4"<br /> <br /> 源宽度 ＝ 位图对象.取宽度 ()<br /> 源高度 ＝ 位图对象.取高度 ()<br /> <br /> .如果真 (位图对象.是否为空 () 或 源宽度 ＝ -1 或 源高度 ＝ -1)<br />     调试输出 (“位图对象错误：” ＋ 位图对象.取错误信息 ())<br />     返回 ({  })<br /> .如果真结束<br /> <br /> 源图像数据 ＝ 位图对象.取像素点阵 ()<br /> 位图头 ＝ 取字节集左边 (位图对象.取位图数据 (), 取字节集内整数 (位图对象.取位图数据 (), 14, ) ＋ 14)<br /> <br /> ' 更新位图头<br /> 置字节集内整数 (位图头, 2, 目标宽度 × 目标高度 × 4 ＋ 取字节集长度 (位图头), )<br /> 置字节集内整数 (位图头, 18, 目标宽度, )<br /> 置字节集内整数 (位图头, 22, 目标高度, )<br /> 置字节集内整数 (位图头, 34, 目标宽度 × 目标高度 × 4, )<br /> <br /> x比例 ＝ 源宽度 ÷ 目标宽度<br /> y比例 ＝ 源高度 ÷ 目标高度<br /> <br /> 新图像数据 ＝ 取空白字节集 (目标宽度 × 目标高度 × 4)<br /> <br /> .计次循环首 (目标高度, j)<br />     sy ＝ (j － 1 ＋ 0.5) × y比例 － 0.5<br />     源y ＝ 取整 (sy)<br />     dy ＝ sy － 源y<br /> <br />     .如果 (缩放算法 ＝ 2)  ' 双三次插值<br />         双三次插值_取权重 (dy, y权重)<br />     .否则<br /> <br />     .如果结束<br /> <br />     .计次循环首 (目标宽度, i)<br />         sx ＝ (i － 1 ＋ 0.5) × x比例 － 0.5<br />         源x ＝ 取整 (sx)<br />         dx ＝ sx － 源x<br /> <br />         .如果 (缩放算法 ＝ 2)  ' 双三次插值<br />             双三次插值_取权重 (dx, x权重)<br />             计算双三次插值像素 (x权重, y权重, 源x, 源y, 源宽度, 源高度, 源图像数据, 红色, 绿色, 蓝色, 透明度)<br />         .否则<br />             计算双线性插值像素 (dx, dy, 源x, 源y, 源宽度, 源高度, 源图像数据, 红色, 绿色, 蓝色, 透明度)<br />         .如果结束<br /> <br />         像素位置 ＝ ((j － 1) × 目标宽度 ＋ i － 1) × 4<br />         新图像数据 [像素位置] ＝ 蓝色<br />         新图像数据 [像素位置 ＋ 1] ＝ 绿色<br />         新图像数据 [像素位置 ＋ 2] ＝ 红色<br />         新图像数据 [像素位置 ＋ 3] ＝ 透明度<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 返回 (位图头 ＋ 新图像数据)<br /> <br /> .子程序 双三次插值_取权重<br /> .参数 坐标差, 小数型<br /> .参数 返回权重, 小数型, 参考 数组<br /> .局部变量 常数, 小数型<br /> .局部变量 临时值, 小数型, , "4"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 小数型<br /> <br /> 常数 ＝ -0.5<br /> 临时值 [1] ＝ 1 ＋ 坐标差<br /> 临时值 [2] ＝ 坐标差<br /> 临时值 [3] ＝ 1 － 坐标差<br /> 临时值 [4] ＝ 2 － 坐标差<br /> <br /> 重定义数组 (返回权重, 假, 4)<br /> <br /> .计次循环首 (4, i)<br />     x ＝ 取绝对值 (临时值 <i>)<br />     .判断开始 (x ≤ 1)<br />         返回权重 <i> ＝ (常数 ＋ 2) × 求次方 (x, 3) － (常数 ＋ 3) × 求次方 (x, 2) ＋ 1<br />     .判断 (x ＞ 1 且 x ＜ 2)<br />         返回权重 <i> ＝ 常数 × 求次方 (x, 3) － 5 × 常数 × 求次方 (x, 2) ＋ 8 × 常数 × x － 4 × 常数<br />     .默认<br />         返回权重 <i> ＝ 0<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 计算双三次插值像素<br /> .参数 x权重, 小数型, 数组<br /> .参数 y权重, 小数型, 数组<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 源宽度, 整数型<br /> .参数 源高度, 整数型<br /> .参数 源图像数据, 字节集<br /> .参数 返回R, 字节型, 参考<br /> .参数 返回G, 字节型, 参考<br /> .参数 返回B, 字节型, 参考<br /> .参数 返回A, 字节型, 参考<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 红色, 小数型<br /> .局部变量 绿色, 小数型<br /> .局部变量 蓝色, 小数型<br /> .局部变量 透明度, 小数型<br /> .局部变量 像素位置, 整数型<br /> .局部变量 当前x, 整数型<br /> .局部变量 当前y, 整数型<br /> <br /> .计次循环首 (4, j)<br />     当前y ＝ 限制范围 (y ＋ j － 2, 0, 源高度 － 1)<br />     .计次循环首 (4, i)<br />         当前x ＝ 限制范围 (x ＋ i － 2, 0, 源宽度 － 1)<br />         像素位置 ＝ (当前y × 源宽度 ＋ 当前x) × 4<br />         蓝色 ＝ 蓝色 ＋ x权重 <i> × y权重 [j] × 源图像数据 [像素位置]<br />         绿色 ＝ 绿色 ＋ x权重 <i> × y权重 [j] × 源图像数据 [像素位置 ＋ 1]<br />         红色 ＝ 红色 ＋ x权重 <i> × y权重 [j] × 源图像数据 [像素位置 ＋ 2]<br />         透明度 ＝ 透明度 ＋ x权重 <i> × y权重 [j] × 源图像数据 [像素位置 ＋ 3]<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 返回R ＝ 限制范围 (取整 (红色), 0, 255)<br /> 返回G ＝ 限制范围 (取整 (绿色), 0, 255)<br /> 返回B ＝ 限制范围 (取整 (蓝色), 0, 255)<br /> 返回A ＝ 限制范围 (取整 (透明度), 0, 255)<br /> <br /> .子程序 计算双线性插值像素<br /> .参数 x权重, 小数型<br /> .参数 y权重, 小数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 源宽度, 整数型<br /> .参数 源高度, 整数型<br /> .参数 源图像数据, 字节集<br /> .参数 返回R, 字节型, 参考<br /> .参数 返回G, 字节型, 参考<br /> .参数 返回B, 字节型, 参考<br /> .参数 返回A, 字节型, 参考<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 红色, 小数型<br /> .局部变量 绿色, 小数型<br /> .局部变量 蓝色, 小数型<br /> .局部变量 透明度, 小数型<br /> .局部变量 像素位置, 整数型<br /> .局部变量 当前x, 整数型<br /> .局部变量 当前y, 整数型<br /> .局部变量 权重, 小数型, , "4"<br /> <br /> 权重 [1] ＝ (1 － x权重) × (1 － y权重)<br /> 权重 [2] ＝ x权重 × (1 － y权重)<br /> 权重 [3] ＝ (1 － x权重) × y权重<br /> 权重 [4] ＝ x权重 × y权重<br /> <br /> <br /> .计次循环首 (2, j)<br />     当前y ＝ 限制范围 (y ＋ j － 1, 0, 源高度 － 1)<br />     .计次循环首 (2, i)<br />         当前x ＝ 限制范围 (x ＋ i － 1, 0, 源宽度 － 1)<br />         像素位置 ＝ (当前y × 源宽度 ＋ 当前x) × 4<br />         蓝色 ＝ 蓝色 ＋ 权重 [(j － 1) × 2 ＋ i] × 源图像数据 [像素位置]<br />         绿色 ＝ 绿色 ＋ 权重 [(j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 1]<br />         红色 ＝ 红色 ＋ 权重 [(j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 2]<br />         透明度 ＝ 透明度 ＋ 权重 [(j － 1) × 2 ＋ i] × 源图像数据 [像素位置 ＋ 3]<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 返回R ＝ 限制范围 (取整 (红色), 0, 255)<br /> 返回G ＝ 限制范围 (取整 (绿色), 0, 255)<br /> 返回B ＝ 限制范围 (取整 (蓝色), 0, 255)<br /> 返回A ＝ 限制范围 (取整 (透明度), 0, 255)<br /> <br /> .子程序 限制范围, 整数型<br /> .参数 被限制值, 整数型<br /> .参数 最小值, 整数型<br /> .参数 最大值, 整数型<br /> <br /> .如果 (被限制值 ＜ 最小值)<br />     返回 (最小值)<br /> .否则<br /> <br /> .如果结束<br /> .如果 (被限制值 ＞ 最大值)<br />     返回 (最大值)<br /> .否则<br /> <br /> .如果结束<br /> <br /> 返回 (被限制值)

LEOONL

你其他代码逻辑顺完了吗，怎么确定顺完这个BUG就没其他的了，要是慢慢去顺代码花的时间估计比自己重新还多了

LEOONL

啥BUG，直接运行就数组错误也用不了啊

z573277679

LEOONL 发表于 2024-10-17 19:21
啥BUG，直接运行就数组错误也用不了啊

是的，就是这个