こんにちは、ちーでーす。(*^_^*)
大きなフトマニでーす。\(^o^)/
*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMタネコクサ文字フォントを入れておくこと。)
フォント(URL再掲載): https://hikkyneet.up.seesaa.net/image/TF-TANKS.TTF
※半径3646dotの円に内接する三角ヒレ付きフトマニです。
!SET BITMAP SIZE 6571,6571
!SET WINDOW -3285,3285,-3285,3285
SET BITMAP SIZE 7301,7301
SET WINDOW -3650,3650,-3650,3650
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
CALL hutomani
CALL sankaku
END
EXTERNAL SUB sankaku
OPTION ANGLE DEGREES
DIM X3(4),Y3(4)
PICTURE sankaku2
LET X4=3646*COS(90)
LET Y4=3646*SIN(90)
REM 90-3.75
LET X5=3281*COS(86.25)
LET Y5=3281*SIN(86.25)
REM 90+3.75
LET X6=3281*COS(93.75)
LET Y6=3281*SIN(93.75)
PLOT LINES: X5,Y5;X4,Y4;X6,Y6
END PICTURE
PICTURE shikaku21
REM 宝珠用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,22
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku31
REM あわ(文字上向き時計回り)渦巻き(大)
FOR I=360 TO 719 STEP 45
LET F=I/12.5
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
FOR I=720 TO 1079 STEP 22.5
LET F=I/12.5
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
FOR I=1080 TO 1439 STEP 15
LET F=I/12.5
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
END PICTURE
PICTURE shikaku49
REM あわ(文字上向き時計回り)渦巻き(大)
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"
LET A=0
LET E=0
DRAW shikaku31 WITH ROTATE(0)
END PICTURE
PICTURE shikaku32
REM ひふみ(文字上向き反時計回り)渦巻き(大)
FOR I=360 TO 719 STEP 45
LET F=I/12.5
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
FOR I=720 TO 1079 STEP 22.5
LET F=I/12.5
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
FOR I=1080 TO 1439 STEP 15
LET F=I/12.5
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku21 WITH SHIFT(XX,YY)
NEXT I
END PICTURE
PICTURE shikaku50
REM ひふみ(文字上向き反時計回り)渦巻き(大)
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"
LET A=0
LET E=-90
DRAW shikaku32 WITH ROTATE(90)
END PICTURE
PICTURE sankakuhireawa
REM 三角ひれ(あわ)
DRAW sankaku2
DRAW shikaku49 WITH SHIFT(0,3396)
END PICTURE
PICTURE sankakuhirehihu
REM 三角ひれ(ひふみ)
DRAW sankaku2
DRAW shikaku50 WITH SHIFT(0,3396)
END PICTURE
FOR J=1 TO 24 STEP 1
LET K=(J-1)*15
DRAW sankakuhireawa WITH ROTATE(K)
LET K=K+7.5
DRAW sankakuhirehihu WITH ROTATE(K)
RESTORE
NEXT J
DRAW circle WITH SCALE(3281)
REM あわ唄
DATA "ア","カ","ハ","ナ","マ","イ","キ","ヒ"
DATA "ニ","ミ","ウ","ク","フ","ヌ","ム","エ"
DATA "ケ","ヘ","ネ","メ","オ","コ","ホ","ノ"
DATA "モ","ト","ロ","ソ","ヨ","ヲ","テ","レ"
DATA "セ","ォ","ツ","ル","ス","ユ","ゥ","チ"
DATA "リ","シ","ァ","タ","ラ","サ","ヤ","ワ"
REM ひふみ祝詞
DATA "ヒ","フ","ミ","ヨ","イ","ム","ナ","ヤ"
DATA "コ","ト","モ","チ","ロ","ラ","ネ","シ"
DATA "キ","ル","ユ","ァ","ツ","ワ","ヌ","ソ"
DATA "ヲ","タ","ハ","ク","メ","カ","ウ","オ"
DATA "ォ","ニ","サ","リ","ヘ","テ","ノ","マ"
DATA "ス","ア","セ","エ","ホ","レ","ケ","ゥ"
END SUB
EXTERNAL SUB hutomani
OPTION ANGLE DEGREES
DIM X(5),Y(5)
PICTURE shikaku2
SET TEXT FONT "TCM Tanekokusa Character" ,400
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku3
LET F=0/V
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=0.5 TO 1080 STEP 0.5
LET F=I/V
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/V
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=0.5 TO 1080 STEP 0.5
LET F=I/V
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: 156,90;15,334
LET D=180
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: -156,90;-15,334
LET D=180
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
PICTURE en1
LET D=164
LET XX=D*COS(58)
LET YY=D*SIN(58)
FOR I=57.5 TO -238 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 chuushin
DRAW en1
PLOT LINES: 86,139;164,410
PLOT LINES: -86,139;-164,410
!PLOT LINES: 164,410;-164,410
SET LINE WIDTH 2
DRAW shikaku3 WITH ROTATE(45)*SHIFT(0,0)
DRAW shikaku4 WITH ROTATE(45)*SHIFT(0,0)
END PICTURE
SET LINE WIDTH 10
LET V=7
DRAW chuushin WITH SHIFT(0,-123)
LET V=4.5
SET LINE WIDTH 10
DRAW shikaku3 WITH ROTATE(90)*SHIFT(0,572)
DRAW shikaku4 WITH ROTATE(-180)*SHIFT(0,-572)
SET LINE WIDTH 1
FOR I=857 TO 3281 STEP 606
DRAW CIRCLE WITH SCALE(I)
NEXT I
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*606+857-606
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*606+857-606
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=890
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=1486
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=2092
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=2698
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
※コメント投稿者のブログIDはブログ作成者のみに通知されます