画像を文字列に/文字列から画像を展開するテスト…なんだけど。 赤チャンネルが抜けちゃうぞ……？ 1文字1pxみたいなことをしてる。

色の内部形式(16ビット形式:&bRRRRRGGGGGBBBBBA)を１バイトで保存して赤と緑の一部が抜けてる？

サイズが膨れ上がるのを覚悟でRGBのチャンネルごとで文字列化したほうが正確だろうなあ…

色コードの記録形式には２種類あってRGB関数の形式(４バイト&HAARRGGBB)と内部形式（１６ビット&bRRRRRGGGGGBBBBBA）があります。RGB関数の形式４バイトを文字コードと同じ２バイトで記録すると&HGGBBつまり緑と青だけになります。内部形式２バイトで文字コード(2バイト)で記録すれば赤RRも記録されると思います

?HEX$(ASC(CHR$(&HFFFFFFF7)))、とかやってみると、文字が16bitだけなのがわかると思います( ´ u ` ) GSAVEで16bitの色にして文字化すればキチンと保存できます。が、配列を使うのでだいぶ遅めです。 先ほど試したところ、GSPOITを使って自前で16bit化する方法でも配列と変わらない時間がかかりましたー。 旧3DSで512x512を保存→展開するのに約20秒かかりますので、使い所がなかなか難しそうですね( ´･ω･` )

一応現状のコード張ってみます。(一番最初の投稿時点のもの) どうやっても考えても赤チャンネルが……

やっぱり32bitの色コードを文字として保存しているから、16bit分の情報が落ちちゃってますね( ´ ω ` ) 色コードは0〜&HFFFFFFFFまで、文字コードは0〜&HFFFFまでなので、上位16bit(=透明度と赤の情報)が丸ごと消えちゃってますです。 直すには2通り、色コードは32bitのまま1ドット2文字にする方法と、色コードを16bitにする方法があります(・u・)

20秒は遅すぎるような??? ↓これで 8.5 秒です。 option defint var t0 = millisec, g[0] gsave 4,g,1 var i, n = len(g), s$ for i = 0 to n - 1: inc s$,chr$(g[i]): next for i = 0 to n - 1: g[n - 1 - i] = asc(s$[i]): next gload g,1,1 ? (millisec - t0) / 1e3

あっ完全にタイミングを逸した・・・

そう、遅すぎでした！GSPOITでやってるのかなって思って、それをそのままGSAVEに置き換えちゃってました。1dotずつGSAVEするという非効率感。。。 計った後でmikiさんの方法に気付きましたー(ﾉ´∀｀*)

変換自体の話ではないですが、プログラム内にデータとして置きたい場合は、 改行コードの扱いをうまくやっとく必要もありますね

ｺﾒ見て自分の無名も色合成で1ドットずつgsave色取得してたの思い出して猛烈にプチコンいじりたい