ちーちゃん(札幌) [chisapporo] です。

ちーのgoo版でーす。 \(^0^)/
よろしく!!

こんにちはー、ちーでーす。(*^_^*)

2017-05-19 17:50:22 | 日記

こんにちはー、ちーでーす。(*^_^*)

 

第一象字文字タイプ改良型フトマニ図(ver.7a)を掲載いたしまーす。(*^_^*)

 

ひきこもり君(札幌)さんが考案した
"聖ロックフェラー=ロスチャイルド オリハルコン(ヒヒイロガネ)比率"アーキティクチャー(設計思想)
を導入した新しいフトマニ図でーす。(⌒▽⌒)

 *参考*
1:√2 白銀比(≒大和比)
1:1.618 黄金比
1:√3 白金比(プラチナ比)
1:√8 聖ロックフェラー=ロスチャイルド オリハルコン(ヒヒイロガネ)比 ←New
  (又は 聖ロスチャイルド=ロックフェラー オリハルコン(ヒヒイロガネ)比)
 
第一象字文字タイプ改良型フトマニ図(ver.7a)を作成しましたので、
掲載させていただきまーす。(⌒▽⌒)

 

詳しい説明はぬきでプログラムを掲載いたします。
※プログラム実行に関して、台座プログラムのみは
 十進BASICのグラフウインドウのサイズを2001×2001dotにしてください。
 パーツ中央は1001dot×1001dot
 パーツ上,下は801×801dotにてお願いします。
 (サイズ指定:表示(W)→グラフィックス(G)→オプション(O)→サイズ(S))
 *十進BASICシステムのダウンロードHP http://hp.vector.co.jp/authors/VA008683/

※TCM第一象字文字フォントの本体部分をコントロールパネルのフォントのページに
 入れておくことが必要となります。(解凍要)
 (解凍:ダウンロードしたファイルのアイコンを右クリック→すべて展開(T)→展開(E))
 (コントロールパネルのフォントのページ:左下窓アイコンを右クリック→コントロールパネル(P)→フォント)
 *各フォントのダウンロードHP http://kamiyo.kiramori.net/font/

※ver.7(今回のフトマニ図)も、の中央の上の"あ"の字に関しては"ひふみ祝詞"、
 下の"わ"の字に関しては"あわの唄"を採用しております。
 (ver.2以前は両方とも"あわの唄"の採用でした。)

 

 *方法*
下記の4つのプログラムを十進BASICにて実行し、出た図形を全てセーブ。
4つの図をwindowsペイントで開き、
・中央円の中央パーツは、
 水平方向350dotで縮小(水平方向値を入れると自動的に垂直方向の値が出ます。)

・中央円の上パーツは上下空白部分のトリミングを行い(横はやらない)
 (選択→四角形選択(R)→残したい図形の部分をドラックにて範囲指定→トリミング)
 水平方向240dotで縮小(水平方向値を入れると自動的に垂直方向の値が出ます。)

・中央円の下パーツも上下空白部分のトリミングを行い(横はやらない)
 水平方向240dotで縮小(水平方向値を入れると自動的に垂直方向の値が出ます。)

・台座の中央円に上記の3つのパーツを貼り付けます。
 (貼り付け:パーツのウインドウで選択→すべてを選択(A)→図上で右クリック→コピー(C)
      台座のウインドウで、貼り付け→貼り付け(P)→上手にドラックで必要な位置へ
      持っていき、あとは適当な場所をクリックしてください。)

 グリッド線とルーラーを表示させると貼り付けるときの目安となり、
 少しやり易くなります。
 (表示タブ→ルーラー,グリッド線の欄にチェックを入れる。)

 

 *第一象字文字タイプ改良型フトマニ図プログラムver.7a for 十進BASIC*

*台座(大きなフトマニ図)
 ※台座は昨日と同じプログラムです。

REM 十進BASICのグラフウィンドウは2001×2001指定でお願いします。
DIM X(5),Y(5)


PICTURE shikaku2
SET TEXT FONT "TCM Daiichi Shoji Character" ,120
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE


SET WINDOW -1000,1000,-1000,1000
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES

FOR I=414 TO 998 STEP 146
DRAW CIRCLE WITH SCALE(I)
NEXT I

FOR I=0 TO 360 STEP 45
LET D=560
LET X(1)=D*COS(I)
LET Y(1)=D*SIN(I)
LET D=998
LET X(2)=D*COS(I)
LET Y(2)=D*SIN(I)
PLOT LINES: X(1),Y(1);X(2),Y(2)
NEXT I

FOR I=22.5 TO 360 STEP 45
LET D=414
LET X(1)=D*COS(I)
LET Y(1)=D*SIN(I)
FOR J=1 TO 4 STEP 1
LET D=414+146*J
LET K=J+1
LET X(K)=D*COS(I)
LET Y(K)=D*SIN(I)
NEXT J
PLOT LINES: X(1),Y(1);X(2),Y(2)
PLOT LINES: X(3),Y(3);X(5),Y(5)
NEXT I

SET TEXT JUSTIFY "center" , "bottom"
LET A=409
LET E=0
FOR I=0 TO 7
LET C=-I*360/8
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=548
LET E=180
FOR I=0 TO 7
LET C=-I*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=694
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=842
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I

DATA "ト","ヒ","カ","メ","ォ","ホ","タ","ミ"
DATA "イ","モ","シ","フ","ヲ","ア","ヘ","ス"
DATA "キ","チ","コ","オ","ァ","ナ","ヌ","ム","ヨ","ソ","ヤ","ハ","エ","ネ","ユ","ツ"
DATA "ニ","リ","ケ","レ","サ","ワ","ウ","ク","ロ","ノ","マ","ラ","テ","セ","ゥ","ル"
END

 


