はじめに
年配の方はどこかで見たことがある絵だと思われたかもしれません。
昔、日経さんが企業の成績を人の顔に見立てる「NEEDS FACE」（綴りが違うかもしれません）という手法を使われていていました。グラフィックを使うサンプルプログラムとして面白いと思ったので、よく似た絵を使うことを日経さんから許諾を得て作成し「Mind」という日本語プログラミング言語の初版(1985年)を出す時にこのサンプルプログラムをパッケージに含めました。
本家さんと同じようにポイントはパラメータによって顔が変化する点です。目の傾きと口の上げ下げを変化させられ、これにより「元気な顔」と「困った顔」の２種を描画しています。
プログラム表記
さて、仕掛けや見栄えは後回しにしてプログラムの上位部（メインのあたり）に注目してください。
～略～
顔全体をかくとは
顔の下地をかき
目をかき 眉をかき 鼻をかき 口をかくこと。
メインとは
キャンバスを設置処理し
既定値設定し
顔位置を左に設定し 元気な顔を設定し 顔全体をかく
顔位置を右に設定し 困った顔を設定し 顔全体をかくこと。
Mindをまったく知らない方でも、上のプログラムを見ればこれが何をしようとしているかお分かりになるかと思います。
一般的なプログラム（コードと言わずにあえてプログラムと言います）の表記とは違うなと、あるいは「これプログラムなの？」と思われるかもしれません。
他方、一般的なプログラムでは日本語ではなく英字が使われています（あえて「英語で」とは言いません）、ほかに記号が多く使われます。( ) とか ; とか { } などの記号です。
上のMindのプログラムではそれらすべて登場しないことで「プログラムのように見えない」のですが、これで正しく動作するなら一般的なプログラミング言語で多用される記号のようなものはプログラムの本質ではない（本当はプログラムとしては必要ない）ことが分かっていただけると思います。
私の考える「プログラム」の定義は「コンピュータへの指示を文字として表したもの」です。上記はその通りになっています。プログラムって本質を突き詰めればこんなもので、あまり大上段に構える必要は無いのですね。
プログラムの説明
大昔のMind初版（PC-9801用のグラフィック用）用に書かれたものをMind9（Mind Version 9）向け修正したものです。
顔の輪郭（下地）は２つの円を重ねて表現します。旧プログラムはタイル機能を使って疑似的に肌色を出していましたが今やその必要は無いので直接に肌色を使って塗りつぶします。
目は、眉と目本体に分かれます。
眉は直線を傾けて描きます。外付けの図形回転ライブラリを使っています。
目本体のうち白目部分は同じ座標回転で斜めの楕円を描いています。黒目は円なので回転しても同じなので変化させる必要はありません。
口は円弧を使いますが、中心点を口の上に置くか下に置くかで変化させています。
━━━━━━━━━━━━━━━━┓
┃ ソースコード(face2.src) を表示 ┃
┗━━━━━━━━━━━━━━━━┛
※タイトル Mindサンプルプログラム - 元気な顔と困った顔
※ファイル名 face2
※ライブラリ gullib
※副ソース
※ Copyright (C) 1985 Rigy Corporation ※
※ Copyright (C) 2026 Scripts Lab Inc. ※
※説明 グラフィックを使って元気な顔と困った顔を画面に表示します
※ 改訂記録 ※
※ 2026.09.15 Mind9向けに修正
※ 2026.10.10 9801libは使わず、guilib直結にする
※ 関連し、座標のＹ,Ｘ のスタック積みをＸ,Ｙの順に変更
※ 改訂終り ※
"rotate.src"を コンパイルする。
キャンバスの右下座標は ６４０と ４００。 ※9801のディスプレイサイズ
キャンバスＩＤは ＩＤ。
キャンバスを設置処理とは （・ → ・）
※
親ＩＤ・サイズ・背景色を積むとは （・ → Ｘサイズ、Ｙサイズ）
メインウィンドゥをつみ
キャンバスの右下座標をつみ
黒色をつむ
※
本体とは
親ＩＤ・サイズ・背景色を積み キャンバスを立て キャンバスＩＤに 入れること。
描画色は 文字列実体 長さ ２４桁。
角度は 変数。 ※単位は度
※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※
回転角設定とは （回転角(度) －－＞ ・）
角度に 入れること。
※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※
開始角度は 変数。
終了角度は 変数。
※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※
開始／終了角設定とは （開始角、終了角 －－＞ ・）
開始角度と 終了角度に 入れること。
※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※
画面中心Ｘは 変数。
画面中心Ｙは 変数。
※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※
顔位置モードは 変数。 （０：左 １：右）
顔Ｘ位置は （・ → Ｘ位置）
顔位置モードが 真？
ならば ４８０をつみ
さもなければ
１６０をつみ
つぎに。
顔Ｙ位置は （・ → Ｙ位置）
画面中心Ｙを 返すこと。
顔位置を左に設定とは
顔位置モードを クリア。
顔位置を右に設定とは
１を 顔位置モードに 入れる。
※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※
顔サイズは ワード変数。
顔上下長さ％は ワード変数。
顔上半分Ｙ半径％は ワード変数。
顔上半分Ｘ半径％は ワード変数。
顔下半分Ｙ半径％は ワード変数。
顔下半分Ｘ半径％は ワード変数。
顔サイズ既定値は 数値 １００。
顔上下長さ％既定値は 数値 ３５。
顔上半分Ｙ半径％既定値は 数値 １００。
顔上半分Ｘ半径％既定値は 数値 １２０。
顔下半分Ｙ半径％既定値は 数値 １１５。
顔下半分Ｘ半径％既定値は 数値 １３０。
顔下地既定値設定とは
顔サイズ既定値を 顔サイズに 入れる
顔上下長さ％既定値を 顔上下長さ％に 入れる
顔上半分Ｙ半径％既定値を 顔上半分Ｙ半径％に 入れる
顔上半分Ｘ半径％既定値を 顔上半分Ｘ半径％に 入れる
顔下半分Ｙ半径％既定値を 顔下半分Ｙ半径％に 入れる
顔下半分Ｘ半径％既定値を 顔下半分Ｘ半径％に 入れる。
％補正とは
（値、％値 －－＞ 値）
掛け １００で 割る。
顔上下長さは 顔サイズを 顔上下長さ％で ％補正し。
顔上半分Ｙ半径は 顔サイズを 顔上半分Ｙ半径％で ％補正し。
顔上半分Ｘ半径は 顔サイズを 顔上半分Ｘ半径％で ％補正し。
顔下半分Ｙ半径は 顔サイズを 顔下半分Ｙ半径％で ％補正し。
顔下半分Ｘ半径は 顔サイズを 顔下半分Ｘ半径％で ％補正し。
顔上半分Ｙ位置は
顔Ｙ位置から 顔上下長さを 引いたもの。
顔下半分Ｙ位置は
顔Ｙ位置に 顔上下長さを 加えたもの。
楕円を塗るとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 －－＞ ・）
中心Ｘは 変数
中心Ｙは 変数
Ｘ半径は 変数
Ｙ半径は 変数
左上Ｘは 変数
左上Ｙは 変数
右下Ｘは 変数
右下Ｙは 変数
楕円ＩＤは 図形ＩＤ
※ ※
※ 枠線は抑制 ※
※ ※
中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径に 入れ
※
[ 左上Ｘ := 中心Ｘ - Ｘ半径 ]
[ 左上Ｙ := 中心Ｙ - Ｙ半径 ]
[ 右下Ｘ := 中心Ｘ + Ｘ半径 ]
[ 右下Ｙ := 中心Ｙ + Ｙ半径 ]
キャンバスＩＤと
左上Ｘと 左上Ｙと 右下Ｘと 右下Ｙで
楕円のＩＤを取得し 楕円ＩＤに 入れ
０を 楕円ＩＤに 線の太さを設定し
描画色を 楕円ＩＤに 満たす色を設定し
楕円ＩＤを 描画し
。
顔の下地をかくとは
「#fce2c4」を 描画色に 入れ ※←肌色
顔Ｘ位置と 顔上半分Ｙ位置に 顔上半分Ｘ半径と 顔上半分Ｙ半径で、
楕円を塗る
顔Ｘ位置と 顔下半分Ｙ位置に 顔下半分Ｘ半径と 顔下半分Ｙ半径で、
楕円を塗る
。
目上方向％は ワード変数。
目左右％は ワード変数。
目Ｙ半径％は ワード変数。
目Ｘ半径％は ワード変数。
瞳半径％は ワード変数。
目上がり角度は 変数。
眉上方向％は ワード変数。
目上方向％既定値は 数値 ２３。
目左右％既定値は 数値 ４０。
目Ｙ半径％既定値は 数値 １０。
目Ｘ半径％既定値は 数値 ２３。
瞳半径％既定値は 数値 ６。
目上がり角度既定値は 数値 ７。
眉上方向％既定値は 数値 ２７。
目既定値設定とは
目上方向％既定値を 目上方向％に 入れる
目左右％既定値を 目左右％に 入れる
目Ｙ半径％既定値を 目Ｙ半径％に 入れる
目Ｘ半径％既定値を 目Ｘ半径％に 入れる
瞳半径％既定値を 瞳半径％に 入れる
目上がり角度既定値を 目上がり角度に 入れる
眉上方向％既定値を 眉上方向％に 入れる。
目上方向オフセットは
顔上半分Ｙ半径の 目上方向％で ％補正し。
目左右オフセットは
顔上半分Ｘ半径の 目左右％で ％補正し。
目Ｘ半径は
顔上半分Ｘ半径の 目Ｘ半径％で ％補正し。
目Ｙ半径は
顔上半分Ｘ半径の 目Ｙ半径％で ％補正し。
瞳半径は
顔上半分Ｘ半径の 瞳半径％で ％補正し。
目Ｙ位置は
顔Ｙ位置から 目上方向オフセットを 引く。
左目Ｘ位置は
顔Ｘ位置から 目左右オフセットを 引く。
右目Ｘ位置は
顔Ｘ位置に 目左右オフセットを 加える。
鼻上端％は ワード変数。
鼻長さ％は ワード変数。
口上がり角度は 変数。
口Ｙ位置％は ワード変数。
口長さ％は ワード変数。
鼻上端％既定値は 数値 ３０。
鼻長さ％既定値は 数値 ５０。
口上がり角度既定値は 数値 １０。
口Ｙ位置％既定値は 数値 ６５。
口長さ％既定値は 数値 ６０。
鼻と口既定値設定とは
鼻上端％既定値を 鼻上端％に 入れる
鼻長さ％既定値を 鼻長さ％に 入れる
口上がり角度既定値を 口上がり角度に 入れる
口Ｙ位置％既定値を 口Ｙ位置％に 入れる
口長さ％既定値を 口長さ％に 入れる。
※※※※ 目をかく ※※※※
円半径は 変数。
左上Ｙ座標は 変数。
左上Ｘ座標は 変数。
右下Ｙ座標は 変数。
右下Ｘ座標は 変数。
斜めの楕円を描くとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径、角度 → ・）
※ ※
※ 白目を描くのが目的 ※
※ ※
中心Ｘは 変数
中心Ｙは 変数
Ｘ半径は 変数
Ｙ半径は 変数
斜め角度は 変数
左上Ｘは 変数
左上Ｙは 変数
右上Ｘは 変数
右上Ｙは 変数
左下Ｘは 変数
左下Ｙは 変数
右下Ｘは 変数
右下Ｙは 変数
図形１は 図形ＩＤ
中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径と 斜め角度に 入れ
（左下）
[ 左下Ｘ := 中心Ｘ - Ｘ半径 ]
[ 左下Ｙ := 中心Ｙ + Ｙ半径 ]
（左上）
[ 左上Ｘ := 左下Ｘ ]
[ 左上Ｙ := 中心Ｙ - Ｙ半径 ]
（右下）
[ 右下Ｘ := 中心Ｘ + Ｘ半径 ]
[ 右下Ｙ := 左下Ｙ ]
（右上）
[ 右上Ｘ := 右下Ｘ ]
[ 右上Ｙ := 左上Ｙ ]
キャンバスＩＤをつみ
左上Ｘ 左上Ｙ 右上Ｘ 右上Ｙと ※多角形の座標
右下Ｘ 右下Ｙ 左下Ｘ 左下Ｙと
４個で
中心Ｘ 中心Ｙと ※回転の中心
斜め角度で
座標群を回転し
多角形のＩＤを取得し 図形１に 入れ
描画色を 図形１に 線の色を設定し
２を 図形１に 線の太さを設定し
※ ３を 図形１に 線の太さを設定し
０を 図形１に スムージングを設定し
図形１を 描画し
。
暗黙の角度で斜めの楕円を描くとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 → ・）
角度をつみ 斜めの楕円を描くこと。
円を塗るとは （中心Ｘ、中心Ｙ、半径 －－＞ ・）
中心Ｘは 変数
中心Ｙは 変数
半径１は 変数
円ＩＤは 図形ＩＤ
中心Ｘと 中心Ｙと 半径１に 入れ
キャンバスＩＤと
中心Ｘと 中心Ｙと 半径１で
円のＩＤを取得し 円ＩＤに 入れ
描画色を 円ＩＤに 満たす色を設定し
円ＩＤを 描画し
。
片方の目をかくとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 → ・）
中心Ｘは 変数
中心Ｙは 変数
Ｘ半径は 変数
Ｙ半径は 変数
中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径に 入れ
（白目）
黒色を 描画色に 入れ
中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径で 暗黙の角度で斜めの楕円を描き
（瞳）
黒色を 描画色に 入れ
中心Ｘ 中心Ｙに 瞳半径で 円を塗る
。
左目をかくとは
目上がり角度の 負数をとり 回転角設定し
左目Ｘ位置、目Ｙ位置、目Ｘ半径、目Ｙ半径で 片方の目をかく
。
右目をかくとは
目上がり角度を 回転角設定し
右目Ｘ位置、目Ｙ位置、目Ｘ半径、目Ｙ半径で 片方の目をかく。
目をかくとは
左目をかき 右目をかくこと。
※※※※ 眉をかく ※※※※
眉長さの半分とは 目Ｘ半径。
眉Ｙ位置は
目Ｙ位置から、
顔上半分Ｙ半径の 眉上方向％ので ％補正を
引く。
左眉をかくとは
直線ＩＤは 図形ＩＤ
キャンバスＩＤをつみ
左目Ｘ位置と 眉Ｙ位置と
眉長さの半分と 目上がり角度の 負数をとり
中心と半径と角度を指定し直線のＩＤを取得し 直線ＩＤに 入れ
３を 直線ＩＤに 線の太さを設定し
描画色を 直線ＩＤに 線の色を設定し
直線ＩＤを 描画し
。
右眉をかくとは
直線ＩＤは 図形ＩＤ
キャンバスＩＤをつみ
右目Ｘ位置と 眉Ｙ位置と
眉長さの半分と 目上がり角度で
中心と半径と角度を指定し直線のＩＤを取得し 直線ＩＤに 入れ
３を 直線ＩＤに 線の太さを設定し
描画色を 直線ＩＤに 線の色を設定し
直線ＩＤを 描画し
。
眉をかくとは
黒色を 描画色に 入れ
左眉をかき 右眉をかく。
※※※※ 鼻をかく ※※※※
鼻上端Ｙ位置は
顔下半分Ｙ位置から、
顔下半分Ｙ半径の 鼻上端％で ％補正を
引く。
鼻下端Ｙ位置は
鼻上端Ｙ位置に、
顔上半分Ｙ半径の 鼻長さ％で ％補正を
加える。
※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※
太い直線とは （開始Ｘ、開始Ｙ、終了Ｘ、終了Ｙ －－＞ ・）
開始Ｘ座標は 変数
開始Ｙ座標は 変数
終了Ｘ座標は 変数
終了Ｙ座標は 変数
直線ＩＤは 図形ＩＤ
開始Ｘ座標と 開始Ｙ座標と 終了Ｘ座標と 終了Ｙ座標に 入れ
キャンバスＩＤと
開始Ｘ座標と 開始Ｙ座標と 終了Ｘ座標と 終了Ｙ座標で
直線のＩＤを取得し 直線ＩＤに 入れ
３を 直線ＩＤに 線の太さを設定し
※ ２を 直線ＩＤに 線の太さを設定し
描画色を 直線ＩＤに 線の色を設定し
直線ＩＤを 描画する。
※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※
鼻をかくとは
黒色を 描画色に 入れ
顔Ｘ位置、鼻上端Ｙ位置、顔Ｘ位置、鼻下端Ｙ位置に 太い直線をかく。
※※※※ 口をかく ※※※※
口長さは
顔下半分Ｘ半径の 口長さ％ので ％補正し。
口Ｙ位置は
顔下半分Ｙ位置に、
顔下半分Ｙ半径の 口Ｙ位置％で ％補正を
加える。
口半径は 変数。
開始角は 変数。
終了角は 変数。
口開き角の半分は 変数。
口中心Ｙ位置は 変数。
口パラメータ計算は
顔下半分Ｙ半径に １０を 掛け、
口上がり角度を 複写し 負？
ならば 負数をとり
つぎに
複写し ゼロ？
ならば １を 加え
つぎに
割り 口半径に 入れる
口長さに １００を 掛け 口半径で 割り ５７を 掛け １００で 割り
２で 割り 口開き角の半分に 入れる
口上がり角度が 正？
ならば ２７０
さもなければ ９０
つぎに
複写したものから 口開き角の半分を 引き 開始角に 入れ
口開き角の半分を 加え 終了角に 入れ
口上がり角度が 正？
ならば 口Ｙ位置から 口半径を 引き
さもなければ
口Ｙ位置に 口半径を 加え
つぎに
口中心Ｙ位置に 入れる。
太さを指定し円弧をかくとは （中心Ｘ座標、中心Ｙ座標、半径、太さ －－＞ ・）
中心Ｘは 変数
中心Ｙは 変数
半径１は 変数
＿太さは 変数
＿描画角度は 変数
円弧ＩＤは 図形ＩＤ
中心Ｘと 中心Ｙと 半径１と ＿太さに 入れる
キャンバスＩＤをつみ
中心Ｘと 中心Ｙと
半径１で
円弧のＩＤを取得し 円弧ＩＤに 入れ
終了角度から 開始角度を 引き ＿描画角度に 入れ
開始角度と ＿描画角度を 円弧ＩＤに 開始・描画角度を設定し
円弧単独で 円弧ＩＤに 円弧の種類を設定
描画色を 円弧ＩＤに 線の色を設定し
＿太さを 円弧ＩＤに 線の太さを設定し
円弧ＩＤを 描画し
。
口をかくとは
黒色を 描画色に 入れ
口パラメータ計算し
開始角、終了角で 開始／終了角設定し
顔Ｘ位置、口中心Ｙ位置に 口半径と ３で 太さを指定し円弧をかき
。
※※※※ メインブロック ※※※※
既定値設定とは
＿Ｘサイズは 変数
＿Ｙサイズは 変数
キャンバスの右下座標を ＿Ｘサイズと ＿Ｙサイズに 入れ
＿Ｘサイズの 二分の一を 画面中心Ｘに 入れ
＿Ｙサイズの 二分の一を 画面中心Ｙに 入れ
顔下地既定値設定し 目既定値設定し 鼻と口既定値設定し
白色を 描画色に 入れること。
元気な顔を設定とは
７度を 目上がり角度に 入れ
１０度を 口上がり角度に 入れること。
困った顔を設定とは
－７度を 目上がり角度に 入れ
－１０度を 口上がり角度に 入れること。
顔全体をかくとは
顔の下地をかき
目をかき 眉をかき 鼻をかき 口をかくこと。
メインとは
キャンバスを設置処理し
既定値設定し
顔位置を左に設定し 元気な顔を設定し 顔全体をかく
顔位置を右に設定し 困った顔を設定し 顔全体をかくこと。
※ 終り(face2.src) ※
━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃ 座標回転の拡張ライブラリのソース(rotate.src)を表示 ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛
※タイトル 図形を回転したり座標を回転する機能
※作者 スクリプツ・ラボ有限会社
※ 改訂記録 ※
※ 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） ※
－－－－－－－－－－－－－－－－－－－－
Mindのホームページ：
日本語プログラミング言語 Mind
Mindのダウンロードページ：
日本語プログラミング言語 Mind ダウンロードページ
$\tiny{（Mindで開発されたソフトウェアは多くの商用プログラム/サービスに使われた実績があります）}$
－－－－－－－－－－－－－－－－－－－－
（ソースコード埋め込みのアコーディオン表示は
@miso_develop さんの記事を参考にさせていただきました）