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

ちーのgoo版でーす。　＼(^0^)／
よろしく！！

第２次朝鮮戦争に関する談話 by 地球大皇帝様/地球大天使様

2017-11-23 13:13:03 | 日記

第２次朝鮮戦争に関する談話 by 地球大皇帝様/地球大天使様

 

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

 

地球大皇帝様/地球大天使様,他グループ一同は、
第２次朝鮮戦争に関しての談話を発表いたしました。


*地球大皇帝様/地球大天使様 第２次朝鮮戦争に関する談話*

DPRK国には、DPRK国の思いがあり、
米国には、米国の思いがあり、
韓国には、韓国の思いがある。

双方、痛烈で強烈な思い,信念,信条がある以上
双方、互いに気が晴れてスッキリとするまで、

DPRK国はDPRK国の思う存分思うがままに、
米国は米国の思う存分思うがままに、
韓国は韓国の思う存分思うがままに、

双方、自己責任の上で物事を進ていっても構いません。

当グループは、戦争を止めることも、
戦争を進めることも、一切いたしません。

この事象に関しては、成り行きを暖かく見守って
いくことにして行きます。

(漠然とした、平和への祈りを神に奉げるだけにします。)

尚、双方の自己責任ゆえ、
当グループは一切責任は負わないものとします。

以上
2017.11.23 15:00発表

 


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

 


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

 


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


吉備文字でいままでのフトマニを作成してみました。(*^_^*)

2017-11-22 08:45:30 | 日記

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









改良型フトマニ図を吉備文字で作成してみました。
良かったら、観てね。(*^_^*)



※キビ文字フトマニ図プログラム　for  十進BASICシステム

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

DIM X(5),Y(5)

PICTURE shikaku2
REM SET TEXT FONT "TCM Izumo Character" ,48
SET TEXT FONT "TCM Kibi 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のﾌｫﾝﾄ画面に入れておくこと!

DIM X(5),Y(5)


PICTURE shikaku2
REM SET TEXT FONT "TCM Izumo Character" ,48
SET TEXT FONT "TCM Kibi 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


PICTURE test1
PLOT LINES:606,-350;-606,-350;0,700;606,-350
END PICTURE


SET BITMAP SIZE 2501,2501
SET WINDOW -1250,1250,-1250,1250
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

PLOT LINES:606,-350;-606,-350;0,700;606,-350
DRAW test1 WITH ROTATE(0)
DRAW test1 WITH ROTATE(180)

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
CALL houju1


DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"

END

 

 

EXTERNAL SUB houju1
OPTION ANGLE DEGREES

