HSP - Hot Soup Processor [14]

HSP - Hot Soup Processor [14]at GAMEDEV

HSP - Hot Soup Processor [14] - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

736:名前は開発中のものです。
 07/04/22 14:10:18 xdLPXb3/
ttp://mia.taillove.jp/

737:名前は開発中のものです。
 07/04/22 15:14:13 GAHMA1wL
>>736 
メモリー内圧縮使ったことありますか？ 
そこで止まってます。

738:名前は開発中のものです。
 07/04/22 15:33:16 xdLPXb3/
ボクちゃん、test_mem.as　読める？

739:名前は開発中のものです。
 07/04/22 15:36:02 JwKt5lan
「メモリー内圧縮」って何か特別な意味（言葉）なん？ 
分割して圧縮処理じゃダメなんか？

740:名前は開発中のものです。
 07/04/22 15:52:31 GAHMA1wL
>>738 
読めますよ 
実行して出来たデータ配列が元より大きいのは圧縮失敗じゃないんですか？

741:名前は開発中のものです。
 07/04/22 16:01:02 xdLPXb3/
>>740 
/*　おまえは何を言っているんだ？ */ 
#include "z.as" 
#const DATASIZE 3000 
#define AHO(%1,%2,%3,%4) color %2,%3,%4:mes %1:color 0,0,0 
sdim rdata, DATASIZE 
sdim cdata, DATASIZE 
sdim udata, DATASIZE 
rdata={"hspでデータ圧縮じゃなくて文字列圧縮できる？ 
出来れば、可逆でメモリーに保存したいのです\n 
zlib試したけどメモリーだと一時保存に4倍使うからむりだったぽ"} 
rsize=strlen(rdata) 
mes "＞元データ：":AHO rdata,0,0,255:mes strf("＞サイズ：%d",rsize) 
/* 圧縮 */ 
zSetDest  cdata, rsize;DATASIZE 
zCompress rdata, rsize,3;DATASIZE, 3 
csize = stat 
mes "\n\n＞圧縮データ：":AHO cdata,255,0,0 
mes strf("＞サイズ %d バイト",csize)+strf("圧縮率 %d",writesize * 100 / rsize) 
/* 解凍 */ 
zSetDest    udata, DATASIZE 
zUncompress cdata, DATASIZE:usize=stat 
mes "\n\n＞解凍データ" : AHO udata,0,200,0:erf=0 
mes strf("＞サイズ %d バイト",usize) 
/* 比較 */ 
mes "＞元のデータと比較" : erf=0;:poke udata,12,32 
repeat DATASIZE 
r=peek(rdata,cnt):u=peek(udata,cnt) 
if ( r ! u ) { mes strf("＞不一致＠ %d文字目：",cnt)+strf("元[%c]",r)+strf(" ! 解凍[%c]",u):erf=1 } 
loop 
if erf=0 : mes "＞相違点はありません" 
stop

次ページ