パソコンによるパラメトリックデザイン

U8508 早稲 田 大 学理工 学 部建 築学科 卒 業 論文 指 導教授 渡 辺仁 史

パ ソコンによるパ ラ メ トリックデザイ ン 西村 隆

Department of Architecture,School of Science and Engineering, Waseda University

昭和

60年 度

パ

ソ

指導

卒業論文

ヽ Jン

渡辺仁 史

ここ よ

る

パ

ラ

メ

ト =ノ

ヽ ン ク

デ

刊r ン

ザ

助教授

，   ヽ

早稲 田大 学

理工学部

建築 学 科

渡辺研究室

:畑 R∩ 111`

G2D138-6

西

村

隆

6

ら4)

ここ■

今 、

CADシ

ス テ ム は 転 換 期 に あ り 。 大 型 機 か ら パ ソ コ

ン ベ ー ス の シ ス テ ム に 変 わ り つ つ あ る 。 現 在 、 流 通 し て い る

CADシ

ス テ ム を 大 別 す る と 、 二 次

元 作 図 、 パ ー ス 作 成 、 日 影 計 算 、 空 調 負 荷 計 算 、 積 算 見 積 り に 分 け ら れ る 。

そ し て デ ザ ィ ン の 分 野 で は 、 二 次 元 の

ド ラ フ テ ィ ン グ マ シ ー ン が 主 流 で あ り 、 建 築 的 に 有 効 と 思 わ れ る 二 次 元 の デ ザ ィ ン シ ス テ ム は そ れ ほ ど 存 在 し て い な い

.

特 に 、 今 デ ザ ィ ン の 分 野 で

CADと

よ ば れ て い る シ ス テ

ム は 、 数 学 的 な 「 座 標 」 に よ っ て 表 現 さ れ て い る も の が 多 く 、 建 築 的 要 素 を も っ た シ ス テ マ テ ィ ッ ク な

CADに

つ い

て 考 え る 必 要 性 が あ り 、 ま た パ ソ コ ン と い う 身 近 な 道 具 を 有 効 に 使 っ て 各 自 の 目 的 に か な っ た デ ザ ィ ン ツ ー ル を 自 作 す る 動 き も で で き た 。 そ こ で 、 い ゎ ゅ る 「 よ う な 、 建 築 の デ ザ イ

COMPUTER AIDED DESIGN」 ン の た め の CADシ ス テ

と 言 わ れ る ム の 作 成 を

目 指 し て 研 究 を 始 め た 。 建 築 に お け る 、 シ ス テ マ テ ィ ッ ク な 造 形 を 考 え た

CAD

シ ス テ ム の 作 成 に あ た り 、 物 体 の 形 状 を 決 め る 鍵 と な る パ ラ メ ニ タ に 着 限 し た 「 バ ラ メ ト リ ッ ク デ ザ ィ ン 」 の 概 念 を 取 り 入 れ る こ と に よ り 形 状 変 化 を シ ミ ュ レ ー トす る シ ス テ ム を つ く る こ と に し た の で あ る 。 こ の 研 究 に よ り 、 と 思 う 。

CADの

新 し い 方 向 性 を 見 い だ し た ぃ

目

次

は じ め

`こ

研 究 目 的

2

Ⅳ

.出 1 2 3

V.展 Ⅵ

概

― メ ト リ ッ ク デ ザ ィ ン の 現 状 史 の 分 野 で の 「 木 割 」 ‐ ― ‐ ‐

____

曲 線

ト リ ッ ク デ ザ ィ ン の 導 入 に よ る ― ― ― ‐ ‐ ― ‐ ― ス テ ム の 作 成

Rule 2‐ 1 木 2-2 自

-

12

-

12

-

21

_ _ _ _ ____

割

―

由 曲 線

___

‐ ‐ ‐ ― ‐

木 割 シ ス テ ム

‐ ― ‐ ‐

自 由 曲 線 「 柱 」

‐ ‐ ‐ ―

22 - 23 - 33

結 果

‐ ‐ ‐

‐

力 例

‐

考 文 献

付 。 マ ニ ュ ア ル

.37 38

40

お わ り に

1 2

-

10 11

____

要

開 。 展 望

.参

９

1

‐ ― ― ―

９

.パ ラ メ CADシ

ス テ ム の 現 状

８

Ⅲ

=___

８

l CADシ バ ラ 2 3 建 築 4 自 由

― ― ― ― ― ― ― ―

７

研 究 背 景

ー ー

-

43

-

45

木:割 シ ス テ ム 「 鳥 居 」

-

自 由 曲 線 「 柱 」

-

ff-2 ff - 5

リ ス ト

0

I

琶汗

多を

E

白勺

本 論 文 の 目 的 は 、 建 築 の 形 状 に 係 わ る パ ラ メ ー タ を 操 作 す る こ と に よ っ て 形 態 変 化 を コ ン ピ ュ ー タ で シ ミ ュ レ ー ト で き る よ う な シ ス テ ム を 作 成 す る こ と で あ る 。 こ の た め 「 パ ラ メ ト リ ッ ク デ ザ イ ン 」 の 概 念 を 導 入 し「 木 割 」 の よ う に Ele口 ら の 構 成 に つ い て

ent(部

Rule化

を 確 か め る も の で あ る 。

材

)の

大 き さ 、 長 き 、 及 び そ れ

さ れ た も の に 適 用 し 、 そ の 有 効 性

研

究

背

景

シ

ス

テ

ム

(I)

ユ

■ノに

'1 冒 頭 で も 述 べ た よ う に 、

,現

在 デ ザ イ ン の 分 野 で

CADシ

ス テ ム と 呼 ば れ て い る も の は 図 学 的 、 数 学 的 要 素 は 多 分 に 含 ん で い る が 、 建 築 的 要 素 に は 乏 し く 研 究 す べ き 要 素 に は 事 か か な い と い う の が 現 状 で あ る 。 ド ラ フ テ ィ ン グ の 分 野 で は か な り 研 究 が 進 ん で い る よ う で 、 イ ン タ ー フ ェ イ ス の 改 善 な ど に よ り 使 い や す い シ ス テ ム が 出 て き て い る が 、 デ ザ ィ ン の 分 野 で の 研 究 は 出 遅 れ が ち で 、 研 究 室 の 過 去 の 論 文 を 見 て も 、 物 体 を 点 の 座 標 の 集 ま り と し て 扱 っ て い る 「 数 学 的 」 な 考 え 方 の も と で 研 究 を 進 め て き た よ う で あ る 。 そ こ で 、 建 築 的 な 発 想 の も と で 動 く よ う な シ ス テ ム が 望 ま れ て い る と 言 う こ と が で き る 。

Ⅱ

-2

パ

ノ

メ

1ヽ

Iノ

ク

ヽ ソ

デ

ザ・

イ

ン

の

現

状

広 い 意 味 で の パ ラ メ ト リ ッ ク デ ザ イ ン に つ い て は 、 か な り 前 か ら 研 究 が 進 め ら れ て い る が 、

CADシ

ス テ ム に バ ラ

メ ト リ ッ ク デ ザ イ ン を 有 効 に 取 り 入 れ た 例 は あ ま り 見 か け な い 。 米 国 の

UCl′ Aに

お い て 、 ビ ル・

ミ ッ チ ェ ル が 柱 や 窓 の

よ う な 建 築 的 モ チ ー フ を 変 化 さ せ る シ ス テ ム を 教 育 用 と し て 取 り 入 れ て い る よ う な 例 も あ る が 、 現 在 の 中 に 取 り 入 れ ら れ て い る の は 、

X方

向 や

CADシ Y方 向

縮 小 し た り 、 回 転 さ せ る レ ベ ル の も の で あ る 。

ス テ ム に 拡 大 、

Ⅱ

‐3

奎

築

史

分

野

の

吉IJ 」

建 築 史 の 分 野 に お け る 木 割 の 研 究 は 長 年 継 続 さ れ て お り 「 木 割 書 」 の 解 読 や 「 木 割 値 」 の 歴 史 的 変 化 、 木 造 設 計 技 法 に お け る 「 木 割 書 」 の 位 置 づ け な ど の 研 究 が 進 め ら れ て い る 。 そ れ ら の 研 究 は 、 統 計 的 処 理 や 多 様 な 解 析 法 の 駆 使 に よ り お こ な わ れ て い る が 、 一 方 で 無 限 と も 言 え る 木 割 値 の 変 化 に 対 応 し た 造 形 の 視 覚 化 に 関 し て は 、 そ の 処 理 に 苦 慮 し て い る 。 極 言 す れ ば 、 そ れ ら は 二 次 元 の 紙 面 上 の 解 析 が 中 心 と な っ て お り 、 模 型 に よ る 三 次 元 の 解 析 も あ る が 、 変 形 が 困 難 な 上 に 模 型 作 り に 時 間 を と ら れ て し ま う と い う 難 点 が あ る 。 変 形 が 容 易 な 二 次 元 表 示 シ ス テ ム が 望 ま れ て い る と 言 う こ と が で き る 。

Ⅱ

‐4

自

由

曲

線

芸 術 の 分 野 に お い て は 造 形 作 業 の 一 方 法 と し て よ く 使 わ れ て い る が 、 建 築 の 分 野 で は あ ま り 使 わ れ て な い 。 つ ま り 、 二 次 元 の 自 由 曲 線 は よ く 使 わ れ て い る が 、 建 築 と し て は 三 次 元 の 自 由 曲 面 を 扱 う 必 要 性 が あ り 、 そ の 方 向 で の 研 究 が 望 ま れ て い る 。

ヽ ン

ノヾ

ラ

メ

ト

の

導

入

ここ

よこ

る

シ

ス

テ

C A D

lノ

ク

う声

_′ ヽ の

tガ イ乍

ィ

成

ン

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 入 に よ る

概

-1

CADシ

ス テ ム の 作 成

要

…

物 体 を 構 成 す る E!e口 る

Ruleや

、 Eie■

ent間

ent(部

材

の 関 係 を 示 す

取 り 上 げ て い る 「 木 割 」 が そ の そ の 形 態 を

Ruleを

)に

は 、 そ の 形 態 を 決 定 す

Ruleが

Ru!eの

あ る 。

(本

論 文 で

一 つ の 例 で あ る 。

)

制 御 す る パ ラ メ ー タ を 操 作 す るヽ こ と に よ っ て

Generate(発

生

)さ

せ る こ と を 「 バ ラ メ ト リ ッ ク デ

ザ イ ン 」 と い う が 、 そ の 概 念 の 一 つ で あ る 「 ジ オ メ ト リ ッ ク ト ラ ン ス フ ォ ー メ ー シ ョ ン

(幾

何 学 的 変 形

)」

の 理 論 を

用 い て 、 形 態 を 発 生 さ せ コ ン ピ ュ ー タ シ ミ ュ レ ー シ ョ ン を 行 う 。 つ ま り 、 物 体 の 形 態 を 決 定 づ け る 関 係 式 を 見 い だ し 、 そ の 式 に よ っ て 表 現 す る こ と に よ り物 体 を 一 つ の 固 定 さ れ た

DATAと

し て で は な く 、 無 限 の 変 化 の 可 能 性 を も っ た 一 種 の

粘 土 細 工 の よ う な も の と し て 扱 う の で あ る 。 具 体 的 に 言 う と 、 「 木 割 」 の シ ス テ ム に お い て 構 造 的 に 最 も 簡 単 に 表 現 で き る も の と し て 鳥 居 を と り あ げ 、 木 割 値 と い う

Ruleに

の っ と り そ の 柱 間 の 寸 法 か ら 鳥 居 の 形 態 を 発

生 さ せ る こ と と 、 自 由 曲 線 の 一 つ で あ る ベ ジ ェ 曲 線 に お い て 曲 線 を 制 御 す る 点 を 変 え る こ と に よ り 発 生 す る い ろ い ろ

な柱 の形 態 、柱 の ふ くらみ や 柱 の 並 び 方 まで シ ミ ュ レー ト す る こ と で あ る。

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 人 に よ る

CADシ

ス テ ム の 作 成

-2 …

2‐ 1

,

木 割

木 割 と は

1部

材 と 部 材 と の 関 係 を 示 す も の で あ り 、 そ の

ア ル ゴ リ ズ ム は 一 般 に

Y=α

Xで

表 わ さ れ る も の と 、 記 述

に よ っ て 表 わ さ れ て い る も の に 大 別 で き る 。 ・ こ こ で 各 部 材 の 大 き や 幅 、 せ い 、 長 さ 、 高 さ な ど を 表 わ し 、 柱 間 や 柱 の 寸 法 な ど 基 準 と な る 寸 法 を 表 わ す 。

Yは Xは

そ し て α

を 木 割 値 と 呼 ぶ 。 こ れ ら の

Ruleに

よ り 、 一 つ の 形 態 が 発 生 す る わ け で あ る 。

つ ま り 、 基 準 と な る 寸 法 か ら 各 木 割 値 に よ り 各 部 材 の 形 態 が 決 ま り 、 全 体 の 形 態 が 作 ら れ る わ け で あ る 。 こ こ で 、 木 割 の 基 本 と い わ れ る 鳥 居 を 例 に し て 話 を 進 め て い く 。 鳥 居 の 形 態 は 、 柱 間 の 寸 法 を 中 心 に 成 立 し て い る 。 そ の 過 程 は 、

① 柱 間 の寸 法 を与 え る

=H/100X柱 ) =10/100x柱 の 高 さ =10X柱

② 柱 の 大 さ

(上

部

鳥 居 の

間 間 大 さ

LiJ

●‐01]・ L

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 入 に よ る

=7/10X柱 の 大 き =3/10X柱 の 大 き =7/5× 柱 の 太 さ =額 東 に 接 触

③ 貫 の せ い 幅 長 さ 高 さ

CADシ

ス テ ム の 作 成

llil就

が くづ か

④ 額 束 の せ い

⑤ 島 木 の せ い 幅 反 り 高 さ

=9ノ !0×

=島

柱 の 大

木 に 接 触

=3/5X柱 の 大 =3/5X柱 の 太 =1/100× 柱 問 =笠 木 に 接 触

Ｈ日”

高 さ

の 大 さ 饉 東 に少 しち りを見 る

幅

=柱

さ さ

