Kerupani129 Project のブログ

ノスタルジア譜面 | Fly far bounce(Expert)

Tue, 28 Mar 2017 19:38:16 +0900

ノスタルジア譜面 | Fly far bounce(Expert)

「音楽ゲーム」と聞くと何だか抵抗を感じますが、ノスタルジアは雰囲気が良い感じで、人目を気にせずプレイできますね (^^

さて、もしかして、瞬発力がある音ゲーマーの方にはノスタルジアの譜面画像なんて不要なのかもしれませんが、自分はリズム感も弱く瞬発力も低いので、譜面画像で予習をしないと不安で仕方ありません…。

そこで、とりあえずこの譜面画像を作成してみました (^^

一曲作るだけでも大変でした…。複雑なリズムは全然ないのに、何しろ横の鍵盤数が多いので、実際にプレイするときはおおよその位置で良いにしろ、譜面画像となるとしっかり鍵盤 1 つずつ合わせないといけないので、とても時間がかかってしまいました… (汗

あと、今回はデザインを決めるという目的で、mspaint で地道にポチポチしてました (^^;

今後は、ノスタルジア譜面画像作成用のソフトウェアでも作ろうかなと思います。

左手のグリッサンドや、小節番号をどういうデザインにするかはまだ決めていません…。

さて、それでは譜面を載せます。

Fly far bounce(Expert)

カテゴリ: Org

曲名: Fly far bounce

タイプ: Expert

アーティスト: 猫叉Master

Level: 10

Notes: 1038

※2017/03/30 グリッサンドとトリルのノートの色を変更しました

(↑拡大してご覧ください)

※ズレは正確ではありません。

※2017/04/03 追記スタンダードノートの左右色分けをしていません

雑談

ノスタルジアって譜面が立体的に飛んでくるので、8 分がズレてるのとか良く見ても分からないんですよね… (汗

一応ライン撮り動画がネット上に上がっているので、フレーム数数えたりすればもっと正確な位置が分かるかもしれませんが、大変なのでとりあえずズレはテキトーに割り切れる位置にしてしまいました。

さて、さすがに自分一人でノスタルジアの譜面を作るわけにもいかないので、近いうちに譜面画像作成用の素材も配布しようと思います。あと、時間があれば作成ツールも作りたい…！！

あと、早くノスタルジアの Wiki できないかな～って思いますね…。一から作るとなると、ページの作成や権限周りの設定が大変そうなので、自分はブログで譜面画像を投稿するのにとどめていますが… (^^;

誰か作ってくれないかな～… (チラッ

…さて、今回のブログ記事はここぐらいまでにしておきます。

またいつかお会いしましょう (^^

ノシ

HSP | 日本語等も一文字として strlen, strmid

Sat, 11 Feb 2017 14:36:48 +0900

HSP | 日本語等も一文字として strlen, strmid

タイトルの通りです。

HSP って、strlen や strmid は、日本語等は二文字 (というより本当はバイト単位) なんですよね…。

…もしかして、HSP しか使っていない人にとっては、日本語等が 2 文字扱いになるのに違和感を感じないかもしれませんが、他のプログラミング言語だと結構日本語が一文字扱いなのですよ (^^;

使い方にもよってですが、実際そのほうが使いやすかったり… (汗

…というわけで、HSP でも日本語等を一文字扱いで、とりあえず strlen と strmid を対応しようと思います！！

(他の文字列関係の命令・関数は文字数関係ないか、関係していても、基本的にプログラマが数値を指定するようなものではない (instr など、ループで回すだけ) ので、ここでは省略します。

コード

/**
* メイン
*/

// 文字列の長さ
mes strlen_("aiueo")
mes strlen_("あいうえお")
mes strlen_("aいuえo")
mes

// 文字列の一部を取り出す
mes strmid_("aいuえo", 2, 2)
mes

mes strmid_("aいuえo", -1, 1)
mes strmid_("aいuえo", -2, 2)
mes strmid_("aいuえo", -3, 1)
mes

mes strmid_("aいuえo", 0, -1)
mes strmid_("aいuえo", 2, -1)
mes strmid_("aいuえo", 3, -1)
mes strmid_("aいuえo", -3, -1)
mes

stop

/**
* 文字列の長さを調べる (日本語等も一文字)
*/
#defcfunc strlen_ str s

l = 0

sdim buf, strlen(s) * 2 + 2
cnvstow buf, s

repeat
if ( 0x0000 == wpeek(buf, cnt * 2) ) : break
l++
loop

return l

/**
* 文字列の一部を取り出す (日本語等も一文字)
*
* index がマイナスのときの挙動変更 (後ろからのインデックス)
* len がマイナスのときの挙動変更 (後ろからのインデックス)
*/
#defcfunc strmid_ str s, int index, int len

sdim buf, strlen(s) * 2 + 2
cnvstow buf, s

// インデックスを修正
if ( index >= 0 ) {
i = 0
repeat index
if ( 0x0000 == wpeek(buf, cnt * 2) ) : break
i++
loop
} else {
i = 0
repeat
if ( 0x0000 == wpeek(buf, cnt * 2) ) : break
i++
loop
i = limit(i + index, 0, i)
}

// 長さを修正
if ( len >= 0 ) {
l = 0
repeat len, i
if ( 0x0000 == wpeek(buf, cnt * 2) ) : break
l++
loop
} else {
l = 0
repeat , i
if ( 0x0000 == wpeek(buf, cnt * 2) ) : break
l++
loop
l = limit(l + len, 0, l)
}

// 切り出し
memcpy buf, buf, l * 2, 0, i * 2
wpoke buf, l * 2, 0x0000

return cnvwtos(buf)

使い方

基本的に元の strlen, strmid と使い方は同じです。

ただし、strmid は一部仕様を変更しています。

１．文字列を直接引数にとれるように

HSP 標準関数の strmid では文字列型「変数」を引数に渡すことを強制していますが、ここで作成したものに関しては、内部的にバッファを作ってそこで捜査していますし、そもそも元の変数の内容を変更するわけじゃないから、そもそも変数で渡す必要ないような…？　HSP での実装どうなってるんでしょう (^^;　(HSP のコード読めば分かるのですけどね

２．インデックス、長さにマイナス値の指定

インデックス・長さがマイナスのときの挙動を、PHP の substr ライクにしてみました！！ (^^

…ただ、引数の省略の機能は省いています… (^^;

HSP で関数を #define してやればデフォルト引数指定できますが、数値しか渡せないとなると、わりと厄介なんですよね…。

コードの説明

昔の HSP にはなかったような？気がするのですけど、標準命令・関数に、文字列を Unicode に変換するものがあったので、それを用いて数えます！

… Unicode でも、文字よってバイト数が違うものがありますが、HSP のその変換する命令・関数のヘルプを見てみると、「外部DLL、 COMオブジェクトへのデータ変換などで使用することができます」と書いてあるあたり、Windows の API でよく使用されるワイド文字で、2 バイト固定という認識でおそらく大丈夫…ですよね？？　たぶん…。

というわけで、あとは、一文字 2 バイトという過程でごにょごにょしてます (説明がテキトー (^^;

(詳しくはソースコード参照

Unicode 文字列に変換するさいにバッファのサイズが足りないとマズいのですが、最低限、通常の strlen でえられる長さの倍あれば足りるでしょう。　(ヌル文字も考慮してプラス 2 バイト)

雑談

バイト数で取得していると、基本的に全角文字が 2 文字あつかいになって嬉しい、という意見もあるかもしれないですが、等幅じゃないとその数値役に立たないですし、そもそも半角カタカナが 2 バイトという罠があったりして、あまり実用的でないような… (^^;

やっぱり、HSP 標準の strlen は文字列の長さというより単なるバイト数として使用すべきですね…。

では、またいつかお会いしましょう！ (^^

ノシ

http://widget.blogram.jp/images/bgButton1_whi.gif

HSP | 透過 PNG で gmode 7 する (その２)

Fri, 27 Jan 2017 21:11:49 +0900

HSP | 透過 PNG で gmode 7 する (その２)

前回の記事: 「HSP | 透過 PNG で gmode 7 する」

参考にした元のプログラム: 「なんだか雲行きの怪しい雑記帖 HSPのPNG読み込みからgmode7で使える形式に」

前回はアレで満足してしまったのですが、後になって色々考えてみたら、もっとプログラムを簡単に、しかも処理速度を速くできることに気が付いてしまったので「その２」として書きます (^^;

前の記事を修正するだけで済ませようかとも思いましたが、かなり大部分が書き変わっていて、前の記事の大部分を直さないといけなくなりそうだったので、別記事にすることにしました (^^;

モジュール

主に「#deffunc local draw」の中身が書き変わりました

/**
* モジュール
*/
#module Pixela

//
// フィールド
//
#define global picload_pixela(%1) picload_pixela@Pixela %1

/**
* 画像ファイルをピクセルアルファブレンドコピーに対応させて読み込み
*
* gmode 7
*/
#deffunc local picload_pixela str fname

load@Pixela fname
draw@Pixela

return

/**
* 画像読み込み
*/
#deffunc local load str fname

// 出力ウィンドウ
BUFFER_ID_PIXELA = ginfo_sel

// 背景黒バッファ
BUFFER_ID_BG_BLACK = ginfo_newid

buffer BUFFER_ID_BG_BLACK

picload fname, 2

/* 画像サイズ取得 */
img_height = ginfo_winy
img_width = ginfo_winx

// 背景白バッファ
BUFFER_ID_BG_WHITE = ginfo_newid

buffer BUFFER_ID_BG_WHITE, img_width, img_height

pos 0, 0 : picload fname, 1

// 出力ウィンドウ初期化
type = ginfo_type(BUFFER_ID_PIXELA)
if ( type == 1 ) {
buffer BUFFER_ID_PIXELA, img_width * 2, img_height
} else : if ( type == 2 ) {
screen BUFFER_ID_PIXELA, img_width * 2, img_height
} else : if ( type == 3 ) {
bgscr BUFFER_ID_PIXELA, img_width * 2, img_height
}

return

/**
* ウィンドウの種類取得
*
* 1 = buffer, 2 = screen, 3 = bgscr
*/
#defcfunc local ginfo_type int id
mref bmscr, 96 + id // mref bmscr, 67
return bmscr.17

/**
* RGBA を計算し出力
*/
#deffunc local draw

gsel BUFFER_ID_PIXELA
mref img_rgba, 66

// アルファ値
gmode 6, , , 256
pos img_width, 0 : gcopy BUFFER_ID_BG_WHITE, 0, 0, img_width, img_height
gmode 5, , , 256
pos img_width, 0 : gcopy BUFFER_ID_BG_BLACK, 0, 0, img_width, img_height

// RGB
gmode 0
pos 0, 0 : gcopy BUFFER_ID_BG_BLACK, 0, 0, img_width, img_height // VRAM のインデックス算出高速化のためにもコピー

index = 0
index_width = img_width * 3
repeat img_height
repeat img_width * 3
alpha = peek(img_rgba, index + index_width)
if ( alpha ) : poke img_rgba, index, 255 * peek(img_rgba, index) / alpha
index++
loop
index += index_width
loop

return

#global

※サンプルはそのまま

変更点１．アルファ値を、HSP の標準機能の加算合成・減算合成を用いて算出

アルファ値の算出の式、よく見たら、「白」に「黒背景画像」を減産合成して「白背景画像」を加算合成してるのと同じじゃないですかっ！ (^^;

というわけで、gmode, gcopy だけでアルファ値を算出できます。

HSP の内部での処理に任せた方が断然速いです！

変更点２．RGB 値算出時に、アルファ値 (正規化はしない) を使用

前回の記事で「アルファ値を用いなくても RGB を算出できます」と書きましたが、よく見たら、アルファ値の算出式と全く同じものを書いていました (^^;

ただ、やはり正規化しても処理時間が遅くなるのと、アルファ値を使うにしても、「黒背景画像」に除算をかけるだけで済みます。

…参考にした元のプログラムだと、わざわざ「黒背景画像」と「白背景画像」を加算合成しているのですけど、これ意味ないですよね… (^^;

変更点３．アルファ値 0 の対応

HSP の gcopy の加算・減算合成の誤差？？のせいで、アルファ値 0 のパターンがテストできなかったのですが、本来はあるはずなので、アルファ値が 0 の場合は、「黒背景画像」をそのまま残すこととしました。

アルファ値 0 のとき、元の色が算出できないわけですが、そもそも表示されないので何色でもいいですね。

変更点その他

このプログラムを見ただけだと勘違いしやすいですが、画像の下から上に RGB 値を計算していってます。上から下ではありません (^^;

また、「黒背景画像」を一回出力画面にコピーしているのですが、これをしなくても直接 VRAM から色を取得しても良いのですが、画像の横幅が出力画面と異なるため、VRAM のインデックスを別に計算しなければいけなくなり、処理時間が余計にかかるので、gcopy の速度を信じて一回コピーすることにしました (^^;

雑談

もしかしたらまだ何か間違ってるかもしれません…。

アルファ値ズレてるし…なんでだろ？？

…また機会があれば調べてみます (^^;

それではまたいつか～ノシ

http://widget.blogram.jp/images/bgButton1_whi.gif

HSP | 透過 PNG で gmode 7 する

Wed, 25 Jan 2017 22:04:36 +0900

※大幅に修正したものを別記事にしました

あまりにも修正したので別記事にしましたが、この記事はこの記事で何かの役に立つと思うので残しておきます (^^;

HSP | 透過 PNG で gmode 7 する (その２)

HSP | 透過 PNG で gmode 7 する

gmode 7 (ピクセルアルファブレンドコピー) は、アルファ値がない画像と、アルファ値だけの画像を横に並べると、そのアルファ値通りに画像合成ができるという代物です。

HSP はいつからか PNG 読み込みができるようになりました！

…が、読み込んだ後に透過を上手く扱う手段が (標準機能では) 実装されていない…。

そこで、まずはググります！

とりあえず検索の上位に出てきたのは以下のようなもの。

1. HSP gmode 7用アルファブレンド画像作成モジュール - AkicanBlog
COM オブジェクトと GDI の API を用いて実装されている。
おそらく HSP が PNG 未対応時代の代物。
PNG ファイルフォーマットを解析して描画 (デコードは COM オブジェクトまかせ)。

2. HSP用画像関連モジュール - 略して仮。
DLL 色々呼んでます。めっちゃ高機能！

3. なんだか雲行きの怪しい雑記帖 HSPのPNG読み込みからgmode7で使える形式に
標準機能だけを用いてアルファ値と色を算出。
※今回のプログラムの参考とさせていただきました。

4. PNG2Gmode7 - SoupSeed
何か良く分からないけど、作成者曰く、色が微妙に変わってしまうバグがあるそうなのでボツ。

1 や 2 でも手ごろで良かったのですが、他のプラットフォームに移植することなどを考えると、なるべく標準命令だけで実装したほうがいいかな～とか考えてしまって、3 を使うことにしました (^^

ただ、 3 はモジュール化されていなかったので、モジュール化したのと、速度が遅かったので、なるべく速くしようとプログラムを書き替えていたら、大幅にプログラムが書き変わったので、ここに載せようと思います (^^;

ソースコード

※簡単のため、インクルードガートがないのと、モジュール名がテキトーです。

/**
* モジュール
*/
#module Pixela

//
// フィールド
//
#define global picload_pixela(%1) picload_pixela@Pixela %1

/**
* 画像ファイルをピクセルアルファブレンドコピーに対応させて読み込み
*
* gmode 7
*/
#deffunc local picload_pixela str fname

load@Pixela fname
draw@Pixela

return

/**
* 画像読み込み
*/
#deffunc local load str fname

// 出力ウィンドウ
BUFFER_ID_PIXELA = ginfo_sel

// 背景黒バッファ
BUFFER_ID_BG_BLACK = ginfo_newid

buffer BUFFER_ID_BG_BLACK

picload fname, 2

/* 画像サイズ取得 */
img_height = ginfo_winy
img_width = ginfo_winx

// 背景白バッファ
BUFFER_ID_BG_WHITE = ginfo_newid

buffer BUFFER_ID_BG_WHITE, img_width, img_height

pos 0, 0 : picload fname, 1

// 出力ウィンドウ初期化
type = ginfo_type(BUFFER_ID_PIXELA)
if ( type == 1 ) {
buffer BUFFER_ID_PIXELA, img_width * 2, img_height
} else : if ( type == 2 ) {
screen BUFFER_ID_PIXELA, img_width * 2, img_height
} else : if ( type == 3 ) {
bgscr BUFFER_ID_PIXELA, img_width * 2, img_height
}

return

/**
* ウィンドウの種類取得
*
* 1 = buffer, 2 = screen, 3 = bgscr
*/
#defcfunc local ginfo_type int id
mref bmscr, 96 + id // mref bmscr, 67
return bmscr.17

/**
* RGBA を計算し出力
*/
#deffunc local draw

gsel BUFFER_ID_BG_BLACK
mref img_bgblack, 66
gsel BUFFER_ID_BG_WHITE
mref img_bgwhite, 66
gsel BUFFER_ID_PIXELA
mref img_rgba, 66

repeat img_height : y = cnt
index_height = img_width * (img_height - 1 - y)
repeat img_width : x = cnt
// VRAM インデックス
index = (index_height + x ) * 3 // 背景黒・白
index2 = (index_height * 2 + x ) * 3 // RGB
index3 = (index_height * 2 + x + img_width) * 3 // alpha
// 色取得 (配列にすると 15% ほど遅くなる HSP ver.3.4)
black_r = peek(img_bgblack, index + 2)
black_g = peek(img_bgblack, index + 1)
black_b = peek(img_bgblack, index + 0)
white_r = peek(img_bgwhite, index + 2)
white_g = peek(img_bgwhite, index + 1)
white_b = peek(img_bgwhite, index + 0)
// RGB 出力
poke img_rgba, index2 + 2, 255 * black_r / (255 - white_r + black_r)
poke img_rgba, index2 + 1, 255 * black_g / (255 - white_g + black_g)
poke img_rgba, index2 + 0, 255 * black_b / (255 - white_b + black_b)
// alpha 出力
alpha = 255 - white_r + black_r
poke img_rgba, index3 + 2, alpha
poke img_rgba, index3 + 1, alpha
poke img_rgba, index3 + 0, alpha
loop
loop

return

#global

サンプル

// ファイル選択
dialog "png", 16, "png file!"
if ( stat == 0 ) : end
fname = refstr

// ファイル読み込み
buffer 1
picload_pixela fname

img_width = ginfo_winx / 2
img_height = ginfo_winy

// 描画
gsel 0
gmode 7

redraw 0

/* 左上: 背景黒 */
color 0, 0, 0 : boxf 0, 0, img_width - 1, img_height - 1
pos 0, 0 : gcopy 1, 0, 0, img_width, img_height

/* 右上: 背景白 */
color 255, 255, 255 : boxf img_width, 0, img_width * 2 - 1, img_height - 1
pos img_width, 0 : gcopy 1, 0, 0, img_width, img_height

/* 左下: 背景赤 */
color 255, 0, 0 : boxf 0, img_height, img_width - 1, img_height * 2 - 1
pos 0, img_height : gcopy 1, 0, 0, img_width, img_height

/* 右下: 背景青 */
color 0, 0, 255 : boxf img_width, img_height, img_width * 2 - 1, img_height * 2 - 1
pos img_width, img_height : gcopy 1, 0, 0, img_width, img_height

redraw

主な変更点

・未使用ウィンドウを処理中のバッファに使うように変更

モジュールなので、既に使用中のバッファを上書きしてしまったら問題ですもんね…。

本当は使用後に開放したいですが、現時点の HSP だとムリなようです… (^^;

・配列変数に代入せず、直接 VRAM に読み書きするよう変更

これが今回大きな効果がありました！！

後に詳しく書きます…。

・アルファ値を正規化しないよう変更

結局は 0 ～ 255 で出力するのですから、0.0 ～ 1.0 にする必要はないでしょう (おそらく) 。

・色 (RGB) の算出式を変更

なぜか元のプログラムでは、正規化したアルファ値を利用して RGB を求めているのですが、連立二次方程式で求めるのですから、アルファ値を用いなくても RGB を算出できます。

というわけで変更！

・その他、不要な関数を削除

abs や limit を用いて数を調整しているところがあったのですが、正しい値が入力されていれば、負になったり値が範囲外になったりしないはずなので削除 (カンタンに証明できます)。

・(サンプルで) redraw の追加

redraw を使うと、pset, pget を使う場合でもかなり速くなります！

・その他、数式を一回変数に代入

HSP はもともと速度が遅い言語なので、これをするだけでも目に見えるぐらい速くなりました！ (^^;

もっと弄れば速くできるかも？？

あと、本質的ではないですが、サンプルの boxf の範囲がズレていたので直しました。

「配列変数に代入せず、直接 VRAM に読み書きするよう変更」

これをする前に、色々な状況を想定して実際にコードを書き、実行時間を測定しました！

(ただし、かなりテキトーな計測だったので、数値は割愛します (^^;

以下のパターンを想定しました。

配列変数を用いて一括 pset, pget
地道に pset, pget
VRAM 直接アクセス

結論から言いますと、上の方が遅く、下の方が速いです。

自分のプログラムでは、元のプログラムより 5 倍ぐらい速くなりました！ (数式の変更なども含めて)

元のソースコードのコメントを見ると、「// 処理用ばっふぁ、いちいちpgetが面倒なので」とあるのですが、「いちいちpget」の方が速いです (^^;

gsel は第二引数を指定しなければ、内部的に操作先のウィンドウ ID を変更するだけなので、地道にウィンドウ (バッファ) を切り替えて処理してもあまり処理時間は変わらなかったです。

問題は、「配列変数」を用いていることでした！

HSP の配列変数ってスゴく遅いのですよ…あまりにも遅いので、軽くですが検証までしてしまいました…。

HSP | 配列変数が「遅い」

特に読み込みがとんでもなく遅いようです。

なので、「いちいちpget」の方が速いのですね。

…が、最終的には、VRAM に直接アクセスするのが一番速かったです (^^;

HSP のことなので、poke や peek すら遅かったり、どっちかが極端に遅かったりするんじゃないかと思いましたが、配列変数を用いて代入するより速かったです…。配列変数の代入より命令 (関数) の方が速いとはなんのこっちゃ (^^;

本当はシフト演算を用いて一括代入した場合なども検証してみたかったのですが、時間なかったのでこの状態でブログに投下します…。

誤差

自分のプログラムでは正規化したアルファ値を用いず、すべて整数で処理しているので、誤差が気になります… (^^;

主に割り算がある場所ですね…。

自分のプログラムで割り算を行っているのは、「RGB」を算出しているところだけです。

poke img_rgba, index2 + 2, 255 * black_r / (255 - white_r + black_r)

足し算引き算をした後、一回割り算を行い、それを色の値として出力しています。

割り切れなかった場合切り下げが起きます。

PNG ファイルフォーマットをちゃんと調べていないのですが、画像ファイルだしおそらくアルファ値も 0 ～ 255 で格納してますよね？？

と、仮定すると、この値は絶対割り切れるはずなのです！

…が、そう上手くいくわけないんですよね (^^;

PNG 読み込み時の、「白背景」でも、内部的に割る処理がなされていて、誤差が出ます。これはどうしようもないですね…。

せめて、このプログラムで、四捨五入すべきかもしれません…。

正規化はせずに (0 ～ 255 のまま) double にキャスト、0.5 プラス、int にキャスト…。

今回はとりあえず省略します。

雑談

透過 PNG をいじるツールが作りたいなーと思ってこれを作ったのですが、最近何かと忙しいので、これだけブログに投下して終わるかも (^^;

…いや、なるべく作るように頑張ります！

ではまたいつか～ノシ

http://widget.blogram.jp/images/bgButton1_whi.gif

HSP | 配列変数が「遅い」

Wed, 25 Jan 2017 21:28:15 +0900

HSP | 配列変数が「遅い」

ものスゴい久しぶりに HSP をいじってみました (^^

ちょっと、カンタンな画像処理をするツールが欲しくなったので、HSP で作ろうかと思ったのですが…。

色の情報を配列に入れてから一括で処理すると、とても遅くなるのです。

そこで、配列変数の読み書き速度を測ってみました！

(※ HSP ver.3.4 で確認

読み込み

#include "kernel32.as"

// 配列 (一括)
GetTickCount
s = stat

repeat 1000000
c = 0xFF, 0xFF, 0xFF
loop

GetTickCount
e = stat

mes "" + (e - s) + " ms"

// 配列 (別々)
GetTickCount
s = stat

repeat 1000000
c.0 = 0xFF
c.1 = 0xFF
c.2 = 0xFF
loop

GetTickCount
e = stat

mes "" + (e - s) + " ms"

// 配列を使わない
GetTickCount
s = stat

repeat 1000000
r = 0xFF
g = 0xFF
b = 0xFF
loop

GetTickCount
e = stat

mes "" + (e - s) + " ms"

(※簡単のため、変数名やループが手抜きですが許してください (^^;

(※最初の変数初期化にかかる時間もここでは無視します。一回しか起きないので…。

(いつもはちゃんと変数名付けてますよっ！！

自分の環境では

78 ms
234 ms
135 ms

となりました。

「あれ？配列の方が早い？？」

自分は一括代入を使っていたので、この結果を見ると早くなるはず！

じゃあ書き込みか！！

書き込み

計測の都合上、読み書き一回ずつ合わせて時間を測ります。

#include "kernel32.as"

// 配列
GetTickCount
s = stat

repeat 1000000
c = 0xFF, 0xFF, 0xFF
x = c.0
x = c.1
x = c.2
loop

GetTickCount
e = stat

mes "" + (e - s) + " ms"

// 配列を使わない
GetTickCount
s = stat

repeat 1000000
r = 0xFF
g = 0xFF
b = 0xFF
x = r
x = g
x = b
loop

GetTickCount
e = stat

mes "" + (e - s) + " ms"

結果は

344 ms
297 ms

となりました。やっぱり配列の読み込みが遅い！

まとめ

ものスゴく内容薄い記事になってしまいました (^^;

…が、あるプログラム (を書いてる人) にとっては、役に立つと思います。…そう願いたいです (^^;

ここでの結果を信用すると、一回ずつ読み書きするだけでも元がとれませんし、変数でわざわざ置いているという事は何回も値を読み込むことを想定していると思うので、さらに時間がかかってしまいます…。

「配列を使うな」とまで言ってしまうと、かなりプログラミングが辛くなるのでそこまで言えませんが、パッと見、配列でなくても良い・簡単にソースコードを書き換えられる・配列でなくともソースコードがそんなに汚くならない場合などは配列を使わないほうが良さそうです！

ではまたいつかノシ

http://widget.blogram.jp/images/bgButton1_whi.gif

詩 | 夢でいっぱいの世界

Thu, 19 Jan 2017 23:14:28 +0900

詩 | 夢でいっぱいの世界

きっとキミは、、「こいつ、夢ばっかり見て、夢のない世界を知らないんだな…」と、思ってるのかもしれないね…。

違うよ…私だって、この世界に夢がないものがあることは分かってる。

でも、だからこそ夢を追いかけたいの。

夢がないものが存在することは理屈では分かっていて、でも、それを受け入れたくないの。

いままで、キミと私は、同じ「夢でいっぱいの世界」にいると思っていた。

…でも、実際にその世界にいたのは、私一人。

「夢でいっぱいの世界」

それは、夢のない世界と対称的なところに、確かに存在する世界。

キミは「そんなものは存在しない」と言うかもしれないけど、確かに存在する世界。

その世界の存在を信じてる、とかじゃなくて、確かに存在するその世界の在処を、私は知ってる…！！

http://widget.blogram.jp/images/bgButton1_whi.gif

詩 | 自分の心を傷つけたその人は

Thu, 19 Jan 2017 22:23:16 +0900

詩 | 自分の心を傷つけたその人は

今日、自分はある人に心を傷つけられました。

自分がとても好きなものを、理由付きで長々と否定されました。

でも、はずかしながら、自分も同じことを他の人にしてしまったことがあるのです。

あぁ、この人も自分も同じなんだな、と思い、その人を許すと同時に、自分は二度とこういうことをしてはならないと固く誓いました。

ニコニコしながら他の人を否定する発言を平気でするような人はまた別ですが、その人はとても辛そうでした。

自分が好きなものを辛そうに否定されるのもこちらとしては嫌な訳ですが、その人はその人でとても辛く、こちらに感情をぶつけなければ気が済まなかったのでしょう。

相手に負の感情をぶつけること、簡単な例では、怒ること。

それは、ほぼ無意味なことだと思うのです。

でも、それを相手に求めるべきではありません。相手は自分ではないのですから。

それと同時に、自分は、怒ってる人に対して怒り返してはならないと思います。

もちろん、理由によっては正当に怒って良い場合もあるでしょう。

しかし、怒ってきた相手に直接起こり返すのは無意味。「怒りのループ」を生むだけ。

もちろん、我慢することが異常なまでに多いなら、具体的に別の対処が必要でしょう。

しかし、それがたまたま怒っただけなら、まっすぐ受け止めてあげましょう。

それが、自分が一番悲しまないための近道――

http://widget.blogram.jp/images/bgButton1_whi.gif

詩 | 伝えること

Wed, 28 Dec 2016 01:50:26 +0900

詩 | 伝えること

他人を理解すること。

他人に伝えること。

どちらも大切なことで、例え相手がそれらをしようとしなくてもするべき。

…でも、それはとてもつらいことだった。

「相手を理解しなくていい」と考える人を理解することはできなかった。

…そういう人には何を言っても伝わらないんだろうな…。

相手に本当に何かを伝えたいなら、それ相応の努力が必要。

そのために、絵を描いたり、メロディーを作ろうとしてみたり…色々してみたよ。

でも、自分の力が足りなくて、未だに本当に伝えたいものを伝えられずにいる自分。

たとえ正しいことを言っていても、それが心から伝わらないと意味がないんだなぁって。

自分は本気で言ってるのに、相手は冗談半分にしか聞いててくれてないんだなぁって。

本当に素晴らしいものというのは、それに興味がなかった人さえも取り込んでしまう、そういうものだと思う。

理解しようとしない人にすら伝えられる、そういうものを作れるようになりたい…！！

自分が本当に思っていることを伝えたくて――

http://widget.blogram.jp/images/bgButton1_whi.gif

詩 | 理解すること

Wed, 28 Dec 2016 01:22:59 +0900

詩 | 理解すること

他人を理解すること。

…それは、小さな子供でも習う、ごく基本的なこと。

相手が自分と違うことを考えている、自分と違う好みを持っている。

…

もしかしたら、自分がまだ知らない「それ」が、自分をより理想的にする何かかもしれない…！

理解しなければ…！！

…頑張ったよ。

でももう…十分すぎる程に理解してきたと思う。

狭い世界しか見えない人になりたくなくて、どこまでも広い世界を見てきた。

でも、あまりにも広い世界を見すぎて、自分の力が追いつかなくなった…。

…

とりあえず、今は狭い世界で休んでいます。

また広い世界へ行くことを夢見て――

http://widget.blogram.jp/images/bgButton1_whi.gif

詩 | 理想的な人でありたかった

Wed, 28 Dec 2016 00:55:21 +0900

詩 | 理想的な人でありたかった

理想的な人でありたかった。

自分を自分にとっての理想的な人にすることで、もう一人の理想的な自分に出会えると思った。

実際に自分は理想的だった…たぶん。

…でも、それを守り続けることができなかった…。

例え子供っぽい幻想だと思われようとも、たくさんの人を幸せにする、そんな生き方がしてみたかった。

もちろん、自分が不幸にならない範囲で…ね？？

でも、弱い自分はそれができなかった…。

一回失敗したぐらいで…と、思いたいところだけど、その一回の失敗で、取り戻せない何かを失うこともある。

…

他人に理想を求めること。

自分に理想を求めること。

どちらも大切なこと。

その大事なことを忘れた人々。

そんな人々に流されて、理想的でなくなった自分。

もういい歳なんだから、自分のことは自分でしっかりなさい、と言われそうだけど。

実際そうなんだろうけど。

弱い自分はそれができなかった。

理想的な人でありたかった

http://widget.blogram.jp/images/bgButton1_whi.gif