你的猫 发表于 2025-5-11 19:23
文件头解析部分[e=2].版本 2.子程序 解析WAS文件头, 逻辑型
.参数 文件路径, 文本型
.参数 方向数, 整数型, ...

都报错了

你的猫 发表于 2025-5-11 19:23
文件头解析部分[e=2].版本 2.子程序 解析WAS文件头, 逻辑型
.参数 文件路径, 文本型
.参数 方向数, 整数型, ...

哥,你这代码...

文件头解析部分

  

.版本 2[/b].子程序 解析WAS文件头, 逻辑型

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
方向数	整数型
帧数	整数型
宽度	整数型
高度	整数型
关键点X	整数型
关键点Y	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
文件标记	字节型		2
头长度	短整数型

' 打开文件
文件号 ＝ 打开文件 (文件路径, #读入, )
如果 (文件号 ＝ 0)
返回 (假)

' 读取文件标记
读入字节集 (文件号, 文件标记, 2)
如果 (文件标记[1] ≠ 53 或 文件标记[2] ≠ 50)  ' "SP"
关闭文件 (文件号)
返回 (假)

' 读取文件头长度
读入短整数 (文件号, 头长度)
' 读取其他参数
读入短整数 (文件号, 方向数)
读入短整数 (文件号, 帧数)
读入短整数 (文件号, 宽度)
读入短整数 (文件号, 高度)
读入短整数 (文件号, 关键点X)
读入短整数 (文件号, 关键点Y)
关闭文件 (文件号)
返回 (真)

.版本 2</strong>.子程序 解析WAS文件头, 逻辑型<br /> .参数 文件路径, 文本型<br /> .参数 方向数, 整数型, 参考<br /> .参数 帧数, 整数型, 参考<br /> .参数 宽度, 整数型, 参考<br /> .参数 高度, 整数型, 参考<br /> .参数 关键点X, 整数型, 参考<br /> .参数 关键点Y, 整数型, 参考<br /> .局部变量 文件号, 整数型<br /> .局部变量 文件标记, 字节型, , "2"<br /> .局部变量 头长度, 短整数型<br /> <br /> ' 打开文件<br /> 文件号 ＝ 打开文件 (文件路径, #读入, )<br /> .如果 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果结束<br /> <br /> ' 读取文件标记<br /> 读入字节集 (文件号, 文件标记, 2)<br /> .如果 (文件标记[1] ≠ 53 或 文件标记[2] ≠ 50)  ' "SP"<br />     关闭文件 (文件号)<br />     返回 (假)<br /> .如果结束<br /> <br /> ' 读取文件头长度<br /> 读入短整数 (文件号, 头长度)<br /> <br /> ' 读取其他参数<br /> 读入短整数 (文件号, 方向数)<br /> 读入短整数 (文件号, 帧数)<br /> 读入短整数 (文件号, 宽度)<br /> 读入短整数 (文件号, 高度)<br /> 读入短整数 (文件号, 关键点X)<br /> 读入短整数 (文件号, 关键点Y)<br /> <br /> 关闭文件 (文件号)<br /> 返回 (真)

RGB转HSV调色算法实现

  

子程序名	返回值类型	公开	备 注
RGB到HSV	逻辑型
参数名	类 型	参考	可空	数组	备 注
R	字节型
G	字节型
B	字节型
H	小数型
S	小数型
V	小数型

变量名	类 型	静态	数组	备 注
fR	小数型
fG	小数型
fB	小数型
fCMax	小数型
fCMin	小数型
fDelta	小数型

' 将RGB值转换为0-1范围
fR ＝ R ÷ 255
fG ＝ G ÷ 255
fB ＝ B ÷ 255
' 计算最大值和最小值
fCMax ＝ 最大值 (fR, 最大值 (fG, fB))
fCMin ＝ 最小值 (fR, 最小值 (fG, fB))
fDelta ＝ fCMax － fCMin
' 计算V(亮度)
V ＝ fCMax
' 计算S(饱和度)
如果 (fCMax ＝ 0)
S ＝ 0
S ＝ fDelta ÷ fCMax

' 计算H(色调)
如果 (fDelta ＝ 0)
H ＝ 0
判断 (fCMax ＝ fR)
H ＝ 60 �� ( (fG － fB) ÷ fDelta)
判断 (fCMax ＝ fG)
H ＝ 60 �� ( (fB － fR) ÷ fDelta ＋ 2)
判断 (fCMax ＝ fB)
H ＝ 60 �� ( (fR － fG) ÷ fDelta ＋ 4)
H ＝ 0

如果 (H ＜ 0)
H ＝ H ＋ 360


返回 (真)

.子程序 RGB到HSV, 逻辑型<br /> .参数 R, 字节型<br /> .参数 G, 字节型<br /> .参数 B, 字节型<br /> .参数 H, 小数型, 参考<br /> .参数 S, 小数型, 参考<br /> .参数 V, 小数型, 参考<br /> .局部变量 fR, 小数型<br /> .局部变量 fG, 小数型<br /> .局部变量 fB, 小数型<br /> .局部变量 fCMax, 小数型<br /> .局部变量 fCMin, 小数型<br /> .局部变量 fDelta, 小数型<br /> <br /> ' 将RGB值转换为0-1范围<br /> fR ＝ R ÷ 255<br /> fG ＝ G ÷ 255<br /> fB ＝ B ÷ 255<br /> <br /> ' 计算最大值和最小值<br /> fCMax ＝ 最大值 (fR, 最大值 (fG, fB))<br /> fCMin ＝ 最小值 (fR, 最小值 (fG, fB))<br /> fDelta ＝ fCMax － fCMin<br /> <br /> ' 计算V(亮度)<br /> V ＝ fCMax<br /> <br /> ' 计算S(饱和度)<br /> .如果 (fCMax ＝ 0)<br />     S ＝ 0<br /> .否则<br />     S ＝ fDelta ÷ fCMax<br /> .如果结束<br /> <br /> ' 计算H(色调)<br /> .如果 (fDelta ＝ 0)<br />     H ＝ 0<br /> .否则<br />     .判断开始 (fCMax ＝ fR)<br />         H ＝ 60 × ((fG － fB) ÷ fDelta)<br />     .判断 (fCMax ＝ fG)<br />         H ＝ 60 × ((fB － fR) ÷ fDelta ＋ 2)<br />     .判断 (fCMax ＝ fB)<br />         H ＝ 60 × ((fR － fG) ÷ fDelta ＋ 4)<br />     .默认<br />         H ＝ 0<br />     .判断结束<br />     <br />     .如果 (H ＜ 0)<br />         H ＝ H ＋ 360<br />     .如果结束<br /> .如果结束<br /> <br /> 返回 (真)

示例

  

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

变量名	类 型	静态	数组	备 注
方向数	整数型
帧数	整数型
宽度	整数型
高度	整数型
关键点X	整数型
关键点Y	整数型
H	小数型
S	小数型
V	小数型

' 解析WAS文件头
如果 (解析WAS文件头 ("test.was", 方向数, 帧数, 宽度, 高度, 关键点X, 关键点Y))
调试输出 ("方向数:", 方向数)
调试输出 ("帧数:", 帧数)
调试输出 ("宽度:", 宽度)
调试输出 ("高度:", 高度)
调试输出 ("关键点X:", 关键点X)
调试输出 ("关键点Y:", 关键点Y)
调试输出 ("文件解析失败")

' 调色算法测试
RGB到HSV (255, 0, 0, H, S, V)  ' 红色
调试输出 ("红色 HSV:", H, S, V)
RGB到HSV (0, 255, 0, H, S, V)  ' 绿色
调试输出 ("绿色 HSV:", H, S, V)
RGB到HSV (0, 0, 255, H, S, V)  ' 蓝色
调试输出 ("蓝色 HSV:", H, S, V)

.子程序 __启动窗口_创建完毕<br /> .局部变量 方向数, 整数型<br /> .局部变量 帧数, 整数型<br /> .局部变量 宽度, 整数型<br /> .局部变量 高度, 整数型<br /> .局部变量 关键点X, 整数型<br /> .局部变量 关键点Y, 整数型<br /> .局部变量 H, 小数型<br /> .局部变量 S, 小数型<br /> .局部变量 V, 小数型<br /> <br /> ' 解析WAS文件头<br /> .如果 (解析WAS文件头 ("test.was", 方向数, 帧数, 宽度, 高度, 关键点X, 关键点Y))<br />     调试输出 ("方向数:", 方向数)<br />     调试输出 ("帧数:", 帧数)<br />     调试输出 ("宽度:", 宽度)<br />     调试输出 ("高度:", 高度)<br />     调试输出 ("关键点X:", 关键点X)<br />     调试输出 ("关键点Y:", 关键点Y)<br /> .否则<br />     调试输出 ("文件解析失败")<br /> .如果结束<br /> <br /> ' 调色算法测试<br /> RGB到HSV (255, 0, 0, H, S, V)  ' 红色<br /> 调试输出 ("红色 HSV:", H, S, V)<br /> <br /> RGB到HSV (0, 255, 0, H, S, V)  ' 绿色<br /> 调试输出 ("绿色 HSV:", H, S, V)<br /> <br /> RGB到HSV (0, 0, 255, H, S, V)  ' 蓝色<br /> 调试输出 ("蓝色 HSV:", H, S, V)