(1ぉ

薔 題 し 髭 ![)

バ ラ メ ト リ ッ ク デ ザ ィ ン の 専 人 に よ る

CADシ

ス テ ム の 作 成

かさぎ

さ

=2/5X柱 =柱 の 大 =1.5X笠 =10X柱

の 大 き

⑦ 亀 腹 の せ い

=7ノ 10×

柱 の 大 さ

=2.5X柱

の 大 さ

⑥ 笠 木 の せ い 幅 反 一 員

り

さ 木 の せ

ね品

日日い

饉 東 に 少 し ち りを ■ ろ

幅

の 太 さ

￨￨を 11ミ

③ 台輪 の せ い 幅 高 さ

壌 lD

=lノ 3X柱 の 太 さ

=√ 2X柱 の 大 =島 木 に 接 触

き

犠1穐1わ

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 入 に よ る

一 向

さ さ

太

の い柱

賀袖

そ ⑨ 0か

=7/10X柱 =5× 柱 の

CADシ

ス テ ム の 作 成

の 大 さ 大 き

えぬ き

=5/10× 幅 =5/10X柱 (上 )=袖 柱 の (下 )=上 の 控

⑪ 控 貫 の せ い

高 さ

柱 の 大 き の 大 さ 高 さ ― 柱 の 大 き 貫

-2X柱

の 大 き

こ れ ら か ら わ か る よ う に 、 各 部 材 の 寸 法 は 柱 問 れ よ り求 ま っ た 柱 の 大 さ

Aの 2つ

L及

び そ

を 基 準 と し て 求 ま る よ う

に な っ て い る 。 つ ま り 柱 間 の 寸 法 を 決 め れ ば 自 然 と 鳥 居 の 形 態 が 発 生 す る わ け で あ る 。

次 に 、 各 種 鳥 居 の 木 割 を 見 て み る 。 しんめ い

神明鳥居木割図例 (一 般)

丸ぃ■ネ 柱太tは 上部 1・ 月xa′ ′

貫

は ち まん

八 幡鳥居木割図例

E,*' fr,i?ft*.nt A,tErrSr*,

a-J-aJ{-a

llは 八つ 中転ぴ

lr4rr ilo4ft.oLot

バ ラ メ ト リ ッ ク デ ザ ィ ン の 尊 人 に よ る

CADシ

ス テ ム の 作 成

かすが

春 日鳥居木割 図例

u

*

fr,tt4 h *nl A,litt+l

t&

J.rtt

ilo 4rloLo?

llr:rt,fliu*

△

△

笠ネ

明神 鳥居木割 図例

■︱ ヽ １

0=荘 えの人tt

:て

柱の′イ

千

は継′′,上

島ネ

社のa

′

=ネ翼 %勾

一   Ｍ″剛

△

み ょ う じん

端′2晨

if蜘 ′ &1蹴

ふ′ ′

つ ′ び 転 「 ヽ 多中 継隷

・ は手 ll魚 さ trで ′ ИX′ ′

`0多

きさ。

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 入 に よ る

CADシ

かしま

鹿島鳥居木割 図例

l1ttlioaE,

4r#.o0.3

| *EIie | Etil'.oaL

春 ち が都“ 境

Иχ′ノ ′

社の転すは

九二Ii ノ ′χ′ノ

ス テ ム の 作 成

バ ラ メ ト リ ッ ク デ ザ イ ン の 導 人 に よ る

CADシ

り ょ うぶ

雨部 鳥居木割 図例

側 面図

ス テ ム の 作 成

バ ラ メ ト リ ッ ク デ ザ ィ ン の 導 人 に よ る

こ れ ら の

Ruleを

主 全_Dシ

ス テ ム の 作 成

コ ン ピ ュ ー タ に の せ る に あ た り 、 木

1り

値

と い う デ ジ タ ル な も の は 扱 い や す い が 、 記 述 に よ っ て 表 わ さ れ た も の 墨 」

)は

(た

と え ば 笠 木 や 島 木 の 長 さ を 決 め る 「 た す き

そ の 扱 い が 困 難 で あ り 、 結 局 固 定 さ れ た

DATAと

し

て 扱 わ ぎ る を え な か っ た 。 こ の よ う に し て 、 木 割 値 と い う パ ラ メ ー タ に よ り 鳥 居 を シ ミ ュ レ ー ト し た わ け で あ る 。 こ の 木 割 値 は 長 い 歴 史 の 中 で 経 験 的 に 伝 承 さ れ い く つ か の 体 系 を つ く っ て い る が 、 あ え て そ の 体 系 を 崩 し て 木 割 値 変 え る こ と に よ る 形 態 の 変 化 を た め し て み る 。

J

2-2

自 由 曲 線

自 由 曲 線 と は 、 曲 線 の 描 き 始 め の 点 の 点

(終

)、

点

及 び 中 間 点

(制

御 点

(始

)の

点

)と

描 き 終 り

指 定 に よ り 、 こ れ

ら の 点 を 滑 ら か に 結 ん で で き る 曲 線 で あ り 、 ベ ジ エ 曲 線 、

4点

方 式 ベ ジ エ 曲 線 、

ン 曲 線 、 こ こ で

Bス プ は 4点

N点

方 式 ベ ジ エ 曲 線 、

3次

ス プ ラ イ

ラ イ ン 曲 線 な ど が あ る 。 方 式 ベ ジ エ 曲 線 を 取 り 上 げ て い る 。

は 曲 線 の 始 点 と 終 点 及 び 制 御 点

2つ

の 計

4点

こ れ

を 与 え て 曲 線

を 作 り 出 す 方 式 で

一

一

′

(η

一

▼Ｈノ  ζ ′ ．

〇

J.′

η ・２     ︲   η

)=

Σ卸 ≦ ”

一 一

０ (子

J).′

で 表 わ さ れ る 。

こ の 式 に お い て

n=3と

し た の が

4点

方

式 ベ ジ エ 曲 線 で あ る 。 こ の 曲 線 は 、 近 似 法 に よ り 中 間 点 を 制 御 点 と し て お り 、 曲 線 は 始 点 、 終 点 は 通 る が 中 間 点 は 通 ら な い 。

こ の 制 御

点 を い ろ い ろ 変 え る こ と に よ っ て 曲 線 の 形 を 変 え る の で あ る 。 こ こ で 、 建 築 に 応 用 す る た め に 曲 線 を 回 転 さ せ る こ と に よ り 回 転 体 と し て 三 次 元 表 示 し 、 曲 面 を シ ミ ュ レ ー トで き る よ う に し た わ け で あ る 。 ま た 、 プ ロ グ ラ ム に お い て 曲 線 の き ざ み し ろ

(NDIV)と

い う も の が で て く る が 、 こ れ は 曲 線 を つ く る 点 の 座 標 の 数 で あ り こ れ が 多 い ほ ど 曲 線 が な め ら か に な る の で あ る 。 最 後 に 、 こ の プ ロ グ ラ ム は 入 力 方 法 と し て マ ウ ス を 利 用 し て イ ン タ ー フ ェ イ ス の 改 良 も お こ な わ れ て い る 。

と土」

jラ t]

タワIJ

出 力 例

‐l

Ⅳ

Jて

害 IJ

「 ´ 島

☆ 各種鳥 居 の形態 変換1,MENU2,終 了3?￨

aFl,

MENUU, t{73?

<各

I

｀ 木 割 値 に よ っ て 形 態 が 異 な る

>

′吾

」

変換 1.MENU2,終

了 3?￨

変換1,MENU2,終 了3?日

変換1,MENU2,終 了37日

slFl. MENtJz. f{73? I

変換1,MENU2,終

了 3?￨

変換 1,MENU2,終 了 3?￨

☆柱 の 転び 転 び な し

半 転 び

<見

上 げ の 安 定 性 が 得 ら れ る

>

☆ 笠 木 の 反 り

の Ю 9,袖 柱 則L ,袖 柱 l,=木 L亀 腹 &台 輸 4躍 葉 鷲 栗 騨 善き ま 費 1雀 姿 准 高 13,綺 小14,視 点変換15,位 置16,本 割饉表示17,オ プション18,MENU19? 拡大

.7 ネA .11 拿 L .3 =A l.4 =L し

けｏ

ιイ い ヽ ´ υ ・ ナ カ , 16

.6 ネA .6 =A

・ 0 ネA O *し 0 =A O =A

0 =A

t

￨

どこを変換 しますか (右 下図参照) 柱問1,柱 2,高 さ3,貫 4,額 束5,島 本6,笠 木7,亀 腹8,台 輪9,袖 柱10,袖 柱の貫n,[ 拡大13,縮 小14,視 点変換15,位 置16,木 割値表示17,オ プション18,MENU19?

M・

.11

,16尺 ￨}廿 "い

Ａ鶴

L

tイ

.7 *A ネL .3 拿A l.4 *L

11

<頭

が 重 い 感 じ

>

0 =A O =L O =A O =A

0 =A

☆ 柱 間 と 形 態

EFI I 6Rtffi4l

問

獅 耐 I首 1lll■ 辟l:1

Z=60月

0 4

盪

60

黎 可

<バ

ランスが ょぃ

>

1

0 尺

間 が

16

尺 よ り

い 場 合 鳥 居 の 高 さ 太 さ の す る

O . 5

(匠

分 だ

明 よ り )

を け

0 5 0

柱 き の く ・小   柱 一 向

兜淵爵罵慕螺喬 傍 :温錦 環奇 L聾 :痕 ″翼 認%鷲訴認LPr2'柱

☆ 木 割 書 の 違 い に よ る 形 態 の 相 違

どこを変換しますか (右 下図参照)

L路 L靭 %鰐翼母:淵齋む 則ittЛ :L最 雛喬 :譜 瞬奇 艦

“ Ｍ”

.6 事 A .6 =A

L .7 ネA .11 *L :3 =A l.4 拿L

.33 =A

.5 =L .7 =A

l.41 拿A

日

7i雲

llFell,柱 a高 調 ,貫 4額 東喘 木鶴笠木 拡大13,縮 小14,視 点変換15,位 置16,木 割催

2'

%鰐

鋼

%Ψ 翻

1

格Pra

(8)両 部鳥居

６ ︲Ｈ

尺＝

“ Ｍ拗

.8 ホ A L ,11 =L .3 =A

l.3=A .9=A

.6 =A .6 拿A

.4 =A .7 =A .3 ネA l =A 2.5 拿A l.4 彙A

.5 =L .7 *A

.56 =A

「

三 明 〕

」

こ よ こ

る

どこを変換しますか (右 下図参照) 柱問 1=柱 2,高 さ3,貫 4,額 束5,島 木6,笠 木7,亀 腹 8,台 輪9,袖 柱 10,袖 柱の質 H 拡大 13,縮 小14,視 点変換 15,位 置16,木 制饉表示17,オ ブシ ョン18,MENU19?

■面

‐T「 ￢

L .7 ネA .11 =L .3 ,A

「

嗣 l 拿A 「

.9 *A

島木

笠木

.6 =A

.4 *A

.6 =A

l =1

雇頭 O *A 0 =A

可

「 匠 明 」 に よ る

孫

.33「ネA

l.41 *A

.5 =L 拿A .7

どこを変換しますか (右 下図参照) 柱問1,柱 2,高 き3,貫 4,額 束5,島 木6=笠 木7,亀 腹8,台 輪9,袖 柱10,袖 柱の貫11 拡大13,縮 小14,視 点変換15,位 置10,本 割饉表示17,オ プション18,M E N U19? (8)両 部鳥居

尺＝

︲ ︲ ︲ １ ︲ ｌ １ ｔ ｕｒがｌ ︲ １

L

.8 =A

.11 =L .J_・ A

l.3 *A .6 *A .9 =A .6 =A

。 A 4 拿 l =A

.7 =A 。 3 =A .5 ネ L 2.5 =A l.4 *A .7 =A .56

拿 A

☆ 「 見 え た 」 場 合 と 「 見 た 」 場 合 の 見 え 方 の 相 違

どこを変換 しますか (右 下図参照) 柱間1,柱 2,高 さ3,貫 4,額 束5,島 木6,笠 木7,亀 腹8,台 輸9,袖 柱10,袖 柱の貫‖,回 転12, FA大 13,縮 小14,視 点変換15,位

どこを変換 しますか

置16,木 割値表示17,オ プション18,M

(右 下図参照)

E N U19?ロ

柱問1,柱 2,高 き3,貫4,額 束5,島 木6,笠 木7,亀 腹8,台 輪9,袖 柱10,袖 柱の貫H,回 転12, 拡大13,縮 小14,視 点変換15,位 置16,木 割値表示17.オ プション18,MENU19?￨

<鳥

居

.が

'浮 き で る

>

(自 然 に )見 え た

(意

識 的 に

)見

た

置

・配

一☆

シ ミ ュ レ ー シ ョ ン

どこを変換 しますか (右 下図参照)

柱問1,柱2,高 さ3,貫4,額 束5,島 木6,笠 木7,亀 腹8,台 輸9,袖 柱10,袖 柱の貫■,回 転12, 拡大13,縮 小14,視 点変換15,位 置16,木 割饉表示17,オ プション18,MENU19?日

どこを変換 しますか (右 下図参照)

性叩11112,声 すL軍 41響 本5!島 木6,筆 本7,● 碑8,台 輪9,11柱 10,袖 柱の貫11, 拡大13,縮 小14,視 点変換15,位 置16,木 割航表示17,オ プシ百ViilM■

ll‐

Uiも ,

Ⅳ

-2

Eヨ

由

曲

線

「

1喧 三

」

☆ エ ン タ シ ス の 見 上 げ

形態変化 視点変換 画面変換

Eコ

コ ピー

1

4 7

0 RETURll

数の柱を見 る時は先に祝点変換 ,画 面変換 をして ください 形態変化 視点変換 画面変換 コピー 終了

<安

定 t感 が 得 ら れ る

>

☆垂 直柱 の見 上 げ

ｌⅢⅢⅢ願 ｌ ＝＝ ＝ ｌ ｌ

□□□□□

マウスで選択 してください 複数の柱を見 る時は先に視点変換,画 面変換をしてください

形態変化 視点変換 画面変換 コピー

終了 1

2

4

5

8 1/―

REIUR‖

い 複数ゐ理詈覺と爵〔尭甚損点変換,画 面変換をしてくださ 形態変化 視点変換

IumnE

<ま

のび す る

>

☆ 列 柱

マウスで選択してください

を見る時は先に視点変換,画 面変換をしてください

fln,earn ＝Ⅲ ＝ ＝ Ｗ

＝ ＝ ＝ 哺 ＝ ＝ ＝ ＝ Ⅲ ■ ロ 出 田 ＝ ＝

＝＝＝＝︱

山田 田 Ⅲ ロ

fl um*n

出■■︱暉

f,u're*n

い てく だ さ 甚 をし 換 変 ゐ 臓 点 変 換面 尭 菅 理 餐:爵 〔 複 姦 ,画

lrtwxtu,

画面変換

コピー ｌ ＝＝ｍ ＝ⅢＥ

“＝ⅢⅢⅢⅢ＝田皿田

ｍｍ鵬Ⅲ鵬皿口■■ロ

ー ロ＝＝＝

目 ︱ ︱ 日 ︱

Ｉ Ｉ Ｉ Ｉ 田

Ｉ ︱ Ｉ ｌｌ ｌ ︱ ｌ ︱ ︱ ︱ ｌ Ⅲ ＝ ︱ ︱ Ⅲ ︲ｉ

fln**n

終了

☆ 柱 の 形 態 の シ ミ ュ レ ー シ ョ ン

マウスで選択 して くだ きぃ

を見る時は先に視点変換。 画面変換をしてください 形態変化 癖 画面変換 ・ コピー 終了

マウスで選択 してください

を見る時 は先 に視点変換・画面変換 をして くだきい

命＝ 軋

形態変化 視点変換 画面変換 コピー 終了

出力例J IV -3

結

果

木 割 シ ス テ ム プ ロ ク ラ ム の 作 成 に よ り 、 「 木 割 」 が 建 築 物 の 形 態 を シ ス テ マ テ ィ ヽ ラク に 造 り だ す 過 程 が 明 ら か に な り 、 ま た 「 木 割 値 」 が 建 築 物 の 造 形 の 大 き な 鍵 と な っ て い る こ と も わ か っ た 。 そ の う え 、 こ の シ ス テ ム に よ り 「 木 割 」 の 解 析 ― 木 割 値 が あ る 値 に 収 束 し て い る こ と 、 各 部 材 に お い て そ の 木 割 値 の も つ 意 味 な ど が コ ン ピ ュ ー タ シ ミ ュ レ ー シ ョ ン に よ り 可 能 と な る で あ ろ う 。 ま た 、 自 由 曲 線 シ ス テ ム プ ロ グ ラ ム の 作 成 に お い て は 、 柱 の 形 態 や 並 び 方 に よ り 与 え る 印 象 の 違 い を 見 い 出 す こ と ‐ が で き た 。 そ し て 、 こ の シ ス テ ム は エ ス キ ー ス 時 の ポ リ ュ ー ム ス タ デ ィ に お い て 、 自 由 曲 線 の 利 点 を 生 か し て 有 効 に 利 用 で き る で あ ろ う 。

展

開

展

望

展 開

,展

望

本 論 文 の 目 的 で あ る 建 築 の た め の デ ザ ィ ン ツ ー ル と し て の

CADシ

ス テ ム の 作 成 の 一環 と し て 、 バ ラ メ ト リ ッ ク デ

ザ イ ン の 概 念 を 導 入 し た わ け だ が 、 ま だ ま だ 研 究 の 余 地 が あ る は ず で あ る 。 木 割 に 関 し て 言 え ば 本 論 文 で は 基 本 と し て 鳥 居 を 選 ん だ わ け だ が 、 こ れ を 堂 、 殿 屋 と 発 展 さ せ れ ば 構 .造 的 に も 意 匠 的 に も 優 れ た 一 つ の 寸 法 体 系 が 見 い だ さ れ る か も 知 れ な い 。 ま た 、 自 由 曲 線 に 関 し て 言 え ば 、 本 論 文 で は 柱 と い う 単 体 を 選 ん だ わ け だ が 、 こ れ を 発 展 さ せ る と 各 部 材 を 組 み 合 わ せ る こ と に よ リ ー つ の 形 態 を 創 り 出 す こ と が で き る で あ ろ う 。

CADシ の 改 善 や

ス テ ム 全 体 の 展 望 と し て は 、 ィ ン タ ー フ ェ ィ ス

OUTPUTの

表 現 方 法 の 改 善 な ど に よ る 、 プ レ ゼ ン チ

ー シ ヨ ン に お け る ビ ジ ュ ア ル コ ミ ュ ニ ケ ー シ ョ ン て わ か り や す い シ ス テ ム に よ る も の

)の

)、

し く

発 達 や 、 デ ー タ ベ

ー ス と の タ ィ ア ッ プ に よ る 情 報 管 理 シ ス テ ム シ リ テ ィ ー マ ネ ジ メ ン ト

(楽

(FM◆

フ ァ

人 工 知 能 か ら の ア プ ロ ー チ な

ど が 考 え ら れ る 。 い ず れ に せ よ 、 今 後 の 傾 向 と し て は 対 話 型 の わ か り や す い シ ス テ ム が 主 流 と な る で あ ろ う 。

参

考

文

献

■‐ 型 ―― 一 ―― <グ

ラ フ ィ ッ ク ス

>

「 コ ン ピ ュ ー タ ー デ ィ ス プ レ イ に よ る 図 形 処 理 山 口 富 士 夫

「

日 刊 工 業 新 聞 社

著

1981.6.30 GRAPHICS」

COMPUTER

山 本

発 刊

著

強

Jl学

CQ出

版 社

1983.10.20

発 刊

「 パ ソ コ ン に よ る グ ラ フ ィ ッ ク ス と デ ザ イ ン 」 四 郎

田 中

一 橋 出 版

著

31

1984.5。

発 刊

「 パ ソ コ ン グ ラ フ ィ ッ ク ス 活 用 研 究 」

1/0編 集 1984.8.15 「

PC9801

工 学 社

部

発 刊

グ ラ フ ィ ッ ク ス 人 門 」

脇

著

英 世

ナ ツ

1983.5.30 「

FM実

清 吾

ュ ー タ

N88 日

山 海 堂 発 刊

プ ロ グ ラ ミ ン グ 人 間 」

本 語

著

1983.4.20 BASiC(86)コ 肥 田 野 登

MS―

著

> 野 々 山 隆 幸

「 標 準

発 刊

1.30

1985。

「

社

践 グ ラ フ ィ ッ ク ス 」 田 島

<コ ン ピ 「 PC9801

_メ

, 1985.6.30 DOSハ ン ド プ

ナ ツ メ 社 発 刊 ン バ イ ラ ー 活 用 法 」

著

ナ ツ メ 社 発 刊

ッ ク 」

ア ス キ ー 出 版 局 編 著

1984.7.10

発 刊

J

参考文献J <木

割

>

「 匠 明 」 要 太 郎 著

鹿 島 出 版

1971.12.

20

ムム  刊

伊 藤

発

「 匠 明 五 巻 考 」 鹿 島 出 版

要 太 郎 著

1971.12.

20

発

△ム  コ＝

伊 藤

「 社 寺 建 築 の 工 法 」 佐 藤

1983.5。 <雑 「

誌

「 「 「

1

0

発 刊

>

AT」

「 ア ー キ ソ フ ト 」 「

理 工 学 社

日 出 男 著

AnC」 PIXELL」 ASCI I」 OH!FM」

デ ル フ ァ イ 研 究 所 井 上 書 院 建 築 知 識 図 形 処 理 情 報 セ ン タ ー ア ス キ ー 日 本 ソ フ ト バ ン ク

ヨに,

オ4)

ヒ〕

■ ここ

三わり

`こ

プ ロ グ ラ ム 作 成 に お い て 、 よ り 建 築 的 な 表 現 を 目 指 し て き た が 、 「 木 割 」 の プ ロ グ ラ ム に お い て 部 分 的 に 座 標 の 概 念 を 取 り 入 れ て し ま っ た 。

ま た 、 画 面 を フ ァ イ ル に お と

し て な い の で 変 換 の 際 に 無 駄 な 時 間 を 費 や し て し ま い 、 こ れ ら の 点 は 改 良 の 余 地 が あ る 。 ま た 、 プ ロ グ ラ ム の 作 成 後 、 時 間 が あ れ ば 美 し い 形 態 を 創 り 出 す バ ラ メ ー タ の 解 析 を 行 い 、 一 つ の 寸 法 体 系 を 見 い だ そ う と 思 っ て い た が 、 結 局 プ ロ グ ラ ム 作 成 と い う こ と で 終 っ て し ま っ た 。 し か し 本 論 文 の 作 成 に あ た り 、 三 次 元 グ ラ フ ィ ッ ク ス の 理 論 は も と よ り 、 木 割 や 鳥 居 と い う よ う な 思 っ て も み な か っ た 知 識 ま で 得 る こ と が で き 、 こ の 半 年 間 と で も 有 意 義 に 過 ご す こ と が で き た 。 最 後 に 、 論 文 作 成 中 に 多 大 な ど 指 導 を い た だ き ま し た 渡 辺 仁 史 先 生 、 歴 史 研 の 中 川 武 先 生 、 河 津 優 司 さ ん 、 平 山 育 男 さ ん 、 渡 辺 研 究 室 の 川 口 和 英 さ ん 、 渡 辺 俊 さ ん 、 西 谷 賢 二 さ ん 、 位 寄 和 久 さ ん 、 前 田 利 民 さ ん 、 鈴 木 大 三 さ ん 、 そ し て

1か

ら

10ま

で 親 身 に な っ て 教 え て い た だ き ま し た

安 留 昌 三 さ ん に 深 く お 礼 を 申 し 上 げ こ の 論 文 を 終 わ り に し た い と 思 い ま す 。

￨

録

マ Iノ

」K

ユ  ト

付

7

ル

本 プ ロ グ ラ ム は

5540の 5540を

ル チ ス テ ー シ ョ ン

5550及

び

も と で 作 動 す る も の で あ る

本 マ ニ ュ ア ル は の で

IBMマ 5550の

使 用 を 想 定 し て 書 か れ て い る

使 用 の 際 は 章 末 を 参 照 の こ と

自 由 曲 線 「 柱 」 は マ ウ ス を 使 用 す る の で マ ウ ス 付 キ ー ボ ー ド を 使 用 す る こ と キ ー ボ ー ド よ り 入 力 し た 後 は 必 ず リ タ ー ン キ ー

(回 )を

押 す こ と

I BMn)L,f7V-y

IBMマ

e

ル チ ス テ ー シ ョ ン

5540

付

-2

イ 寸

録

‐■

木

害 OJ tノ

ジく

テ

ム

「

鳥

」

居

本 プ ロ グ ラ ム は 鳥 居 の 各 部 材 の 木 割 値 を 変 え る こ と に よ つ て 生 じ る 形 態 の 変 化 を シ ミ ュ レ ー トす る も の で あ る

1

シ ス テ ム の 起 動 ① コ ン ピ ュ ー タ の ス イ ッ チ を 入 れ る

② ド ラ イ プ

(V。 2.

1

に

MS―

4)の

DOS

ドラィブ

デ ィ ス ク

:

ドラ ィブ 2 ドラィプ 3

を 入 れ る

蘭 硼 ③ 数 十 秒 待 つ と 日 付 け と 時 間

tF目 露 t暑 で 路 t犬 男 lgR「

を 聞 い て く る が そ れ ぞ れ

RETURN KEY(回

す

13:04:2で す 現在の時 新しい￨￨‖ セスカ してくだき■ 3 "は

)

を 押 せ ば よ い

付

-3

④

A〉

の 印 が 出 て き た ら

キ ー ボ ー ドよ り

BASI

1

C

です 現在の日付は le05‐ ‖ `い ￨ 断 しい日lteス カ してくだきい Jl在 の時 綸 15:14350で す 新しい￨,用 を入力 してくだとい : “ 口 田

:● t● ￨:“ B‐ 口哺l Ch中 け 路 :“ Ve‐ :“ 曖。 40 5000‐ J口 lCD C● ● rilht lBII C"● .19“ J●

lL:ヒ

LnJ:暉 “““

と 入 力 し回 を 押 す

1-“

1C)● L:● ● ‐

dH● け

`1985 rt“ r..1四 .1035

ι‖

… "r:め恥ore●

:● 1‐

P●

●rt,o『 口H

DDSIC

⑤

BASI

Cの

画 面 が 現 れ る

lill

lcltl.t tlc blnr/?ml lnlc &1.10

!660

Jus

Cqrtr Srell lll 6n. leEl.le6 lllceft Car. lgtl,lels Llesd l|rsl.l.- iqru Proprtr of llll 0l0ta lrta til a lNlC

Sa00-JI0

2

Gl Coerrlrtl Gl Coerrldt

プ ロ グ ラ ム の 呼 び 出 し ① ドラ イ プ

2に

プ ロ グ ラ ム の

ドラィプ :

人 っ て い る デ ィ ス ク を

.′

ドラィプ 2 ドライプ 3

入 れ る

② キ ー ボ ー ド ょ り

LOAD

"B:TORI I― と 入 力 し回 を 押 す

G"

[|| 5550 Lltl.t tla J.ru lslG./Pgul Cc0ti 9rlo lNtr Inla &!.10 56O'Jl! C! GerrLlt lll 6rr. l$1.195

, C) Corrrldt llmtt Car. l$l.lG llmd llrtrhl - lrru hcrtr cf ll|l lltc fn I ltrD'lrtull{ ClOl

‐ 付

-4

@O

K E 1[ |1 lf

^

fi ft,j

i!,#ili$-,&s.-sur llSE lmlc 12.10

fao-,ll! Gl Grrkbr lltt C) Corrfirbt

CcD. DCt,le6

XisE t Ccr. left,lttg

Llmd l||rrhl - ?rrn ?rwr,r cl lltl 0l!t{ Irt

s

fro

c uxtrtrrtll{ c

3

プ ログ ラムの始 動 ① キ ー ボ ー ドよ り

RUNと

‐

￨

入 力 し回 を 押 す

￨

@TaytArrlftst/ MENU'JST * € E iE h re + -

& a^n

,J(

LuEtrr

- 1."

(r)*il?arA

::i;;;""-"

' (4r:"

. cl.*Lrra? 畷 瀬

「

'

。

付

-5

木 割 シ ス テ ム

3に

①

お い て

1

番 を 選 ぶ と

始 動 す る

―

MENU● ￨￨￨“

(1)ホ ロシステム (2)バ ース

(3)DEMO (4)織 7

バース

どれにしますか,1

]員 田「日

② まず柱 間 の寸 法 を 聞 い て くる

=H`メ

1

柱目の寸法は何尺ですか,1嘔 ￨● IJ L

フト ,(")A■ "lL

の で 尺 単 位 で 入 力 し回 を 押 す

(一 般 に

16尺

1′

100L

フ),(￨￨)Al● 10/100L r7r10A ・ 3/10A パ OA ,7′ 】 t・

が 目安

)

"・

・ 9/10A パ

"1911 颯

3/m

M・

“

り ν100L tイ a^・

2/5A 11

● ″

③ 数 十 秒 待 つ と柱 が 現 わ れ 「 次 に 進 み ま す か 」 と 聞 い て

に みま す 次 進 ?￨ ャ 選 xく ざ λ

￨●

IJ L

フ 100L "lL フ"(")A31ν ト ,0'A1810/100L 7r10A

入 力 し回 を 押 す

・ 3/10A パ “ ガ ,7/:IA

１＝ⅢⅢ皿 籠１

Yと

性目の寸織離何尺ですか?10

ｌ Ш 冊Ⅲ Ⅲ ｉ

く る の で

"

0/104 "‐ ,IA "°

3鶴 “

ν5A

"・ tr ν5A "tr100L

・ 11 パ マンtイ′1′2嗜ン

④ 鳥 居 が完 成 す る と

MENUへ

も ど

と聞 いて くるの で し回 を 押 す 1

り   Ｙ

「

MENUに 戻夕

ま す か 」

鶴 鼈 1/ml日

￨●

IJ L

崩 ,卜

.

lL

,0"llAn

,,,1031A1810/100L

と 入 力

tr 7/10A

・ ν10A ぶ

,7710A

"・ M・

moA

,11 "°

tr,電

・ V5A パ 餞

25A "1ハ lA

“″ "・ ψ ―

付

-6

5

バ ー ス ①

3に

お い て

2番

を 選 ぶ と 始 動 "￨●

す る

● MENUI“ ●●

(1)ホ ロシステム (2)パ ース

(3)DEMO

バース

(4)贅 了 どれにしますか

'2

② 柱 間 を 聞 い て く る の で 尺 単 位 で 入 力 し回 を 押 す ‐ (一 般 に 16尺 が 目 安

割 値 の 入 力

)を

すか11輻

)

③ 柱 に 関 す る パ ラ メ ー タ の 入 力

(木

性口 …

饗鮮

し

tJ‖

]1箇 T由 I二 1・

促 さ れ る

の で 画 面 の 木 割 値 を 参 考 に テ ン キ ー よ り入 力 し回 を 押 す

④ 額 東 に 関 す る パ ラ メ ー タ を 入 力 す る

い 警繊(紺 雛 :臀二 %・

ー

Ｉ躙田 鵬田Ｉ

付

=7

■の断面 口角1.円 η IE

⑤ 貫 の形 態 を選 択 す る

⑥ 貫 に 関 す る パ ラ メ ー タ を 入 力 す る

⑦ 島 木 の あ り、 な しを選 択 す る

③ 島 木 の形 態 を選 択 す る

&f Drrr.tL? rl

島ホ初囁き たすt“

=Ol。

たすt晏 斜め″ 。 たす0墨 2斜 めW374

付

-8

⑨ 島 木 に 関 す る パ ラ メ ー タ を 入 力 す る

⑪ 笠 木 の形 態 を選 択 す る

⑪ 笠 木 に 関 す る パ ラ メ ー タ を

i*olt' r:trtalgr.

r:t!tt{D@, r:rltefl

D3.8.?

難 :齢1選翻 :∴

入 力 す る

⑫ 亀 腹 の あ り、 な し を 選 択 す る

tuあ り

1。

なし2P増

付

-9

{

0亀

腹

に

関

す

る

ノ｀

ラ

メ

ー

タ

を

tH翻

tuの せい

(本 田饉 0,7● 性 の六 き)1.7 劇

●

250L鍼

き口

25

￨

入 力 す る

⑭ 台 輪 の あ り、 な しを 選 択 す る

ヽラ メ ー タ を ⑮ 台輪 に 関 す るノ

り 譴あ Lな し η■

台輸 鮒菫o.33性 大き,7.3 喘 u嘔 ￨1饉 L確 鉱き ‖■ 4 押 ● のせい

の

入 力 す る

① 袖 柱 の あ り、 な しを 選 択 す る

atあ り

1。

なし

"IE

付

-10

① 袖 柱 に 関 す る パ ラ メ ー タ 入 力 す る

⑬ 控 貢 に 関 す る パ ラ メ ー タ を

の:円 躙饉l難 :奎 封:鳥 警杏

入 力 す る

⑮ 鳥 居 の パ ー ス が 作 成 さ れ 各 種 変 換 の 画 面 が 現 れ る

画面説明

A:変 換 B:パ ース画面 C:平 面 (鳥 居 の位置 と人 の位置及 び

D:立 面 E:側 面

(対 象点 ) (視 線

)

・Ｅ

視点 と対象点 の座標 <尺 単位 >) ‐

付

-11

各 種 鳥 居 ①

3に

お い

DEMO て 3番

を 選 ぶ と ―

始 動 す る

MENリ ー

(1)ホ ロシステム (2)パ ース (3〕

DEMO "― ス

(4)織 了 どれにします●t3

② 見 た い鳥 居 の 番 号 を選 ん で

(1)H●E (2)ハ 僣A磨

テ ン キ ー よ り入 力 し回 を 押 す

(3)春 口農晨

4)鴨神局居 〔

(5)unC .`6)mBE (7)JE日 6■ (3)蘭 BA3 19)三 llB居 。 ど .“ にし

な?

'す

③ そ の 鳥 居 の 解 説 が 現 れ る

④「 次 に進 み ます か 」 と 聞 いて くるの で 回 を押 す

Yと

入 力 し

…

根

`E89:麟

次に選み 合すかい

喘

で あ 0.― n… rt性 に る ● 口 ほて 営 望 :里 摯 「

,V

ヨ 閂籠

付

-12

⑤ 柱 間 の 寸 法 を 聞 い て く る 尺.単 位 で 入 力 し 回 を 押 す

(一

般 に

16

の

で

EEの

寸薔

HRTす か,嘔

“

0)MEE

尺 が 目 安 )

⑥ 鳥 居 の パ ー ス が 作 成 さ

変換1.MENU2.機 73,日

変 換 の 画 面 が 現 れ る

付

-13

各 種 変 換 ① パ ー ス 作 成 後 変 換 の 画 面 に な る の で 番 号 を 選 択 し入 力 す る

② 柱 問

1∼

控 貫

11:

貫 …

各 部 材 の パ ラ メ ー タ

)を

③ 回 転

(木

口角1.円 274

割 値

変 え 形 態 を 変 化 さ せ る

12:

回 転2.200回 転‐ 372 毬領芳震l電 出

.

回 転 の 軸 と 回 転 角

(DEG)

を 入 力 す る

④ 拡 大

13:

鳥 居 が 小 さ す ぎ る 場 合 に 選 択 す る

付

-14

⑤ 縮 小

14:

鳥 居 が 画 面 か ら は み 出 す 場 合 に 選 択 す る

⑥ 視 点 変 換

∞

卜γ2『 &出・ [ヨ 1群 熙癖課が長

15:

:。

ど こ か ら 見 る か

(X,Y,Z

座 標 、 尺 単 位 ) ど こ を 見 る か

(同

様

)を

画 面

右 上 図 を 参 考 に 入 力 す る

⑦ 位 置

島居の中心の位置

16:

Z座

標 、 尺 単 位

° ③ 木 割 値 表 示

す

Ｚυ    ＾ ，

(X,Y )を 入 力

鳥 居 の 中 心 の 位 置

X,Y.210,0,う 嗜

17:

鳥 居 の 画 面 の 下 に 各 部 材 の パ ラ メ ー タ

(木

割 値

)が

表 示 さ れ る の で こ れ を 参 考 に 卜 ７・

形 態 を 変 化 さ せ る

付

-15

⑨ オ プ シ ヨ ン

地形1,相 。 人間3,層 ●4.“ ,MEN UO?ロ

18:

サ プ 画 面 が 現 れ る の で 番 号 を 選 択 し 入 力 す る

⑩ オ プ シ ヨ ン

地 形

1:

1.IIn‐271日 平面‐

平 面 か 階 段 か 選 択 す る

⑪ オ プ シ ョ ン 植 え る 位 置 座 標 、 尺 単

2: (X,Y,Z 位 )を 入

⑫ オ プ シ ョ ン

木

人 間

どこに植えますか X.1.27‐ 10,0,10E

力 す る

3

人 間 が 現 れ る

付

-16

屋 台 4:

① オ ア シ ヨン 置 く 位 置

⑮ オ プ シ ヨ ン

①

)を

‐ 10.0,電

入 力 す る

5: (X,Y,Z 単 位 )を 入

⑭ オ ブ シ ヨ ン

座 標 、 尺

=,V,“

(X,Y,Z

座 標 、 尺 単 位

置 く位 置

どこにEt'す か

どこに置きますか X,1,270.0,‐ 7q

堂

力 す る

MENU6

MENUへ

戻 る

MENU19: MENUへ

戻 る

付

-17

⑦ 選 択 後 そ れ ぞ れ 「 画 面 を

●OEE● ■し,す かtY/N),■

残 し ま す か 」 と 聞 い て く の で

Y,Nを

入 力 す る

付

-18

プ ロ グ ラ ム リ ス ト説 明

行 番 号

80-19o

初 期 設 定

1000-4190

バ ー ス 作 成

5000-6200

ビ ュ ー ポ ー ト

10000-13010

各 種 変 換

15000-17370

各 種 鳥 居

25000-25070

DATA部

25080-62630

DATA部

DEMO 初 期 設 定

ff - r

e

10 '************************ホ *************************** 15 '

20' 1985年

度

30 '

卒 業 論 文

CAD'85

木 割

40' PROGRAMED BY T.NISHIMURA 50 .

60'

WATANABE LAB。

65 '

70 80 90 95

'**************************************************** DIM X(310),Y(310),Z(310) DIM XX(310),YY(310) KEY OFF 98 SSSお 1:KHK=1:DD=1:SHS=1

100.初

期 設 定

110 SCREEN O,0:CLS 2

120 130 140 150 170

LOCATE LOCATE LOCATE LOCATE LOCATE

5,20:PRINTl'******ME NU****** 8,20:PRINT'(1)木 割 シ ス テ ム " 10,208PRINT"(2)パ ー ス " パ ー 12,20:PRINT"(3)DEMO 14,208PR INT"(4)終 了 " ;1:A

こし ます 180 LOCATE 18,20:INPUT"ど れ ι 190 0N A GOT0 200,1000,15000,13000 200 END

10001パ

1001 1002 1003 1004 1005 1006 1007 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1030 1040

ス

"

か

ー ス変 換

SCREEN l,0 00SUB 25000:A3=0 1F A3=O THEN GOSUB 25040 ELSE 00T0 15168 1F A3=O THEN 1005 ELSE 15170 00SUB 25060 GOSUB 25080 0N ND 00SUB 30000,30180 00SUB 30000 1F SSS=l THEN 101l ELSE 1012 ' 0N SNS GOSU3 35130,35000,35220 0N KNS GOSUB 40450,40000,40560040170 1F KHK=l THEN 1014 ELSE 1016 00SUB 45000 1F DD=l THEN 1016 ELSE 1018 60SUB 45330 1F SHS=l THEN 1018 ELSE 1020 GOSUB 50000 GOSUB 503401 1F A3=O THEN 1030 ELSE 15180 1S=1:IE=308:00SUB 2000 . 1F A3=O THEN 1045 ELSE 15190 1045 WINDOll SCREEN(■ 426*W,¨ 280*W)‐ (426*W,200*W) 1050 VIEW (1,100)― (800,550),,1 1072 1F A3=O THEN 1073 ELSE 15190 1073 RESTORE 4040 1075 1A=57:GOSUB 4000 1080 00SUB 5000:GOSUB 6000:GOSUB 6060 1085 00T0 10000 付

-2o

,u.w s u-B 2010 F0R I=IS T0 IE 2020 X=X(I) :y=y(I) zZ=Z(l) 2030 0N F 00suB 3000, 3040, 3o?0 C0SAL = / ( (XF-XA) ^2* (ZF-ZA) ^Z) ^. s ?040 ( (XF'-XA) ^2* (ZF -Zh)^2). .it'rtxF-xA) ^2, (yF-yA) 2050 c0sBE= \Z.F-ZA) ^2, (Z zo-oo

F-ZA)^2)^.5

INAL= (XA-XF") / ((XF-XA) ^2 * (ZF-Zh)^Z) ^. s sINBE= (yF-yA) / ((XF-XA) ^2* (yp-tAi " 2* (Zp-zn) ^2) ^.5 2O8O XE=XlTCOSAL*21*SINAL-XFxCOsAL-ZFxS INAL 2O9O YE=X1TS INAL*S INBE+YlTCOSBO-21:!COSAL:!S INBE-XF.xS INAI.:iS IN BE-YFf COSBE+ZF:!COSAL*S INBE 2 1OO ZE=X1TS INAL*COSBE-Y1Ts INBE.Zl:TCOSAL*cOsBE.XFy;S INALTCOs B E+YFtS I N B E +ZFrC0S AL.";C0SBD 2 1 10 PX=ZFrXE/ZE 2120 PY=ZF*yE/ZE 2130 IF ZF<ZA THEN 2135 ELSE 2T40

?gq0 2070

S

2135 XX(I)=-PX 2136 YY(I)=PY:G0T0 2lS0 2140 'Yy XX ( I) =PX

( I) =-py 2745 2150 NEXT I

2T7O

RETURN

3OOO 'EI $E S

UB X1=X 3O2O Y1=YTCOS (RAD) -Z*S IN (RAD) 3O3O ZI=Y *S IN (RAD) +Z*COS (RAD) : RETURN 3O4O X1 =X*COS (RAD) .ZTS IN (RAD) 3050 Y1=Y 3010

3060 Zl=x*SIN(RAD +Z*COS(RAD):RETURN 3070 Xl=X*COS(RAD ―Y*SIN(RAD) 3080 Yl=Xホ SIN(RAD +Y*COS(RAD) 3090 Zl=Z:RETURN

4000:作

図

SUB

4004 FOR I=l TO IA 4006 READ K,H,C,D 4014 0N H GOSUB 4120,4170 4015 NEXT I:RETURN 4020 1 4022 FOR I=l To lB 4024 READ K,H,C,D 4026 NEXT I:RETURN 4040 DATA l,1,600,11,1,6,0,1,2,0,7

２ ３

0,3

,2.0,7,141,1,6,0

1111 1111 ili:iiii:￨:::lll:￨:￨:::￨:￨:￨: 付

41‐ 螂

4125 4130 4140 4150 4160 4170 4180 4190

線

S U J

PSET(XX(K),YY(K)) FOR N=K TO K+C LINE ―(XX(N+1),YY(N+1)) NEXT N LINE (XX(K+C+1),YY(K+C+1))― (XX(K),YY(K)):RETURN FOR M=K TO K+D LINE(XX(M),YY(M))‐ (XX(M+10),YY(M+10)) NEXT M:RETURN

5000・ ビ ュ ー ポ ー ト lSUB 5020 WINDOW SCREEN(-4000-400)― (400,1400) 5030 VIEW(800,100)― (1000,550)。 ,1 5040 FOR C=-384 T0 384 STEP 32 5050 LINE(C,-600)‐ (C,2000),,,&HAAAA 5060 NEXT C 5070 FOR D=-576 T0 2000 STEP 32 5080 LINE(-400,D)― (400,D),,,&HAAAA 5090 NEXT D 5095 LINE(-400,0)― (400,0) 5096 LINE(0,-600)¨ (0,2000) 5097 LOCATE 7.60:PR INT'iZ=00= 5098 LOCATE 16,57:PRINT:・ Z=60ガ 甦 "

5099 LOCATE 4,69:PRINT・ 'X=01= 5100 CIRCLE(― .5*L。 中HZ),A/2 5110 CIRCLE(.5*L,― HZ),A/2 511l IF F=2 AND RADく 〉O THEN 5112 ELSE 5120 5112 XFF=ZF*SIN(RAD) 5113 ZFF=ZF*COS(RAD) 5114 CIRCLE(XFF,ZFF)。 20 5115 LINE(XFF・ ZFF)― (XA,ZA) 5116 LOCATE 18.57:PRINT INT(XFF/16):INT(YF/16):INT(ZFF/16) 5117 LOCATE 6,66:PRINT INT(XA/16):INT(YA/16),INT(ZA/16) 5118 XFF=XFF/SIN(RAD) 5119 ZFF=ZFF/COS(RAD)800T0 5132 5120 CIRCLE(XFDZF),20 5130 LINE(XFoZF)― (XA.ZA) 5132 1F KIA〓 l THEN 5133 ELSE 5135 5133 CIRCLE(KIXOKIZ)。 20 5134 CIRCLE(KIX,KIZ).200 5135 1F YAA=l AND YAX<O THEN 5136 ELSE 5137 5136 LINE(YAX,YAZ)― (YAX-50,YAZ-80),,B:GOT0 5139 5137 1F YAA=l AND YAX〉 =O THEN 5138 ELSE 5139 5138 LINE(YAX,VAZ)― (YAX+50,YAZ-80),,B:GOT0 5139 5139 1F RAD〈 〉0 00T0 5160 ELSE 5140 5140 LOCATE 18.57:PRINT INT(XF/16):INT(YF/16)31NT(ZF/16) 5150 LOCATE 6,66:PRINT INT(XA/16):INT(YA/16):INT(ZA/16) 5160 RETURN 付

-22

6000

・ピ ュ ー ポ ー ト

6020 W｀ INDOW

2

SCREEN(-300,-300)― (300,300) 6030 VIEW(800,550)― (1000,750),,1 6031 1F AA=17 THEN CLS l 6032 X(309)=XA:Y(309)=YA8Z(309)=ZA 6034 1S=30981E=310:GOSUB 2000 6037 CIRCLE(XX(309),YY(309)),10 6038 RESTORE 4040 6039 1A=21 6040 GOSUB 4000 6041 1B=36:00SUB 4020 6042 'LOCATE 20,618PRINT'I笠 木 6043 ・LOCATE 21,61:PRINT"島 木 6044 ・LOCATE 22,618PRINT':貰 " 6045 。LOCATE 22,68:PRINT・ ・額 束 ・ 6050 RETURN 6060・ ピ ュ ー ポ ー ト 3 6090 WINDOW (-1800,-100)― (600,500) . 6100 VIEW (1,550)― (800,750),,1 6101 1F AA=17 THEN CLS l 6102 FOR C=-1792 T0 576 STEP 32 6104 LINE (C,-100)― (C,500),,,&HAAAA 6106 NEXT C 6108 FOR D=-96 T0 480 STEP 32 6110 ‐LINE (-1800,D)― (600,D),,,&HAAAA 6112 NEXT D 6115 LINE(-1800,0)― (600,0) 6120 LOCATE 20,46:PRINT :=Z=0:・ ・ 6125 LOCATE 2o,20:PRINT "Z=60尺 ・ 6130 LINE(― A/2+HZ,0)― (A/2+HZ,Hl),,B 6140 CIRCLE (-2,F,YF),15 6145 LINE (― ZF-10,YF… 15)― (-2F+10,YF-64),,B 6150 LINE (― ZF,YF)― (― ZA・ YA) 6160 1F KIA=l THEN 6165 ELSE 6180 6165 LINE (― KIZ,10,KIY+150)― (― KIZ-10,KIY),,B 6170 CIRCLE (― KIZ,KIY+220),100,,,,1.5:00T0 6200 6180 1F YAA=l THEN 6185 ELSE 6200 6185 LINE (― YAZ-800YAY+40)― (― YAZoYAY)。 ,B 6190 LINE (― YAZ-80,YAY・ 100)― (― YAZ・ YAY),・ B 6195 LINE (― YAZ-80,YAY+100)― (― YAZ,VAY+80),,B:00T0 6200 6200 KIA=0:YAA=0:RETURN '1

':

=

付

-23

Tσ面 画 路 砲 変

l■

10010 LOCATE l,18PRINT'=

10020 LOCATE l。 1:PR INT"ど こ を 変 換 し ま す か (右 下 図 参 照 )" 10030 1NPUT"柱 問 1,柱 2・ 高 き 3,貫 4,額 東 5,島 木 6,笠 木 7,亀 腹 8,台

9,袖 柱 10,袖 柱 の 貫 H,回 転 12, 拡 大 13,縮 小 14,視 点 変 換 ,木 割 値 表 示 17,オ プ シ ョ ン 18,M E N U19":AA

15。

輸 位 置 16

10040 0N AA 00T0 10670,10050,10110,10150,10230,10290,10350,1 0380,10390,10400,10410,10420,10700,10720,10450010490,10750,1 0042,12000 10042 LOCATE l,18PRINT'' 10043 LOCATE 2,1:PRINT'] 10044 LOCATE 3,18PRINT':

10045 LOCATE l,1:INPUT"地

AA2

形

1,木 2,人 間 3,屋 台 4,堂

5,MENU6";

10046 0N AA2 GOT0 10820,10850,10900,10950,11100,12000 10050 LOCATE l,1:PRINT::

10051 LOCATE 2,1:PRINT・

:

10052 LOCATE 3,1:PR INT:・

10054 LOCATE l,1:INPUT"柱 び .5,転 び な し 0":HK 10060 LOCATE 2,1:INPUT"柱 10070 A=A*L 10080 LOCATE 3,1:INPUT"柱 )・ :Al

(木

の転 び の太 さ の大 き

八 ッ中 転 び .293・ 半 転

割 値

(木 割 値 0。 (上 部

) (木

H*柱

間

割 値

)":A

0。 1*柱 間

10090 Al=Al*L 10095 CLS O:GOT0 1004

10110 LOCATE l,18PRINT=・

1011l LOCATE 2,1:PRINT'= 10112 LOCATE 3.1:PRINT。 10120 10130 10140 10150

1

LOCATE l,1:INPUT。 '高 Hl=Hl*A CLS O:GOT0 1004 LOCATE l,1:PRINT。

き

(木

10*柱 の 太 き )":Hl

割 値

'

10151 LOCATE 2,18PRINT・・ 10152 LOCATE 3,18PRINT=1

10154 10160 10170 10180 10190 10200 10210 10213

LOCATE l,1:INPUT"貫 LOCATE l,1:INPUT"貰 NS=NS*A LOCATE 2,181NPUT"貫 NH=NH*A LOCATE 301:INPUT"貫 NN=NN*L CLS O:00T0 1004

の断 面 のせ い の幅 の長 さ

四角

1

,円

2":ND

(木 割 値 0。 7*柱 の 大 き )":NS (木 割 値

(木 害J 値

O。

3*柱 の 太 き )":‖ H

1.4*柱

問

)":NN 付

-24

10230 LOCATE l,1:PRINT''

10231 LOCATE 2.18PRINT" 10232 LOCATE 3,1:PRINT。

'

10240 LOCATE l,1:INPUT"額 !::GS 10250 10260 10270 10275 10290

0S=CS*A LOCATE 2,1:INPUT"額 GH=GH*A CLS O:GOT0 1004 LOCATE l,1:PRINT'1

(木 割 値

束 の せ い

0.9*柱

(木 割 値

束 の幅

柱 の 太 さ と同 値

)

の 大 き )":GH

10291 LOCATE 2,1:PRINT'' 10292 LOCATE 3,1:PRINT・・

10293 LOCATE l,181NPUT"島 木 あ り 1,な し 2":SSS 10294 0N SSS GOT0 10295,10340 10295 LOCATE l,1:INPUT"島 木 の 長 き た す き 墨 垂 斜 め 切

2,た す き 墨 2斜 め 切

10296 LOCATE l,1:PRINT"

3・

:SNS

10300 LOCATE l,1:INPUT"島

木 のせ い

10310 10320 10330 10332

SS=SS*A LOCATE 2,181NPUT"島 SH=SH*A LOCATE 3:181NPUT"島

木 の幅

10335 10340 10341 10342 10345 10350

CLS O:GOT0 1004 FOR I=81 T0 104 X(I)=0:Y(1)=0:Z(I)=0 NEXT I CLS O:SS=0:SH=0:SM=0:GOT0 1004 LOCATE l,18PRINT"

SS

SM

(木 割 値

(木

直 切 1,た す き 墨

0.6*柱

の太 ざ

)":

割 値

0.6*柱

の 太 さ )":SH

木 の 反 り (木 割 値

1.2*島

木 のせ い

)":

10351 LOCATE 2,18PRINT'= 10352 LOCATE 3,1:PRINT''

10357 LOCATE l,1:INPUT"笠 斜 め 切

木 の長 き

た す き 墨 垂 直 切 1,た す き 墨

木 の せ い

(木 割 値

2,た す き 墨 2斜 め 3,円 4":KNS

:

10359 LOCATE 101:PRINTl:

10360 LOCATE l,1:INPUT"笠

KS

10362 KS=KS*A 10364 LOCATE 2,181NPUT"笠

KH

10366 KH=KH*A 10367 LOCATE 3,181NPUT"笠

KM

10368 CLS O:00T0 1004

0.4*柱

の 大 き )":

‐ 本 の幅

(木

割 値

木 の 反 り (木 割 値

柱 の太 ざ と同 値

1.5*笠

木 のせ い

)・

:

)"; 付

-25

,

10380 LOCATE l,1:PRINT・ ・

1

10381 LOCATE 2,1:PRINT" 10382 LOCATE 3,18PRINT'=

10383 LOCATE l,1:INPUT"亀 腹 あ り 1, な し 2・ :KHK 10384 0N KHK 00T0 10385,10387 10385 LOCATE l,1:INPUT"亀 腹 の せ い (木 割 値 0。 7*柱 の 太 ざ )":K HS:KHS=KHS*A 10386 LOCATE 2,1:INPUT"亀 腹 の 幅 (本 割 値 2.5*柱 の 大 き )":KHH :CLS O:GOT0 1004 10387 FOR I=151 T0 188 10388 X(I)=0:Y(I)=0:Z(I)=0 10389 NEXT I:CLS O:KHS=0:KHH=0:00T0 1004 10390 LOCATE l,1:PRINT" 10391 LOCATE 2,18PRINT" 10392 LOCATE 3,1:PRINTl:

10393 LOCATE l,1:INPUT"台 輪 あ り 1,な し 2":DD 10394 0N DD 00T0 10395.10397 10395 LOCATE l,1:INPUT"台 輸 の せ い (木 害J値 0。 3*柱 の 太 ざ )":D S:DS=DS*A 10396 LOCATE 2,1:INPUT"台 輪 の 中冨 (木 害J値 1.4*柱 の 大 き )":DH: CLS O:00T0 1004 10397 FOR I=191 T0 228 10398 X(I)=0:Y(I)=0:Z(I)=0 10399 NEXT I:CLS O:DS=0:DH=0:GOT0 1004 10400 LOCATE l,18PR INTl:

10401 LOCATE 2.18PRINT・・ 10402 LOCATE 3,18PRINT''

10403 LOCATE l,1:INPUT"袖 柱 あ り 10な し 2":SHS ・ 10404 0N SHS 00T0 10405,10419 10405 LOCATE l,1:INPUT"袖 柱 の 転 び 八 ッ中 転 び 。293半 転 び 。5,転 び な し 0":SHK 10406 LOCATE 2,1:INPUT"袖 柱 の 太 き (木 割 値 0.7*柱 の 大 き )": SA:SA=SA*A 10407 LOCATE 3,1:INPUT"袖 柱 の 高 さ (木 割 値 0。 5*柱 問 )":SAH 10408 SAH=SAH*L:CLS O: GOT0 1004 10410 LOCATE l,18PRINT'1 1041l LOCATE 2,18PRINT'' 10412 LOCATE 3,1:PR INT。・

)(木

10413 LOCATE l,1:INPUT"控

貫 の 太 き (上

10414 LOCATE 2,1:INPUT"控 :UNT=UNT*A 10415 LOCATE l,18PRINT"

貫 の 高 さ (木 割 値

)":UNH:UNH=UNH*A

割値

0.5*柱

4*柱

の 太 ざ )":UNT

の大 き

10416 LOCATE 2,18PRINT・・ イ 寸

_o0

貫 の 大 tF(Ti)

(木 割 値

0.5*柱

の大 き

;011:NI::II:DliliINPUT'1控 (下 ) (木 割 値 1.5*柱 の 大 き 1::N:::II[D(ilill[:T:It:評 10419 FOR I=231 T0 308:X(1)=0:Y(I)=0: Z(I)=0:NEXT I:CLS O:00T 0 1004 `)Riへ 10420 LOCATE l,1:PR INTl'

