|
|
|
2023/1/30(Mon) 18:20:06|NO.99039
|
|
|
2023/1/30(Mon) 20:16:52|NO.99043
|
|
|
2023/1/30(Mon) 21:03:34|NO.99044
きせんさん＞
SHV39(Android 9)で戦(仮)をインストールしてみましたが、起動直後に何の画面も出ずに落ちてしまいます。
|
|
|
2023/1/30(Mon) 21:40:26|NO.99045
起動できないとは（笑）
すこし古いので試してみます。
|
|
|
2023/1/30(Mon) 21:48:09|NO.99046
前のAndroidだと大きめの画像を
読み込むと落ちることがあった気がしましたが、
Android9あたりでも落ちてしまうのかな？
前のAndroidひっぱりだして充電して検証してみます。
|
|
|
2023/1/30(Mon) 22:29:33|NO.99048
お言葉に甘えて…スマホ用じゃないんですが。
作ったゲームとツールとモジュールのまとめページ
https://mclab.uunyan.com/dl.htm
全てWindows用。ゲーム15、ツール19、モジュール24ぐらい。さすがに古いのは、もう動かないものもあるかもしれません。
数が多いのでおすすめなのを一部だけ紹介。
・ぜんぶ食べないと出られない部屋 他
受賞作とかそうでない作品とか。
・PAD設定さん
ゲームパッドのキーコンフィグ実装モジュールとツール。
・PixelA メーカー
半透明PNGをgmode 7用に加工。
・TAKOMASS
ストップモーション・アニメーションを作成するためのツール。
・TOY-CAKE!
たゆんたゆん。
・d2cモジュール
2Dの衝突判定
・修正ユリウス日換算モジュール
日付計算
・ツイートモジュール
ツイートボタンを実装
・mod_Tayunモジュール
たゆんたゆん
|
|
|
2023/1/31(Tue) 17:36:13|NO.99051
きせんさんのアプリはインストール失敗していただけみたいです。
こんなこともあるんですね、、お騒がせしました。
|
|
|
2023/2/2(Thu) 21:01:28|NO.99071
|
|
|
2023/2/5(Sun) 05:24:20|NO.99075
|
|
|
2023/5/3(Wed) 14:22:25|NO.99375
|
|
|
2023/8/21(Mon) 07:34:28|NO.99955
bmp画像に特化させたpicload拡張モジュールです。
一言で拡張子がbmpのファイルと言ってもいろんな形式があり、中にはHSPでは読み込めないbmp画像もあります。
このモジュールを使えば、ほぼ全てのbmp画像を表示させることが可能です。
#module
#deffunc bmppicload str m_filepath
actwid=ginfo(3)
filepath=m_filepath
exist filepath
tstrsize=strsize
sdim dt,tstrsize
bload filepath,dt
id=0
chk=wpeek(dt,id):id+=2
bitmapflg=0
if chk=19778{ ;bmp
paletteflg=0
bitfieldflg=0
dim colmask,4
dim maskshiftnum,4
dim maskshiftdir,4
mref bmscr,67
screentype=bmscr(17)
id+=8
offset=lpeek(dt,id):id+=4
headsize=lpeek(dt,id):id+=4
if headsize>=40{ ;BITMAPINFOHEADER
picwidth=lpeek(dt,id):id+=4
picheight=lpeek(dt,id):id+=4
id+=2
pixelbitnum=wpeek(dt,id):id+=2
if pixelbitnum<=8{
paletteflg=1
}
compressiontype=lpeek(dt,id):id+=4
id+=12
colidnum=lpeek(dt,id):id+=4
id+=4
}
if headsize>=52{ ;BITMAPV3INFOHEADER(V2ヘッダ)
bitfieldflg=1
masknum=3
repeat 3:ctid=2-cnt
colmask(ctid)=lpeek(dt,id):id+=4
tcolmask=colmask(ctid)
repeat 32
if tcolmask>=256{ ;右シフト
tcolmask>>1
}else:if (tcolmask&128)=0{ ;左シフト
tcolmask<<1
maskshiftdir(ctid)=1
}else{
break
}
maskshiftnum(ctid)++
loop
loop
}
if headsize>=56{ ;BITMAPV3INFOHEADER(V3ヘッダ)
masknum=4
ctid=3
colmask(ctid)=lpeek(dt,id):id+=4
tcolmask=colmask(ctid)
repeat 32
if tcolmask>=256{ ;右シフト
tcolmask>>1
}else:if (tcolmask&128)=0{ ;左シフト
tcolmask<<1
maskshiftdir(ctid)=1
}else{
break
}
maskshiftnum(ctid)++
loop
}
if headsize>=108{ ;BITMAPV4HEADER
id+=52
}
if headsize>=124{ ;BITMAPV5HEADER
id+=16
}
if compressiontype=3&(headsize!=52&headsize!=56&headsize!=124){ ;圧縮（ビットフィールド）
if masknum<3{
masknum=3
}
bitfieldflg=1
repeat 3:ctid=2-cnt
maskshiftnum(ctid)=0
colmask(ctid)=lpeek(dt,id):id+=4
tcolmask=colmask(ctid)
repeat 32
if tcolmask>=256{ ;右シフト
tcolmask>>1
}else:if (tcolmask&128)=0{ ;左シフト
tcolmask<<1
maskshiftdir(ctid)=1
}else{
break
}
maskshiftnum(ctid)++
loop
loop
}
if paletteflg{ ;カラーパレット
if screentype=1{
buffer actwid,picwidth,picheight,screen_palette
}else:if screentype=2{
screen actwid,picwidth,picheight,screen_palette
}else:if screentype=3{
bgscr actwid,picwidth,picheight,screen_palette
}
palcolnum=int(powf(2,pixelbitnum))
repeat palcolnum
b=peek(dt,id):id++
g=peek(dt,id):id++
r=peek(dt,id):id++
id++
palette cnt,r,g,b,0
loop
palette -1,,,,1
}else{ ;フルカラー
if screentype=1{
buffer actwid,picwidth,picheight
}else:if screentype=2{
screen actwid,picwidth,picheight
}else:if screentype=3{
bgscr actwid,picwidth,picheight
}
}
if compressiontype=1|compressiontype=2{ ;圧縮形式（RLE）
rledtsize=tstrsize-id
sdim rlesizedt,1024
rlesizeid=0
waru=8/pixelbitnum
repeat
if id>=tstrsize:break
num=peek(dt,id):id++
chkbyte=peek(dt,id):id++
repeat num/waru
if rlesizeid>=varsize(rlesizedt){
memexpand rlesizedt,varsize(rlesizedt)+1024
}
memcpy rlesizedt,chkbyte,1,rlesizeid,0
rlesizeid++
loop
loop
imagedtsize=rlesizeid
sdim imagedt,imagedtsize
memcpy imagedt,rlesizedt,imagedtsize,0,0
}else{
imagedtsize=tstrsize-id
sdim imagedt,imagedtsize
memcpy imagedt,dt,imagedtsize,0,id
}
id=0
mref vram,66
if paletteflg{ ;パレットカラー
setbitlen=picwidth/4*4
if picwidth\4!=0{
setbitlen+4
}
getstwid=0
picwbitlen=picwidth*pixelbitnum
getwbitlen=picwbitlen/32*32
if picwbitlen\32!=0{
getwbitlen+32
}
bitmask=palcolnum-1
lineid=0
setid=0
repeat
if id>=imagedtsize:break
if getstwid<picwbitlen{
getlbyte=peek(imagedt,id):id++
repeat 8/pixelbitnum:ctid=cnt
if getstwid+ctid>=picwbitlen{
break
}
palid=(getlbyte>>(8-((ctid+1)*pixelbitnum)))&bitmask
poke vram,setid,palid
setid++
loop
}else{
id++
}
getstwid+=8
if getstwid>=getwbitlen{
lineid++
setid=setbitlen*lineid
getstwid=0
}
loop
bitmapflg=1
}else{ ;フルカラー
setbitlen=vramfxbitlenset(picwidth)
lineid=0
setid=0
dim coldt,masknum
colbytenum=pixelbitnum/8
if bitfieldflg{ ;ビットフィールド有
chkbyte=0
repeat
if id>=imagedtsize:break
memcpy chkbyte,imagedt,colbytenum,0,id
id+=colbytenum
repeat masknum
coldt(cnt)=chkbyte&colmask(cnt)
if maskshiftdir(cnt){
coldt(cnt)<<maskshiftnum(cnt)
}else{
coldt(cnt)>>maskshiftnum(cnt)
}
loop
if setid+3>setbitlen*(lineid+1){
lineid++
setid=setbitlen*lineid
}
repeat 3
poke vram,setid,coldt(cnt):setid++
loop
loop
}else{ ;ビットフィールド無
repeat
if id>=imagedtsize:break
repeat colbytenum
if cnt<3{
coldt(cnt)=peek(imagedt,id):id++
}else{
id++
}
loop
if setid+3>setbitlen*(lineid+1){
lineid++
setid=setbitlen*lineid
}
repeat 3
poke vram,setid,coldt(cnt):setid++
loop
loop
}
bitmapflg=1
}
}
if bitmapflg=0{
picload filepath
}
return
#defcfunc vramfxbitlenset int m_gw
if (m_gw*3)\4!=0{
ix=4-((m_gw*3)\4)
}else{
ix=0
}
return 3*(m_gw+fx)+ix
#global
;使い方
buffer 1
bmppicload "画像パス"
gsel 0
pos 0,0
gcopy 1,,,ginfo(12),ginfo(13)
| |
|
|
2023/10/3(Tue) 21:43:36|NO.100121
もう古くなりましたがよろしくお願いいたします。
たまねこ
-3つ以上つなげて消す簡単パズルにゃん-
Androidゲーム
https://onl.sc/29SxRRm
|
|
|
2023/12/7(Thu) 16:51:12|NO.100765
|
|
|
2023/12/20(Wed) 22:33:48|NO.100894
|
|
|
2023/12/21(Thu) 19:45:46|NO.100899
スレが上がってきたから便乗するのだ。
GooglePlay で「ずんだもん」「ずんだもん ゲーム」「ずんだもんのゲーム」
で検索すると「ずんだまめ」が上位に出てくるようになったのだ。
1番目表示になったのだ! (お金払ったわけではないのだ)
|
|
|
2024/2/24(Sat) 17:01:28|NO.101300
HSPスクリプトエディタ『Le.Antilla』
|
|
|
2024/2/24(Sat) 22:50:38|NO.101301
Le.Antilla使いやすかったのですが作者様のHPが消滅しており、更新の可能性がほぼ無いため、「HSPスクリプトエディタ Powered by sakura」を推奨します。
|
|
|
2024/2/28(Wed) 22:37:48|NO.101328
hspcを使った簡単なバッチファイルです。error情報を表示します
サクラエディタでコンパイルする時に、error情報が出なくて困ったので
hspcのPATHはhspcのある場所を指定して下さい
C:/hsp36/hspc.exe lint --watch "%~1"
PAUSE
|
|
|
2024/2/28(Wed) 22:41:37|NO.101329
サクラエディタのマクロです
https://qiita.com/mm_mario/items/2c091aaddf23f52a5fb7
を参考に編集しましたｗ
hspcのPATHは修正して下さい
//HSP error診断 [F]
//[hspc.exe]のパス
var hspcpath = "C:/hsp36/hspc.exe";
//無題かどうか判断
if( ExpandParameter("$f") == "(無題)" ) {
//コンパイルするファイルのパスを取得
var filepath = ExpandParameter("$S").replace("sakura.exe","tmp.hsp");
//名前を付けて保存
FileSaveAs(filepass,99,0);
//[hspc.exe]に処理を受け渡す
ExecCommand(""+hspcpath+" "+"lint --watch"+" "+filepath,1,true);
} else {
//コンパイルするファイルのパスを取得
var filepath = ExpandParameter("$F");
//上書き保存
FileSave();
//[hspc.exe]に処理を受け渡す
ExecCommand(""+hspcpath+" "+"lint --watch"+" "+filepath,1,true);
}
|
|
|
2024/2/28(Wed) 22:45:00|NO.101330
>>101328
削除パスワードがわからなくｗ補足です
このファイルの拡張子を.batとして保存しファイルをドラッグアンドドロップして下さい
|
|
|
2024/3/1(Fri) 05:21:59|NO.101349
開発中の自作音源 MI392DRV の動画を初公開するのだ。
HSPスクリプトエディタでMMLを書いて即演奏できます。演奏だけではなくてこれは開発ツールでもあります。音楽と効果音の実装をこれだけでやれるようにする予定で、データサイズはファミコンレベルで小さくなります。だいたい1曲1KB以下で演奏可。mp3/wavなどが不要になるということです。
つべならばJASRAC管理曲のカバーを合法的に配信できるので、今後開発中デモを追加していきます。聴いてねー♪
https://youtu.be/5rh2myPj7Mo
|
|
|
2024/3/1(Fri) 14:08:41|NO.101350
開発中自作音源 MI392DRV によるテスト演奏
ドラゴンクエスト�靴茲蝓岾后疎次舛曚海蕁船團薀潺奪鼻�
https://youtu.be/dcCOLeqTKTM
音源はC++などで書いてるわけではなくて、HSP3で開発しています。
上記動画の音声をよく聴くとたまにノイズがありますが、aacエンコーダーのせいなのだ。
少しずつ研究してみるのだ・・・
|
|
|
2024/3/11(Mon) 16:06:02|NO.101406
MI392DRV のテスト演奏追加。
パイプオルガンの音を波形メモリの2ch波形を使用して演奏してみたものです。
OBS Studio に慣れていなくて前回までは aac 160kbps でエンコードしていたので
音質の劣化がありましたが、今回から音声は FLAC でアップしています。
開発中自作音源 MI392DRV によるテスト演奏 - アクトレイザーより「天空城」
https://youtu.be/Azc9jvOQP34
高域発音テスト
https://youtu.be/OhJLfRkZWrM
|
|
|
2024/3/13(Wed) 01:41:48|NO.101411
MI392DRV テスト演奏。
開発中自作音源 MI392DRV によるテスト演奏 - ジングルベル（試作）
https://youtu.be/0-FRAN9P-yA
チャンネル登録もよろしくね!!♪
久々に?開発再開というところですが、MI392DRV は現在入力波形から高域用波形を自動生成する部分を実装しようかなってところです。
この音源の音階は、DirectSoundのアレをそのまま利用している都合上、100〜100000Hzの範囲でしか指定できません。
この仕様により、波形そのものを加工してやらないとより高音を出すことができないので、入力波形から1/2 1/4などのサンプル数の波形を作る必要がございます。当初はそういう波形を外部ツールで作って波形ファイル化すれぱいいかなと思っていたのですが、プログラム側で自動生成することにしました。
|
|
|
2024/3/16(Sat) 20:54:58|NO.101417
スレ違いですが、
MIAさんのHSP DirectSound Extensionの機能具合いいと思うんですけど、HSP3でも使っている方はいるのかな？
MI392DRVすごいですね。ドラクエのもすごいですが、アクトレイザーから「天空城」をチョイスしたのも（笑
そっくりです。
|
|
|
2024/3/17(Sun) 16:37:33|NO.101419
>きせんさん
聴いて頂きありがとうございます♪
HSP DirectSound Extension しらなかったのでベクターから落として説明書などを読んだのですが
これは DirectSound そのままのやつですね。基本やってる内容は DirectSound との橋渡しです。
タイムスタンプを見たら 1999年でしたが、この当時は私も VB で似たようなことをしておりました・・・
で、HSP DirectSound Extension のこの内容であれば現在のHSP3であればほぼ同じことが可能ですから、あまりいまから使う意味は無いかもしれません。
なお、MI392DRV ですがこれは Sinagawa氏作の CWSDRV.DLL を利用させて頂いております。
このDLL自体にもMIDIファイル(SMF)を再生する機能がありますが、これは利用せず
DirectSound 操作系の機能だけを利用させて頂いております。目的にピッタリだったので。
演奏ルーチンなどは自前で書いて、演奏データもSMFではなくて独自の形式です。
CWSDRV 最初に知ったときにはこれで MML を解釈するだけでいけるか!?
…と思ったのですが、エンベロープの指定など不明な点も多く、一部説明書と異なるバグ?もあり
作者様にも連絡とったのですが長年無反応な様子なので、自分で全部書くことにしました。
CWSDRV はたぶんコントロールチェンジを独自拡張したんだろうなーとは思いましたが、
その解説が見当たらない上に、そもそもこれを使うにはMIDIの知識が必要です。
多くの人にとってハードル高いんじゃないかと思ったのです。
そこで、もっと手軽にできるような MI392DRV というシステムを開発しています。
昔の8bitパソコンにあったような PLAY文 並に手軽でかつ高機能なのを目指しています。
DirectSound の周波数変更(再生速度変更)がHSP3標準の hspogg あたりであればそれでも良かったんですがね。無いんですよねー。(過去に要望は出してありますが)
周波数変更は DirectSound の機能としてあるんで、それを呼ぶだけなんですが・・・
|
|
|
2024/3/17(Sun) 20:00:37|NO.101420
HSP DirectSound Extensiondだと、定位というかパンというか、
音の遠近などや右左などの調整ができたので重宝していたのですが、
HSPは進化していますから、新しいサンプルなどで、
できることのアップデートは必要ですね。
PLAY文懐かしいですね。もっぱらHSPですが、
そのまえにはMSXベーシックでPLAY文やってました。
展覧会の絵うちこんだり。
うちこむのがしんどいので（致命的）
音楽や音はもっぱらフリー素材です
|
|
|
2024/3/17(Sun) 20:39:13|NO.101421
きせんさんもMSXユーザーでしたか。
あの環境のPLAY文は手軽だった一方でいろいろ制限も大きかったので
最終的には MGSDRV とか OPLL-DRIVER とかで鳴らしていました。
特に後者はららこさん的にお気に入りだったので、
MI392DRV の大元の参考は OPLL-DRIVER かもしれません。
処理の基本的な考え方も一緒で、まずは専用のバイナリ形式に変換した後に演奏。
変換したバイナリデータは自分のソフトに組み込んで利用できます。OPLL-DRIVER と同じ。
後にMIDIもかなりやりましたが、これは楽器間の通信規格であって
音源などの環境を一致させないと他人様の環境では完全再現ができません。
(MIDIショボいと思われる原因のひとつがこれだと思うのです。)
そこで、すべてをソフト的にワンパッケージ化して、どんな環境でも
再現できるシステムがほしいと思ったわけです。
こういうのが欲しかったのは私自身なのですが、結局自分で納得するものは
自分で作るしかないという結論に至りました。
mucom88 でもよかったのですが、良くも悪くも PC-88 のFM音源なのと
複数の方の権利が絡んでる様子だったこともあり作ろうと思うに至りました。
余談ですが、元々は2000年くらいの頃に同じ手法で音源を作れないかテストしたのですが、
当時はマシンスペック的に無理があり、BGM用としては重いと判断してやめたのです。
技術的にはその当時思い描いていたものの焼き直しですが、やっと実現できそうです。
フリー素材でもいいのですが、やっぱり完全オリジナルを主張するには
音源とか音楽とか効果音とかもちゃんと作りたいなと思ったわけです。
|
|
|
2024/3/19(Tue) 23:38:20|NO.101427
>窓月ららさん
MIDIははまりませんでしたね。やってる手間のわりに音が悲しかったり、
やってる手段は正しい筈なのに思った結果にならなかったり。変換したりもしていましたが、
やはり好きな人がフリーでだしている物はいいですね。
それでも編集可なら、短くしたりはしています。
PC88は触らずに、PC98に行きました。
私の場合は音楽より、書く方でしたのでDRAW命令で書いてましたが、
音楽もそうですが、むかしは根気があったと思います。
|
|
|
2024/4/20(Sat) 17:30:32|NO.101576
MI392DRV の現時点のテストデモを再生リストにしましたー。
後日このリストに追加されていく予定です。
そろそろ音源部のプロセスを分離するのだ・・・
MI392DRV テスト演奏集 (開発中)
https://www.youtube.com/watch?v=ldf3uBxX_IM&list=PLfc9csZsswuF6kZD8c66RLaLZBDnL8PTj
>きせんさん
MIDIは音源環境によって操作方法も微妙に違ったり結構大変でした。
エクスクルーシブとかまるっきし機械語じゃないですかー。(ややこしい)
結局自分のところで演奏できても他人様のところで同じ環境を用意できないと再現できませんからね・・・
うちのところでは PC-9801FA/U2 とか /U7 とか今でも所持しているのですが
MSXのデータ管理用に使ってました。N88-BASIC はちょっとやったかな・・・
|
|
|
2024/7/23(Tue) 16:36:46|NO.101954
文字縁取りモジュール 1.0 をリリースしましたー。
HSP3アップデーターからもインストールすることができます。
mes命令を bmes に置き換えるだけで縁取り文字を描画できます。
標準命令しか使用していないため汎用性はあるかと思われます。
また、本モジュールには HSP3.51 などの旧バージョンでも rgbcolor命令が使用可能になるコードが含まれています。
https://miecat.com/hsp/index.html
|
|
|
2024/7/23(Tue) 22:21:29|NO.101959
縁取りは…その…HSP3.6以降は
font msgothic, 100,,5
objcolor 0,0,255
color 255
mes "縁取り", 4
|
|
|
2024/7/24(Wed) 12:13:34|NO.101961
>GENKIさん
教えてくれてありがとうなのだ。
草。
両方使ってみるのだ。
|
|
|
2024/7/24(Wed) 12:26:50|NO.101962
HSP標準の縁取り試したのですが、角が角ばってるのだ。直線なのだ。
速度的にもやはり時間かかってるのだ。(ららこさんのとあまり変わらない)
ららこさんのはちゃんと丸になるのだ・・・優位点あったのだ♪
|
|
|
2024/7/24(Wed) 18:36:56|NO.101964
ららさんの縁取り、きれいにできてますね。
どうやったのか見て勉強になりました。
QUALITY 16 で私なら良しとしそうですが、
32を推奨しているあたりに美意識を感じます
|
|
|
2024/7/24(Wed) 23:47:10|NO.101965
とても綺麗に縁取りされてますね。
ちょっと速度が気になったので、実験してみました。
窓月ららさんのソースにFPS値を取得するソースをプラス（すみません）して計測してみました。
bmesだとFPS値平均「33」になりました。
QUALITYを32から16に下げるとFPS値平均「38」になりました。
#include "mod_bmes.as"
#module
#define global ctype fps_get(%1 = 0) _fps_get (%1)
#deffunc fps_init
re_fps = 0
cnt_fps = 0
before_time = 0
after_time = 0
return
#defcfunc _fps_get int dummy
cnt_fps++
before_time = gettime(6)
if before_time != after_time {
re_fps = cnt_fps
cnt_fps = 0
after_time = before_time
}
return re_fps
#global
fps_init
repeat
redraw 0
rgbcolor $80A0A0: boxf: font "",45
bmes_init $FFFFFF,$000000,2 // 文字色,縁取り色,縁取り幅
pos 80,16
bmes "縁取りのテストなのだ!!\nどうかな？"
bmes "Microsoft Windows 10/11\n自由に使っていいのだ。\n(C)2024 窓月らら\n"
// ヒント: 上記は2行に分けていますが、1つにまとめてから bmes したほうが
// 速度的には有利です。
; bmes "改行しない場合。",1 // mes互換
repeat 4,1
bmes_init $FFFF00,$800000,cnt
bmes "これは、幅: "+cnt+" なのだ…。"
loop
redraw 1
title "" + fps_get()
await 16
loop
念のために標準のmes命令のあまり綺麗でない縁取りを同じ条件でFPS値を計測してみましたが、こちらはFPS値平均「61」出ています。
#module
#define global ctype fps_get(%1 = 0) _fps_get (%1)
#define colorref(%1) 0xff&(%1 >> 16), 0xff&(%1 >> 8), 0xff&%1
#deffunc d_font str font_name, int font_size, int font_style, int font_opt_size, int font_opt_color
font font_name, font_size, font_style, font_opt_size
objmode objmode_usecolor
objcolor colorref(font_opt_color)
return
#deffunc fps_init
re_fps = 0
cnt_fps = 0
before_time = 0
after_time = 0
return
#defcfunc _fps_get int dummy
cnt_fps++
before_time = gettime(6)
if before_time != after_time {
re_fps = cnt_fps
cnt_fps = 0
after_time = before_time
}
return re_fps
#global
fps_init
repeat
redraw 0
color 128, 128, 128 : boxf
d_font "", 45, , 2, $000000 ; "フォント名", フォントサイズ, スタイル, 縁取り/影の幅, 縁取り/影の色
color 255, 255, 255
pos 80,16
mes "縁取りのテストなのだ!!\nどうかな？", mesopt_outline
mes "Microsoft Windows 10/11\n自由に使っていいのだ。\n(C)2024 窓月らら\n", mesopt_outline
color 255, 255, 0
repeat 4,1
d_font "", 45, , cnt, $800000
mes "これは、幅: "+cnt+" なのだ…。", mesopt_outline
loop
redraw 1
title "" + fps_get()
await 16
loop
PCのスペックに関係してくるかとも思いますが、現状標準mesでの縁取りもあまり早くありませんので（マニュアルにも負荷がかかると書いてある）、スピードが求められるゲーム等の処理には少し厳しいかもしれません。
bmesが駄目だと言っているわけではないので、そこは勘違いのないようにお願いします。よく出来ていると思います。
長文失礼しました。
| |
|
|
2024/7/25(Thu) 00:59:11|NO.101966
テストありがとうなのだ。
それは説明書にも書いてますが、リアルタイム用途には向いてないのだ。
だから、起動時に buffer などに描いておいて以後はそこからコピーするなどの工夫がいる。
静止テキストをちょっと切り替える程度であれば問題ない速度だとは思いますけどね。
ようするに、mes命令というのはこれだけ重たいってことなんです。
レンダリングが必要だからね。
だから画像文字にしたほうが圧倒的に速くなるのだ。
|
|
|
2024/7/25(Thu) 01:25:29|NO.101967
ちなみに改良するならば・・・
縁取りの処理の1回目だけをmesで仮想画面に描画して、
以後の繰り返し描画を仮装画面からgcopyすれば実用的な速度になると思われます。
注意点は綺麗に描画するにはアルファチャンネルを適用する必要があるので
gmode 7 を使う必要がありそうだというところでしょうか。
ただしこの方法は HSP3Dish では使えないので、とりあえず互換性優先で書きました。
どちらかというと、ツール作成用に作ったのです。
|
|
|
2024/7/25(Thu) 02:33:06|NO.101968
上記の改良案、実装してみますね・・・
うまくいくかはやってみないとですけど、たぶん高速化できるのだ。
|
|
|
2024/7/25(Thu) 05:27:47|NO.101969
gmode 7 試して動作はしましたが、遅くなったー♪
おわりー。というわけで、ひとまず完成とします。
速度が必要な場合は毎フレームで呼び出さないで、仮想画面を使って工夫してください。
|
|
|
2024/7/25(Thu) 14:06:07|NO.101971
・・・と思ったらバッファ全体をコピーという間抜けなことをしていました;
そりゃ重いよ。というわけで、gmode 7 の改良続けてみますが、
それでもmesの縁取りよりは少し遅め。品質とのトレードオフだから仕方ないですけど。
うちの非力なノートPCでは+10FPSくらいの改善はみられてます。
フォント指定とか一部仕様が変わります・・・
そして1.1までの方式も使えるようコンパイルスイッチで切り替えを入れます。
|
|
|
2024/7/25(Thu) 23:38:09|NO.101986
文字縁取りモジュール Version 1.2
- 仮想画面上にキャッシュを作成して若干高速化
- キャッシュ無効化スイッチ MOD_BMES_CACHE_DISABLE を追加
- 多重include の防止を追加
- bmes_font を追加
- bmes_init → bmes_prm に変更
- bmes_prm に bmes実行後の gmode を指定するパラメータを追加
- HSP3Dish に正式対応
HSP3アップデーターでも配信しています。
https://miecat.com/hsp/index.html
|
|
|
2024/7/26(Fri) 01:32:07|NO.101988
説明書には書いてませんが、hgimg3/hgimg4 どちらでも動作します。
標準命令だけでやってるので、だいたい動くはずです。
|
|
|
2024/7/27(Sat) 13:40:13|NO.101991
縁取り文字モジュール 1.3 リリース
- 縁取り色セットの処理を最適化して若干高速化
- HGIMG4, HGIMG3 に正式対応
文字縁取りモジュール 1.4 リリース
次から次へと改良点が見つかったのだ・・・(寝てるときに気づく)
さすがにこれで完成のはず。
- 1.3 の最適化で更に改良点が見つかったので適用
- HSP3Dish, HGIMG4 の際 MOD_BMES_CACHE_DISABLE を自動適用
HSP3アップデーターでも配信しています。
https://miecat.com/hsp/index.html
|
|
|
2024/11/2(Sat) 22:14:34|NO.102509
msgcnv 2.0β2 リリース
- autorun に追加: データを保存、フォント画像を保存、終了
- dpi_aware オプションを追加 (SetProcessDPIAware)
- inバッファの自動確保を追加
- 上記追加に伴うサンプルの修正
- msgCreateInBuf の要素サイズ指定にバグがあったのを修正
↓
https://miecat.com/
バグあったから差し替えなのだ・・・
ちなみにβ3でルビに対応予定。
|
|
|
2024/11/3(Sun) 13:19:37|NO.102512
宣伝スレを新しく立てようとしたところこのスレを見かけたので
ありがたくそれと合わせて宣伝させていただきます。
qwerty-XX ver.2.20
WindowsXP以降
(Windows10,11が推奨、それ以前のOSは一部機能が制限されます。)
ランチャーアプリです。ただランチャーアプリの枠組みを超えて(？)、
簡単なカレンダー機能があったりなどロマンの域に達しています。
こちらからダウンロードできます： https://hoyoqwerty.github.io/index.html
|
|
|
2024/12/8(Sun) 02:31:16|NO.102666
GPBファイルのモーション部分のバイナリーテキスト変換ツールを
作りました。動作確認等よろしくお願いします。
スレッド「３Ｄモデルのコーナーを！」からの移動です。
スクリプトの内容は同じです
#include "hsp3utf.as"
; GPBﾌｧｲﾙのReferences部分のテキスト化
; GPBﾌｧｲﾙのアニメーション部分のテキスト化
#module
#defcfunc tofloat double p1
temp = p1
return lpeek(temp)>>29&7|(p1<0)<<31|lpeek(temp,4)-(p1!0)*0x38000000<<3
#defcfunc todouble int p1
temp = 0.0
lpoke temp, 4, (p1 & 0x80000000) | (((p1 & 0x7fffffff) >> 3) + ((p1 & 0x7fffffff) ! 0) * 0x38000000)
lpoke temp, 0, p1 << 29
return temp
#global
screen 0,800,480
dialog "gpb",16,"gpbﾌｧｲﾙ"
if stat=0 : goto *error
exist refstr
input_file_size=strsize
text_file_size=0
sdim input_file,strsize
sdim output_file,strsize
sdim ref_file,65536*10
sdim ref_file1,65536*10
sdim ref_file2,65536*10
sdim ref_file3,65536*10
sdim str_buf,256
sdim str_buf_mo,256
sdim int_buf,8
sdim hex_buf,8
sdim anim_name,50,1000
dim anim_name_len,1000
sdim id_ref,50,1000
dim id_len_ref,1000
dim type_ref,1000
dim offset_ref,1000
dim serial_ref,1000
dim file_start,8,1000
; 1 1 2 2 3 3 4 4 5
; 0 5 0 5 0 5 0 5 0 5 0
str_buf=" verline serial type offset idframes"
bload refstr,input_file
;Header Identifier
;
;Reference 読み込み
input_file_adr=1 : ref_file_adr=0
lpoke ref_file,ref_file_adr,lpeek(input_file,input_file_adr)
ref_file_adr+=3
mes_put1 ' ' ; 計４バイト
; Version 書き込み
mes_put4 9 ;" ver" 書き込み
mes_put1 '0'+peek(input_file,0x9)
mes_put1 '.'
mes_put1 '0'+peek(input_file,0xa)
mes_put1 ' ' ; 計８バイト
;line数 書き込み
input_file_adr=0x0b ; offset 0x0b References
index_val=lpeek(input_file,input_file_adr) : input_file_adr+=4; index_val=line数
str_buf=strf("%4d",index_val)
mes_put4 0
mes_put1 ' '
mes_put4 13;"line" 書き込み
mes_put1 ' '
mes_put2 0x0a0d ;計１２バイト
repeat 6;"serial type offset id" 書き込み
mes_put4 cnt*4+21
loop
mes_put2 0x0a0d;計２６バイト 合計５０バイト
;index 読み込み
serial_num=0
repeat index_val
index=cnt
;serial_num
serial_ref(index)=serial_num : serial_num+
;id string
str_len=lpeek(input_file,input_file_adr) : input_file_adr+=4
if str_len>256 : str_len=256
ref_adr=0
repeat str_len
poke id_ref(index),ref_adr,peek(input_file,input_file_adr) :ref_adr+ : input_file_adr++
loop
id_len_ref(index)=ref_adr
;type
lpoke int_val,0,lpeek(input_file,input_file_adr) : input_file_adr+=4
type_ref(index)=int_val
;offset アドレス
lpoke hex_val,0,lpeek(input_file,input_file_adr) : input_file_adr+=4
offset_ref(index)=hex_val
;if int_val=34 : test_val=hex_val : test_val=0xce00
if int_val=3 : input_file_adr_bak=hex_val ; アニメーション id
loop
;オフセット ソート
;何故かidがオフセット順に並んでいないのでソートする
repeat index_val,1
c=cnt
repeat index_val-c
index=cnt
if offset_ref(index)>offset_ref(index+1) {
b=offset_ref(index) : offset_ref(index)=offset_ref(index+1) : offset_ref(index+1)=b
b=serial_ref(index) : serial_ref(index)=serial_ref(index+1) : serial_ref(index+1)=b
b=type_ref(index) : type_ref(index)=type_ref(index+1) : type_ref(index+1)=b
}
loop
loop
;Reference 文字数計算
id_len_val=0
repeat index_val
id_len_val=id_len_val+id_len_ref(cnt)
loop
id_len_val=id_len_val+index_val*24+50
;Reference
;GPBﾌｧｲﾙ mesbox References 書き込み
repeat index_val
index=cnt
;serial_num
str_buf=strf("%4d",serial_ref(index))
mes_put1 ' '
mes_put4 0
mes_put1 ' ';計６バイト
;type
str_buf=strf("%4d",type_ref(index))
mes_put1 ' '
mes_put4 0
mes_put1 ' ';計６バイト
;offset アドレス
str_buf=strf("%8x",offset_ref(index))
mes_put4 0
mes_put4 4
mes_put1 ' '
mes_put1 ' ';計１０バイト
;id string
repeat 50
b=peek(id_ref(serial_ref(index)),cnt)
if b=0 : break
poke ref_file,ref_file_adr,b
ref_file_adr+
loop
mes_put2 0x0a0d;改行 idバイト数＋２バイト 計２４バイト ＋ idバイト数
loop
repeat ref_file_adr ; mesbox用 コピー
poke ref_file1,cnt,peek(ref_file,cnt)
loop
font "ＭＳ ゴシック",16
objmode 2
pos 10,0 : mes "入力ファイル "+refstr
pos 10,20 : mes " GPBﾌｧｲﾙ References部 "
pos 10,40 : objsize 340,200 : mesbox ref_file1,,,4
if input_file_adr_bak=0 : stop;アニメーション部 なければストップ"
;アニメーション部 ボーン名 初期設定
id_len_val=0
repeat 2
loop_count=cnt
ref_file_adr=0
input_file_adr=input_file_adr_bak
sys_flg1 = lpeek(input_file,input_file_adr)
input_file_adr+=4
repeat
index=cnt
file_start(0,index)=input_file_adr
anim_name_count=0
repeat 2
if cnt=1 { sys_flg1--
if sys_flg1<0 : break
if loop_count=0 : id_len_val+=2
if loop_count=1 : mes_put2 0x2020:lpoke anim_name(index),anim_name_count,0x2020:anim_name_count+=2
input_file_adr+=4
}
str_len=lpeek(input_file,input_file_adr) : input_file_adr+=4
if str_len>100 : str_len=100
repeat str_len
if loop_count=0 : id_len_val++
if loop_count=1 : mes_put1 peek(input_file,input_file_adr)
poke anim_name(index),anim_name_count,peek(input_file,input_file_adr)
input_file_adr++
anim_name_count++
loop
loop
anim_name_len(index)=anim_name_count
input_file_adr+=4
if loop_count=0 : id_len_val+=2
if loop_count=1 : mes_put2 0x0a0d
file_start(1,index)=input_file_adr;キーフレームタイム部先頭アドレス
input_file_adr+=lpeek(input_file,input_file_adr)*4 : input_file_adr+=4
file_start(2,index)=input_file_adr;キーフレーム vec 部先頭アドレス キーフレーム数×７×４ float
input_file_adr+=lpeek(input_file,input_file_adr)*4 : input_file_adr+=4
file_start(3,index)=input_file_adr;最終部先頭アドレス
input_file_adr+=16
if input_file_size<=input_file_adr :file_start(0,index+1)=input_file_adr : break
loop
if loop_count=0 : title " "+id_len_val+" "+lpeek(input_file,file_start(1,0))
loop
test_a=index+1
repeat ref_file_adr ; mesbox用 コピー
poke ref_file2,cnt,peek(ref_file,cnt)
loop
pos 380,20 : mes "GPBﾌｧｲﾙ アニメーション部 ボーン名"
pos 380,40 : objsize 240,200 : mesbox ref_file2,,,4
; アニメーション モーションデータテキスト書き出し
; 1 1 2 2 3 3 4 4 5 6 7 8 9 10
; 0 5 0 5 0 5 0 5 0 5 0 5 0 5 0 5 0 5 0 5 0
str_buf_mo="keyTimes uint[] (milliseconds) valuesfloat[] tangents_in float[] tangents_out float[] interpolation uint[]"
ref_file_adr=0
id_len_val=0
test=test_a
repeat 2
loop_count=cnt
repeat 105
if loop_count=1 : mes_put1 peek(str_buf_mo,cnt)
loop
if loop_count=1 : mes_put2 0x0a0d
repeat test
index=cnt
str_len=anim_name_len(index)
input_file_adr1=file_start(1,index)
str_len1=lpeek(input_file,input_file_adr1):input_file_adr1+=4
input_file_adr2=file_start(2,index)
str_len2=lpeek(input_file,input_file_adr2):input_file_adr2+=4
len_val=str_len2/str_len1
repeat str_len
if loop_count=0 : id_len_val++
if loop_count=1 : mes_put1 peek(anim_name(index),cnt)
loop
if loop_count=0 : id_len_val+=2
if loop_count=1 : mes_put2 0x0a0d
repeat str_len2/len_val
if loop_count=0 : id_len_val+=10
if loop_count=1 {
str_buf=strf("%8u",lpeek(input_file,input_file_adr1)):input_file_adr1+=4
mes_put4 0 : mes_put4 4 : mes_put2 0x2020
}
repeat len_val-1
if loop_count=0 : id_len_val+=10
if loop_count=1 {
str_buf=strf("%5.10f",todouble(lpeek(input_file,input_file_adr2))):input_file_adr2+=4
mes_put4 0 : mes_put4 4 : mes_put2 0x2020
}
loop
repeat 1
if loop_count=0 : id_len_val+=10
if loop_count=1 {
str_buf=strf("%5.10f",todouble(lpeek(input_file,input_file_adr2))):input_file_adr2+=4
mes_put4 0 : mes_put4 4 : mes_put2 0x2020
}
loop
if loop_count=0 : id_len_val+=2
if loop_count=1 : mes_put2 0x0a0d
loop
if loop_count=0 : id_len_val+=2
if loop_count=1 : mes_put2 0x0a0d
if loop_count=1 : title " "+id_len_val_m+" "+ref_file_adr : await 10
loop
if loop_count=0 {
id_len_val_m=id_len_val
title " "+id_len_val
sdim ref_file,id_len_val+10000
pos 100,300 : objsize 200,100
button goto "変換",*next_flg
stop
*next_flg
}
loop
clrobj 2
pos 400,300
objsize 200,100
button goto "記録",*save_file
stop
*save_file
dialog "txt",17,"txtﾌｧｲﾙ"
if stat=0 : goto *error
bsave refstr,ref_file,ref_file_adr
*error
end
#deffunc mes_put1 int a
poke ref_file,ref_file_adr,a : ref_file_adr+
return
#deffunc mes_put2 int a
wpoke ref_file,ref_file_adr,a : ref_file_adr+=2
return
#deffunc mes_put3 int a
lpoke ref_file,ref_file_adr,lpeek(str_buf_mo,a) : ref_file_adr+=4
return
#deffunc mes_put4 int a
lpoke ref_file,ref_file_adr,lpeek(str_buf,a) : ref_file_adr+=4
return
| |
|
自作アプリ・開発ツール等宣伝スレ
