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

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

 

改良型フトマニ図(出雲文字タイプ)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^)丿