ザ

10421 LOCATE 2.18PRINT=・

10422 LOCATE 3,1:PRINT=:

10425 LOCATE l,1:INPUT"X申 10430 LOCATE 2,1:INPUT"回 10440 00T0 10560

山回 {嘱 -1, Y軸 回 転 -2,Z軸 回 転 -3":F 転 角 度 ": DEG:RAD=DEG*3.14159/180

10450 LOCATE l,1:PRINTl・

10451 LOCATE 2,18PRINT'1

10452 LOCATE 3.1:PRINT" 10460 LOCATE l,1:INPUT"ど こ か ら 見 ま す か (右 上 図 参 照 )X,Y , Z :'3XF,YF,ZF:XF=XF*16:YF=YF*16:ZF=ZF*16:LOCATE 18,57:PRINT INT(XF/16):INT(YF/16):INT(ZF/16) 10470 LOCATE 2,1:INPUT"ど こ を 見 ま す か (右 下 図 参 照 )X,Y, Z(li)16;li【 66:PRINT IN li11ラ I:'I:i11:I夕 1:,:ZA=ZA*16:LOCATE 6, 10480 00T0 10560 10490 LOCATE l,1:PR INT':

10491 LOCATE 2,1:PRINT.1 10492 LOCATE 3,18PRINT・・

10500 LOCATE l,181NPUT"鳥 居 の 中 心 Z:HX=HX*16:HY=HY*16:HZ=― HZ*16 10510 00T0 10520 ' 10520 LOCATE l,18PRINT;'

の位 置

X,Y,Z

:';HX,HY,H

10521 LOCATE 2,1:PRINT" 10522 LOCATE 3,18PR INTl'

10525 LOCATE l,1:INPUTに の 画 面 を 残 し ま す か 10530 1・ F II$=l'Y・・ THEN 1004 10540 1F II$=・・N'1,THEN 10550 ELSE 10520

(Y/N)":II$

10550 CLS O:00T0 1004' 10560 LOCATE 1018PRINT・・ 10561 LOCATE 2,18PRINT=: 10562 LOCATE 3,18PRINT・・

10565 10570 10580 10590

LOCATE l,181NPUT"こ の 画 面 を 残 し ま す か (Y/N)":JJ$ 1F 」J$="Y・ ' THEN 1020 1F 」J$=t'N:・ THEN 10590 ELSE 10560 CLS O:GOT0 1020 付

-27

10600 LOCATE l,1 :PRINT'' 10610 LOCATE 2.1

8PRINT・・

10620 LOCATE 3,1 8PRINT'1 10630 LOCATE l,1 81NPUT"こ の 画 面 を 残 し ま す か (Y 10640 1F KK$=.lYO' THEN 1012 10650 1F KK$=・・N': THEN 10660 ELSE 10600 10660 CLS O:GOT0 1012 10670 LOCATE l,1 8PRINT" 10672 LOCATE l,1 :INPUT"柱 10674 L=L*16 10680 LOCATE l,1 8PRINT"

間 の寸 法 は何 尺 ですか

/N)":KK$

