| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| RLE解码 | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 读取位置 | 整数型 | 行偏移 | 整数型 | 宽度 | 整数型 | 高度 | 整数型 |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 读地址 | 整数型 | |||||
| 写地址 | 整数型 | |||||
| 行长度 | 整数型 | |||||
| 点阵长度 | 整数型 | |||||
| 一字节 | 整数型 | |||||
| 二比特 | 整数型 | |||||
| 透明值 | 整数型 | |||||
| 索引值 | 整数型 | |||||
| 混合后 | 整数型 | |||||
| 长度 | 整数型 | |||||
| a | 整数型 | |||||
| 行数 | 整数型 | |||||
写整数 (写地址, 131072) ' 写tga文件头.....
写地址 ＝ 写地址 ＋ 4
写整数 (写地址, 0)
写地址 ＝ 写地址 ＋ 4
写整数 (写地址, 0)
写地址 ＝ 写地址 ＋ 4
写短整数 (写地址, 宽度)
写地址 ＝ 写地址 ＋ 2
写短整数 (写地址, 高度)
写地址 ＝ 写地址 ＋ 2
写短整数 (写地址, 2080)
写地址 ＝ 写地址 ＋ 2
' 点阵长度 ＝ 18 ' tga头长度.....
读地址 ＝ 行偏移 [高度] ＋ 1
循环判断首 ()
一字节 ＝ was数据 [读地址]读地址 ＝ 读地址 ＋ 1二比特 ＝ 汇编右移 (一字节, 6) ' 调试输出 (二比特)
判断 (二比特 ＝ 0)如果 (位与 (一字节, 63) ＝ 0) ' 行结束，对齐4判断 (行长度 ＞ 宽度)写地址 ＝ 写地址 ��� (行长度 － 宽度) × 4行长度 ＝ 0行数 ＝ 行数 ＋ 1如果真 (高度 ≠ 行数)读地址 ＝ 行偏移 [高度 － 行数] ＋ 1
判断 (行长度 ＞ 0)
长度 ＝ 宽度 － 行长度计次循环首 (长度, )写整数 (写地址, 0) ' 行长度 ＝ 行长度 ＋ 4写地址 ＝ 写地址 ＋ 4
计次循环尾 () ' 点阵长度 ＝ 点阵长度 ＋ 行长度行长度 ＝ 0行数 ＝ 行数 ＋ 1如果真 (高度 ≠ 行数)读地址 ＝ 行偏移 [高度 － 行数] ＋ 1
判断 (行长度 ＝ 0 且 was数据 [行偏移 [高度 － 行数] － 1] ＝ 0)计次循环首 (宽度, )写整数 (写地址, 0)写地址 ＝ 写地址 ＋ 4计次循环尾 ()行数 ＝ 行数 ＋ 1如果真 (高度 ≠ 行数)读地址 ＝ 行偏移 [高度 － 行数] ＋ 1
如果 (位与 (一字节, 32) ＝ 32) ' 带alpha像素,后一个字节为索引透明值 ＝ 位与 (一字节, 31)索引值 ＝ was数据 [读地址]读地址 ＝ 读地址 ＋ 1混合后 ＝ 混合透明 (颜色表32 [索引值 ＋ 1], 透明值 × 8)写整数 (写地址, 混合后)行长度 ＝ 行长度 ＋ 1写地址 ＝ 写地址 ＋ 4透明值 ＝ was数据 [读地址] ' 重复alpha读地址 ＝ 读地址 ＋ 1索引值 ＝ was数据 [读地址]读地址 ＝ 读地址 ＋ 1混合后 ＝ 混合透明 (颜色表32 [索引值 ＋ 1], 透明值 × 8)计次循环首 (位与 (一字节, 31), )写整数 (写地址, 混合后)写地址 ＝ 写地址 ＋ 4行长度 ＝ 行长度 ＋ 1计次循环尾 ()判断 (二比特 ＝ 1) ' 后字节长度,后每个字节都为索引计次循环首 (位与 (一字节, 63), )索引值 ＝ was数据 [读地址]读地址 ＝ 读地址 ＋ 1写整数 (写地址, 颜色表32 [索引值 ＋ 1])写地址 ＝ 写地址 ＋ 4行长度 ＝ 行长度 ＋ 1
计次循环尾 ()判断 (二比特 ＝ 2) ' 重复数,后一个字节为索引索引值 ＝ was数据 [读地址]读地址 ＝ 读地址 ＋ 1计次循环首 (位与 (一字节, 63), )写整数 (写地址, 颜色表32 [索引值 ＋ 1])写地址 ＝ 写地址 ＋ 4行长度 ＝ 行长度 ＋ 1计次循环尾 ()判断 (二比特 ＝ 3) ' 跳过数,用其它填充长度 ＝ 位与 (一字节, 63)清零 (写地址, 长度)写地址 ＝ 写地址 ＋ 长度 × 4行长度 ＝ 行长度 ＋ 长度调试输出 (行数, 高度)循环判断尾 (行数 ≠ 高度)返回 (宽度 × 高度 × 4 ＋ 18)
| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |