出雲系文字にてフトマニを作成してみました。

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






・出雲文字フトマニ図


・出雲阿比留草文字フトマニ図



出雲系文字のフトマニ図２種を作ってみましたー。
良かったら、作ってみてね。(*^_^*)

詳しい説明は省略いたします。


　・出雲文字フトマニ図プログラム for 十進BASICシステム

REM ※出雲文字ﾌｫﾝﾄの本体部分ををWindowsのﾌｫﾝﾄ画面に入れておくこと!

DIM X(5),Y(5)

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

PICTURE shikaku3
LET XX=0
LET YY=0
FOR I=1 TO 1080 STEP 1
LET F=I/46
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 XX=0
LET YY=0
FOR I=1 TO 1080 STEP 1
LET F=I/46
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

SET BITMAP SIZE 801,801
SET WINDOW -400,400,-400,400
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES

FOR I=70 TO 350 STEP 70
DRAW CIRCLE WITH SCALE(I)
NEXT I

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 LINE WIDTH 2
DRAW CIRCLE WITH SCALE(10)
DRAW CIRCLE WITH SCALE(5)
PLOT LINES: -25,-10;25,-10
PLOT LINES: -25,-10;-6,9;-6,15;-20,18
PLOT LINES: 25,-10;6,9;6,15;20,18
DRAW shikaku3 WITH ROTATE(0)*SHIFT(0,45)
DRAW shikaku4 WITH ROTATE(-90)*SHIFT(0,-45)

SET TEXT JUSTIFY "center" , "bottom"
LET A=73
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=141
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=210
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=279
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




　・出雲阿比留草文字フトマニ図プログラム for 十進BASICシステム

REM ※出雲大社阿比留草文字ﾌｫﾝﾄの本体部分をWindowsのﾌｫﾝﾄ画面に入れておくこと!

REM ※一番内側のYeの字はWeの字で代用しています。
REM ※内側から三番目のYiの字はWiで代用しています。
REM ※一番外側のn(ん)の字はmu(む)で代用していますので、一部文字重複使用となります。

REM ※出雲文字ﾌﾄﾏﾆﾌﾟﾛｸﾞﾗﾑからの変更点はSET TEXT FONT文のところ1か所と
REM DATA文の"ｫ"→"ｪ"、"ｧ"→"ｨ"、"ｩ"→"ﾑ"の3か所です。

DIM X(5),Y(5)

PICTURE shikaku2
SET TEXT FONT "TCM Izumo Taisha Ahirukusa Character" ,48
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku3
LET XX=0
LET YY=0
FOR I=1 TO 1080 STEP 1
LET F=I/46
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 XX=0
LET YY=0
FOR I=1 TO 1080 STEP 1
LET F=I/46
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

SET BITMAP SIZE 801,801
SET WINDOW -400,400,-400,400
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES

FOR I=70 TO 350 STEP 70
DRAW CIRCLE WITH SCALE(I)
NEXT I

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 LINE WIDTH 2
DRAW CIRCLE WITH SCALE(10)
DRAW CIRCLE WITH SCALE(5)
PLOT LINES: -25,-10;25,-10
PLOT LINES: -25,-10;-6,9;-6,15;-20,18
PLOT LINES: 25,-10;6,9;6,15;20,18
DRAW shikaku3 WITH ROTATE(0)*SHIFT(0,45)
DRAW shikaku4 WITH ROTATE(-90)*SHIFT(0,-45)

SET TEXT JUSTIFY "center" , "bottom"
LET A=73
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=141
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=210
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=279
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

*注)上記の情報の真偽に関しては当Blogは一切保証いたしませんので、
　　ご了承願います。又、上記の記述に関しては当Blogは社会的責任等他
　　一切責任は負いませんので、ご了承願います。

 

当Blogでは記事の内容は保障できないの。
ごめんなさーい。m(_ _)m

閲覧ありがとうございまーす。(*^_^*)
今日はこれで、失礼いたしまーす。ヽ(^o^)丿