":L

10682 LOCATE 2,1 8PRINT"

10700 W=W*。

10710 10720 10730 10750

す

10686 LOCATE l,1 :INPUT"こ の 画 面 を 残 し ま 10688 1F IJ$="Y'1 THEN 1002 10690 1F I」 $=・・N・・ THEN 10695 ELSE 10680 10695 CLS O:GOT0 1002

﹁″ ”  Ｌ

10684 LOCATE 3,1 8PRINT"

(Y/N)":IJ$

8

00T0 10600 W=W*1.2 00T0 10600 LOCATE 20,18PRINT''

10752 LOCATE 21,1:PRINT'' 10754 LOCATE 22,18PRINT・・

10756 LOCATE 23,18PRINT" 10760 LOCATE 20,18PR INT・・ 木

笠木

亀腹

台 輸

10762 LOCATE 21,1:PR INT':セ イ /A:::*A :=:SS/A3''*A '=8KS/A3・・ホA

/L:・ '*L"

柱 問 袖柱

L tt A 控貫 ・ ・:==L

貫

額東

島

"

.:GS ・ ll:NS/Ar'ォ i'3KHS/A:!]*A :1:DS/A:・・ A *A '1:SAH

。 =:A/L:"*L";NH/A3"*A oi;GH/A 10764 LOCATE 22,18PRINT"ハ ハ゛ 。 :::*A :=:SH/A3 ・ネA '。 :KH/A:"*A ・:DH:"*A ":SA/A:':*A ":KHH:"*A ・ ";UNH/A:"*A“ 10766 LOCATE 23,1:PRINT・・ナ・ カ サ :L/16:・ '尺 ":NN/L:"*L =・ 1077・ 0 00T0 10000 1'

10800 W=Wホ 1.2

10810 00T0 10600 10820 LOCATE l,18PRINT" 10822 LOCATE 2,18PRINT" 10824 LOCATE 3,18PRINT・・ 付

-28

0826 10827 10828 10829 10830 10831 10832 10833 10834 10835 10886 10837 10838 10839 10840 10841 10842 10843 10844 10845 10846 10847 10848 10850 1・

LOcATE l.1:INPUT・・平 覆百-1,「 皆口畦-2・・:GR

ON GR GOSUB 60000,60980 WINDOW SCREEN(-426*W,-280*W)― (426*W ,200*W) V I Ell(1,100)― (800,550),,1 0N GR GOT0 10831,10837 1S=150:IE=249:GOSUB 2000 K=150:D=8:00SUB 4170 K=170:D=9:00SUB 4170 K=190:D=9:00SUB 4170 K=210:D=9:GOSUB 4170 K=230:D=9:00SUB 4170 :00T0 10890 IS=150:IE=191:GOSUB 2000 FOR N=150 T0 169 LINE (XX(N),YY(N))… (XX(N+20),VY(N+20)) NEXT N LINE(XX(190),YY( 190))― (XX(191),YY(191)) ヽ FOR N=150 T0 168 ｀ LINE (XX(N),YY(N ))― (XX(N+1)。 YY(N+1)) NEXT N FOR N・ 170 T0 188 LINE (XX(N),YY(N))― (XX(N+1),YY(N+1)) NEXT N GOT0 10890 LOCATE l,1:PRINT''

10852 LOCATE 2,1:PRINT.: 10854 LOCATE 3,18PRINT・・ 10856 10858 10859 10860 10865 10872 10874 10875 10876 10878 10880 10882 10884

LOCATE l,1:INPUT"ど こ に 植 え ま す か x,Y・ Z":KIX,KIY,KIZ KIX=KIX*16:KIY=KIY*16:KIZ=KIZ*16 WINDOW SCREEN(-426*W,-280*W)― (426*W,200*W) VIEW (1,100)― (800,550),,1 00SUB 62000 1S=251:IE=256:GOSU3 2000 FOR I=251 T0 253 LINE(XX(I),YY(1))― (XX(I+1),YY(I+1)) NEXT I LINE(XX(254),YY(254))― (XX (251),VY(251)) CIRCLE (XX(255),YY(255)), (YY(256)― YY(255)),,,,1.5 KIA=1 LOCATE l,1:PR INTl'

10886 LOCATE 2,18PR INTl'

10888 LOCATE 3,18PRINT" 10890 LOCATE l, 1:INPUT"こ の 画 面 を 残 し ま す か (Y/ N)":LL$ 10891 FOR I=150 T0 256:X(I)=0:Y(I)=0:Z(I)=0:NEXT I 10892 IF LL$=:・ Y.l THEN 10896 10893 1F LL$=・・N" THEN 10895 10895 CLS O:GOSUB 45000:GOSUB 45330:00SUB 50000: 00SUB 50340 00T0 1 040 10896 1F A3=O THEN 10897 ELSE 10898 10897 00SUB 5000:00SUB 6000:00SUB 6060:00T0 10000 10898 00SUB 5000:00SUB 6060:00T0 10000 10900 WINDOW SCREEN(-426ホ W,-280*W)― (426*W.200*W) 10003 VIEW (1,100)― (800,550),,1 付 -29

l:::: 10907 10908 10909 10910 1091l 10912 10913 10914 10015 10916 10918 10920 10030 10932 10934

1:l=IIZ=500 TO -500 STEP -100 1F NIZ=500 THEN NIX=-180 1F NIZ=400 THEN NIX=150 1F NIZ=300 THEN NIX=-50 1F NIZ=200 THEN NIX=80 IF NIZ=100 THEN NIX=0 1F NIZ=-100 THEN NIX=-60 1F NIZ=-200 THEN NIX=30 1F NIZ=-300 THEN NIX=-70 1F NIZ=-400 THEN NIX=70 1F NIZ=-500 THEN llIX=-30 GOSUB 62400 1S=283:IE=305:GOSU3 2000 K=283:C=2:00SUB 4120 K=287:C=4:00SUB 4120 FOR 」=293 T0 304 10936 L、 INE(XX(」 ),YY(J))=(XX(J+1),YY(J+1)) 10938 NEXT 」 10945 NEXT NIZ 10948 FOR I=283 T0 305:X(I)=0:Y(I)=0:Z(I)=08NEXT I 10949 00T0 10000 10950 LOCATE 101:PRINT'' 10952 LOCATE 2,18PRINT'1 10954 LOCATE 3.18PRINTl! 10956 LOCATE l,1:INPUT“ ど こ に 置 き ま す か x,Y,Z“ ;YAX,YAY,YAZ 10958 YAX=YAX*16:YAY=YAY*16:YAZ=YAZ*16 10959 WINDOW SCREEN(-426*W,-280*W)― (426*W,200*W) 10960 VIEW (1,100)― (800,550),,1 10970 00SUB 62110 10983 1F YAX〉 O THEN X(259)=YAX+50:X(260)=YAX+50:X(263)=YAX+5 0:X(264)=YAX+50:X(267)=YAX・ 50:X(268)=YAX+50 10984 1S=257:IE=268:GOSU3 2000 10985 FOR I=257 T0 259 10986 LINE(XX(I)。 YY(I))― (XX(1+1),YY(I+1)) 10987 NEXT I 10988 LINE(XX(260):YY(260))― (XX(257),YY(257)) 10989 FOR I=261 T0 263 10990 LINE(XX(I),YY(I))― (XX(I+1).YY(1+1)) 10991 NEXT I 10992 LINE(XX(264),YY(264))― (XX(261),YY(261)) 10993 FOR I=265 T0 267 10994 LINE(XX(1),YY(I))… (XX(1+1),VY(1,1)) 10995 NEXT I 10996 LINE(XX(268),YY(268))― (XX(265),YY(265)) 10997 FOR I=257.T0 258 10998 LINE(XX(I),YY(I))― (XX(I+4)。 YY(I+4)) 10999 NEXT I l1000 FOR I=259 T0 260 11001 LINE(XX(1),YY(1))― (XX(1・ 8),YY(I+8)) 11002 NEXT I l1003 YAA=1 11004 LOCATE l,1:PRINT・ =

11005 LOCATE 2.1:PRINT" 11006 LOCATE 3,18PRINT・

'

付

-30

Ｎ ︲

Ｅ

Ｔ ／Ｘ

Ｙ

〓

Ｎ ′ ︵ ︼ い い

力

■１

すＤ

Ｔ

２

ま Ｚ ︰ し ０

Ａ

一¨

〓 残＞ を０ 面Ｙ ︰ 画０ 〓

Ｂ

Ｃ

０

３

５ ５

・・       一一         Ｅ

¨一   ¨¨ Ｇ

のＤ２ ｌ こＨ０ ｌ ︰． Ｔ８ ．

Ｕ

０

Ｎ Ｅ Ｈ Ｔ

Ｂ

Ｓ

Ｌ

Ｕ ６ Ｐ ２ Ｎ Ｉ Ｏ ●● Ｔ

Ｕ

０

■１

Ｓ

Ｇ

０ １ ０

０

”＝

Ｇ

":MM$

THEN l101l ELSE l1007 B 45000:GOSUB 45330:GOSUB 50000:GOSUB 50340

Ｆ

■■     ”   ”   ＝ ︶

Ｏ

Ｉ

Ａ

０

４

●１

＄

Ｓ

Ｏ

Ｍ

Ｌ

Ａυ

Ｍ

Ｃ

０ １ ０

＄

Ｆ

Ｍ

Ｉ

Ｔ ｌ Ｏ

Ｍ

Ｉ

Ｆ

Ｎ Ｉ Ｓ

Ｔ

Ｒ

Ｉ

民 υ ”   ”   ∩ ﹀

Ａ

０

ｏ７ ∴ Ｙ

Ｃ

Ｆ

Ｅ

０

Ｌ

，

11007 11008 11009 11010 11011 60T0 1 11012 11013 11014 11100

EN l1013 ELSE l1014 1 :00SUB 6000:00SUB 6060:GOT0 10000 :00SUB 6060:00T0 10000 8PR INT"

11120 LOCATE 2,18PR INT" 11130 LOCATE 3,1:PRINT・・ LOCATE l,1:INPUT''ど

１ ８ ２

Ｙ Ｙ

１ ８ ２

Ｙ Ｙ

２ ８ ２

Ｙ Ｙ

２ ８ ２

Ｙ Ｙ

２ ８ ２

こ に 置 き ま す か x,Y,Z":DOX,DOY,DOZ DOX=DOX*16:DOY=DOY*16:DOZ=DOZ*16 WINDOW SCREEN(-426*W,-280*W)― (426*W,200*W) ViI E W (1.100)― (800,550),,1 00SUB 62240 1S=269:IE=282:GOSUB 2000 FOR I=269 T0 271 LINE(XX(I),YY(I))― (XX(I+1),VY(I+1)) NEXT I LINE(XX(272),YY(272))― (XX(269),YY(269)) FOR I=273 T0 275 LINE(XX(I),YY(I))― (XX(I+1),YY(1+1)) NEXT I LINE(XX(276),YY(276))― (XX(273),YY(273)) FOR I=277 T0 279 LINE(XX(1),YY(1))― (XX(I+1),YY(I+1)) NEXT I LINE(XX(280),YY(280))― (XX(277),YY(277)) FOR I=269 T0 272 LINE(XX(I),YY(I))― (XX(I+4),YY(1+4)) NEXT I LINE(XX(277),YY(277))― (XX(281), LINE(XX(280),YY(280))‐ (XX(281), LINE(XX(278),YY(278))― (XX(282 LINE(XX(279),YY(279))― (XX(282 LINE(XX(281),YY(281))― (XX(282) Ｙ Ｙ

11140 11150 11160 11170 11200 11320 11330 11340 11350 11360 11370 11380 11390 11400 11410 11420 11430 11440 11450 11460 11470 11480 11490 11500 11510 11520 11540 11550

DOA=1 LOCATE l,1:PRINTl・

11560 LOCATE 2.1:PRINT・・ 11570 LOCATE 3,18PRINT'1

H580 LOCATE l,1:INPUT"こ の 画 面 を 残 し ま す か (Y/N)":NN$ 11585 FOR I=269 T0 282:X(I)=0:Y(I)=08Z(I)=03NEXT I l1590 1F NN$=:;Y・ ・ THEN l1620

11600 1F NN$='lN'' THEN l1610 ELSE l1580 11610 CLS O:00SUB 45000:GOSU3 45330800SUB 50000:GOSUB 50340: 00T0 1040 11620 1F A3=O THEN l1630 ELSE l1640 11630 00SUB 5000:GOSUB 6000:GOSUB 6060:GOT0 10000 11640 00SUB 5000:60SU3 6060:00T0 10000 12000 00T0 100 13000 CLS O 13010 PRINT''ご く ろ う き デ :END

付

-3

=DEM0 SCREEN O,0 LOCATE 2,208PRINT・・ LOCATE 4,208PR INTi= LOCATE 6.208PR INTl' LOCATE 8,20:PRINT" LOCATE 10,208PRINTO' LOCATE 12,20:PRINT" LOCATE 14,20:PRINT" LOCATE 16.20:PRINT:' LOCATE 18,20:PR INT・・ LOCATE 21,20:INPUT=1 0N A2 00SUB 15500,1

”

０ ５ “ “ け “ 的 田 ０ 田 田 ど ５ ５

” ” ” ” ヵ ヽ

５

15850。 15900

ハ υ

15000 15010 15040 15050 15060 15070 15080 15090 15100 15110 15120 15130 15140

:A2

15700,15750,15800,

宮上 の見

、 醐て

ネ ヽけ

鷹 薦 Fif『 ピ ざ ピ ゴ J[I数 綴

で付 居を 鳥び う転 使に を柱

”太 は 居丸 で

15150 LOCATE l,1: INPUT"変 換 1,MENU2 ,終 了 3":A4 15160 A3=1 15165 0N A4 GOT0 10 000,100,13000 15168 0N A2 GOSUB l 6010,16210,16410,16610,16810,17010,15900, 17210,15900 15170 0N A2 GOSUB 16020,16220,16420,16620,16820,17020,15900, 17220,15900 15175 00T0 15150 15180 0N A2 GOSUB 16060,16260,16460,16660, 16860017060,15900, 17260,15900 15185 00T0 15150 15190 0N A2 60SUB 16061,16261,16461 ,16655,16861,17053,15900, 17253,15900 15200 00T0 15150 15500 CLS 2:LOCATE 4.18PRINT"ネ 申1月 藤 譲

15520 LOCATE 20,1:INPUT"次 に 進 み ま す か (Y/N)":Al$ 15530 1F Al$="Y:. THEN 16000 ELSE 15520 15550 CLS 2:LOCATE 4,1:PRINT“ `蒜 八 幡 鳥 居 " 15560 LOCATE 6,1:PRINT“ 笠 木 お よ び 島 木 に 反 り を 付 け な い 鳥 居

あ る 。笠 木 、 島 木 の 端 は た す き 墨 に 切 る の が 特 徴 で あ る 。 15570 LOCATE 20,1:INPUT"次 に 進 み ま す か (Y/N)・ :Al$

で

"

15580 1F Al$=1'Y" THEN 16200 ELSE 15570 15600 CLS 2:LOCATE 4,1:PRINT==春 日 鳥 居 15610 LOCATE 6,1:PRINT“ 八 l16鳥 居 と 同 様 に 笠 ::

木 、 島 木 に は 反 りを 付 け な い が 、 笠 木 、 島 木 を 立 水 に 切 り落 とす 。 " 15620 LOCATE 20,1:INPUT“ 次 に 進 み ま す か (Y/N)":Al$

15630 1F Al$="Y" THEN 16400 ELSE 15620 15650 CLS 2:LOCATE 4,1:PRINT"明 神 鳥 居 " 15660 LOCATE 6,1:PRINT"地 盤 か ら 貰 下 端 の 寸

法 を根 柱 の 内法 同寸 り に 笠 、 木 、 島 本 反りを L尋 お liフ 〔 肩 P辱 源 黒 皐 り 曇 勝 早 甚 F夕 15670 LOCATE 20,1:INPUT“ 次 に 進 み ま す か :Al$

(Y/N)“

15680 1F Al$="Y'l THEN 16600 ELSE 15670 15700 CLS 2:LOCATE 4,1:PRINT・ =鹿 島 鳥 居 15710 LOCATE 6.1:PRINT"神 明 鳥 居 に 酷 似 し て :・

い る が 貫 鼻 を 間 の 1/3 出 す 。 笠 木 は 貫 鼻 よ り 柱 1本 長 く 伸 ば し 、 立 水 に 切 る こ と で あ る 。 な お 、 柱 に は転 び を付 け な い。 " 15720 LOCATE 20,181NPUT ・。次 に 進 1み ま す か (Y/N)":Al$

15730 1F Al$=・

IY" THEN 16800 ELSE 15720

付

-32

" 15750 CLS 2:LOCATE 4018PRINT'.1冊 7苛 ,為 15760 LOCATE 6.1:PRINT“ 柱 の 上 端 に 台 輸 '舌 を 付 け た 鳥 居 で あ り 台 輸

鳥 居 と も 呼 ば れ て い る 。 こ の 鳥 居 も 明 神 鳥 居 と よ く似 て い る 。 15770 LOCATE 200181NPUT"次 に 進 み ま す か (Y/N)“ :Al$

"

15780 1F Al$="Y。 ' THEN 17000 ELSE 15770

15800 CLS 2:LOCATE 4,1:PRINT"山 15810 LOCATE 6,1:PRINT"稲 荷 鳥 居

王 鳥居 “ の笠木 の上 に柱外面 の見 通 しよ の の 5寸 し た り 勾 配 破 風 合掌 を付 鳥 居 で ある。総 合鳥居 、 破風 鳥居 とも 呼 ば れ て い る。 " 15820 LOCATE 20,1:INPUT"次 に 進 み ま す か (Y/N)":Al$

15830 1F Al$="Y" THEN 15950 ELSE 15820 15850 CLS 2:LOCATE 4,1:PRINT"口 ]書「 藤議拝]:: 15860 LOCATE 6,1:PRINT"稲 荷 鳥 居 に 似 た 形

で あ るが 、本 柱 の前 後 に 小 柱 (袖 柱 、 稚 児 柱 と も い う )を 設 け こ れ に 貫 を 通 す 。 笠 木 の 上 に は 屋 根 板 を 張 り棟 木 を 置 く。 四脚 鳥 居 、 権 現 鳥 居 の 呼 び 名 も あ る 。

15870、 LOCATE 2001:INPUT"次 に 進 み ま す か (Y/N)":Al$ 15880 1F Al$="Y'I THEN 17200 ELSE 15870

15900 CLS 2:LOCATE 4,1:PRINT;。 三二革命藤誌馬]:.

15910 LOCATE 6,1:PRINT"鳥

居 の 両 端 に 両 袖 (脇 鳥 居 )を 付 け た 鳥 居 で ある。柱 に は転 びはつ けな い。 " 15920 LOCATE 2001:INPUT"次 に 進 み ま す か (Y/N)・ 3Al$

15930 1F Al$=。 lY=' THEN 15950 ELSE 15920

15950 16000 16002 16003

PRINT"ご め ん な き い 、 ま だ で き て ' SCREEN 100 LOCATE 5,18PRINT"(1)神 明 鳥 居 " 16007｀ LOCATE l,18PRINT・・

ませ ん

"8END

16008 LOCATE l,1:INPUT"柱 間 の 寸 法 は 何 尺 で す か ":L 16009 L=L*16 16010 HK=。 1:A=11/100*L:Al=10/100*L:Hl=L+8/10*A・ A:NS=8/10*A:N H=3/10*A:NN=L-2*(― 。207*A):GS=1。 2*A:GH=0:SS=0:SH=0:KS=A:KH=A: KN=NN*5/3+2*3/100*L:00SUB 25050 16020 GOSUB 25060 16030 00SUB 25080 16040 00SUB 30180 16050 00SUB 40170 16060 1S=1:IE=148800SUB 2000 16061 WINDOW SCREEN(-426*W,-280*W)― (426*W,200*W) 16062 VIEW (1,100)― (800,550),,1 16063 LOCATE 5,1:PRINT“ (1)神 明 鳥 居 " 16065 RESTORE 4040 16070 1A=21:GOSUB 4000 16140 1B=36:GOSUB 4020 16145 00SUB 5000:GOSUB 6060

16150・ RETURN 16200 0

,

16202 SCREEN l,0 16203 LOCATE 511:PRINT“ (2)八 16207 LOCATE l,1:PRINT.1

幡鳥居

"

16208 LOCATE l,1:INPUT"柱 間 の 寸 法 は 何 尺 で す か ":L 16209 L=L*16 16210 HK=。 2938A=11/100*L:Al〓 10/100*L:Hl=L+8/10*A+A3NS=3/10*A :NH=3/10*A:NN=5/3*(L― .586*A):GS=A:GH=9/10*A:SS=3/5*A:SH=3/5* A:SM=1:KS=2/5*A8KH=A:KM=1:GOSUB 25050 付

-33

16220 16225 16230 16240 16250 16255

GOSUB 00SUB GOSUB GOSUB 00SU3 00SU3

25060 25080 30000 30090 35000 40000

11:￨￨ 16265 16270 16310 16320 16350 16400

ll:￨￨￨::￨llllllllllllll∫ RESTORE 4040 1A=21:GOSUB 4000 1B=36:GOSUB 4020 00SUB 5000:GOSUB 6060 RETURN '

l∫

￨!i(426*W,200*W)

1:1::｀ 〕:lll::￨::PRⅢ TЧ 鋤 春 日 鳥 居

"

・

16407 LOCATE l,1:PRINT"

"

16408 LOCATE l,1:INPUT"柱 16409 L=L*16

間 の寸 法 は何 尺 で す か

":L

,=A:GH=9/10*A:SS=3/5*A:SH=3/5* 1'11:ノ Iliλ :11::ラ :1([!!:::11テ l:(100*L:Hl=L+8/10*A+A:NS=8/10*A A:SM=1:KS=2/5*A:KH=A:KM=1:GOSUB 25050 16420 GOSUB 25060 16425 GOSU3 25080 16430 GOSU3 30000 16440 00SUB 30090 16450 GOSUB 35130 16455 00SUB 40450 16460 1S=1:IE=148:GOSUB 2000 ::i:: 16465 16470 16540 16550 16560 16600

l:￨￨￨!1::llillililll!,illil!i(426*W,200*W) RESTORE 4040 1A=21:GOSUB 4000 1B=36:GOSUB 4020 GOSUB 5000:00SUB 6060 RETURN ' ￨

l::::::lll苦 :￨::PRⅢ T10明 16607 LOCATE l,1:PRINT・

神 鳥 居

"

'

16608 LOCATE l,1:INPUT"柱

間 の寸 法 は何 尺 で す か

