※タイトル 図形を回転したり座標を回転する機能 ※作者 スクリプツ・ラボ有限会社 ※ 改訂記録 ※ ※ 2026.10.02 Mind9のguilubの拡張機能として作成 ※ 当面は本ソース単独で使います。アプリケーションからは ※ [ "rotate.src"を コンパイル。 ] ※ の形で利用してください。 ※ 2026.10.10 「中心と半径と角度を指定し直線のＩＤを取得」を ※ test-rotate.src 内からこちらに移動した。 ※ 改訂終り ※ グローバル。 座標群を捨てるとは （Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、・・、座標数 → ・） （個数を） 二倍し イベント引数を捨てる 。 透過的に多点座標をダンプとは （Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、・・、座標数 → <同左>） ＿個数は 変数 ＿位置は 変数 複写し 二倍したものを ＿個数に 入れ ＿個数を ＿位置に 入れ ※←一番奥から処理する ＿個数が ゼロ？ ならば 「なし」を 一行表示し 終り つぎに ＿個数を ２で 割り 回数指定し （TOS=パラメータ１、パラメータ２、・・、座標数） 回数が １より 大きい ならば 「 | 」を 表示し つぎに ＿位置で 個数含みｎ番目のデータを得て 数値表示し 「,」を 表示し ＿位置から 一つ引き 個数含みｎ番目のデータを得て 数値表示し ２だけ ＿位置を 減少し 繰り返し 改行し 。 多点座標をダンプとは （Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、・・、座標数 → ・） 透過的に多点座標をダンプし 座標群を捨てる 。 座標変換最大は 数値 ５０。 ローカル。 透過的に座標の個数をチェックとは 処理単語 .N （個数 → 個数、真偽） 複写したものが １から 座標変換最大の 範囲？。 このメッセージで透過的に座標の個数を検証とは 処理単語 NS XSW （個数 → 個数） ErrorMessageは 文字列 ErrorMessageに 入れ 透過的に座標の個数をチェックし 偽？ ならば （個数を） 捨て ErrorMessageで 重大エラー つぎに 。 ピクセル位置を検証とは （XまたはY → 真偽） ※−−−−−−−−−−−−−−−−−−−−−−−−−−−※ ※ 注：呼び出し側では変数に代入する前にこれを呼ぶこと ※ ※ （文字列かも知れないという検査をおこなうため） ※ ※−−−−−−−−−−−−−−−−−−−−−−−−−−−※ 複写し バイト数フィールドが ゼロ以外 ならば ※−−−−−−−−−※ ※ 文字列はエラー ※ ※−−−−−−−−−※ 捨て 偽を 返し 終り つぎに ※−−−−※ ※ 整数 ※ ※−−−−※ 絶対値をとり ０から 画面縦横最高の 範囲？ でなければ ※−−−−−−−−−−−※ ※ サイズが過小・過大 ※ ※−−−−−−−−−−−※ 偽を 返し 終り つぎに 真を 返すこと。 透過的にＸ／Ｙ位置を検証とは （Ｘ位置、Ｙ位置 → [Ｘ位置、Ｙ位置、真] | 偽） （TOS=Ｘsize、Ｙsize） 交換し （TOS=Ｙsize、Ｘsize） 複写し ピクセル位置を検証し 偽？ ならば 二つ捨て （TOS=空） 偽を 返し 終り つぎに 交換し （TOS=Ｘsize、Ｙsize） 複写し ピクセル位置を検証し 偽？ ならば 二つ捨て （TOS=空） 偽を 返し 終り つぎに （TOS=Ｘsize、Ｙsize） 真を 返すこと 。 一つの座標を回転とは （Ｘ、Ｙ、中心Ｘ、中心Ｙ、sin積、cos積 → Ｘ、Ｙ） ＿Ｘ座標は 変数 ＿Ｙ座標は 変数 ＿中心Ｘは 変数 ＿中心Ｙは 変数 ＿相対Ｘは 変数 ＿相対Ｙは 変数 ＿sin積は 小数変数 ＿cos積は 小数変数 ＿Ｘ座標と ＿Ｙ座標と ＿中心Ｘと ＿中心Ｙと ＿sin積と ＿cos積に 入れ [＿相対Ｘ := ＿Ｘ座標 − ＿中心Ｘ] [＿相対Ｙ := ＿Ｙ座標 − ＿中心Ｙ] [＿相対Ｘ * ＿cos積 − ＿相対Ｙ * ＿sin積 ]を 整数化し ＿中心Ｘを 加え [＿相対Ｘ * ＿sin積 ＋ ＿相対Ｙ * ＿cos積 ]を 整数化し ＿中心Ｙを 加え 。 グローバル。 座標群を回転とは 処理単語 NN XSW （Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・ 座標数、中心Ｘ、中心Ｙ、角度 → Ｘ１、Ｙ１、Ｘ２、Ｙ２、個数） ＿個数は 変数 ＿中心Ｘは 変数 ＿中心Ｙは 変数 ＿角度は 変数 ＿角度小数は 小数変数 ＿θは 小数変数 ＿sin積は 小数変数 ＿cos積は 小数変数 ＿座標位置は 変数 ＿元のＸは 変数 ＿元のＹは 変数 変換後Ｘは 座標変換最大の 変数 変換後Ｙは 座標変換最大の 変数 ※ 文言個数は 「座標群を回転に与える座標個数が誤りです」 ※ 文言座標は 「座標群を回転に与える座標が誤りです」 ※ 文言ＩＤは 「座標群を回転に与える図形ＩＤが誤りです」 ※ 本体とは （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、個数、中心Ｘ、中心Ｙ、角度） ＿中心Ｘと ＿中心Ｙと ＿角度に 入れ （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、個数） 文言個数で このメッセージで透過的に座標の個数を検証し 複写し ＿個数に 入れ （個数を） 捨て ※ ＿角度を 小数化し ＿角度小数に 入れ radian(＿角度小数)を ＿θに 入れ 0.0から sin(_θ)を ｆ引き ＿sin積に 入れ ※←数学とはY軸が逆なので補正 cos(_θ)を ＿cos積に 入れ （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・） ＿個数を ＿座標位置に 入れ ＿個数を 回数指定し 透過的にＸ／Ｙ位置を検証し 偽？ ならば 文言座標で 重大エラー つぎに ＿元のＸと ＿元のＹに 入れ ＿元のＸと ＿元のＹをつみ ＿中心Ｘと ＿中心Ｙをつみ ＿sin積と ＿cos積をつみ 一つの座標を回転し 変換後Ｘ（＿座標位置）と 変換後Ｙ（＿座標位置）に 入れ ＿座標位置を 一つ減少し 繰り返し ※ （TOS=空） ＿個数を 回数指定し 変換後Ｘ（回数）と 変換後Ｙ（回数）をつみ 繰り返し ＿個数といっしょに 返す 。 透過的に多点座標の中心を計算とは 処理単語 NN XSW （Ｘ１、Ｙ１、Ｘ２、Ｙ２、・・、座標数 → Ｘ１、Ｙ１、Ｘ２、Ｙ２、・・、座標数） ＿座標数は 変数 ＿Ｘは 変数 ＿Ｙは 変数 ＿累積Ｘは 変数 ＿累積Ｙは 変数 ＿位置は 変数 ※ 文言個数は 「透過的に多点座標の中心を計算に与える座標個数が誤りです」 ※ 文言座標は 「透過的に多点座標の中心を計算に与える座標が誤りです」 ※ 文言ＩＤは 「透過的に多点座標の中心を計算に与える図形ＩＤが誤りです」 ※ 本体とは （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２、・・、座標数） 文言個数で このメッセージで透過的に座標の個数を検証し 複写し ＿座標数に 入れ ※ （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２、・・、座標数） ＿累積Ｘを クリアし ＿累積Ｙを クリアし ＿座標数を 二倍し ＿位置に 入れ ※←一番奥から処理する ＿座標数を 回数指定し （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２、・・、座標数） ＿位置で 個数含みｎ番目のデータを得て ＿Ｘに 入れ ＿位置を 一つ引き 個数含みｎ番目のデータを得て ＿Ｙに 入れ ＿Ｘと ＿Ｙをつみ 透過的にＸ／Ｙ位置を検証し 偽？ ならば 文言座標で 重大エラー つぎに （スタックのＸとＹを） 二つ捨て ＿累積Ｘに ＿Ｘを 加え ＿累積Ｘに 入れ ＿累積Ｙに ＿Ｙを 加え ＿累積Ｙに 入れ ２だけ ＿位置を 減少し 繰り返し ※ （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、座標数） ＿累積Ｘをつみ ＿座標数で 割り ＿累積Ｙをつみ ＿座標数で 割り （TOS=Ｘ１、Ｙ１、Ｘ２、Ｙ２ ・・、座標数、中心Ｘ、中心Ｙ） 。 極座標を直交座標に変換とは （原点Ｘ、原点Ｙ、距離、角度 → Ｘ、Ｙ） 原点Ｘは 変数 原点Ｙは 変数 距離は 変数 角度は 変数 原点Ｘと 原点Ｙと 距離と 角度に 入れ 「極座標を直交座標に変換との入口」で このメッセージでスタック検査し ※／￣￣￣￣￣￣￣￣￣￣￣￣＼※ [原点Ｘ + 距離] [ 原点Ｙ ]と １個をつみ 原点Ｘ、原点Ｙ 角度で 座標群を回転し ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿／※ （TOS=Ｘ，Ｙ、個数） （個数を） 捨て （TOS=Ｘ，Ｙ） 。 ※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※ ※ 直線の中央座標と半径（長さの半分）を ※ ※ 指定するような描画のための処理単語 ※ 中心と半径と角度を指定し直線のＩＤを取得とは （キャンバスＩＤ、中心Ｘ、中心Ｙ、半径、角度 → 図形ＩＤ） ＿キャンバスは 変数 中心Ｘは 変数 中心Ｙは 変数 半径１は 変数 角度は 変数 ＿左端Ｘは 変数 ＿左端Ｙは 変数 ＿右端Ｘは 変数 ＿右端Ｙは 変数 ＿キャンバスと 中心Ｘと 中心Ｙと 半径１と 角度に 入れ 「中心と半径と角度を指定し直線のＩＤを取得の入口」で このメッセージでスタック検査し ＿キャンバスをつみ ※／￣￣￣￣￣￣￣￣￣￣￣￣＼※ 中心Ｘから 半径１を 引き 中心Ｙをつみ 中心Ｘに 半径１を 加え、 中心Ｙをつみ ２個をつみ 中心Ｘと 中心Ｙと 角度で 座標群を回転し ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿／※ （TOS=キャンバス、Ｘ１，Ｙ１，Ｘ２，Ｙ２、個数） （個数を） 捨て （TOS=キャンバス、Ｘ１，Ｙ１，Ｘ２，Ｙ２） 直線のＩＤを取得すること 。 ※ ※ ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※ ※ 終り（rotate.src） ※