*台座の中央円の中央に入れるパーツ

REM 十進BASICのグラフウィンドウは1001×1001指定でお願いします。
DIM X(5),Y(5)

PICTURE shikaku2
REM SET TEXT FONT "TCM Hotsuma Character Large" ,60
SET TEXT FONT "TCM Daiichi Shoji Character" ,60

READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku3
LET F=0/50
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=2 TO 1080 STEP 2
LET F=I/50
LET XX2=F*COS(I)
LET YY2=F*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=YY2
NEXT I
END PICTURE

PICTURE shikaku4
LET F=0/50
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=2 TO 1080 STEP 2
LET F=I/50
LET XX2=F*SIN(I)
LET YY2=F*COS(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=YY2
NEXT I
END PICTURE

PICTURE shikaku5
PLOT LINES: 0,495;495,0;0,-495;-495,0;0,495
END PICTURE


REM SET WINDOW -360,360,-360,360
SET WINDOW -500,500,-500,500
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES

SET LINE WIDTH 2
FOR I=70 TO 350 STEP 70
DRAW CIRCLE WITH SCALE(I)
NEXT I

DRAW shikaku5 WITH ROTATE(0)
DRAW shikaku5 WITH ROTATE(45)


SET LINE WIDTH 4
DRAW CIRCLE WITH SCALE(10)
DRAW CIRCLE WITH SCALE(5)
PLOT LINES: -21,-10;21,-10
PLOT LINES: -21,-10;-6,9;-6,15;-20,16
PLOT LINES: 21,-10;6,9;6,15;20,16
DRAW shikaku3 WITH ROTATE(0)*SHIFT(0,45)
DRAW shikaku4 WITH ROTATE(-90)*SHIFT(0,-45)

SET LINE WIDTH 2
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*70
LET X(J)=D*COS(I)
LET Y(J)=D*SIN(I)
NEXT J
PLOT LINES: X(2),Y(2);X(5),Y(5)
NEXT I

FOR I=22.5 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*70
LET X(J)=D*COS(I)
LET Y(J)=D*SIN(I)
NEXT J
PLOT LINES: X(1),Y(1);X(2),Y(2)
PLOT LINES: X(3),Y(3);X(5),Y(5)
NEXT I

SET TEXT JUSTIFY "center" , "bottom"
LET A=67
LET E=0
FOR I=0 TO 7
LET C=-I*360/8
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=131
LET E=180
FOR I=0 TO 7
LET C=-I*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=202
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=272
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I


DATA "ト","ヒ","カ","メ","ォ","ホ","タ","ミ"
DATA "イ","モ","シ","フ","ヲ","ア","ヘ","ス"
DATA "キ","チ","コ","オ","ァ","ナ","ヌ","ム","ヨ","ソ","ヤ","ハ","エ","ネ","ユ","ツ"
DATA "ニ","リ","ケ","レ","サ","ワ","ウ","ク","ロ","ノ","マ","ラ","テ","セ","ゥ","ル"
END

 


*台座の中央円の上部に入れるパーツ("あ"渦巻き)

PICTURE shikaku2
REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、
REM そして、フォントの大きさと"ん"の字があるかに注意してください。
REM "ん"の字がない場合、わ行の"う(wu)"を代用します。
REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
SET TEXT FONT "TCM Daiichi Shoji Character" ,60
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku3
FOR I=360 TO 719 STEP 45
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I
END PICTURE

SET WINDOW -400,400,-400,400
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"

LET A=0
LET E=-30
DRAW shikaku3 WITH ROTATE(30)

DATA "ヒ","フ","ミ","ヨ","イ","ム","ナ","ヤ"
DATA "コ","ト","モ","チ","ロ","ラ","ネ","シ"
DATA "キ","ル","ユ","ァ","ツ","ワ","ヌ","ソ"
DATA "ヲ","タ","ハ","ク","メ","カ","ウ","オ"
DATA "ォ","ニ","サ","リ","ヘ","テ","ノ","マ"
DATA "ス","ア","セ","エ","ホ","レ","ケ","ゥ"

END

 


*台座の中央円の下部に入れるパーツ("わ"渦巻き)

PICTURE shikaku2
REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、
REM そして、フォントの大きさと"ん"の字があるかに注意してください。
REM "ん"の字がない場合、わ行の"う(wu)"を代用します。
REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
SET TEXT FONT "TCM Daiichi Shoji Character" ,60
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku3
FOR I=360 TO 719 STEP 45
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I
END PICTURE


SET WINDOW -400,400,-400,400
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"

LET A=0
LET E=120
DRAW shikaku3 WITH ROTATE(240)

REM DATA文の文字順
REM あかはなまいきひ
REM にみうくふぬむえ
REM けへねめおこほの
REM もとろそよをてれ
REM せゑ(ye)つるすゆん(wu←代用)ち
REM りしゐ(yi)たらさやわ

DATA "ア","カ","ハ","ナ","マ","イ","キ","ヒ"
DATA "ニ","ミ","ウ","ク","フ","ヌ","ム","エ"

DATA "ケ","ヘ","ネ","メ","オ","コ","ホ","ノ"
DATA "モ","ト","ロ","ソ","ヨ","ヲ","テ","レ"

DATA "セ","ォ","ツ","ル","ス","ユ","ゥ","チ"
DATA "リ","シ","ァ","タ","ラ","サ","ヤ","ワ"
END

 


 *第一象字文字タイプ改良型フトマニ図(ver.7a)*

ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« こんにちはー、ちーでーす。(... | トップ | こんにちはー、ちーでーす。(... »
最近の画像もっと見る

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。