ili!:/1ill:liL:ラ ll(l!::::11テ

::〔

A:SM=1:KS=2/5*A:KH=A:KM=1.5:KH 16620 00SU3 25060 16625 GOSU3 25080 16630 GOSUB 30000 16640 GOSUB 30090 16650 GOSUB 35220 16655 00SUB 40560 16658 60SUB 45000 16660 1S=1:IE=188:GOSUB 2000

":L

:￨￨li:lii[:i::￨￨!￨lilli:::'II

付

-34

16661 WINDOW SCREEN(-426*W,-280*W)― (426*W,200*W) 16662 VIEW (1,100)― (800,550),,1 16663 LOCATE 5,1:PRINT'I(4)電 層ネ申月b癖]" 16665 RESTORE 4040 16670 1A=27:GOSUB 4000 16740 1B=30:GOSUB 4020 16750 GOSUB 5000 GOSUB 6060 16760 RETURN 16800 ' 16802 SCREEN l,0 16803 LOCATE 5,1 PR INT"(5)鹿 島 鳥 居 " 16807 LOCATE l,1 PRINT"

16808 EOCATE l,1 INPUT"柱 間 の 寸 法 は 何 尺 で す か ":L 16809 L=L*16 16810 HK=0:A=11/100*L:Al=10/100*L:Hl=L+8/10*A+A:NS=8/10*A:NH =3/10*A:NN=5/3*L:GS=A:GH=9/10*A:SS=0:SH=0:KS=A:KH=A:KN=5/3*L +2*A:GOSUB 25050 16820 00SU3 25060 16825 00SUB 25080 16830 00SUB 30000 16840 00SUB 30090 16850 GOSUB 40170 1 16860 1S=1:IE=148:GOSUB 2000 16861 WINDOW SCREEN(-426*W,-280*W)― (426*W.200*W) 16862 VIEW (1,100)― (800,550),,1 16863 LOCATE 5,1:PRINT"(5)鹿 島 鳥 居 " 16865 RESTORE 4040 16940 1A=12:GOSUB 4000 16945 1B=4 :00SUB 4020 16950 1A=5 :GOSU3 4000 16955 1B=36:GOSUB 4020 16985 00SUB 5000:GOSUB 6060 16990 RETURN 17000 '

17002 SCREEN l,0

17003 LOCATE 5っ 1:PR INTl:(6)右 裔:著 17007 LOCATE l,1:PRINT・・

清諮鷹馨 "

17008 LOCATE l,1:INPUT"柱 間 の 寸 法 は 何 尺 で す か ":L 17009 L=L*16 17010 HK=。 5:A=11/100*L:Al=10/100*L:Hl=L+8/10*A+A:NS=8/10*A:N H=3/10*A:NN=5/3*(L― A):GS=1.3*A:GH=9/10*A:SS=3/5*A:SH=3/5*A:S M=1:KS=2/5*A:KH=A:KM=1.5:KHS=.7*A:KHH=2.5:DS=.3*A:DH=1.4:GOS UB 25050 17020 00SUB 25060 17025 GOSUB 25080 17030 GOSUB 30000 17040 GOSUB 30090 17050 00SUB 35220 17053 00SUB 40560 17055 00SUB 45000 17058 00SUB 45330 17060 1S=1:IE=228:GOSUB 2000 付

-35

17061 17062 17063 17065 17070 17150 17165 17170 17200 17202 17203 17207

サ:011::::,】 ￨::::::6テ :::ホ W) (426*W,200*W) :甘

LOCATE 5,1:PRINT"(6)千 層 i苛 RESTORE 4040 lA=33:GOSUB 4000 1B=24:GOSUB 4020 GOSUB 5000:GOSUB 6060 RETURN

l誌

・ ′ 舌・

SCREEN l,0

LOCATE 5,18PRINT・・(8)両

LOCATE l,1:PRINT"

音S拝 葛鷹 馨

'7

17208 LOCATE l,1:INPUT"柱 間 の 寸 法 は 何 尺 で す か "3L 17209 L=L*16 17210 HK=。 5:A=11/100ネ L:Al=10/100*L:Hl=L+3/10*A+A:NS=8/10*A:N H=3/10*A:NN=5/3*(L― A):GS=1.3*A:GH=9/10*A:SS=3/5*A:SH=3/5*A:S M=1:KS=2/5*A:KH=A:KM=1.5:KHS=。 7*A:KHH=2.5:DS=。 3*A:DH=1.4:S‖ K =。 298:_SA=。 7*A:SAH=.5*L:UNH=.8*SA:UNT=4*A:DNH=。 8*SA:DNT=l.5*A 17215 GOSUB 25050 17220 00SuB 25060 17225 00SUB 25080 17230 00suB 30000 17240 00SUB 30090 17250 00SuB 35220 17253 00SUB 40560 17255 00SuB 45000 17257 00SUB 45330 17258 60SUB 50000 17259 GOSUB 50340 17260 1S=1:IE=308800SUB 2000 17261 WINDOW SCREEN(-426*W,-23o*w)― (426*W,200*W) ￨:::: ￨::￨:￨:ふ ill:Ifl:♀

t:':よ

喜 J鷺 居 ''

17270 1A=57:GOSUB 4000 17365 GOSUB 5000:60SUB 6060 17370 RETURN

付 二

36

25000市 丁 期 DATFI 25010 LOCATE l,1:PRINT・・ 25020 LOCATE l,1:INPUT"柱 間 の 寸 法 は 何 尺 で す か ":L 25030 L=L*16 25040 HK=。 2938A=11/100*L:Al=10/100*L:Hl=10*A8NS=7/10*A:NH=3/ 10*A:NN=7/5*L:GS=A:GH=9/10*A:SS=3/5*A:SH=3/5*A:SM=1:KS=2/5*A :KH=A:KM=1.5:KHS=。 7*A3KHH=2.5:DS=.3*A:DH=1.4:SHK=0:SA=。 7*A:S AH=.5*L8UNH=.5*A:UNT=4*A:DNH=.5*A:DNT=1.5*A:ND=1:SNS=2:KNS=2 25050 RAD=0:DEG=0:F=1:W=1:XF=0:YF=64:ZF=960:XA=0:YA=L/2:ZA=0 :HX=0:HY=0:HZ=0:RETURN 25060 11刀 ,靭 DATA-2 25070 NX=HX― NN/2:NY=HY+Hl― KS― SS― GS:NZ=HZ:GX=HX:GY=HY+Hl― KS― S S― GS:GZ=HZ:SX=HX― .5*L:SY=HY+Hl― KS― SS:SZ=HZ:KX=HX― .5*L:KY=HY+ Hl― KS:KZ=HZ:RETURN

Ｙ Ｈ 〓

Ｙ

＞ ８ ＜

Ａ Ａ     Ａ Ａ 一” 一”        ¨壼 ¨● ＞ ＞ ７ ７ ＞ ＞ ７ ７ Ａ Ａ ０ ０ Ａ Ａ ０ ０ ←● 一” ０′”  ＾ ソ“ “‘ ←゛ ０∠¨ ン一  ハ ５ ５   ｏ  ・ ５ ５   ｏ  ・ ・  ・  ●   ¨    ・  ・  一  ＋ ＋ ＋ ” 乙 ワ “  ¨  一 ワι Ｚ Ｚ Ｚ Ｈ Ｈ Ｚ Ｚ Ｈ Ｈ Ｈ Ｈ ＜ ＜ Ｈ Ｈ ＜ ＜ ＜ ＜   ¨  一  ＜ ＜ 一  一 二   一 ¨  一 一  一  二 ¨  〓 ¨ 二 ¨＞ ＞ ¨ ”  ¨ 一＞ ＞ ３ ４ ＞ ＞ ７ ８ ＜ ＜ ５ ６ ＜ ＜ Ｚ Ｚ ＜ ＜ Ｚ Ｚ       Ｚ Ｚ Ｚ

＞ ２ ＜

Ｙ

Ｚ

UB

＞ １ ＜

DATA S

・・ ・・ Ｙ Ｙ ・・ ・・ Ｙ Ｙ Ｙ Ｈ Ｈ Ｙ Ｙ Ｈ Ｈ Ｈ 一 ¨ 一 ¨ Ｈ Ｈ 一 一 一 一  一 ¨＞ ＞ 一 ¨  い ¨＞ ３ ４ ＞ ＞ ７ ＞ ＞ １ ２ ＜ ＜ ５ ６ ＜ ＜ ＜ Ｙ Ｙ ＜ ＜ Ｙ       Ｙ Ｙ

柱 の

X(1)=HX― 。207*A― .5*L X(2)=HX+。 207*A― .5*L X(3)=HX+.5*A¨ .5*L: X(4)=HX+.5*A― .5*L: X(5)=HX+.207*A― .5*L X(6)=HX― 。207*A― .5*L X(7)=HX― .5*A― 。5*L: X(8)=HX― .5*A― 。5*L:

Ｙ

25080'主

25085 25090 25100 25110 25120 25130 25140 25150

25160 X(11)=X(1)+HK*Al: Y (11)=HY+Hl― KS― SS: Z(11)=― (HZ+.5*Al) 25170 X(12)=X(2)+HK*Al: Y (12)=HY+Hl― KS― SS: Z(12)=― (HZ+.5*Al) 25180 X(13)=X(3)+HK*A18 Y (13)=HY+Hl― KS― SS: Z(13)==(HZ・ .207*A 1) 25190 X(14)=X(4),HK*Al Y(14)=HY+Hl― KS― SS: Z(14)=― (HZ― 。207*A 1)

25200 X(15)=X(5),HK*Al 25210 X(16)=X(6)● HK*Al 25220 X(17)=X(7)+HK*Al 1)

Y(15)=HY+Hl― KS― SS: Z(15)=― Y(16)=HYttHl― KS― SS: Z(16)=― Y(17)=HY+Hl― KS― SS: Z(17)=―

25230 X(18)=X(8)+HK*A18 Y(18)=HY+Hl― KS― SS: Z(18)=―

(HZ+。

207*A

１ ２ ３ ４ ５ ６ ７ ８ ６ １ ７ １ ８ １

８ ３

５ １

７ ３

４

６ ３

Ｚ

１

５ ３

Ｚ

３ １

４ ３

Ｚ

２ １

３ ３

Ｚ

１ １

２ ３

Ｚ

Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ 一 “ 中 一 ” 二 ¨ ¨ 一 ¨ 二 ¨ 〓

１ ３

Ｚ

＞ ８ １ ＜

Ｚ

＞ ７ １ ＜

Ｚ

＞ ６ １ ＜

●● ●● ●● ︰

＞ ５ １ ＜

Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ ¨ 二 い ¨ 二 “ 一 一 一 一 一 一 〓

８

Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ ・・ ・・ ・・ ・● 一  一 一 一  一 二 ¨  ¨ 一  一 二 一  ¨ ¨＞ ＞ ＞ ＞ １ ２ ３ ４ １ １ １ １ ＜ ＜ ＜ ＜

７

Ｙ

３ ＜

Ｚ

６

Ｙ

３ ＜

＞ ８ ２ ＜

５

Ｙ

３ ＜

Ｚ

４

Ｙ

３ ＜

＞ ７ ２ ＜

３

Ｙ

３ ＜

Ｚ

２

Ｙ

３ ＜

＞ ６ ２ ＜

●● １

Ｙ

３ ＜

Ｚ

３ ＜

＞ ５ ２ ＜

一 Ｙ

Ｚ

●●

Ｈ

Ｙ

二

＞ ４ ２ ＜

Ｙ

Ｚ

●●

Ｈ

二

＞ ３ ２ ＜

●●

Ｙ

Ｚ

●●

Ｈ

＞ ２ ２ ＜

●●

Ｙ

Ｚ

●●

Ｈ

＞ １ ２ ＜

●●

Ｙ

二

Ｈ

一二

Ｈ

Ｙ

¨ ¨

Ｈ

Ｙ

¨ ﹄

Ｙ

¨一

Ｈ

25240 X(21)=X(1)+L 25250 X(22)=X(2)+L 25260 X(23)=X(3)+L 25270 X(24)=X(4)+L 25280 X(25)=X(5)+L 25290 X(26)=X(6)+L 25300 ・X(27)=X(7)+L 25310 X(28)=X(8)+L 25320 X(31)=X(21)… H 25330 X(32)=X(22)― H 25340 X(33)=X(23)― H 25350 X(34)=X(24)‐ H 25360 X(35)=X(25)― H 25370 X(36)=X(26)― H 25380 X(37)=X(27)― H 25390 X(38)=X(28)― H

ｌ ２ ３ ４ ５ ６ ７ ８ ・・ ・・ ・● ●● ●● ●● ●● ︰ ２ ２ ２ ２ ２ ２ ２ ２ １ １ １ １ １ １ １ １ ＜ ＜ ＜ ＜ ＜ ＜ ＜ ＜ Ａ Ａ Ａ Ａ Ａ Ａ Ａ Ａ 一 Ｖ■・  ”Ｖ‘ ｗ Ｙ‘ 一 Ｖ■・  ”Ｙ４ 一 ＶＩ・ Ｖ■ ←” 一” ←“ ¨中 ←” 一” 一“ 一い  ＵＹ二  ¨ Ｋ Ｋ Ｋ Ｋ Ｋ Ｋ Ｋ Ｋ

1)

