HSP

HSPに投稿されたコード一覧

みんな遅い遅いって言うから高速動作するstrmid作ったよ

strmidと置き換えるだけで使えます。右から取り出す場合はstrlenが重くてどうしようもありませんでした。(´・ω・`)
strmidと置き換えるだけで使えます。右から取り出す場合はstrlenが重くてどうしようもありませんでした。(´・ω・`)
// 
// [ Infomation ]
//  Name      : 高速strmid
//  SubName   : 
//  Version   : 1.00
コードを見る

矩形敷き詰め問題

矩形(デフォルトで正方形)をなるべく隙間が出来ないように左上から敷き詰める。 画面をスプレッドシートとして扱い、空き領域を「セル」として管理する。
矩形(デフォルトで正方形)をなるべく隙間が出来ないように左上から敷き詰める。 画面をスプレッドシートとして扱い、空き領域を「セル」として管理する。
/*
	矩形敷き詰め問題
	
	 表計算ソフトのシートの要領で空き領域を管理する。
	爆速だけどメモリ消費が多い(100個の矩形で6MB程)。
コードを見る
  • タグ:
  • タグはありません

テキストルーレット

この前作ったXorShiftモジュールを使ってざっくりと適当に作った。
この前作ったXorShiftモジュールを使ってざっくりと適当に作った。
#cmpopt varinit 1
#packopt name "txtLret"
#packopt xsize 600,ysize 400
#include "XorShift.as"

コードを見る
  • タグ:
  • タグはありません

モジュール変数を別の変数へ移動させる

インスタンスを移動させるためのモジュールとサンプルです。 ランタイムの管理から外れるので、丁寧に扱ってください。
インスタンスを移動させるためのモジュールとサンプルです。 ランタイムの管理から外れるので、丁寧に扱ってください。
	//自由に使ってください。tds12
	#module m a
	#modinit int _a
		a = _a
	return
コードを見る

【HSP3】strrep命令を入れ子(ネスト)にすると、意図した動作をしない

バグではなくて、仕様なのかもしれませんが。。。hsp3.5 beta2 にて確認。
バグではなくて、仕様なのかもしれませんが。。。hsp3.5 beta2 にて確認。
#module _Mod_HTML_
// 指定された文字列のHTMLエスケープを行います
#defcfunc escapeHtml str html, \
	local tmp
;
コードを見る
  • hk1v
  • 2015/11/28 12:23
  • タグ:
  • タグはありません

変数引数に値を渡す

リテラルのポインタを得る関数があればコピーなしで運べるのに。
リテラルのポインタを得る関数があればコピーなしで運べるのに。
#module
// 文字列への参照を作る関数
#define global ctype ref_xs(%1) \
	%t__ref %i0 \
	%p@__ref(ref_xs_@__ref(%1, %p@__ref)) \
コードを見る
  • タグ:
  • タグはありません

二重振り子RK4シミュonHSP(修正版2)

修正版1のRK4で大ポカをやらかしていました…。 (全エネルギーが徐々に減っていたのは誤差なんかじゃなかった…。) 多分これで最後の修正になります。
修正版1のRK4で大ポカをやらかしていました…。 (全エネルギーが徐々に減っていたのは誤差なんかじゃなかった…。) 多分これで最後の修正になります。
#include "hsp3dish.as"
#packopt name "DPRK4"

/* モジュール認識 */
modDetect@mod_simuCfg
コードを見る

二重振り子RK4シミュonHSP(修正版1)

前回のコードのミスを修正しました。 自然な動きになっています。 バックグラウンドが気になる人は↓をどうぞ。 EOM : https://drive.google.com/open?id=0B6dSvF...
前回のコードのミスを修正しました。 自然な動きになっています。 バックグラウンドが気になる人は↓をどうぞ。 EOM : https://drive.google.com/open?id=0B6dSvF...
#packopt name "expt"

*mkwnds
	#define wsizex 800
	#define wsizey 600
コードを見る