※タイトル face2 - 元気な顔と困った顔 ※ファイル名 face2 ※ライブラリ gullib ※副ソース ※ Copyright (C) 1985 Rigy Corporation ※ ※ Copyright (C) 2026 Scripts Lab Inc. ※ ※説明 グラフィックを使って元気な顔と困った顔を画面に表示します ※ 改訂記録 ※ ※ 2026.09.15 Mind9向けに修正 ※ 2026.10.10 9801libは使わず、guilib直結にする ※ 関連し、座標のＹ,Ｘ のスタック積みをＸ,Ｙの順に変更 ※ 改訂終り ※ "../../srclib/rotate.src"を コンパイルする。 ※外部の座標回転ライブラリ キャンバスの右下座標は ６４０と ４００。 ※9801のディスプレイサイズ キャンバスＩＤは ＩＤ。 キャンバスを設置処理とは （・ → ・） ※ 親ＩＤ・サイズ・背景色を積むとは （・ → Ｘサイズ、Ｙサイズ） メインウィンドゥをつみ キャンバスの右下座標をつみ 黒色をつむ ※ 本体とは 親ＩＤ・サイズ・背景色を積み キャンバスを立て キャンバスＩＤに 入れること。 描画色は 文字列実体 長さ ２４桁。 角度は 変数。 ※単位は度 ※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※ 回転角設定とは （回転角(度) −−＞ ・） 角度に 入れること。 ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※ 開始角度は 変数。 終了角度は 変数。 ※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※ 開始／終了角設定とは （開始角、終了角 −−＞ ・） 開始角度と 終了角度に 入れること。 ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※ 画面中心Ｘは 変数。 画面中心Ｙは 変数。 ※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※ 顔位置モードは 変数。 （０：左 １：右） 顔Ｘ位置は （・ → Ｘ位置） 顔位置モードが 真？ ならば ４８０をつみ さもなければ １６０をつみ つぎに。 顔Ｙ位置は （・ → Ｙ位置） 画面中心Ｙを 返すこと。 顔位置を左に設定とは 顔位置モードを クリア。 顔位置を右に設定とは １を 顔位置モードに 入れる。 ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※ 顔サイズは ワード変数。 顔上下長さ％は ワード変数。 顔上半分Ｙ半径％は ワード変数。 顔上半分Ｘ半径％は ワード変数。 顔下半分Ｙ半径％は ワード変数。 顔下半分Ｘ半径％は ワード変数。 顔サイズ既定値は 数値 １００。 顔上下長さ％既定値は 数値 ３５。 顔上半分Ｙ半径％既定値は 数値 １００。 顔上半分Ｘ半径％既定値は 数値 １２０。 顔下半分Ｙ半径％既定値は 数値 １１５。 顔下半分Ｘ半径％既定値は 数値 １３０。 顔下地既定値設定とは 顔サイズ既定値を 顔サイズに 入れる 顔上下長さ％既定値を 顔上下長さ％に 入れる 顔上半分Ｙ半径％既定値を 顔上半分Ｙ半径％に 入れる 顔上半分Ｘ半径％既定値を 顔上半分Ｘ半径％に 入れる 顔下半分Ｙ半径％既定値を 顔下半分Ｙ半径％に 入れる 顔下半分Ｘ半径％既定値を 顔下半分Ｘ半径％に 入れる。 ％補正とは （値、％値 −−＞ 値） 掛け １００で 割る。 顔上下長さは 顔サイズを 顔上下長さ％で ％補正し。 顔上半分Ｙ半径は 顔サイズを 顔上半分Ｙ半径％で ％補正し。 顔上半分Ｘ半径は 顔サイズを 顔上半分Ｘ半径％で ％補正し。 顔下半分Ｙ半径は 顔サイズを 顔下半分Ｙ半径％で ％補正し。 顔下半分Ｘ半径は 顔サイズを 顔下半分Ｘ半径％で ％補正し。 顔上半分Ｙ位置は 顔Ｙ位置から 顔上下長さを 引いたもの。 顔下半分Ｙ位置は 顔Ｙ位置に 顔上下長さを 加えたもの。 楕円を塗るとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 −−＞ ・） 中心Ｘは 変数 中心Ｙは 変数 Ｘ半径は 変数 Ｙ半径は 変数 左上Ｘは 変数 左上Ｙは 変数 右下Ｘは 変数 右下Ｙは 変数 楕円ＩＤは 図形ＩＤ ※ ※ ※ 枠線は抑制 ※ ※ ※ 中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径に 入れ ※ [ 左上Ｘ := 中心Ｘ - Ｘ半径 ] [ 左上Ｙ := 中心Ｙ - Ｙ半径 ] [ 右下Ｘ := 中心Ｘ + Ｘ半径 ] [ 右下Ｙ := 中心Ｙ + Ｙ半径 ] キャンバスＩＤと 左上Ｘと 左上Ｙと 右下Ｘと 右下Ｙで 楕円のＩＤを取得し 楕円ＩＤに 入れ ０を 楕円ＩＤに 線の太さを設定し 描画色を 楕円ＩＤに 満たす色を設定し 楕円ＩＤを 描画し 。 顔の下地をかくとは 「#fce2c4」を 描画色に 入れ ※←肌色 顔Ｘ位置と 顔上半分Ｙ位置に 顔上半分Ｘ半径と 顔上半分Ｙ半径で、 楕円を塗る 顔Ｘ位置と 顔下半分Ｙ位置に 顔下半分Ｘ半径と 顔下半分Ｙ半径で、 楕円を塗る 。 目上方向％は ワード変数。 目左右％は ワード変数。 目Ｙ半径％は ワード変数。 目Ｘ半径％は ワード変数。 瞳半径％は ワード変数。 目上がり角度は 変数。 眉上方向％は ワード変数。 目上方向％既定値は 数値 ２３。 目左右％既定値は 数値 ４０。 目Ｙ半径％既定値は 数値 １０。 目Ｘ半径％既定値は 数値 ２３。 瞳半径％既定値は 数値 ６。 目上がり角度既定値は 数値 ７。 眉上方向％既定値は 数値 ２７。 目既定値設定とは 目上方向％既定値を 目上方向％に 入れる 目左右％既定値を 目左右％に 入れる 目Ｙ半径％既定値を 目Ｙ半径％に 入れる 目Ｘ半径％既定値を 目Ｘ半径％に 入れる 瞳半径％既定値を 瞳半径％に 入れる 目上がり角度既定値を 目上がり角度に 入れる 眉上方向％既定値を 眉上方向％に 入れる。 目上方向オフセットは 顔上半分Ｙ半径の 目上方向％で ％補正し。 目左右オフセットは 顔上半分Ｘ半径の 目左右％で ％補正し。 目Ｘ半径は 顔上半分Ｘ半径の 目Ｘ半径％で ％補正し。 目Ｙ半径は 顔上半分Ｘ半径の 目Ｙ半径％で ％補正し。 瞳半径は 顔上半分Ｘ半径の 瞳半径％で ％補正し。 目Ｙ位置は 顔Ｙ位置から 目上方向オフセットを 引く。 左目Ｘ位置は 顔Ｘ位置から 目左右オフセットを 引く。 右目Ｘ位置は 顔Ｘ位置に 目左右オフセットを 加える。 鼻上端％は ワード変数。 鼻長さ％は ワード変数。 口上がり角度は 変数。 口Ｙ位置％は ワード変数。 口長さ％は ワード変数。 鼻上端％既定値は 数値 ３０。 鼻長さ％既定値は 数値 ５０。 口上がり角度既定値は 数値 １０。 口Ｙ位置％既定値は 数値 ６５。 口長さ％既定値は 数値 ６０。 鼻と口既定値設定とは 鼻上端％既定値を 鼻上端％に 入れる 鼻長さ％既定値を 鼻長さ％に 入れる 口上がり角度既定値を 口上がり角度に 入れる 口Ｙ位置％既定値を 口Ｙ位置％に 入れる 口長さ％既定値を 口長さ％に 入れる。 ※※※※ 目をかく ※※※※ 円半径は 変数。 左上Ｙ座標は 変数。 左上Ｘ座標は 変数。 右下Ｙ座標は 変数。 右下Ｘ座標は 変数。 斜めの楕円を描くとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径、角度 → ・） ※ ※ ※ 白目を描くのが目的 ※ ※ ※ 中心Ｘは 変数 中心Ｙは 変数 Ｘ半径は 変数 Ｙ半径は 変数 斜め角度は 変数 左上Ｘは 変数 左上Ｙは 変数 右上Ｘは 変数 右上Ｙは 変数 左下Ｘは 変数 左下Ｙは 変数 右下Ｘは 変数 右下Ｙは 変数 図形１は 図形ＩＤ 中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径と 斜め角度に 入れ （左下） [ 左下Ｘ := 中心Ｘ - Ｘ半径 ] [ 左下Ｙ := 中心Ｙ + Ｙ半径 ] （左上） [ 左上Ｘ := 左下Ｘ ] [ 左上Ｙ := 中心Ｙ - Ｙ半径 ] （右下） [ 右下Ｘ := 中心Ｘ + Ｘ半径 ] [ 右下Ｙ := 左下Ｙ ] （右上） [ 右上Ｘ := 右下Ｘ ] [ 右上Ｙ := 左上Ｙ ] キャンバスＩＤをつみ 左上Ｘ 左上Ｙ 右上Ｘ 右上Ｙと ※多角形の座標 右下Ｘ 右下Ｙ 左下Ｘ 左下Ｙと ４個で 中心Ｘ 中心Ｙと ※回転の中心 斜め角度で 座標群を回転し 多角形のＩＤを取得し 図形１に 入れ 描画色を 図形１に 線の色を設定し ２を 図形１に 線の太さを設定し ※ ３を 図形１に 線の太さを設定し ０を 図形１に スムージングを設定し 図形１を 描画し 。 暗黙の角度で斜めの楕円を描くとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 → ・） 角度をつみ 斜めの楕円を描くこと。 円を塗るとは （中心Ｘ、中心Ｙ、半径 −−＞ ・） 中心Ｘは 変数 中心Ｙは 変数 半径１は 変数 円ＩＤは 図形ＩＤ 中心Ｘと 中心Ｙと 半径１に 入れ キャンバスＩＤと 中心Ｘと 中心Ｙと 半径１で 円のＩＤを取得し 円ＩＤに 入れ 描画色を 円ＩＤに 満たす色を設定し 円ＩＤを 描画し 。 片方の目をかくとは （中心Ｘ、中心Ｙ、Ｘ半径、Ｙ半径 → ・） 中心Ｘは 変数 中心Ｙは 変数 Ｘ半径は 変数 Ｙ半径は 変数 中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径に 入れ （白目） 黒色を 描画色に 入れ 中心Ｘと 中心Ｙと Ｘ半径と Ｙ半径で 暗黙の角度で斜めの楕円を描き （瞳） 黒色を 描画色に 入れ 中心Ｘ 中心Ｙに 瞳半径で 円を塗る 。 左目をかくとは 目上がり角度の 負数をとり 回転角設定し 左目Ｘ位置、目Ｙ位置、目Ｘ半径、目Ｙ半径で 片方の目をかく 。 右目をかくとは 目上がり角度を 回転角設定し 右目Ｘ位置、目Ｙ位置、目Ｘ半径、目Ｙ半径で 片方の目をかく。 目をかくとは 左目をかき 右目をかくこと。 ※※※※ 眉をかく ※※※※ 眉長さの半分とは 目Ｘ半径。 眉Ｙ位置は 目Ｙ位置から、 顔上半分Ｙ半径の 眉上方向％ので ％補正を 引く。 左眉をかくとは 直線ＩＤは 図形ＩＤ キャンバスＩＤをつみ 左目Ｘ位置と 眉Ｙ位置と 眉長さの半分と 目上がり角度の 負数をとり 中心と半径と角度を指定し直線のＩＤを取得し 直線ＩＤに 入れ ３を 直線ＩＤに 線の太さを設定し 描画色を 直線ＩＤに 線の色を設定し 直線ＩＤを 描画し 。 右眉をかくとは 直線ＩＤは 図形ＩＤ キャンバスＩＤをつみ 右目Ｘ位置と 眉Ｙ位置と 眉長さの半分と 目上がり角度で 中心と半径と角度を指定し直線のＩＤを取得し 直線ＩＤに 入れ ３を 直線ＩＤに 線の太さを設定し 描画色を 直線ＩＤに 線の色を設定し 直線ＩＤを 描画し 。 眉をかくとは 黒色を 描画色に 入れ 左眉をかき 右眉をかく。 ※※※※ 鼻をかく ※※※※ 鼻上端Ｙ位置は 顔下半分Ｙ位置から、 顔下半分Ｙ半径の 鼻上端％で ％補正を 引く。 鼻下端Ｙ位置は 鼻上端Ｙ位置に、 顔上半分Ｙ半径の 鼻長さ％で ％補正を 加える。 ※／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼※ 太い直線とは （開始Ｘ、開始Ｙ、終了Ｘ、終了Ｙ −−＞ ・） 開始Ｘ座標は 変数 開始Ｙ座標は 変数 終了Ｘ座標は 変数 終了Ｙ座標は 変数 直線ＩＤは 図形ＩＤ 開始Ｘ座標と 開始Ｙ座標と 終了Ｘ座標と 終了Ｙ座標に 入れ キャンバスＩＤと 開始Ｘ座標と 開始Ｙ座標と 終了Ｘ座標と 終了Ｙ座標で 直線のＩＤを取得し 直線ＩＤに 入れ ３を 直線ＩＤに 線の太さを設定し ※ ２を 直線ＩＤに 線の太さを設定し 描画色を 直線ＩＤに 線の色を設定し 直線ＩＤを 描画する。 ※＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／※ 鼻をかくとは 黒色を 描画色に 入れ 顔Ｘ位置、鼻上端Ｙ位置、顔Ｘ位置、鼻下端Ｙ位置に 太い直線をかく。 ※※※※ 口をかく ※※※※ 口長さは 顔下半分Ｘ半径の 口長さ％ので ％補正し。 口Ｙ位置は 顔下半分Ｙ位置に、 顔下半分Ｙ半径の 口Ｙ位置％で ％補正を 加える。 口半径は 変数。 開始角は 変数。 終了角は 変数。 口開き角の半分は 変数。 口中心Ｙ位置は 変数。 口パラメータ計算は 顔下半分Ｙ半径に １０を 掛け、 口上がり角度を 複写し 負？ ならば 負数をとり つぎに 複写し ゼロ？ ならば １を 加え つぎに 割り 口半径に 入れる 口長さに １００を 掛け 口半径で 割り ５７を 掛け １００で 割り ２で 割り 口開き角の半分に 入れる 口上がり角度が 正？ ならば ２７０ さもなければ ９０ つぎに 複写したものから 口開き角の半分を 引き 開始角に 入れ 口開き角の半分を 加え 終了角に 入れ 口上がり角度が 正？ ならば 口Ｙ位置から 口半径を 引き さもなければ 口Ｙ位置に 口半径を 加え つぎに 口中心Ｙ位置に 入れる。 太さを指定し円弧をかくとは （中心Ｘ座標、中心Ｙ座標、半径、太さ −−＞ ・） 中心Ｘは 変数 中心Ｙは 変数 半径１は 変数 ＿太さは 変数 ＿描画角度は 変数 円弧ＩＤは 図形ＩＤ 中心Ｘと 中心Ｙと 半径１と ＿太さに 入れる キャンバスＩＤをつみ 中心Ｘと 中心Ｙと 半径１で 円弧のＩＤを取得し 円弧ＩＤに 入れ 終了角度から 開始角度を 引き ＿描画角度に 入れ 開始角度と ＿描画角度を 円弧ＩＤに 開始・描画角度を設定し 円弧単独で 円弧ＩＤに 円弧の種類を設定 描画色を 円弧ＩＤに 線の色を設定し ＿太さを 円弧ＩＤに 線の太さを設定し 円弧ＩＤを 描画し 。 口をかくとは 黒色を 描画色に 入れ 口パラメータ計算し 開始角、終了角で 開始／終了角設定し 顔Ｘ位置、口中心Ｙ位置に 口半径と ３で 太さを指定し円弧をかき 。 ※※※※ メインブロック ※※※※ 既定値設定とは ＿Ｘサイズは 変数 ＿Ｙサイズは 変数 キャンバスの右下座標を ＿Ｘサイズと ＿Ｙサイズに 入れ ＿Ｘサイズの 二分の一を 画面中心Ｘに 入れ ＿Ｙサイズの 二分の一を 画面中心Ｙに 入れ 顔下地既定値設定し 目既定値設定し 鼻と口既定値設定し 白色を 描画色に 入れること。 元気な顔を設定とは ７度を 目上がり角度に 入れ １０度を 口上がり角度に 入れること。 困った顔を設定とは −７度を 目上がり角度に 入れ −１０度を 口上がり角度に 入れること。 顔全体をかくとは 顔の下地をかき 目をかき 眉をかき 鼻をかき 口をかくこと。 メインとは キャンバスを設置処理し 既定値設定し 顔位置を左に設定し 元気な顔を設定し 顔全体をかく 顔位置を右に設定し 困った顔を設定し 顔全体をかくこと。 ※ 終り(face2.src) ※