大きなフトマニが出来ました。

こんにちは、ちーでーす。（*^_^*）

 

大きなフトマニでーす。＼(^o^)／

*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMタネコクサ文字フォントを入れておくこと。)
　フォント(URL再掲載):　https://hikkyneet.up.seesaa.net/image/TF-TANKS.TTF

※半径1791dotのフトマニです。

SET BITMAP SIZE 3591,3591
SET WINDOW -1795,1795,-1795,1795
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES

CALL hutomani

END

 

EXTERNAL SUB hutomani
OPTION ANGLE DEGREES
DIM X(5),Y(5)

PICTURE shikaku2
SET TEXT FONT "TCM Tanekokusa Character" ,240

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

PICTURE shikaku3
LET F=0/7.25
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=2 TO 1080 STEP 2
LET F=I/7.25
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/7.25
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=2 TO 1080 STEP 2
LET F=I/7.25
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 shikaku52
REM 宝珠(ひふみ/あわ)
PLOT LINES: 104,60;10,222
LET D=120
LET XX=D*COS(36)
LET YY=D*SIN(36)
FOR I=35.5 TO -90 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
END PICTURE

PICTURE shikaku53
REM 宝珠(ひふみ/あわ)
PLOT LINES: -104,60;-10,222
LET D=120
LET XX=D*COS(-90)
LET YY=D*SIN(-90)
FOR I=-90.5 TO -216 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
END PICTURE

FOR I=467 TO 1791 STEP 331
DRAW CIRCLE WITH SCALE(I)
NEXT I

SET LINE WIDTH 10
DRAW CIRCLE WITH SCALE(120)
DRAW CIRCLE WITH SCALE(40)
DRAW shikaku52 WITH ROTATE(90)*SHIFT(-240,0)
DRAW shikaku53 WITH ROTATE(-90)*SHIFT(240,0)
DRAW shikaku3 WITH ROTATE(90)*SHIFT(0,310)
DRAW shikaku4 WITH ROTATE(-180)*SHIFT(0,-310)

SET LINE WIDTH 1
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*331+467-331
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*331+467-331
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=478
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=801
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=1132
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=1463
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 SUB