(HZ― .5*Al) (HZ― .5*Al) (HZ― 。207*A

:RETURN

付

-37

30010 30020 30030 30040 30041 3o042

DATA `つ X(41)=NX: (41)=NY: Z(41)=― (NZ+NH/2) X(42)=NX: (42)=NY: Z(42)=― (NZ― NH/2) X(43)=NX: (43)=NY― NS: Z(43)=― (NZ― NH/2) X(44)=NX: (44)=NY― NS: Z(44)=― (NZ+NH/2) X(45)=X(44):Y(45)=Y(44):Z(45)=Z(44) X(46)=X(44):Y(46)=Y(44):Z(46)=Z(44)

酬 震

I田 IEI寵 ￨:羊 協

Ｙ

30000 '1警

Ｙ Ｙ

Ｙ

1斗 寵

￨::協 1輩

寵

￨

30081X(55)=X(54):Y(55)=Y(54):Z(55)=Z(54) 30082 X(56)=X(54):Y(56)=Y(54):Z(56)=Z(54) 30083X(57)=X(54):Y(57)=Y(54):Z(57)=Z(54) 30084 X(58)=X(54):Y(58)=Y(54):Z(58)=Z(54):RETURN

30090 '額 束 の DATA 30100 X(61)=GX― GH/28 Y(61)=GY+GS: Z(61)=― (GZ+。 1*A) 30110、 X(62)=GX― GH/28 Y(62)=GY+GS: Z(62)=― (GZ― 。1*A) 30120・ X(63)=GX― GH/2: Y(63)=GY: Z(63)=¨ (GZ― .1*A) 30130 X(64)=GX― GH/2: Y(64)=GY: Z(64)=― (GZ+.1*A) 30140 X(71)=GX+GH/2: Y(71)=GY+GS: Z(71)=― (GZ+。 1*A) 30150 X(72)=GX+GH/2: Y(72)=GY+GS: Z(72)=― (GZ― .1*A) 30160 X(73)=GX+GH/2: Y(73)=GY: Z(73)=― (GZ― 。1*A) 30170 X(74)=GX+GH/2: Y(74)=GY: Z(74)=― (GZ+。 1*A):RETURN 30180 。円 の 環誌 DATA 30190 X(41)=NX: Y(41)=NY: Z(41)=― NZ― 。207*A*8/10 30200 X(42)=NX: Y(42)=NY: Z(42)=― NZ+.207*A*8/10 30210 X(43)=NX: Y(43)=NY― 。293*A*8/10: Z(43)=― NZ+A*8/10*.5 30220 X(44)=NX: Y(44)=NYい 。707*A*8/10: Z(44)=¨ N Z tt A*8/10*。 5 30230 X(45)=NX: Y(45)=NY― NS: Z(45)=… NZ+。 207*A*3/10 30240 X(46)=NX: Y(46)=NY― NS: Z(46)=― NZ― 。207*A*8/10 30250 X(47)=NX: Y(47)=NY― 。707*A*8/10: Z(47)=― NZ― A*8/10*.5 30260 X(48)=NX8 Y(48)=NY― .293*A*8/10: Z(48)=― NZ― A*8/10*.5 30270 X(51)=X(41)+NN: Y(51)=Y(41): Z(51)=Z(41) 30280 X(52)=X(42)+NN: Y(52)=Y(42): Z(52)=Z(42) 30290 X(53)=X(43)+NN: Y(53)=Y(43): Z(53)=Z(43) 30300 X(54)=X(44)+NN: Y(54)=Y(44): Z(54)=Z(44) 30310 X(55)=X(45)+NN: Y(55)=Y(45): Z(55)=Z(45) 30320 X(56)=X(46)+NN: Y(56)=Y(46): Z(56)=Z(46) 30330 X(57)=X(47)+NN: Y(57)=Y(47): Z(57)=Z(47) 30340 X(58)=X(48)+NN: Y(58)=Y(48): Z(58)=Z(48):RETURN

350001島

木 の

DATAた

す き 1斜 め

35010 X(81)=SX― (― NX― L/2-A/2)/NY*(SM*SS■ SY)― A/2: Y(81)=SY+SM* SS: Z(81)=― (SZ+SH/2) 35020 X(82)=X(81): Y(82)=Y(81)8 Z(82)=― (SZ― SH/2) 35030 X(83)=SX― (― NX― L/2-A/2)/NY*((SM-1)*SS,SY)― A/2: Y(83) Z(83)=― (S2-SH/2) =SY+.((SM-1)*SS): 35040 X(84)=X(183): Y(84)=Y(83)8 Z(84)=― (SZ+SH/2) 35050 X(91)=SX+.5*L: Y(91)=SY+SS: Z(91)=― (SZ+SH/2) 35060 X(92)=SX+.5*L: Y(92)=SY+SS: Z(92)=― (SZ― SH/2) 35070 X(93)=SX+.5*L: Y(93)=SY: Z(93)=― (SZ― SH/2) 35080 X(94)=SX● .5*L: Y(94)=SY: Z(94)=― (SZ+SH/2) 35090 X(101)=― X(81)8 Y(101)=Y(81)8 Z(101)=Z(81) 35100 X(102)=― X(82): Y(102)=Y(82)8 Z(102)=Z(82) 35110 X(103)=― X(83): Y(103)=Y(83): Z(103)=Z(83) 35120 X(104)=― X(84)3 Y(104)=Y(84): Z(104)=Z(84):RETU RN

付

-38

Ｓ

“

“

３

︰

＞ ３ ８

︰

＞ ２ ８

Ｎ

２

＜

︰

Ｒ    ／     Ｙ           Ｙ

＞   Ｓ

２   ／

＞   ＞ ４

＞   ２

︰

Ｚ

＜

＞ ２

︰

Ｚ

＜

＞ ２

︰

Ｚ

＜

＞ ２

／ Ｈ

Ｕ Ａ Ｋ Ｔ   一  ・ ・   〓          鋤 Ｅ Ｒ

＞ ４

枷

Ｈ

＞

１ ＜

Ｌ Ｋ Ｙ ・ ・ 〓 ︰ Ｘ Ｎ ＞ ＞ ¨ ２ １

＞ Ａ     ｍ ＊   囲 ８ ・ ¨  Ｋ   ¨     ︰ Ｙ ＋ Ｙ     Ｎ Ｚ Ｎ   ＜ Ｋ ＜     ／ ＜ ／   ＞ ４ ８

川

＞ ３

Ｘ

＞ Ａ

／

＊   ８ 。 ¨    Ｙ   Ｎ ＜

Ｈ

４

Ｙ

＜

Ｈ

＞ ５

Ｙ

＜

Ｈ

＞ ５

Ｙ

＜

Ｈ

＞ ５

︼

Ｙ

＜

勢

犯

鼎

ｍ

Ｋ     ・・ ¨ ︰ Ｄ Ｓ Ｓ Ｋ Ｋ ２ ＋ ０ １ ︰

Ｌ ＜ ＜ ＜ ・ Ｙ Ｙ Ｙ   川 Ｘ ３ ︰ ８ ︰ Ｎ ︰ ︰ ︰ ＞ ＞ ＞ ＞ 一    ４ ５ ５ ５

︰

ｍ

＜

︰

ｍ

︰

Ｙ

＜

８

Ｙ

＜

︰

・・

取

＜

︰

Ｙ

鼎

︰

Ｙ

〓 ¨ ． Ｙ ． ＞ 〓． 〓 〓．¨〓 〓． 〓 〓． 御 御 御 御   硼   欄     間 犯 田 田 田 ３ Ｋ ＞ ＞ ＞ ＞ ＞ ＞ ＞ ・ ＊ ２ ４ ３ ５ ６ ７ ８

︲ ８               鵬               ・ ・  Ｈ  Ｚ ＜

“

ワＬ                                                   ＋

＜ ＜ ＜ Ａ ９ ９ ９ ９ ＜ ＜ ＜ ＜   ｍ ｍ ｍ ｍ   疇     賜         ． 〓 Ｙ． ． 〓 〓 ． Ｚ Ｚ Ｚ Ｚ Ｓ ︰ ︰ ８ ︰ ＞ ＞ ＞ ¨●    ＾ り４ つハ︶“４︵ヽ︰′ ヽ １′・ヽ１′ ヽ１′ 一ワん一  ”′“ ″′“ ″′“    ０ヽ一          １一 ■ ︲ ２ ３ ４ ＜ ︰ ︰ ︰ ︰ ¨   ８ ８ ８ ８ ＞ ＞ ＞ ＞   ＊ ︰ Ｍ ︰ ︰ ３

Ｄ

＞ ｌ ８

川

２

Ｘ

＜ ＜ Ｌ Ｙ Ｙ ・ ︼ 口 ︰ ︰ Ｘ Ｎ     一 Ｋ １

Ｘ

〓． 田 贈 田 田 ｍ ｍ 跡 ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ 田 岡 田 ｍ ｍ ｍ 跡 ＞ ´ ・

， Ｘ

＋ Ｘ Ｚ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｉ

Ｘ

“

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

，

Ｘ

〓 Ｘ Ｋ Ｘ Ｘ ﹁ Ｘ ヽノ       ＋            〓

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

０ ０ Ｓ ０ ０ ０ ２ ４ ６ ０ ８ ０ ０ ０ ０ ００ ０ ０ ０ ０ ００ ０ ０ ０ ０ ００ Ｙ ０ ０ ０ ３ ２ ０ ２ ４ ６ ０ ８ ︲ ２ ＜ ３ ４ ５ ６ ７ ７ ７ ７ ７ ８ ９ ０ ︲ ３ ４ ５ ６ ７ ９ ３ ４ ８ ０ ２ ０ ． Ｋ ２ ３ ４ ５ ５ ５ ５ ６ ６ ６ ６ ６ ７ ７ ７ ¨ ︲ ︲ ︲ ︲ ． ． ︲ ２ ２ ２ ２ ２ ２ ︼ ２ ２ ２ ２ ３ ３ ３ ３ ３ ０ ０ ］ 〓 ０ ０ ０ ｍ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ． ． ． ． ５ ５ 〓 ５ ５ ． ． ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ５ ０ ０ ０ ０ ０ ＞ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ３ ３ ３ ３ ＞ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ３ ４ ３ ３ ３ ３ ４ ４ ２ ４ ４ ４ ４ ４ ４ ４ ４ ４ ４ ４ ４ ４ ４

-39

付

２ ／ Ｈ

Ｚ Ｚ Ｚ 〓 〓 〓

＞ ５ ｌ ｌ ＜

８ ４ ｌ ＜

Ｚ 〓

＞ ５ ｌ ｌ ＜

¨ 〓 ¨ 〓

＞ ＞ ＞ つ４ ２ ｏ４ ／ ／ ／ Ｈ Ｈ Ｈ Ｋ Ｋ Ｋ ＋ ＋ Ｚ Ｚ Ｋ Ｋ ＜ ＜

７ ４ ｌ ＜

Ｚ Ｋ ＜

６ ４ ｌ ＜

¨ 〓

５ ４ ｌ ＜

Ｋ   ＞ ●     ２ Ｚ   ／ Ｋ   Ｈ ＜   Ｋ ¨   二 一 ¨    Ｚ Ｚ Ｋ Ｋ ＜ 二 〓 〓

＞ ｌ ３ ｌ

４ ４ ｌ ＜

＞ １ ｌ ｌ ＜ ＞ ２ ｌ ｌ ＜ ＞ ３ ｌ ｌ ＜ ＞ ４ ｌ ｌ ＜

一 Ｚ Ｚ Ｚ Ｚ 〓 〓 〓 〓 〓

＞ ＞ ２ つ乙 ／ ／ Ｈ Ｈ Ｋ Ｋ ＋ ＋ Ｚ Ｚ Ｋ Ｋ ＜ ＜

¨ 〓

＞ ５ ｌ ｌ ＜ ＞ ５ ｌ ｌ ＜

＞ ５ １

３ ４ ｌ ＜

＞ ５ １

Ｙ

但

２ ４ ｌ ＜

ｏ

１ ４ ｌ ＜

＞ ５ １

Ｙ

８ ３ ｌ ＜

“

一¨

７ ３ ｌ ＜

Ｙ

６ ３ ｌ ＜

＞ ５ １

一 一

５ ３ ｌ ＜

＞ ４ １

“

Ｙ

〓

¨一

４ ３ ｌ ＜

＞ ３ １

ｎ

い

３ ３ ｌ ＜

＞ ２ １

“

Ｙ

Ｚ

＞ ｌ １

“

Ｙ

¨ 二

Ｚ

“

Ｙ

¨

Ｙ

一二

Ｚ

¨

Ｚ

Ｋ

Ｚ

Ｋ

一二

Ｚ

Ｋ

Ｚ

一一

Ｚ

Ｋ

Ｚ

一中

Ｚ

中

Ｚ

Ｋ

Ｚ

Ｙ

一二

Ｚ

４

８

Ｚ

７

１

●●

４

Ｙ

● ●

６

１

● ●

４

Ｙ

● ●

５

１

・ ●

４

Ｙ

・ ・

４

１

・ ・

４

Ｙ

・・

３

１

４

Ｙ

２

１

４

Ｙ

１

１

４

Ｙ

８

１

３

Ｙ

７

１

３

Ｙ

・・

６

１

３

Ｙ

５

１

Ｋ

３

Ｙ

Ｚ ２ ３ ●ｏ ｌ ３ ＜ ／ Ｚ Ｓ

４

１

︰ ︰ ︰ ︰ Ｙ Ｙ Ｙ Ｙ

３

Ｙ

い

３

１

¨  ・・ ＞ Ｓ Ｓ ｌ Ｋ Ｋ ２ ＋ ＋ い 一 Ｙ Ｙ

３

Ｙ

¨

２

１

Ｋ

３

Ｙ

Ｋ

１

１

¨ 二

３

Ｙ

．

１

X(131)=KX― A● L X(132)=KX― A+L X(133)=KX― A+L X(134)=KX― A● L X(135)=KX― A+L X(136)=KX― A● L X(137)=KX― A+L X(138)=KX― A+L X(141)=― X(111) X(142)=― X(112) X(143)=― X(113) X(144)=‐ X(114) X(145)=― X(115) X(146)=― X(115) .X(147)=― X(115) 、 X(148)=― X(115)

Ｙ

40080 40082 40084 40086 40088 40090 40092 40094 40110 40120 40130 40140 40150 40152 40154 40156 40160 40170 40172 40175 40180 40190 40200

RETURN :円

笠 木

IF A3=O THEN 40175 ELSE 40180 KN=5/3*L X(111)=― .5*KN : Y(111)=KY+A: Z(111)=― KZ― .207*A X(112)=― 。5*KN : Y(112)=KY+A: Z(112)=― KZ+。 207*A X(113)=― .5*KN : Y(113)=KY+.707*A : Z(113)=― KZ+A*.

5

40210 X(114)=― .5*KN

Y(114)=KY+。 293*A

: Z(114)=― KZ+A*.

5

40220 X(115)=― .5*KN : Y(115)=KY : Z(115)=― KZ+.207*A 40230 X(116)=― 。5*KN : Y(116)=KY : Z(116)=― KZ― 。207*A : Z(117)=― KZ― A*. 40240 X(117)=― .5*KN : Y(117)=KY+.293*A : Z(118)=― １ ２ ３ ４ ５ ６

Ｚ

７

Ｚ

８

買

一  〓

Ｚ

Ｈ

Ｚ

Ｈ

Ｚ

買

¨  ¨ ¨  一 二

Ｚ

Ｈ

Ｚ

買

¨  一二

Ｚ

Ｈ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰ Ｚ ︰

+KN : Y(121) +KN : Y(122) +KN : Y(123) +KN : Y(124) +KN : Y(125) ●KN : Y(126) +KN : Y(127) +KN : Y(128) :Y(131) =Y(121) :Y(132) =Y(122) :Y(133) =Y(123) :Y(134) =Y(124) :Y(135) =Y(125) :Y(136) =Y(126) 8Y(137 =Y(127) :Y(138 =Y(128) :Y(141 =Y(121) :Y(142) =Y(122) :Y(143) =Y(123) :Y(144) =Y(124) 8Y(145) =Y(125) :Y(146) =Y(126) :Y(147) =Y(127) :Y(148) =Y(128)

一 二

40260 40270 40280 40290 40300 40310 40320 40330 40340 40345 40350 40355 40360 40365 40370 40375 40380 40385 40390 40395 40400 40405 40410 40415

Y 118)=KY・ 。707*A

囲 囲 圏 惚 囲 昭 田 囲 い 閣 い 田 囲 囲 螺 囲 圏 昭 圏 隔 麟 囲 圏 岬 Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ Ｚ 猟 π ︻ 家 ︻ 猟 猟 ︻ 屹 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 田 口 ｍ ｍ 田 昭 則 田 椰 間 出 田 側 叩 ｍ 田 ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ

5

Ｈ

ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｏ ｏ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 ｍ ｏ ｏ ｏ ｏ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ

5

40250 X(118)=― .5*KN

KZ― A*.

:RETURN 付

-4

0

Ｚ

＜

Ｚ

＜

〓

Ｚ

＞

２ 一¨ １

Ｚ

２ ／ Ｈ           ＞

Ｋ鋤００Ｄ Ｄ Ｈ  ３ ・ ・ ＺＺ ＫＫＨＨＨＨ Ｈａ＞ ａ

Ｚ

＞

＜

＞

Ｚ

＞

＜

１

＜

１

３ ２

一 Ｚ

１

２ ２

一 一 ＜

１

︲ ２

＞

１

・

５

＞

４

２ ・

２一 一  ¨ ¨  ¨ ¨  ¨ ¨  一 一  ¨ 一＞ １＞＞＞ ３ ４５ Ｈ００”ω ηの ︲π ２ ２ ︲︲ ︻ Ｈ ＨＨＨＨＨａ 〓ａｎａ ＞

１

呻

ＫＫ ＫＫ ａ鋤ｏ”ωつ の Ｋ 〓〓〓〓〓

１

呻

Ｙ

＝

Ｙ

粕

Ｙ

呻

Ｙ

２ ︲

Ｙ

・

＞

知

＞

ｌ ︲ ＜

〓

閣

Ａ 十 Ｘ Ｋ

囲

Ａ ＋ Ｘ Ｋ 〓

囲

Ｘ

Ａ Ａ ＋ ＋ Ｘ Ｘ Ｋ Ｋ 〓 〓

〓

囲

Ｘ

Ａ ＋ Ｘ Ｋ

囲

Ｘ

． ５ ０ ４

４

２

３ ︲ ５ ０ ４

． ５ ０ ４

出

ｌ

＞

ｌ ︲ ＜

Ｘ 〓

〓

Ｘ

田

Ｘ

． ︲

５ ０ ４

・

＞ ＞

ｌ

＞

． ＜

＞

ｌ ︲ ＜

ｌ ︲ ＜

Ｘ 〓

＜ ．

Ｘ 〓

〓

Ｘ

叩

Ｘ

則

Ｘ

間

Ｘ

川

Ｘ

ｌ ︲ ＜

田

Ｘ Ｘ 〓 〓

ｕ

Ｘ

Ｘ Ｘ

Ｘ

． ５ ０ ４

０

０ ９ ４

３ ０ ５ ０ ４

０ ８ ４

２ ０ ５ ０ ４

０ ４

︲ ０ ５ ０ ４

０ ４

０ ０ ５ ０ ４

０ ７ ４ ０ ４

40450可 翻 Fめ DAT「 た す き 1垂 直 40460 X(111)=KX― 「 (― NX― L/2-A/2)/(NY― .8*A)*KY― A/28Y(111) =KY+KM* 2/3*KS:Z(111)=― (KZ+KH/2)

40515 X(126)=KX+A:Y(126)=KY:Z(126)=Z(116) 40516 X(127)=KX+A:Y(127)=KY:Z(127)=Z(117) 40517 X(128)=KX+A:Y(128)=KY:Z(128)=Z(118) 40520 X(131)=KX― A+L:Y(131)=Y(121):Z(131)=Z(121) 40521 X(132)=KX― A● L:Y(132)=Y(122):Z(132)=Z(122) 40522 X(133)=KX― A● L:Y(133)=Y(123):Z(133)=Z(123) 40523 X(134)=KX― A+L:Y(134)=Y(124):Z(134)=Z(124) 40524 X(135)=KX― A+L:Y(135)=Y(125):Z(135)=Z(125) 40525 X(136)〓 KX― A+L:Y(136)=Y(126):Z(136)=Z(126) 40526 X(137)=KX¨ A+L:Y(137)=Y(127):Z(137)=Z(127) 40527 X(138)=KX― A+L:Y(138)=Y(128):Z(138)=Z(128) 40530 X(141)=― X(111):Y(141)=Y(111):Z(141)=Z(111) 40531 X(142)=― X(111):Y(142)=Y(112):Z(142)=Z(112) 40532 X(143)=― X(111):Y(143)=Y(113):Z(143)=Z(113) 40540 X(144)=― X(111):Y(144)=Y(114):Z(144)=Z(114) 40550 X(145)=― X(111)8Y(145)=Y(115):Z(145)=Z(115) 40551 X(146)=― X(111):Y(146)=Y(115):Z(146)=Z(115) 40552 X(147)=― X(111):Y(147)=Y(115):Z(147)=Z(115) 40553 X(148)=― X(111):Y(148)=Y(115):Z(148)=Z(115):RETURN

40560.笠

木 の

DATAた

す き 2斜 め

40570 X(111)=KX― (― NX― L/2-A/2)/NY*(KM*(KS― KS/3)+KY)― A/2: Y(11 1)=KY+KM*(KS― KS/3): Z(111)=― (KZ+KH/2) 40580 X(112)=KX― (― NX― L/2-A/2)/NY*(KM*KS+KY)― A/2:Y(112)=KY+KM *KS: Z(112)=― KZ 40590 X(113)=X(111): Y(113)=Y(111): Z(113)=― (KZ― KH/2) 40600 X(114)=KX― (― NX― L/2-A/2)/NY*KY― A/2: Y(114)=KY: Z(114)=― (KZ― KH/2) 40610 X(115)=X(114): Y(115)=Y(114): Z(115)=― (KZ+KH/2) 4061l X(116)=X(114): Y(116)=Y(114):Z(116)=― (KZ+KH/2) 40612 X(117)=X(1'14): Y(117)=Y(114): Z(117) =― (KZ+KH/2) 40613 X(118)=X(114): Y(118)=Y(114):Z(118)=― (KZ● KH/2) 40620 X(121)=KX+A : Y(121)=KY+KS― KS/3: Z(121)=― (KZ+KH/2) 40630 X(122)=KX+A : Y(122)=KYttKS: Z(122)=― KZ 40640 X(123)=KX+A : Y(123)=Y(121): Z(123)=― (KZ― KH/2) 40650 X(124)=KX+A : Y(124)=KY: Z(124)=― (KZ¨ KH/2) 40652 X(125)=KX+A : Y(125)=KY8 Z(125)=― (KZ+KH/2) 40653 X(126)=KX+A : Y(126)=KY: Z(126)=― (KZ+KH/2) 40654 X(127)=KX+A : Y(127)=KY: Z(127)=T(KZ+KH/2) 40655 X(128)=KX+A : Y(128)=KY8 Z(128)〓 ―(KZ+KH/2) 付

-4

40661 X(131)=KX― A+L Y(131)=KY゛ KS― KS/3: Z(131)=― (KZ+KH/2) 40662 X(132)=KX― A+L : Y(132)=KY+KS: Z(132)=― KZ 40663 X(133)=KX― A+L : Y(133)=Y(121): Z(133)=― (KZ― KH/2) 40664 X(134)=KX― A+L : Y(134)=KY: Z(134)〓 ―(KZ― KH/2) 40665 X(135)=KX― A+L : Y(135)=KY: Z(135)=‐ (KZ+KH/2) 40666 X(136)=KX¨ A+L : Y(136)=KY: Z(136)=¨ (KZ+KH/2) 40667 X(137)=KX― A+L : Y(137)=KY: Z(137)=‐ (KZttKH/2) 40668 X(138)=KX― A+L : Y(138)=KY: Z(138)=‐ (KZ+KH/2) 40675 X(141)〓 ―X(111): Y(141)=Y(111)8 Z(141)=Z(111) 40680 X(142)=― X(112): Y(142)=Y(112)8 Z(142)=Z(112) 40690 X(143)=― X(113): Y(143)=Y(113)8 Z(143)=Z(113) 40700 X(144)=― X(114): Y(144)=Y(114)3 Z(144)=Z(114) 40710 X(145)=― X(115)3 Y(145)=Y(115): Z(145)=Z(115) 4071l X(146)=― X(115): Y(146)=Y(115)8 Z(146)=Z(115) 40712 X(147)=¨ X(115): Y(147)=Y(115): Z(147)=Z(115) 40713 X(148)=― X(115): Y(148)=Y(115): 2(148)=Z(115) 40720 RETURN 45000 '、 亀 腹 DATA 45010 X(151)=HX― .207*A*KHH― .5*L:Y(151)=HY:Z(151)=― (HZ+.5*A*K

HH)

45020 X(152)=HX+.207*A*KHH― .5ホ L8 Y(152)=HY8 Z(152)=― (HZ+.5 *A*KHH) 45030 X(153)=HX+.5*Aホ KHH― .5*L: Y(153)=HY8 Z(153)=― (HZ+. 207*A*KHH) 45040 X(154)=HX+.5*A*KHH― .5*L: Y(154)=HY: Z(154)=― (HZ― 207*A*KHH) 45050 X(155)=HX+.207*A*KHH― .5ネ L: Y(155)〓 HY: Z(155)=― (HZ― .5 *A*KHH) Y(156)=HY: Z(156)=― (HZ― .5 45060 X(156)=HX― .207*A*KHH― .5*L8 *A*KHH) Y(157)=HY: Z(157)=― (HZ― 。 45070 X(157)=HX― .5*A*KHH― .5*L: 207*A*KHH) Y(158)=HY: Z(158)=― (HZ+. 45080 X(158)〓 HX― .5*A*KHH― .5*L: 207*A*KHH) 45090 X(161)=HX― .207*A*KHH― .5*L:Y(161)=HY+KHS:Z(161)=― (HZ+.5 *A*KHH) Y(162)=HY+KHS: Z(162)=― (H 45100 X(162)=HX● .207*A*KHH― .5*L: Z+.5*A*KHH) Y(163)=HY+KHS: Z(163)=― ( 45110 X(163)=HX+。 5*A*KHH― .5*L: HZ+。 207*A*KHH) Y(164)=HY+KHS: Z(164)=― ( 45120 X(164)=HX+.5*A*KHH― .5ホ L: HZ― 。207*A*KHH) Y(165)=HY+KHS: Z(165)=― (H 45130 X(165)=HX+.207*A*KHH― .5*L: Z― .5*A*KHH) 45140 X(166)=HX― .207*A*KHH― .5*L: Y(166)=HY゛ KHS: Z(166)=‐ (H Z― .5*A*KHH) Y(167)=HY+KHS: Z(167)=― ( 45150 X(167)=HX― .5*A*KHH― .5*L: HZ― 。207*A*KHH) , Z(168)=― ( 45160 X(168)=HX― 。5*A*KHH― 。5*L: HZ+。 207*A*KHH) .

Ｚ

＞ ＞ ９１ ３ ５ ５ ｌ ｌ ＜ ＜

Ｚ

Ｚ Ｚ Ｚ     ¨ 一  ¨ 一  一 二   ＞ ＞ ＞   １ ２ ３   ７ ７ ７   ｌ ｌ ｌ

Ｓ Ｈ Ｋ   ＞ ＋     ＾１ Ｙ   ５ Ｈ   ｌ 一 ¨    ＜

Ｙ

＞ ８ ６ １ ＜

Ｚ

＞ ７ ５ ｌ ＜ ＞ Ｑｕ ５ ｌ ＜

＞ ８ ７ ｌ

＞ Ａｙ ５ ｌ ＜

＞ ７ ７ ｌ

＞ ５ ５ ｌ ＜

＞ ６ ７ ｌ

Ｚ

＞ ■１ ５ ｌ ＜

＞ ５ ７ ｌ

Ｚ

Ｚ Ｚ Ｚ Ｚ Ｚ 一 一 一  一 一  ¨ 一  〓

＞ ４ ７ ｌ

Ｚ

８ ７ １

Ｚ

７ ７ １

Ｚ

６ ７ １

Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ Ｙ Ｈ Ｈ Ｈ Ｈ Ｈ Ｈ Ｈ Ｈ 一 一 ¨ 一 一 一 ¨ 一 一 い ¨ 一 ¨ 一 〓

５ ７ １

４ ７ １

Ｙ

３ ７ １

Ｙ

２ ７ １

１ ７ １

Ｙ

Ｙ Ｙ

Ｙ

﹂ ＋

Ｙ

Ｙ

﹂ ＋

Ｌ ＋ Ｌ ＋

Ｌ ＋

Ｌ ＋ Ｌ ＋

Ｌ ＋

５ １

７

４

３

１

６ ５

８ ５ １

５ ５

８ ７ １

１

６ ７

５ １

５ ７

Ｘ

４

７ １

７ ７ １

５ １

１

３ ７

Ｘ

２ ５ １

２ ７

１

１ ５ １

１

Ｘ

Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ Ｘ ¨ 二 二 一 一 一 ¨ 二 一 ¨ 一 〓

１

７ １

１

Ｘ Ｘ

Ｘ Ｘ

Ｘ

２

０ ４

０ ３ ２

０ ０ ２ ０ ２ ２

０ ９ １ ０ １

０ ７ １

２ ５ ４ ５ ４

５ ４ ５ ４

５ ４ ５ ４

０ ８ １ ５ ４

５ ４

付

-42

Ｙ

１ ８ １

Ｙ

２ ８ １

Ｙ

３ ８ １

Ｙ

４ ８ １

Ｙ

５ ８ １

Ｙ

６ ８ １

Ｙ

７ ８ １

Ｙ

８ ８ １

45250 45260 45270 45280 45290 45300 45310 45320

X(181)=X(161) ●L =HY+KHS: Z (181)=2(161J X(182)=X(162) +L =HY+KHS: Z(182)=Z(162) X(183)=X(163) +L =HY+KHS: Z(183)〓 Z(163) X(184)=X(164) +L =HY+KHS: Z(184)=Z(164) X(185)=X(165) +L =HY+KHS: Z(185)=Z(165) X(186)=X(166)+L: =HY+KHS: Z(186)=Z(166) X(187)=X(167)+L: =HY+KHS: Z(187)=Z(167) X(188)=X(168)+L: =HYttKHS: Z(188)=Z(168):RETURN 45330 '≠ 卦革 命DATA 45340 X(191)=HX― .207*A *DH‐ .5*L+HK*A18 Y(191)=SY― DS: Z(191) ―(HZ+.5*A*DH) 45350 X(192)=HX+。 207*A *DH― .5*L+HK*A18 Y(192)=SY― DS: Z(192) ―

(HZ+。 5*A*DH) 45360 X(193)=HX+.5*A*DH― .5*L+HK*Al: Y(193)=SY― DS: Z(193)=― HZ+.207*A*DH) 45370 X(194)・ HX+。 5*Aホ DH― .5*L+HK*Al: Y(194)=SY― DS: Z(194)=― HZ― 。207*A*DH) 45380 X(195)=HX+。 207*A*DH― .5*L+HK*Al : Y(195)=SY― DS:Z(195) ―(HZ― .5*A*DH) 45390 X(196)=HX― 。207*A*DH― .5*L+HK*Al : Y(196)=SY― DS: Z(196) ―(HZ― :5*A*DH) 45400｀ X(197)=HX― .5*A*DH― 。5*L+HK*Al : Y(197)=SY― DS: Z(197)=― HZ― .207*A*DH) 45410 X(198)=HXい 。5*A*DH― .5*L+HK*Al 8 Y(198)=SY― DS: Z(198)=― HZ+.207*A*DH) : Y(201)=SY8 Z(201)=Z(191) 45420 X(201)=X(191) 45430 X(202)=X(192) : Y(202)=SY: Z(202)=Z(192) 45440 X(203)=X(193) : Y(203)=SY: Z(203)=Z(193) 45450 X(204)=X(194) : Y(204)=SY: Z(204)=Z(194) 45460 X(205)=X(195) : Y(205)=SY: Z(205)=Z(195) : Y(206)=SY: Z(206)=Z(196) 45470 X(206)=X(196) 45480 X(207)=X(197) : Y(207)=SY: Z(207)=Z(197) 45490 X(208)=X(198) : Y(208)=SY: Z(208)=Z(198) 45500 X(211)=― X(191): Y(211)=SY― DS: Z(211)=Z(191) 45510 X(212)=― X(192): Y(212)=SY― DS: Z(212)=Z(192) 45520 X(213)=― X(193): Y(213)=SY― DS: Z(213)=Z(193) 45530 X(214)=― X(194): Y(214)=SY― DS: Z(214)=Z(194) 45540 X(215)=― X(195): Y(215)=SY― DS: Z(215)〓 Z(195) 45550 X(216)=― X(196): Y(216)=SY― DS: Z(216)=Z(196) 45560 X(217)=― X(197): Y(217)=SY― DS: Z(217)=Z(197) 45570 X(218)=― X(198): Y(218)=SY― DS: Z(218)=Z(198) : Y(221)=SY: Z(221)=Z(201) 45580 X(221)=X(211) : Y(222)=SY: Z(222)=Z(202) 45590 X(222)=X(212) : Y(223)=SY: Z(223)=Z(203) 45600 X(223)=X(213) : Y(224)=SY: Z(224)=Z(204) 45610 X(224)=X(214) : Y(225)=SY: Z(225)=Z(205) 45620 X(225)=X(215) : Y(226)〓 SY: Z(226)=Z(206) 45630 X(226)=X(216) : Y(227)=SY: Z(227)=Z(207) 45640 X(227)=X(217) : Y(228)=SY: Z(228)=Z(208):RETURN 45650 X(228)=X(218) 50000.袖 柱 DATA 50010 X(231)=HX― 。5*SA― .5*L:Y(231)=HY:Z(231)=― HZ+(L― A)/2-SA 50020 X(232)=HX+.5*SA― .5*L:Y(232)=HY:Z(232)=― HZ+(L― A)/2-SA 50030 X(233)=HX+.5*SA― .5*L:Y(233)=HY:Z(233)=― HZ+(L― A)/2 50040 X(234)=HX― .5*SA― 。5*L:Y(234)=HY:Z(234)=― HZ+(L― A)/2 50050 X(241)=HX― 。5*SA― .5*L:Y(241)=HY,SAH8Z(241)=― HZ+(L― A)/2SA― SHK*SA 50060 X(242)=HX+.5*SA― .5*L:Y(242)=HY,SAH:Z(242)=― HZ+(L― A)/2SA― SHK*SA 50070 X(243)=HX+。 5*SA― .5*L:Y(243)〓 HY+SAH:Z(243)=― HZ。 (L― A)/2SHK*SA 50080 X(244)=HX― .5*SA― .5*L:Y(244)=HY+SAH:Z(244)=― HZ+(L― A)/2SHK*SA

付

-4

(

(

3

50090 50100 50110 50120 50130

X(235)=HX― .5*SA― .5*L:Y(235) X(236)=HX+.5*SA― .5*L:Y(236) X(237)=HX+.5*SA― .5*L:Y(237) X(238)=HX― .5*SA― .5*L:Y(238) X(245)=HX― .5*SA― .5*L:Y(245)

=HY:Z(235)=― HZ― (L― A)/2 =HY:Z(236)=― HZ― (L― A)/2 =HY:Z(237)=― HZ― (L― A)/2+SA =HY:Z(238)=― HZ― (L― A)/2+SA =HY+SAH:Z(245)=― HZ― (L― A)/2+

SHK*SA 50140 X(246)=HX+.5*SA― .5*L:Y(246)=HY,SAH:Z(246)=― SHK*SA 50150 X(247)=HX+.5*SA― .5*L:Y(247)=HY+SAH:Z(247)=― SA+SHK*SA 50160 X(248)=HX― .5*SAい 。5*L:Y(248)=HY+SAH:Z(248)=― SA+SHK*SA 50180 X(251)=HX― 。5*SA● .5*L:Y 50190 X(252)=HX● .5*SA● 。5*L:Y 50200 X(253)=HX+。 5*SA● .5*L:Y 50210 X(254)=HX― .5*SA● .5*L:Y 50220:X(261)=HX― .5*SA● .5*L:Y SA― SHK*SA

HZ― (L―

A)/2+

HZ― (L― A)/2+ HZ― (L―

A)/2+

(251)=HY:Z(251)=― HZ+(L― A)/2-SA (252)=HY:Z(252)=― HZ+(L― A)/2-SA (253)=HY:Z(253)=― HZ+(L― A)/2 (254)=HY:Z(254)=― HZ+(L― A)/2 (261)=HY+SAH:Z(261)=― HZ+(L― A)/2-

50230 X(262)=HX+.5*SA+。 5*L:Y(262)=HY+SAH:Z(262)=‐ HZ+ (L― A)/2SHK*SA 50240 X(263)=HX+.5本 SA+.5*L:Y(263)=HY+SAH:Z(263)=― HZ+ (L― A)/2SHK*SA 50250 X(264)=HX― .5*SA● .5*L:Y(264)=HY+SAH:Z(264)=― HZ+(L― A)/2SHK*SA 50260 X(255)=HX― .5*SA● .5*L8Y (255)=HY:Z(255)=― HZ― (L… A)/2 50270 X(256)=HX+.5*SA● .5*L:Y (256)=HY:Z(256)=― HZ― (L― A)/2 50280 X(257)=HX+.5*SA+.5*L:Y (257)=HY:Z(257)=― HZ― (L‐ A)/2+SA 50290 X(258)=HX― .5*SA十 .5*L:Y (258)=HY:Z(258)=― HZ― (L― A)/2+SA 50300 X(265)=HX― .5*SA● .5*L:Y (265)=HY+SAH:Z(265)=― HZ― (L― A)/2+ SHK*SA 50310 X(266)=HX+.5*SA+.5*L:Y (266)=HY+SAH:Z(266)=― HZ― (L― A)/2+ SHK*SA 50320 X(267)=HX+.5*SA・ .5*L:Y(267)=HY+SAH:Z(267)=― HZ― (L― A)/2+ SA● SHK*SA 50330 X(268)=HX― .5*SA+.5*L:Y(268)=HY+SAH:Z(268)=― HZ― (L― A)/2+ SA+SHK*SA:RETURN 50340 '1空 ]罫 DATA 50350 X(271)=HX― .5*UNH― 。5*L:Y (271) 〓HY+UNT:Z(271)=― HZ・ L/2 50360 X(272)=HX+.5*UNH― .5*L:Y (272) =HY+UNT:Z(272)=― HZ+L/2 50370 X(273)=HX+.5*UNH― .5*L:Y (273) =HY+UNT― UNH:Z(273)=― HZ+L/2 50380 X(274)=HX― .5*UNH― 。5*L:Y (274) =HY+UNT― UNH:Z(274)=― HZ+L/2 :Z(281)=― HZ― L/2 50390 X(281)=HX― .5*UNH― .5*L:Y (281) =HY+UNT :Z(282)=― HZ― L/2 50400 X(282)=HX+.5*UNH― .5*L:Y (282) =HY+UNT HZ― L/2 UNH:Z(283)=― 50410 X(283)=HX+.5*UNH― .5*L:Y (283) =HY+UNT― HZ― L/2 UNH:Z(284)=― 50420 X(284)=HX― .5*UNH― .5*L:Y (284) =HY+UNT― HZ+L/2 50430 X(275)=HX― .5*DNH― .5*L:Y (275) =HY+DNT:Z(275)=― 50440 X(276)=HX+.5*DNH‐ .5*L:Y (276) =HY+DNT:Z(276)=― HZ+L/2 50450 X(277)=HX● .5*DNH― .5*L:Y (277) =HY+DNT― DNH:Z(277)=― HZ+L/2 50460 X(278)=HX‐ 。5*DNH― .5*L:Y (278) =HY+DNT― DNH:Z(278)=― HZ+L/2 :Z(285)=― HZ― L/2 50470 X(285)=HX― .5*DNH― 。5*L:Y (285) =HY+DNT 8Z(286)=― HZ― L/2 50480 X(286)=HX+.5*DNH― .5*L:Y (286) =HY+DNT ― 50490 X(287)=HX+。 5*DNH― .5*L:Y (287) =HY+DNT― DNH:Z(287)〓 HZ― L/2 50500 X(288)=HX― .5*DNH― .5*L:Y (288 =HY+DNT― DNH:Z(288)=― HZ― L/2 50510 X(291)=HX― .5*UNH● .5*L:Y (291 =HY+UNT:Z(291)=― HZ+L/2 50520 X(292)=HX+◆ 5*UNH+.5*L:Y (292 =HY+UNT8Z(292)=― HZ+L/2 50530 X(293)=HX+.5*UNH+.5*L:Y (293) =HY+UNT― UNH:Z(293)=‐ HZ+L/2 50540 X(294)=HX― .5*UNH+.5*L:Y (294) =HY+UNT― UNH:Z(294)=― HZ・ L/2 SA―

付

-44

5σ 55び

x(301) 百

HttT=5*UNH｀ ■ 5*L:Y(301) =‖

fTU‐ 1■

lz(301)=― HZI L/2

50560 X(302)=HX+.5*UNH+.5*L:Y(302)=HY+UNT :Z(302)=― HZ― L/2 50570 X(303)=HX+.5ホ UNH+.5*L:Y(303)=HY+UNT― UNH:Z(303)=― HZ― L/2 50580 50590 50600 50610 50620 50630

X(304)=HX― .5*UNH● .5*L:Y(304)=HY+UNT― UNH:Z(304)=― HZ― L/2 X(295)=HX― .5*DNH+.5*L:Y(295)=HY+DNT:Z(295)=― HZ+L/2 X(296)=HX+.5*DNH● .5*L:Y(296)=HY+DNT:Z(296)=… HZ+L/2 X(297)=HX+.5*DNH+。 5*L:Y(297)=HY+DNT― DNH:Z(297)=― HZ+L/2 X(298)=HX― .5*DNH+.5*L:Y(298)=HY+DNT― DNH:Z(298)=― H Z tt L/2 X(305)=HX,。 5*DNH+。 5*L:Y(305)=HY+DNT :Z(305)=― HZ― L/2 50640 X(306)=HX+.5*DNH+.5*L:Y(306)=HY+DNT :Z(306)=― HZ― L/2 50650 X(307)=HX+.5*DNH● .5*L:Y(307)=HY+DNT― DNH:Z(307)=― HZ― L/2 50660 X(308)=HX― .5*DNH+.5*L:Y(308)=HY+DNT― DNH:Z(308)=― HZ― L/2 :RETURN

60000'地

60005 60010 60020 60030 60040 60050

面

X(150)=-128:Y(150)・ 0:Z(150)=640 X(151)=-96:Y(151)=0:Z(151)=640 X(152)=-64:Y(152)=0:Z(152)=640 X(153)=-32:Y(153)=0:Z(153)=640 X(154)=0:Y(154)=0:Z(154)=640 X(155)=32:Y 155 =0:Z(155)=640 60060｀ X(156)=64:Y 156 =0:Z(156)=640 60070｀ X(157)=96:Y 157 =0:Z(157)=640 60080 X(158)=128:Y(158)=0:Z(158)=640 60090 X(160)=-128:Y(160)=0:Z(160)=-608 60100 X(161)=-96:Y(161)=0:Z(161)=-608 60110 X(162)=-64:Y(162)=0:Z(162)=-608 60120 X(163)=-32:Y(163)=0:Z(163)〓 -608 60130 X(164)=0:Y(164)=0:Z(164)=-608 60140 X(165)=32:Y(165)=0:Z(165)=-608 60150 X(166)=64:Y(166)=0:Z(166)=-608 60160 X(167)=96:Y(167)=0:Z(167)=-608 60170 X(168)=128:Y(168)=0:Z(168)=-608 60180 X(170)=-128:Y(170)=0:Z(170)=640 60190 X(171)=-128:Y(171)=0:Z(171)=608 60200 X(172)=-128:Y(172)=0:Z(172)=576 60210 X(173)=-128:Y(173)=0:Z(173)=544 60220 X(174)=-128:Y(174)=0:Z(174)=512 60230 X(175)=-128:Y(175)=0:Z(175)=480 60240 X(176)=-128:Y(176)=0:Z(176)=448 60250 X(177)=-128:Y(177)=0:Z(177)=416 60260 X(178)=-128:Y(178)=0:Z(178)=384 60270 X(179)=-128:Y(179)=0:Z(179)=352 60280 X(180)=128:Y(180)=0:Z (180 =640 60290 X(181)=128:Y(181)=0:Z (181 =608 60300 X(182)=128:Y(182)=0:Z (182 =576 60310 X(183)=128:Y(183)=0:Z (183 =544 60320 X(184)=128:Y(184)=0:Z (184 =512 60330 X(185)=128:Y(185)=0:Z (185)=480 60340 X(186)=1288Y(186)=0:Z (186)=448 60350 X(187)=128:Y(187)=0:Z (187)=416 60360 X(188)=128:Y(188)=08Z (188)=384 60370 X(189)=128:Y(189)=08Z (189)=352 60380 X(190)=-128:Y(190)・ =0:Z(190)=320 60390 X(191)=-128:Y(191)=0:Z(191)=288 60400 X(192)=-128:Y(192)=08Z(192)=256 60410 X(193)=-128:Y(193)=0:Z(193)=224 60420 X(194)=-128:Y(194)=0:Z(194)=192 60430 X(195)=-128:Y(195)=0:Z(195)=160 60440 X(196)=-128:Y(196)=0:Z(196)=128 60450 X(197)=-128:Y(197)=0:Z(197)=96 60460 X(198)=-128:Y(198)=0:Z(198)=64 60470 X(199)=-128:Y(199)=0:Z(199)=32

付

-45

一 〇 ８ ６ ４ ２ ２ ８ ５ ２ ９ 一 ３ ２ ２ ２ １ ヽ 〓 〓 〓 〓 〓

＞

＞

＞

＞

＞

０ ８       ６ ２ ６ ４ ２ １ ９ ６ ３ 〓 ． 〓 〓 〓 〓 ＞ ＞ ＞ ＞

＞

＞ １

＞ ２

＞ ３

＞ ４

＞ ５

＞ ６

＞ ７

＞ ８

＞ ９

８ ０ ２ ４ ６ ８ ２ ４ ６ ２ ６ ９ ２ ５ ８   ２ ４ ６ ２ ６ ９ ２ ５ ８   ３ ６ ９ ・ ・ ・ ２ ２ ２ 一 ¨   ３ ６ ９ １ １ １ ２ ２ ２ 二 二 〇 一 二 二 二 ¨ 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 ０ 十 一 一 ． ¨ 一 二 一  一 二 一  一 〓 〓

＞ ０

＞

＞

＞

＞

＞

＞

＞

＞

＞

＞

４ ８ ４ ７ ２ ５ ８ ︲ ５ ５ ５ ３ ３ ３ ４ ４ ４ ． 二 ¨ 二 ¨ 二 二 〓 〓 〓 〓 〓 〓 〓 〓 〓 ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ １ ２ ３ ４ ５ ６ ７ ８

＞ ０

０ ６

〓

＞ ９

０ ２ ４ ６ ８ ０ ２ ２ ５ ８ ・ ４ ８ １ ３ ３ ３ ４ ４ ４ ５ 二 二 一 二 二 二 ］ 一 二 ¨  一 ・ 二 一  一 ＞ ＞ ＞ ＞ ＞ ＞

＞

＝＝ Ｄヽ Ｕ Ｔ ＯＬ ＤＡ

４ ６ ８ ４ ７ ０ ５ ５ ６ 一 一 一 二 一  〓

＞

＞

＞

四 四 帥 餡 四 凶 四 四 ｍ 側 ｍ 四 帥 側 餌 囲 圏 鰍 麟 囲 爾 辮 辮 申 囲 螺 郎 辮 辮 辮 側 申 辮 椰 囲 辮 昭 凶 側 側 知 辮 翻 辮 翻 辮 辮 卿 翻 卿 ・ Ｚ

Ｚ

Ｚ

Ｚ

一︰ ︰ ︰ ︰ ︰ ０ ０ ０ ０ ０ 一 〓 〓 〓 〓 〓

Ｚ

Ｙ

Ｙ

Ｙ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

ｏ・

・・

・・

・・

・０

・●

●●

●●

●０

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

・・

・・

・・

・・

・●

・●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

●●

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

Ｚ

Ｙ

︰ ︰ ︰ ︰ ︰ ︰ ︰ ８ ︰ ８ ０ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ︰ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ ︰ ︰ ０ ０ ０ ０ ０ ０ 〓 ０ ０ ０ ０ ０ ０ ０ ０ ０ ０ 〓 〓 〓 〓 〓 〓 〓 〓 〓 ０ ０ ０ ０ ０ ０ ０ ０ 〓 〓 〓 〓 〓 〓 〓 〓 〓 〓 ０ ０ ０ ０ ０ ０ ０ 二 一  〓 二 一  一 二 二 二 二 二 ・ 二 一  一 一  一 二 一＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ 〓 〓 〓 〓 〓 ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ ＞ 〓 〓 〓 〓 〓 ¨

Ｚ

４ ６ ８ ９ ２ ３ ５ ７ ０ ０ ０ ０ ” 鋤 鋤 ” Ｄ ” ０ つ Ｈ ０ の ９ ・ ・ ︲ ・ ・ ・ ・ １ ｌ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ｍ ］ い い ︺ 螂 ︺ 囲 四 ︺ ︺ い い い 口 ］ ］ Ｙ

いいいいいいいいいい博博博博出博惚陀博陀αα像曖曖 一

Ｙ

００

¨¨

１

●●

¨¨

１

●●

一二

１

●●

１ 一

●●

一一

１

・●

一¨

１

・・

一一

１

・●

¨ 二

１

●●

１ ¨

●●

一¨

二

８

８

二

二 一二

８

８

“

一一

二

８

８

二

８

¨

一  二 ¨二

８

８

一 二

二

・・

¨ １ 一¨

８

１ 二

・・

１ 二

・●

１ 二

●●

二

１

●●

１ 二

●●

１ ¨

●●

¨ 一

１

●●

８

８

¨

¨  二

●●

¨二

１

一二

¨¨

１

●●

８

二

二

二

８

８

二

二

二

８

８

一

一二

８

一

”  二

８

一¨

８

一二

１

・・

１

二

・・

１

二

・●

１

二

●●

１

一

●０

¨二

１

●●

１

”

●●

¨¨

１

●●

一一

１

●●

〓

１

︰

２２２２ ８８８８８８８８８ ８８８８８８８８８８２２２２２２２２２２８８８８８８８８８８２２２２２２ ２２２２２２ ２２２２︲・︲・︲・・・・・２２２２２２２２２２︲︲・・・・︲・・・お２２２２２２２２２ ¨一

１

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

Ｘ

卸 四 師 鯛 椰 四 四 四 帥 囲 的 囲 囲 囲 四 側 囲 四 帥 四 四 蜘 側 四 麟 囲 圏 囲 囲 麟 囲 師 餞 解 側 脚 椰 四 四 師 椰 帥 囲 ｍ 郎 鮨 側 側 帥 ｍ Ｘ

60480 60490 60500 60510 60520 60530 60540 60550 60560 60570 60580 60590 60600 60610 60620 60630 60640 60650 60660 60670 60680 60690 60700 60710 60720 60730 60740 60750 60760 60770 60780 60790 60800 60810 60820 60830 60840 60850 60860 60870 60880 60890 60900 60910 60920 60930 60940 60950 60960 60970

-46

付

60980 60990 61000 61010 61020 61030 61040 61050 61060 61070

0階 段 X(150)=-150:Y(150)=08Z(150)=-400 X(151)=-150:Y(151)=0:Z(151)=320 X(152)=-150:Y(152)=-8:Z(152)=320 X(153)=-150:Y(153)=-8:Z(153)=336 X(154)=-150:Y(154)=-16:Z(154)=336 X(155)=-1503Y(155)=-16:Z(155)=352 X(156)=-150:Y(156)=-24:Z(156)=352 X(157)=-150:Y(157)=-24:Z(157)=368 X(158)=-150:Y(158)=-32:Z(158)=368 61080ヽ X(159)=-150:Y(159)=-32:Z(159)=384 61090｀ X(160)=-150:Y(160)=-40:Z(160)=384 61100 X(161)=-150:Y(161)=-40:Z(161)=400 61110 X(162)=-150:Y(162)=-48:Z(162)=400 61120 X(163)=-150:Y(163)=-48:Z(163)=416 61130 X(164)=-150:Y(164)=-56:Z(164)=416 61140 X(165)〓 -150:Y(165)=-56:Z(165)=432 61150 X(166)=-150:Y(166)=-64:Z(166)=432 61160 X(167)=-150:Y(167)=-64:Z(167)=448 61170 X(168)=-150:Y(168)=-72:Z(168)=448 61180 X(169)=-150:Y(169)=-72:Z(169)=640 61190 X(170)=150:Y(170)=0:Z(170)=-400 61200 X(171)=150:Y(171)〓 0:Z(171)=320 61210 X(172)=150:Y(172)=-8:Z(172)=320 61220 X(173)=150:Y(173)=-8:Z(173)=336 61230 X(174)=150:Y(174)=-16:Z(174)=336 61240 X(175)=150:Y(175)=-16:Z(175)=352 61250 X(176)=150:Y(176)=-24:Z(176)=352 61260 X(177)=150:Y(177)=-24:Z(177)=368 61270 X(178)=150:Y(178)〓 -32:Z(178)=368 61280 X(179)=150:Y(179)=-32:Z(179)=384 61290 X(180)=150:Y(180)=-40:Z(180)=384 61300 X(181)=150:Y(181)=-40:Z(181)=400 61310 X(182)=1508Y(182)=-48:Z(182)=400 61320 X(183)=150:Y(183)=-48:Z(183)=416 61330 X(184)=150:Y(184)=-56:Z(184)=416 61340 X(185)=150:Y(185)=-56:Z(185)=432

・

::::: 61370 61380 61390 61400 62000 62005

II:::}[l:::Ill::￨:I:1::ll:,I:11: X(188)=150:Y(188)=-72:Z(188)=448 X(189)=150:Y(189)=-72:Z(189)=640 X(190)=-600:Y(190)=0:Z(190)=320 X(191)=600:Y(191)=0:Z(191)=320:RETURN .木 X(251)=KIX-10 Y(251)=KIY:Z(251)=KIZ 62010 X(252)=KIX● 10 Y(252)=KIY:Z(252)=KIZ 62020 X(253)=KIX+7 Y(253)=KIY+150:Z(253)=KIZ 62030 X(254)=KIX-7 Y(254)=KIY+150:Z(254)=KIZ 62040 X(255)=KIX :Y 255)=KIY+220:Z(255)=KIZ 62050 X(256)=KIX :Y 256)〓 KIY+120:Z(256)=KIZ:RETURN 付

-47

62110 「 屋

百

':Z(257)=YAZ 7:z(258)=YAZ-80 :YAY:Z(259)=YAZ-80 1YAY:Z(260)=YAZ .+40:Z(261)=YAZ +40:Z(262)=YAZ-80 YAY+40:Z(263)=YAZ-80 YAY+408Z(264)=YAZ +100:Z(265)=YAZ +100:Z(266)=YAZ-80 YAY+90:z(267)=YAZ-80 YAY+90:Z(268)=YAZ8RETURN

=DOY:Z(269)=DOZ =DOY:Z(270)=DOZ =DOY:Z(271)=DOZ-128 =DOY:Z(272)=DOZ-128 =DOY+128:Z(273)=D02 =DOY+128:Z(274)=DOZ =DOY+128:Z(275)=DOZ-128 =DOY+128:Z(276)=DOZ-128 =DOY,128:Z(277)=DOZ+32 =DOY● 1288Z(278)=DOZ+32 =DOY+128:Z(279)=DOZ-160 =DOY+128:Z(280)=DOZ-160 ::::: I{:::す :::II::::羊 ￨:::￨:::II`::::￨:::￨::::二 :1:RETURN

62400 1人

::11: II::11:‖ III::サ ￨:::￨:‖

:羊

1::::￨:::￨:‖ ::

62430 X(285)=NIX+6:Y(285)=NIY+80:Z(285)=NIZ

::11: II::,}:‖ III::II::♀ ￨:‖ :I:::::￨:::}:‖ ::

