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

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

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

2019-09-11 21:18:32 | 日記

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

 

大きなフトマニでーす。\(^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


最新の画像もっと見る

コメントを投稿