.版本 2
.支持庫 BmpOperate
.子程序 字節集到圖片, 字節集, 公開
.參數 字節集, 字節集
.參數 圖片寬度, 整數型, 可空
.局部變量 i1, 整數型
.局部變量 圖片, 位圖
.局部變量 i, 整數型
.局部變量 ii, 整數型
.局部變量 i2, 整數型
.局部變量 余數, 整數型
.局部變量 次數, 整數型
.局部變量 新字節集, 字節集
.如果真 (圖片寬度 ≤ 0)
圖片寬度 ＝ 50
.如果真結束
新字節集 ＝ 到字節集 (到文本 (取字節集長度 (字節集))) ＋ 到字節集 (“|”) ＋ 字節集
i1 ＝ 取字節集長度 (新字節集)
余數 ＝ i1 ％ 圖片寬度
.如果 (余數 ＝ 0)
次數 ＝ i1 ÷ 圖片寬度
.否則
次數 ＝ i1 ÷ 圖片寬度 ＋ 1
.如果結束
圖片.創建 (圖片寬度, 次數, 32, )
.計次循環首 (次數, i)
.計次循環首 (圖片寬度, ii)
處理事件 ()
i2 ＝ i2 ＋ 1
.如果真 (i2 ≤ i1)
圖片.置某點顏色 (ii － 1, i － 1, 到數值 (新字節集 [i2]))
.如果真結束
.計次循環尾 ()
.計次循環尾 ()
返回 (圖片.取位圖數據 ())
.子程序 圖片到字節集, 字節集, 公開, 雪域冰狐 QQ：463018614
.參數 圖片數據, 字節集
.局部變量 圖片, 位圖
.局部變量 i, 整數型
.局部變量 i1, 整數型
.局部變量 字節, 字節型, , "0"
.局部變量 顏色, 整數型
.局部變量 字節集, 字節集
.局部變量 字節集長度, 整數型
圖片.載入數據 (圖片數據)
.計次循環首 (圖片.取高度 (), i)
.計次循環首 (圖片.取寬度 (), i1)
處理事件 ()
顏色 ＝ 圖片.取某點顏色 (i1 － 1, i － 1)
加入成員 (字節, 到字節 (顏色))
.計次循環尾 ()
.計次循環尾 ()
字節集 ＝ 到字節集 (字節)
i ＝ 尋找字節集 (字節集, 到字節集 (“|”), )
字節集長度 ＝ 到數值 (到文本 (取字節集左邊 (字節集, i － 1)))
字節集 ＝ 取字節集左邊 (取字節集右邊 (字節集, 取字節集長度 (字節集) － i), 字節集長度)
返回 (字節集)