62460 X(288)=NIX

62590 62600 62610 62620 62630

:Y(288)=NIY+758Z(288)=NIZ !Y+80:Z(289)=NIZ IIY+48:Z(290)=NIZ IIY+40:Z(291)=NIZ IIY+48:Z(292)=NIZ IIY+458Z(293)=NIZ IIY+258Z(294)=NIZ IY■ 5 :Z(295)=NIZ IY+8 :Z(296)=NIZ IY :Z(297)=NIZ IY :Z(298)=NIZ IY+388Z(299)=NIZ IY :Z(300)=NIZ X(301)=NIX+128Y(301)=NIY :Z(301)=NIZ X(302)=NIX+14:Y(302)=NIY+8 8Z(302)=N IZ X(303)=NIX+8 :Y(303)=NIY+5 :Z(303)=NIZ X(304)=NIX+8 :Y(304)〓 NIY・ 25:Z(304)=NIZ X(305)=NIX+128Y(305)=NIY+45:Z(305)=NIZ:RETURN 付

-48

―

☆

プ ロ グ ラ ム 変 更 部

1000。 パ ー ス 変 換 1001 SCREEN l,0 188: 1:ミ ::w2::l::11二 126*W・ -280*W)― (426*W。 200*W)

1004 1005 1010 1015 1020 1025 1030 1035 1038 1040 1042

VIEW (1,100)― (800,550),,1 00T0 10050 GOT0 10230 GOT0 10150 GOT0 10290 00T0 10350 00T0 10380 00T0 10390 00T0 10400 00T0 10410 00SUB 5000300SUB 6000:00SUB 6060:00T0 10000

、

1043 C.LS 0

1044 00SUB 25060 1045 1S=181E=308:00SUB 2000 1046 WINDOW SCREEN(-426*W・ -280*W)― (426*W,200*W) 1050 VIEW (1.100)― (800,550),,1 1073 RESTORE 4040 1075 1A=57:GOSUB 4000 1080 GOSUB 5000:00SUB 6000:GOSUB 6060 1085 00T0 10000 1500 1S=1:IE=38:GOSUB 2000 1510 RESTORE:IA=6:00SUB 4000 1520 1B=51:GOSUB 4020800T0 1010 1550 1S=41:IE=58:00SUB 2000 1560 RESTORE:IB=6 :00SUB 4020 1570 1A=3:00SUB 4000 1580 1B=48:GOSUB 4020:GOT0 1020 1650 1S=61:IE=74:GOSUB 2000 1660 RESTORE:IB=9 :GOSUB 4020 1670 1A=3:GOSUB 4000 1680 1B=45:GOSUB 4020:00T0 1015 1700 1S=8181E=104:00SUB 2000 1710 RESTORE:IB=12:00SUB 4020 1720 1A=4:GOSUB 4000 1730 1B=41:GOSUB 4020800T0 1025 1750 1S=111:IE=148:GOSUB 2000 1760 RESTORE:IB=16:GOSUB 4020 1770 1A=5:00SUB 4000 1780 1B=36:GOSUB 4020300T0 1030 1800 1S=151:IE=188:00SUB 2000 1810 RESTORE:IB=21:GOSUB 4020 1820 1A=6:GOSUB1 4000 1830 1B=30:GOSUB 40208GOT0 1035 1850 1S=19181E=228:00SUB 2000 1860 RESTORE:IB=27:00SUB 4020 1870 1A=6:GOSUB 4000 1880 1B=24:GOSUB 4020800T0 1038 1900 1S=231:IE=268:00SU3 2000 1910 RESTORE:IB=33:00SUB 4020 1920 1A=12:00SUB 4000 1930 1B=12860SUB 4020:00T0 1040 1950 1S=271:IE=308800SUB 2000 1960 RESTORE:IB=45:00SUB 4020 1970 1A=12:GOSUB 4000:GOT0 1042

付

-49

イ寸

録

- 2

自

由

曲

線

「

1日三 」

本 プ ロ グ ラ ム は 自 由 曲 線 の 一 つ で あ る ベ ジ ェ 曲 線 を 利 用 し て 任 意 の 曲 面 か ら な る 柱 の 形 態 を シ ミ ュ レ ー トす る も の で あ る

1

シ ス テ ム の起 動 ① ∼③ ④

A〉

「 鳥 居 」 同 様 の 印 が 出 て きた ら

VR:縛 :搬 で 瞬 ヽyR「 す

.

現在の■駕は す 31し い■驚 スカ してくだきぃ : "=o4:2で

キ ー ボ ー ド よ り MOusE

IBH“

tati“

J… "hlt:● 3us:… 臓 … V":“ LnJ:應

と 入 力 し回 を 押 す

… 曖.40

:6● pu"seri“

肥 椰 騰報ば,:1鶴・嘔 :犠

H

0● ●

⑤

A〉

の 印 が 出 て きた ら

キーボ ー ドよ り

す R:霜 :天男 警 解 tlで %騎 :「 現在の■用は

BASI

す 新 しい18劇 を入力 して くだ きぃ "=04:2で

:

鵬 国 Ю 出 itictatl“

と 入 力 し回 を 押 す

臨

1・ puter路 :“ 篭蹴寵T・ ・

肥椰

:脚

・嘔 鵡

Dm“

い嶋●Oriv"Pr● ● r●●L嗜 i∞ 1.∞ 0い ●●t Ш COr● .1984 hter.1_Pr● lr● ●Pror"“ 思置 習

IBH

■鳳 半駒

⑥

BASI

Cの

画 面 が 現 れ る

L 業 榊 孵 :品 路 撃 鶴脳 餞