PICTURE shikaku41
REM SET TEXT FONT "TCM Izumo Character" ,24
SET TEXT FONT "TCM Kibi Character" ,24
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku42
REM ひふみ渦巻き (大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku45
REM いろは渦巻き(大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku47
REM ひふみ渦巻き(大)
SET TEXT JUSTIFY "center" , "bottom"
LET E=0
DRAW shikaku42 WITH ROTATE(-22.5)
END PICTURE


PICTURE shikaku49
REM いろは渦巻き(大)
SET TEXT JUSTIFY "center" , "cap"
LET E=180
DRAW shikaku45 WITH ROTATE(202.5)
END PICTURE


PICTURE shikaku50
LET D=180
LET XX=D*COS(30)
LET YY=D*SIN(30)
FOR I=29.5 TO -210 STEP -0.5
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
PLOT LINES:0,360;162,79
PLOT LINES:0,360;-162,79
END PICTURE

PICTURE shikaku60
REM ひふみ宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku47
END PICTURE

PICTURE shikaku62
REM いろは宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku49
END PICTURE

PICTURE shikaku64
REM ひふみ/いろは　両方移動処理
DRAW shikaku60 WITH ROTATE(180)*SHIFT(0,1060)
DRAW shikaku62 WITH ROTATE(0)*SHIFT(0,-1060)
END PICTURE


SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1


DRAW shikaku64 WITH ROTATE(0)
RESTORE
DRAW shikaku64 WITH ROTATE(120)
RESTORE
DRAW shikaku64 WITH ROTATE(240)

REM (ひふみ祝詞)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"

REM (いろは祝詞)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ"
DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ"
DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ"
DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ"
DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ"
DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"


END SUB









※キビ文字多重六方星フトマニ図プログラム　for  十進BASICシステム

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

DIM X(5),Y(5)


PICTURE shikaku2
REM SET TEXT FONT "TCM Izumo Character" ,48
SET TEXT FONT "TCM Kibi 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


PICTURE test1
PLOT LINES:606,-350;-606,-350;0,700;606,-350
END PICTURE


SET BITMAP SIZE 2501,2501
SET WINDOW -1250,1250,-1250,1250
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

REM DRAW test1 WITH ROTATE(0)
REM DRAW test1 WITH ROTATE(180)
FOR I=0 TO 120 STEP 20
DRAW test1 WITH ROTATE(I)
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
CALL houju1


DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"

END

 

 

EXTERNAL SUB houju1
OPTION ANGLE DEGREES

PICTURE shikaku41
REM SET TEXT FONT "TCM Izumo Character" ,24
REM SET TEXT FONT "TCM Izumo Character" ,28
SET TEXT FONT "TCM Kibi Character" ,28
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku42
REM ひふみ渦巻き (大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku45
REM いろは渦巻き(大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku47
REM ひふみ渦巻き(大)
SET TEXT JUSTIFY "center" , "bottom"
LET E=0
DRAW shikaku42 WITH ROTATE(-22.5)
END PICTURE


PICTURE shikaku49
REM いろは渦巻き(大)
SET TEXT JUSTIFY "center" , "cap"
LET E=180
DRAW shikaku45 WITH ROTATE(202.5)
END PICTURE


PICTURE shikaku50
REM LET D=180
REM LET XX=D*COS(30)
REM LET YY=D*SIN(30)
REM FOR I=29.5 TO -210 STEP -0.5

LET D=184
LET XX=D*COS(18.5)
LET YY=D*SIN(18.5)
FOR I=18 TO -198.5 STEP -0.5
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I

REM PLOT LINES:0,360;162,79
REM PLOT LINES:0,360;-162,79
PLOT LINES:0,360;174,58
PLOT LINES:0,360;-174,58
END PICTURE


PICTURE shikaku60
REM ひふみ宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku47
END PICTURE

PICTURE shikaku62
REM いろは宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku49
END PICTURE

PICTURE shikaku64
REM ひふみ/いろは　両方移動処理
DRAW shikaku60 WITH ROTATE(180)*SHIFT(0,1060)
DRAW shikaku62 WITH ROTATE(0)*SHIFT(0,-1060)
END PICTURE

 

SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1

FOR J=0 TO 330 STEP 40
DRAW shikaku64 WITH ROTATE(J)
RESTORE
NEXT J


REM (ひふみ祝詞)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"

REM (いろは祝詞)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ"
DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ"
DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ"
DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ"
DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ"
DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"


END SUB





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

 

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


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


改良型フトマニ図(出雲文字)Ver.2を作成してみました。(*^_^*)

2017-11-20 22:14:53 | 日記

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

 






改良型フトマニ図(出雲文字タイプ)Ver.2を作成してみました。
良かったら、観てね。(*^_^*)


　＊改良型フトマニ図(出雲文字タイプ)プログラムVer.2 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


PICTURE test1
PLOT LINES:606,-350;-606,-350;0,700;606,-350
END PICTURE


SET BITMAP SIZE 2501,2501
SET WINDOW -1250,1250,-1250,1250
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

REM DRAW test1 WITH ROTATE(0)
REM DRAW test1 WITH ROTATE(180)
FOR I=0 TO 120 STEP 20
DRAW test1 WITH ROTATE(I)
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
CALL houju1


DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"

END

 

 

EXTERNAL SUB houju1
OPTION ANGLE DEGREES

PICTURE shikaku41
REM SET TEXT FONT "TCM Izumo Character" ,24
SET TEXT FONT "TCM Izumo Character" ,28
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE shikaku42
REM ひふみ渦巻き (大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku45
REM いろは渦巻き(大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku47
REM ひふみ渦巻き(大)
SET TEXT JUSTIFY "center" , "bottom"
LET E=0
DRAW shikaku42 WITH ROTATE(-22.5)
END PICTURE


PICTURE shikaku49
REM いろは渦巻き(大)
SET TEXT JUSTIFY "center" , "cap"
LET E=180
DRAW shikaku45 WITH ROTATE(202.5)
END PICTURE


PICTURE shikaku50
REM LET D=180
REM LET XX=D*COS(30)
REM LET YY=D*SIN(30)
REM FOR I=29.5 TO -210 STEP -0.5

LET D=184
LET XX=D*COS(18.5)
LET YY=D*SIN(18.5)
FOR I=18 TO -198.5 STEP -0.5
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I

REM PLOT LINES:0,360;162,79
REM PLOT LINES:0,360;-162,79
PLOT LINES:0,360;174,58
PLOT LINES:0,360;-174,58
END PICTURE


PICTURE shikaku60
REM ひふみ宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku47
END PICTURE

PICTURE shikaku62
REM いろは宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku49
END PICTURE

PICTURE shikaku64
REM ひふみ/いろは　両方移動処理
DRAW shikaku60 WITH ROTATE(180)*SHIFT(0,1060)
DRAW shikaku62 WITH ROTATE(0)*SHIFT(0,-1060)
END PICTURE

 

SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1

FOR J=0 TO 330 STEP 40
DRAW shikaku64 WITH ROTATE(J)
RESTORE
NEXT J


REM (ひふみ祝詞)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"

REM (いろは祝詞)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ"
DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ"
DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ"
DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ"
DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ"
DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"


END SUB

 



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

 

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


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


改良型フトマニ図(出雲文字)を作成してみました。(*^_^*)

2017-11-20 17:07:40 | 日記

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










改良型フトマニ図(出雲文字タイプ)を作成してみました。
良かったら、観てね。(*^_^*)


　＊改良型フトマニ図(出雲文字タイプ)プログラム 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


PICTURE test1
PLOT LINES:606,-350;-606,-350;0,700;606,-350
END PICTURE


SET BITMAP SIZE 2501,2501
SET WINDOW -1250,1250,-1250,1250
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

PLOT LINES:606,-350;-606,-350;0,700;606,-350
DRAW test1 WITH ROTATE(0)
DRAW test1 WITH ROTATE(180)

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
CALL houju1


DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"

END

 

 

EXTERNAL SUB houju1
OPTION ANGLE DEGREES

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

PICTURE shikaku42
REM ひふみ渦巻き (大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku45
REM あわ渦巻き(大)
FOR I=315 TO 674 STEP 45
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=675 TO 1034 STEP 22.5
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I

FOR I=1035 TO 1394 STEP 15
LET F=I/9.5
LET A=F
LET C=-I
DRAW shikaku41 WITH ROTATE(C)
NEXT I
END PICTURE


PICTURE shikaku47
REM ひふみ渦巻き(大)
SET TEXT JUSTIFY "center" , "bottom"
LET E=0
DRAW shikaku42 WITH ROTATE(-22.5)
END PICTURE


PICTURE shikaku49
REM いろは渦巻き(大)
SET TEXT JUSTIFY "center" , "cap"
LET E=180
DRAW shikaku45 WITH ROTATE(202.5)
END PICTURE


PICTURE shikaku50
LET D=180
LET XX=D*COS(30)
LET YY=D*SIN(30)
FOR I=29.5 TO -210 STEP -0.5
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
PLOT LINES:0,360;162,79
PLOT LINES:0,360;-162,79
END PICTURE

PICTURE shikaku60
REM ひふみ宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku47
END PICTURE

PICTURE shikaku62
REM いろは宝珠中央に完成!　あとで移動
DRAW shikaku50
DRAW shikaku49
END PICTURE

PICTURE shikaku64
REM ひふみ/いろは　両方移動処理
DRAW shikaku60 WITH ROTATE(180)*SHIFT(0,1060)
DRAW shikaku62 WITH ROTATE(0)*SHIFT(0,-1060)
END PICTURE


SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1


DRAW shikaku64 WITH ROTATE(0)
RESTORE
DRAW shikaku64 WITH ROTATE(120)
RESTORE
DRAW shikaku64 WITH ROTATE(240)

REM (ひふみ祝詞)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"

REM (いろは祝詞)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ"
DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ"
DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ"
DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ"
DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ"
DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"


END SUB





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

 

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


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




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

2017-11-18 23:39:11 | 日記

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






・出雲文字フトマニ図


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



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

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


　・出雲文字フトマニ図プログラム 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^)丿