l

付

-50

プ ロ グ ラ ム の 呼 び 出 し ① ド ラ イ プ

2に

ドラィプ 1 ドラィブ 2

プ ロ グ ラ ム の

ドラィプ 3

入 っ て い る デ ィ ス ク を 入 れ る

嘔 篭 引 動

② キ ー ボ ー ド ょ り

LOAD

"B:HASIRA―

③

OKと

BllslneSPer30n● “ 3ASIC V“s:Olt曖 .10 5000■ つ

G"

と 入 力 し回 を 押 す

出 れ ば 入 力 完 了

hL:3tet:00

1011“ J● ● ● nese

l● ●p● ￨● rS"ies

8協 :総 :肥 :1鵠 .1985 L:― d Heteri● :‐ Pr● 8r● ●Prop● 0「 lBH =it出

11684 3ytes rr.e

Ш ・ 3:WSIRA● “

無蹴

l疇 む け蹟L 官伊…

H蹴蹴1梃鵠執響:踊

謳

餞

tOAD・ B:‖

パIRA‐ C

OL

プ ロ グ ラ ム の始 動 ① キ ーボ ー ドょ り

RUNと

入 力 し回 を 押 す

付

-51

② プ ロ グ ラ ム が 始 動 し矢 印 が 出 て く る の で 上 部 の 説 明 文 に 従 い マ ウ ス を 動 か す

形 態 変 化 ① 尺 度 と し て 人 を 用 い る の で 背 の 高 さ に あ た る と こ ろ へ ユ 点変換

矢 印 を も っ て い き 左 ボ タ ン を 押 す

(ク リ ッ ク す る

画面変換 コピー

)

lt了

② 柱 の 幅 を 問 わ れ る の で 柱 の 下 端 の

Y軸

を 中 心 と

形態変化

し た 半 径 の 位 置 を

画面変換

ク リ ッ ク す る

lt了

コ ピー

③ 柱 の 高 さ を 問 わ れ る の で 柱 の 上 端 の

Y軸

形態変化

を 中 心 と

確

換

画面変換

し た 半 径 の 位 置 を

● ピー

3t7

ク リ ッ ク す る

付

-52

④ 柱 の 上 端 と 下 端 を 結 ぶ 曲 線 を 制 御 す る 点 を

2ケ

形態変化

所

●置験 “ 1環 換 山」

ク リ ッ ク す る

コ ピー lt了

⑤ 曲 線 の き ざ み し ろ を テ ン キ ー を ク リ ッ ク す る

形態変化

こ と に よ り入 力 す る

画面変換

■ 点変換

(1∼ 30ぐ

ら い

コピー 終了

)

CRを RETURNを

間 違 え た 時 は 入 力 後 は

ク リ ッ ク す る

化  換 換

”朦耐一

⑥ 立 面 図 と バ ー ス が 作 成 さ れ る

視 点 変 換 ① 柱 を 見 る 角 度 を テ ン キ ー を ク リ ッ ク す る こ と に よ り 入 力 す る

形態変化 鶴 慶模

(DEG)｀

画面変換 ヨ

`― 終了

付

-53

② ど こ か ら 見 る か 選 択 して

転角灰(D田 ,そ 指定してくだきい 〕 こから見ますか 通くから1,近 くから "‐2・ 員下から3 (ラ

形態変化

番 号 を ク リ ッ ク す る

翼点よ 換 画面変換 コピー 終了

③ ど こ を 見 る か 選 択 し て 番 号 を ク リ ッ ク す る

① 視 点 が 変 換 さ れ て バ ー ス が 描 か れ る

形 態変化 ■ 点変 換 画面変 換 コ ピー

画 面 変 換 ① 画 面 か ら 柱 が は み 出 して い る 形馨変化

時 や 小 さ す ぎ る 時 に 縮 小 、

織 “ 画面変換

拡 大 を 選 択 し て ク リ ッ ク す る

コピー

付 ‐

54

② 縮 小 、 拡 大 さ れ た バ ー ス が 描 か れ る 視■浚 崚

コ ピ ー ① 柱 の 位 置 を 変 え て 見 た い 時 立 面 図 の 画 面 内 で コ ピ ー し た い 所 を ク リ ッ ク す る

② そ の 柱 の 奥 行 き を テ ン キ ー

こに コ ピー しますか (画 面 ) きを指定 して くだ さい

を ク リ ッ ク す る こ と に よ り

影 鮨変化 視点変換

入 力 す る

画面変換 コ tr―

(初

期 値 は

0に

な っ て い る

3t了

)

③ 「 画 面 を 残 し ま す か 」 と 問 わ れ る の で 複 数 の 柱 を 見 た い 時 は

Yを

視点変 換

ク リ ッ ク す る

画面変換 コ ピー 終了

付

-55

④ コ ピ ー さ れ た バ ー ス が

I晟

い てく だき i三 こ ろ 振憂1.島 独をし 爵 騨蠅ヒ

淋Ψ

ヽ■＝〃

ｌ 瑚， ■Ⅲ ｌ ｌ

描 か れ る

画面変換 コピー

3t7

終 了 ごくろうきま 餞

① 終 り

★

5540を

使 用 の 際 の 変 更 点

す で に ハ ー ドデ ィ ス ク の 中 に

MS―

DOSの

シ ス テ ム

が 入 っ て い る の で デ ィ ス ク は プ ロ グ ラ ム の は い っ て い る も の だ け 用 意 す る

MS― な く

DOSを C〉

起 動 し た 時 の プ ロ ン プ トが

A〉

で は

と な る

プ ロ グ ラ ム を 呼 び 出 す 時

LOAD"B:∼

"で

は な く

LOAD"A:∼

"

と な る

ff - s 6

プ ロ グ ラ ム リ ス ト説 明

行 番 号

120-680 69o-1080 1090-129o 130o-2120 2130-2850 2860-321o 3220-3540

初 期 設 定

初 期 画 面

MOusE制

御 ァ ィ コ ン 制 御 形 態 作 成 各 種 変 換 ベ ジ ェ 曲 線 バ ー ス 変 換

付

-57

10 '****************************************************

20 '

30. 1985年

40

度

・

卒 業 論 文

CAD.85

50' PARAMETORIC DESIGN「

柱 」

60 '

70' PROGRAMED BY To NISHIMURA

80 '

90'

WATANABE LAB.

100 ' 110 :********************ネ ***ネ ********************ネ *****

120 W=1:HX=0:HY=0:HZ=0 130 KEY OFF 140 SCREEN l,0

150 DIM X(100)。 Y(100)。 Z(100)

160 DIM XX(100),YY(100),ZZ(100) 170 00SUB 320 180 00SUB 690 190 00SUB 750 200 00SUB 790 210 00SUB 830 220 00T0 1300 230 'WINDOW SUB 240 WINDOW SCREEN (0,0)― (1000,100) 250 VIEW (1,1)― (1000,100),,1:RETURN 260 WINDOW (-400*W,-150*W)― (400*W,200*W) 270 VIEW (1,100)― (800,450)。 ,1:RETURN 280 WINDOW (-400,-50)― (400,250) 290 VIEW (1,450)― (800,750),,1:RETURN 300 WINDOW SCREEN (0,0)― (1000,750) 310 VIEW (0,0)― (1000,750),,1:RETURN 320・

330 340 350 360 370 380 390

初 期 画 面

SUB

00SU3 240 00SUB 260 . 00SUB 280 00SUB 300 LINE (810,110)― (860,155)。 ・B LOCATE 5.68:PRINT"河 多1露 ヨ奎化 LINE(810,165)― (860,210),,B 400・ LOCATE 7,688PRINT"視 点 変 換 “ 410 LINE (8101220)― (860,265),OB 420 LOCATE 9,68:PRINT"画 面 変 換 “ 430 LINE (810,275)― (860,320),,B 440 LOCATE ll,68:PRINT"コ ピ ー 450 LINE (810,330)― (8600375),,B '・

''

460 470 480 490 500

LOCATE 13.68:PRINT'・ 終 了 LINE (810,400)― (975,675),,B ':

FOR I=455 T0 620 STEP 55 LINE (810,I)― (975,I),・ B NEXT I

付

-58

510 二 N「 面 覇 ■oo'I薄

675),・ B

I‐

=「

::: [::lT19:::::!)Fll:91920),,B 540 LOCATE 15,69:PRINT='2"

550 560 570 580 590

LOCATE 15,738PRINT::31' LOCATE 17,658PR INT・ :4'1 LOCATE 17.69:PRINT"51= LOCATE 17,73:PRINT'16・・ LOCATE 19,658PR INT''7.1

600 LOCATE 19,69:PR INT]]8'・ 610 LOCATE 19,738PR INT':9。

i

620 LOCATE 21,658PR INT':0" 630 LOCATE 21.68:PRINT'lY/,・ 640 LOCATE 21,72:PRINT・ =N/― ・ =

=

650 LOCATE 23,658PR INT''CR:・

660 LOCATE 23,698PR INT"RETURN・ ・

670 RETURN 680 00SUB 750 690 、 'MOUSE SUB 700 DEF SEG=0

::￨ ￨:i:::::i:::[11:111ll'1;:[{llill;12 740 RETURN 750'ハ ート｀初 期 化 760 AX%=308BX%=3 ' 770 GOSUB 1060 780 RETURN

790:初

期 化

830i点

か ソル表 示

800 AX%=0 810 00SUB lo60 820 RETURN

840 850 860 870 880

AX%=1 GOSUB 1060 ・カーソルイ 立 i菫

AX%=4:CX%=6003DX%=480 00SUB 1060

8901移

動 範 囲 X

920'移

動 範 囲 Y

900 AX%=7:CX%=0:DX%=1000 910 00SUB 1060

930 AX%=38BX%=1 940 00SUB lo60 950 RETURN ゛

960 'ホ タン

970 AX%=58BX%=0 980. OSUB lo6o l::OIIFA‖ ::lR:‖

1010 RETURN

1020。

DTl[‖ 〉

1011EIL::S::01090 ELSE 960

マウス消 去

1030 AX%=2 1040 GOSUB lo60 1050 RETURN

1060 .

1070 CALL MOUSE(AX%,BX%,CX%,DX%) 1080 RETURN 付

-59

1090 0ア イコン市J樹 印 SUB

l100 1F (810く CX% MUS$="KEI=1 1110 1F (310く CX% HUS$="SI:: 1120 1F (810く CX% MUS$=・・GA" 1130 1F (810く CX% MUS$=・・CP:'

I

AND CX%く 860) AND (110く DX% AND DX%く 155) THEN AND CX%く 860) AND (165く DX% AND DX%く 210) THEN AND CX%く 860) AND (220く DX% AND DX%く 265) THEN

AND CX%<860) AND (275く DX% AND DX%く 320) THEN

1140 1F (810く CX% AND CX%く 860) AND (330く DX% AND DX%く 375) THEN MUS$="El:

1150 1F (810く CX% AND CX%く 865) AND (400く DX% AND DX%く 455) THEN MUS$=MUS$+"1:。 :LOCATE l,688PRINT MUS$

1160 1F (865く CX% AND CX%く 920) AND (400<DX% AND DX%く 455) THEN MUS$=MUS・ S+"2"8LOCATE

l,68:PRINT MUS$ (920<CX% AND CX%く 975) AND、 (400く DX% MUS$=MUS$+"3"8LOCATE l,68:PRINT MUS$ 1180 1F (810く CX% AND CX%く 865) AND (455<DX% MUS$=MUS$+・・4.1:LOCATE l.688PRINT MUS$ 1190 1F (865く CX% AND CX%く 920) AND (455く DX% HUS$=MUS$+115・':LOCATE l,68:PRINT MUS$ CX% AND CX%く 975) AND (455く DX% 1200 1F (920く :6":LOCATE l.68:PRINT MUS$ ・ MUS$=MUS$・ 1210 1F (310く CX% AND CX%く 865) AND (510く DX% 1170 1‐ F

Uえ

AND DX%く 455) THEN AND DX%く 510) THEN AND DX%く 510) THEN AND DX%〈 510) THEN AND DX%く

565)THEN

565) '18":LOCATE l,688PRINT MUS$ MUS$=MUS$十 1230 1F (920く CX% AND CX%く 975) AND (510く DX% AND DX%く 565) MUS$=MUS$+'=9018LOCATE l.68:PRINT MUS$ 1240 1F (810く CX% AND CX%〈 865) AND (565く DX% AND DX%く 620) MUS$=MUS$+''0.=:LOCATE l,68:PRINT MUS$ 1250 1F (865く CX% AND CX%く 920) AND (565<DX% AND DX%く 620)

1」

::$]‖

:::【 li101lIEcl12:::II‖ IDMI:10く DX% AND DX%く

1」 ::$II+1920く 1サ

THEN THEN THEN THEN

CX% AND CX%く 975) AND (565く DX% AND DX%く 620)THEN

￨:$71 1810く CX% AND CX%く 865) AND (620く DX% AND DX%く 675) THEN

・

1サ ::$]l・

i:::!:l%11138:li‖ :15) AND (:20<DX% AND DX%く 675) THEN

1」 ::''I:luRN

:::: :OsuB 260 1::: :::u: 1350 1::: ::ξ :Bll::,

1::: ::l l=_390 T0 390 STEP 10 1380 LINE(I,-50)― (1,250)・ 。,&HAAAA 1390 NEXT I ll:: F:lN:1二 1:O11):i10:l:;,I!&HAAAA ll:: l:‖ :(1400,0)― (40000)

1440 LINE(00-50)― (0,250)8RETURN

tt- 6 o

‐

1■ 5て

GOS UB 24Ю

1460 CLS l 1470 LOCATE l,18PRINT“

人 の 大 き さ を 指 定 し て く だ き い (画 面

)

1480 00SUB 280

1490 M$=''RE'i:00SUB 960

1500 NX=CX%-400 1510 NY=― DX%+695 1520 CIRCLE (NX,NY*5/6)。 NY*1/6 1530 LINE(NX― NY*1/6,NY*4/6)― (NX+NY*1/6.0),,3 1540 CIRCLE (NX― NY*1/12,NY*5/6),NY*1/20 1550 CIRCLE (NX+NY*1/120NY*5/6),NY*1/20 1560 1F SI=l THEN 1580 ELSE 1570 1570 XF=508YF=NY:ZF=600:XA=0:YA=YF8ZA=-200 の幅 ィ 蟄1旨 定 し て く だ き い (画 面

1::: [::IIE9:618PRINT:'柱 1600 XSl=CX%-400 1610 YSl=― DX%+695 1620 CIRCLE (NX,NY*5/6)。 NY*1/6

￨￨￨￨ ￨￨￨￨￨￨￨￨￨li111111:￨￨:::サ

)='

‐

￨￨￨￨li:′ :!0)''B

1670 XS2=― XSl

1680 YS2=YSl

2,YS2) 」 1710 LOCATE 3,18PRINT"柱 19:: [:‖ :`さ ,lζ

:lζ :lll〕

の 高 き を 指 定 し て く だ さ い (画 面 )"

1720 00SUB 960 1730 XEl=CX%-400

1740 YEl=― DX%● 695

1750 CIRCLE(XEl,YEl),2

1760 XE2=― XEl

1770 1780 1790 1800 1810 1820 1830 1840

.

YE2=YEl CIRCLE(XE2,YE2),2 LINE(XE2,YE2)― (XEl,YEl) 00SUB 240 CLS l LOCATE l,1:PRINT"制 御 点 00SUB 960 Xl=CX%-400 1850 Yl=― DX%+695

1860 CIRCLE(Xl,Yl)。

1を 指 定 し て く だ き い (画 面

)"

2

1870 LOCATE 2,1:PRINT"制 1880 00SUB 960 1890 X2=CX%-400 1900 Y2=‐ DX%+695 1910 CIRCLE(X2,Y2),2

御 点 2を 指 定 し て く だ さ い (画 面 )"

1920 X3=― Xl

1930 Y3=Yl

1940 X4=― X2

1950 Y4=Y2 1960 LOCATE 3.18PRINT"曲

1970 MUS$=・ :" 1980 M$=111'800SUB 960

線 の き ぎ み し ろ (テ ン キ ー )"

1990 NDIV=VAL(MUS$)

付

-61

2000 HX=o「 HY=08HZ=0

2010 00SUB 280

I)二 II:::‖ II羊 ::￨‖ II

:lil 2050 2060 2070

::!￨:I:::IIII:::‖ 00SUB 3040 00SUB 260 00SUB 3220

:::: 2100 2110 2120 2130 2140 2150

lll=:::::.I:ノ ::: STEP 30 0oSUB 3270 00SUB 3470 NEXT DEG 00SuB 240 CLS l LOCATE 101 8PRINT"マ ウ ス で

針

T)よ :∫ tT発

lPRINl"複

選 択 して くだ きい " 数 の 柱 を 見 る 時 は 先 に 視 点 変 換 ,画 面 変

を :、 2170 MUS$='1・・:M$=・・RE":GOSUB 960 2180 1F MUS$=・・KEI" THEN 2230

.

2190 1F MUS$=='SI“ THEN 2320 2200 1F MUS$=・・GA・・ THEN 2540

2210 1F MUS$="CP'. THEN 2660

2220 1F MUS$=・ ・E・・ THEN 2810 ELSE 2150 2230・ 形 態 変 化

2240 1F NDIV=O THEN 1300 ELSE 2250 2250 00SuB 2408CLS l ::,: [:::[1"lililill:ξ

llヨ 1:Ъ

残しますかY/N・・

・ 1. THEN 2300 2280 1F MUS$=・・ 2290 1F MUS$=・ ・―" THEN 1300

2300 00SU3 280 2310 00T0 1580

2320'視

点 変換

2330 00SuB 2408CLS l 2340 LOCATE l,18PRINT"回

転 角 度

2360 DEG2=VAL(MUSS) 2370 RAD2=DEG2*3.14/180 2380 LOCATE 2.18PRINT“ ど

こか ら見 ま す か

・:H$=":.:OoSUB 960 2350 MUS$=・・・

真 下 か ら 3''

2390 2400 2410 2420

(DEC)を 指 定 し て く だ さ い

(テ

ンキー)"

遠 く か ら 1,近 く か ら 2,

MUS$='0"8M$=・・":00SUB 960 1F MUS$=・・1" THEN ZF=2000ホ COS(RAD2) 1F MUS$=・ 。2" THEN ZF=500*COS(RAD2) 1F MUS$=。 '3" THEN ZF=200*COS(RAD2)

2430 LOCATE.3.18PRINT"ど こ を 見 ま す か 正 面 1,見 上 げ 2,見 下 げ 3“ 2440 MUS$=""8M$="・ ・:GOSUB 960 2450 1F MUS$="1・・:THEN 2480 2460 1F MUS$="2" THEN 2490 2470 1F MuS$="3・・ THEN 2500 ELSE 2430 2480 XF=ZF*SIN(RAD2)8YF=NY:XA=0:YA=YF8ZA=-1000800T0 2510 2490 XF=ZF*SIN(RAD2):YF=NY8XA=08YA=YE18ZA=-100360T0 2510 2500 XF=ZF*SIN(RAD2)8YF=2000:XA=0:YA=(YEl― YSl)/28ZA=0:GOT0 2

510

2510 1F NDIV=O THEN 2520 ELSE 2530 2520 00SUB 13508SI=1800T0 1450 253o 00SUB 2608CLS 1800T0 2070

. 付

-62

爾

]画 面

酸 百

2550 0osuB 2408CLS l 2560 LOCATE l.18PRINT"拡 大 1,縮 小 2" 2570 Mus$=::・・8M$=・・":oosUB 960 2580 1F MUs$=1'1" THEN 2600 2590 1F MUs$="2" THEN 2610 ELSE 2560 2600 w=w*.8:GOT0 2620 2610 w=w*1.2

∫

110*W.200*w) ::il l:lllII:￨:li:￨::::1:lテ 1300 ELSE 2650 2650 CLS 1800To 2070

2660 'コ ビ°―

2670 00su3 2408CLS l :lll ll:!:￨:i::111:‖

:

lilijЪ

ピし

:も

ま す か (画 面

:λ

)"

°

2710 HY=― DX%+695

予き を 指 定 し て く だ き ぃ

960

百を 残 し ま す か

960

"

Y/N"

0 0

B 1350300T0 2020 2820 0osuB lo20 2830 CLS O 2840 PRINT"ご く ろ う き ま・ ・ 2850 END 2860'へ ￢″ ェ曲 線 2870 PO=xsl:Qo=YSl

・

ビ1-YSl)

2=3*(Y2‐ 2*Yl● YSl) :Q3=YEl‐ 3*(Y2-Yl)― YSl

2920 T=1/NDIV :!:￨ ￨:11::i11:;lilillli11:,:,71∫ 2960 FOR 」=O To NDIV 2970 1F J=o THEN 3000

::*T+Q2)*T+Ql)*T・

):Y12=Y(]・ )

Qo

・

3000 xll=x(J):Yll=Y(J):x12=Xl18Y12=Yll HX,Yll● HY)― (X12+HX,Y12● HY) `::: I::5X::i;11=Y12:X12=X(」 :::: ヤ:‖ :(111・ 3030 RETURN

付

-63

玉 ヽ0 可 ￢戸￢陶線

3050 3060 3070 3080 3090 3100 3110 3120 3130 3140 3150 3160 3170

￨

'

PO=XS2:QO=YS2 Pl=3*(X3-XS2)8Ql=3*(Y3-YS2) P2=3*(X4-2*X3+XS2)3Q2=3*(Y4-2*Y3+YS2) P3=XE2-3*(X4-X3)― XS2303=YE2-3*(Y4-Y3)― YS2 FOR I=O TO NDIV T=1/NDIV P=((P3*T+P2)*T+Pl)*T+PO:Q=((Q3*T● Q2)*T◆ Ql)*T+Q0 X(I)=INT(P):Y(I)=INT(Q) NEXT I FOR J=O TO NDIV 1F J=O THEN 3180 X13=X148Y13=Y148X14=X(J)8Y14=Y(J) 00T0 3190 X13=X(」 )8Y13=Y(J):X14=X138Y14=Y13 LINE(X13+HX,Y13+HY)― (X14+HX,Y14+HY) NEXT J RETURN ゜

3180 3190 3200 3210 3220・

ハ ―ス変 換

3230 PO=XSl:QO=YSl

・

3240 Pl=3*(Xl― XSl):Ql=3*(Yl― YSl)

3250 3260 3270 3280 3290 3300

P2=3*(X2-2*Xl+XSl)8Q2=3*(Y2-2*Yl+YSl) P3=XEl-3*(X2-Xl)― XSl:Q3=YEl-3*(Y2-Yl)― YS18RETURN FOR II=O TO NDIV T=I1/NDIV P=((P3*T+P2)*T+Pl)*T+P08Q=((Q3*T+Q2)*T+Ql)*T+Q0 X=INT(P):Y=INT(Q)

3310 XK=Xホ COS(RAD)― Z*S IN(RAD)● HX 3320 YK=Y● HY 3330 ZK=X*SIN(RAD)+Z*COS(RAD)● HZ 3340 COSAL=(ZF― ZA)/((XF― XA)^2+(ZF― ZA)^2)^.5 3350 COSBE=((XF― XA)^2+(ZF― ZA)^2)^。 5/((XF― XA)'2●

ZA)^2)^.5 3860 SINAL=(XALxF)/((XF― XA)^2+(ZF― ZA)^2)^.5

(YF―

YA)^2+(Z

F―

3370 SINBE=(YF― YA)/((XF― XA)^2+(YF… YA)^2+(ZF― ZA)^2)^.5 3380 XE=XK*COSAL+ZK*SINAL― XF*COSAL― ZF*SINAL ・ 3390 YE=XK*S INAL*SINBE+YK*COSBE― ZK*COSAL*SINBE― XF*SINAL*SIN BE― YF*COSBE+ZF*COSAL*SINBE 3400 ZE=XK*S INALホ COSBE― YK*SINBE― ZK*COSAL*COSBE― XF*SINAL*COS BE● YF*S INBEttZF*COSAL*COSBE 3410 PX=ZF*XE/ZE ・ 3420 PY=ZF*YE/ZE ´ 3430 XX(II)=PX 3440 YY(II)=PY 3450 NEXT II 3460 RETURN : 3470 FOR JJ=O TO NDIV 3480 1F JJ=O THEN 3510 3490 X15=X168Y15=Y16:X16=XX(JJ)8Y16=YY(JJ) 3500 00T0 3520 3510 X15=XX(JJ)8Y15=YY(JJ):X16=X158Y16=Y15 3520 LINE(X150Y15)― (X16,Y16) ' 3530 NEXT JJ 3540 RETURN ' ￨ 付

-64