[地球大皇帝様,地球大天使様他] ｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明｡
地球大皇帝様,地球大天使様他､当ｸﾞﾙｰﾌﾟはｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､
ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明いたしました｡
以上
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
こんにちは、ちーでーす。（*^_^*）
少し変更した新型メノラーでーす。＼(^o^)／
*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMタネコクサ文字フォントを入れておくこと。)
フォント(URL再掲載): https://hikkyneet.up.seesaa.net/image/TF-TANKS.TTF
※windows標準装備のペイントやフォトでは、大きさの関係上再加工できません。
縮小等はフリーソフトの"縮小専用"等を使用してください。
SET BITMAP SIZE 9791,9791
SET WINDOW -4895,4895,-4895,4895
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
CALL houju2awa(0,-3646,7.5)
CALL houju2hihumi(0,-3646,22.5)
CALL houju2awa(0,-3646,37.5)
CALL houju2hihumi(0,-3646,52.5)
CALL houju2awa(0,-3646,67.5)
CALL houju2hihumi(0,-3646,82.5)
CALL houju2awa(0,-3646,97.5)
CALL houju2hihumi(0,-3646,112.5)
CALL houju2awa(0,-3646,127.5)
CALL houju2hihumi(0,-3646,142.5)
CALL houju2awa(0,-3646,157.5)
CALL houju2hihumi(0,-3646,172.5)
CALL houju2awa(0,-3646,187.5)
CALL houju2hihumi(0,-3646,202.5)
CALL houju2awa(0,-3646,217.5)
CALL houju2hihumi(0,-3646,232.5)
CALL houju2awa(0,-3646,247.5)
CALL houju2hihumi(0,-3646,262.5)
CALL houju2awa(0,-3646,277.5)
CALL houju2hihumi(0,-3646,292.5)
CALL houju2awa(0,-3646,307.5)
CALL houju2hihumi(0,-3646,322.5)
CALL houju2awa(0,-3646,337.5)
CALL houju2hihumi(0,-3646,352.5)
INPUT PROMPT "(外)ﾌﾄﾏﾆor八角？ ﾌﾄﾏﾆ→1(半角) 八角→1以外":han1$
IF han1$="1" THEN
FOR KK=7.5 TO 352.5 STEP 15
!CALL minihutomani(0,-3646,KK)
CALL minihutomani2(0,-3646,KK)
NEXT KK
ELSE
FOR KK=7.5 TO 352.5 STEP 15
CALL minihachikaku(0,-3646,KK)
NEXT KK
END IF
!INPUT PROMPT "(中央)ﾌﾄﾏﾆor八角？ ﾌﾄﾏﾆ→1(半角) 八角→1以外":han2$
!IF han2$="1" THEN
CALL sankaku
CALL hutomani
!ELSE
! CALL daihachikaku
!END IF
END
EXTERNAL SUB houju2awa(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku21
REM 宝珠用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,12
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
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/21
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/21
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/21
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 shikaku52
REM 宝珠(ひふみ/あわ)
PLOT LINES: 65,37;0,150
PLOT LINES: -65,37;0,150
DRAW circle WITH SCALE(75)
PLOT LINES: 65,-37;0,-150
PLOT LINES: -65,-37;0,-150
END PICTURE
PICTURE mugendai1
REM 宝珠１個完成(あわ)
DRAW shikaku52
DRAW shikaku49
END PICTURE
PICTURE eda1
REM 枝の部分
FOR D=160 TO 480 STEP 160
LET XX=D*COS(0)
LET YY=D*SIN(0)
FOR I=-0.25 TO -180 STEP -0.25
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
NEXT D
END PICTURE
PICTURE houju2sub
REM 宝珠１列と半円(あわ)
DRAW mugendai1 WITH SHIFT(0,0)
RESTORE
LET R=480
FOR II=160 TO R STEP 160
DRAW mugendai1 WITH SHIFT(II,0)
RESTORE
DRAW mugendai1 WITH SHIFT(-II,0)
IF II<R THEN RESTORE
NEXT II
DRAW eda1 WITH SHIFT(0,-150)
PLOT LINES: 0,-150;0,-710
END PICTURE
PICTURE zukei1
DRAW houju2sub
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM あわ唄
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ"
DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ"
DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ"
DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ"
DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ"
DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
END SUB
EXTERNAL SUB houju2hihumi(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku21
REM 宝珠用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,12
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
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/21
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/21
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/21
LET XX=F*COS(I)
LET YY=F*SIN(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=-90
DRAW shikaku31 WITH ROTATE(90)
END PICTURE
PICTURE shikaku52
REM 宝珠(ひふみ/あわ)
PLOT LINES: 65,37;0,150
PLOT LINES: -65,37;0,150
DRAW circle WITH SCALE(75)
PLOT LINES: 65,-37;0,-150
PLOT LINES: -65,-37;0,-150
END PICTURE
PICTURE mugendai1
REM 宝珠１個完成(ひふみ)
DRAW shikaku52
DRAW shikaku49
END PICTURE
PICTURE eda1
REM 枝の部分
FOR D=160 TO 480 STEP 160
LET XX=D*COS(0)
LET YY=D*SIN(0)
FOR I=-0.25 TO -180 STEP -0.25
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
NEXT D
END PICTURE
PICTURE houju2sub
REM 宝珠１列と半円(あわ)
DRAW mugendai1 WITH SHIFT(0,0)
RESTORE
LET R=480
FOR II=160 TO R STEP 160
DRAW mugendai1 WITH SHIFT(II,0)
RESTORE
DRAW mugendai1 WITH SHIFT(-II,0)
IF II<R THEN RESTORE
NEXT II
DRAW eda1 WITH SHIFT(0,-150)
PLOT LINES: 0,-150;0,-710
END PICTURE
PICTURE zukei1
DRAW houju2sub
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM ひふみ祝詞
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
END SUB
EXTERNAL SUB minihachikaku(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE hachikaku2sub
REM 八角形の部分
FOR II=24 TO 96 STEP 24
DRAW CIRCLE WITH SCALE(II)
NEXT II
LET L=0
FOR II=130 TO 202 STEP 24
LET L=L+1
LET K=0
FOR JJ=0 TO 360 STEP 45
LET K=K+1
LET XX8(K,L)=II*COS(JJ)
LET YY8(K,L)=II*SIN(JJ)
NEXT JJ
PLOT LINES: XX8(1,L),YY8(1,L);XX8(2,L),YY8(2,L);XX8(3,L),YY8(3,L)
PLOT LINES: XX8(3,L),YY8(3,L);XX8(4,L),YY8(4,L);XX8(5,L),YY8(5,L)
PLOT LINES: XX8(5,L),YY8(5,L);XX8(6,L),YY8(6,L);XX8(7,L),YY8(7,L)
PLOT LINES: XX8(7,L),YY8(7,L);XX8(8,L),YY8(8,L);XX8(9,L),YY8(9,L)
NEXT II
PLOT LINES: 0,24;0,-24
FOR K=1 TO 8 STEP 1
LET I=K*45
LET P=96*COS(I)
LET Q=96*SIN(I)
LET P1=202*COS(I)
LET Q1=202*SIN(I)
PLOT LINES: P,Q;P1,Q1
NEXT K
SET TEXT JUSTIFY "center" , "bottom"
LET A=0
LET E=0
DRAW shikaku2 WITH SHIFT(11,-11)
DRAW shikaku2 WITH SHIFT(-11,-11)
SET TEXT JUSTIFY "center" , "bottom"
LET A=26
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=50
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=74
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=99
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=121
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=144
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=165
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
END PICTURE
PICTURE zukei2
DRAW hachikaku2sub WITH SHIFT(0,-912)
END PICTURE
LET ZY=ZY-150
DRAW zukei2 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
RESTORE
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
EXTERNAL SUB minihutomani(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
SET LINE WIDTH 1
PICTURE shikaku2
SET TEXT FONT "TCM Tanekokusa Character" ,28
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku3
LET F=0/65
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=2 TO 1080 STEP 2
LET F=I/65
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/65
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=2 TO 1080 STEP 2
LET F=I/65
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: 13,7;6,23
LET D=15
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: -13,7;-6,23
LET D=15
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 minihutomanisub
FOR I=53 TO 201 STEP 37
DRAW CIRCLE WITH SCALE(I)
NEXT I
SET LINE WIDTH 2
DRAW CIRCLE WITH SCALE(15)
DRAW CIRCLE WITH SCALE(6)
DRAW shikaku52 WITH ROTATE(90)*SHIFT(-30,0)
DRAW shikaku53 WITH ROTATE(-90)*SHIFT(30,0)
DRAW shikaku3 WITH ROTATE(90)*SHIFT(0,34)
DRAW shikaku4 WITH ROTATE(-180)*SHIFT(0,-34)
SET LINE WIDTH 1
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*37+53-37
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*37+53-37
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=55
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=88
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=125
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=162
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I
END PICTURE
PICTURE zukei3
DRAW minihutomanisub WITH SHIFT(0,-912)
END PICTURE
LET ZY=ZY-150
DRAW zukei3 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
RESTORE
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
END SUB
EXTERNAL SUB minihutomani2(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
SET LINE WIDTH 1
PICTURE shikaku2
SET TEXT FONT "TCM Tanekokusa Character" ,28
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=2 TO 1080 STEP 2
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=2 TO 1080 STEP 2
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: 13,7;6,23
LET D=15
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: -13,7;-6,23
LET D=15
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 sankakuhire2
LET XX5=201*COS(86.25)
LET YY5=201*SIN(86.25)
LET XX6=223*COS(90)
LET YY6=223*SIN(90)
LET XX7=201*COS(93.75)
LET YY7=201*SIN(93.75)
PLOT LINES: XX5,YY5;XX6,YY6;XX7,YY7
END PICTURE
PICTURE minihutomanisub
FOR I=53 TO 201 STEP 37
DRAW CIRCLE WITH SCALE(I)
NEXT I
SET LINE WIDTH 2
LET V=60
DRAW shikaku3 WITH ROTATE(45)*SHIFT(0,0)
DRAW shikaku4 WITH ROTATE(45)*SHIFT(0,0)
SET LINE WIDTH 2
LET V=65
DRAW shikaku3 WITH ROTATE(90)*SHIFT(0,34)
DRAW shikaku4 WITH ROTATE(-180)*SHIFT(0,-34)
SET LINE WIDTH 1
FOR I=1 TO 48
LET II=7.5*(I-1)+3.75
DRAW sankakuhire2 WITH ROTATE(II)
NEXT I
SET LINE WIDTH 1
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*37+53-37
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*37+53-37
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=55
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=88
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=125
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=162
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I
END PICTURE
PICTURE zukei3
DRAW minihutomanisub WITH SHIFT(0,-912)
END PICTURE
LET ZY=ZY-150
DRAW zukei3 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
RESTORE
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
END SUB
EXTERNAL SUB daihachikaku
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,240
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE hachikaku2sub
REM 八角形の部分
FOR II=324 TO 1296 STEP 324
DRAW CIRCLE WITH SCALE(II)
NEXT II
LET L=0
FOR II=1750 TO 2722 STEP 324
LET L=L+1
LET K=0
FOR JJ=0 TO 360 STEP 45
LET K=K+1
LET XX8(K,L)=II*COS(JJ)
LET YY8(K,L)=II*SIN(JJ)
NEXT JJ
PLOT LINES: XX8(1,L),YY8(1,L);XX8(2,L),YY8(2,L);XX8(3,L),YY8(3,L)
PLOT LINES: XX8(3,L),YY8(3,L);XX8(4,L),YY8(4,L);XX8(5,L),YY8(5,L)
PLOT LINES: XX8(5,L),YY8(5,L);XX8(6,L),YY8(6,L);XX8(7,L),YY8(7,L)
PLOT LINES: XX8(7,L),YY8(7,L);XX8(8,L),YY8(8,L);XX8(9,L),YY8(9,L)
NEXT II
PLOT LINES: 0,324;0,-324
FOR K=1 TO 8 STEP 1
LET I=K*45
LET P=1296*COS(I)
LET Q=1296*SIN(I)
LET P1=2722*COS(I)
LET Q1=2722*SIN(I)
PLOT LINES: P,Q;P1,Q1
NEXT K
SET TEXT JUSTIFY "center" , "bottom"
LET A=0
LET E=0
DRAW shikaku2 WITH SHIFT(145,-151)
DRAW shikaku2 WITH SHIFT(-150,-151)
SET TEXT JUSTIFY "center" , "bottom"
LET A=334
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=658
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=982
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1306
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1617
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1919
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=2215
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
END PICTURE
DRAW hachikaku2sub WITH SHIFT(0,0)
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
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)
DIM XX3(24),YY3(24)
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 nagasankaku
LET X6=W*COS(90)
LET Y6=W*SIN(90)
LET X7=340*COS(84.375)
LET Y7=340*SIN(84.375)
LET X8=340*COS(95.625)
LET Y8=340*SIN(95.625)
PLOT LINES: X6,Y6;X7,Y7;X8,Y8;X6,Y6;
END PICTURE
PICTURE wingu
LET D=170
FOR I=1 TO 3 STEP 1
LET W=90+120*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
!PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2);XX3(3),YY3(3);XX3(1),YY3(1)
PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2)
END PICTURE
PICTURE wingu2
LET D=170
FOR I=1 TO 3 STEP 1
LET W=90+120*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
!PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2);XX3(3),YY3(3);XX3(1),YY3(1)
PLOT LINES: XX3(3),YY3(3);XX3(1),YY3(1)
END PICTURE
PICTURE shikaku52
REM 宝珠(ひふみ/あわ)
!PLOT LINES: 156,90;15,334
LET D=170
LET XX=D*COS(150)
LET YY=D*SIN(150)
FOR I=150.5 TO 400 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=170
LET XX=D*COS(30)
LET YY=D*SIN(30)
FOR I=29.5 TO -220 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=286
LET D=340
FOR I=1 TO 6 STEP 1
LET W=30+60*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
PLOT LINES: XX3(1),YY3(1);XX3(3),YY3(3);XX3(5),YY3(5);XX3(1),YY3(1)
PLOT LINES: XX3(2),YY3(2);XX3(4),YY3(4);XX3(6),YY3(6);XX3(2),YY3(2)
END PICTURE
PICTURE chuushin
DRAW en1
DRAW en1 WITH ROTATE(15)
DRAW en1 WITH ROTATE(30)
DRAW en1 WITH ROTATE(45)
SET LINE WIDTH 3
DRAW shikaku3 WITH ROTATE(45)*SHIFT(0,0)
DRAW shikaku4 WITH ROTATE(45)*SHIFT(0,0)
SET LINE WIDTH 10
DRAW wingu WITH SHIFT(0,-510)*ROTATE(-90)
DRAW shikaku52 WITH SHIFT(0,-680)*ROTATE(-90)
DRAW wingu2 WITH SHIFT(0,-510)*ROTATE(90)
DRAW shikaku53 WITH SHIFT(0,-680)*ROTATE(90)
END PICTURE
PICTURE chuushin2
LET W=120
SET LINE WIDTH 4
DRAW circle WITH SCALE(340)
DRAW circle WITH SCALE(W)
FOR I=0 TO 31 STEP 1
LET WW=I*11.25
DRAW nagasankaku WITH ROTATE(WW)
NEXT I
LET V=9.5
SET LINE WIDTH 6
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 chuushin2 WITH SHIFT(0,0)
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
こんにちは、ちーでーす。（*^_^*）
新型メノラーでーす。＼(^o^)／
*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMタネコクサ文字フォントを入れておくこと。)
フォント(URL再掲載): https://hikkyneet.up.seesaa.net/image/TF-TANKS.TTF
※windows標準装備のペイントやフォトでは、大きさの関係上再加工できません。
縮小等はフリーソフトの"縮小専用"等を使用してください。
SET BITMAP SIZE 9761,9761
SET WINDOW -4880,4880,-4880,4880
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
CALL houju2awa(0,-3646,7.5)
CALL houju2hihumi(0,-3646,22.5)
CALL houju2awa(0,-3646,37.5)
CALL houju2hihumi(0,-3646,52.5)
CALL houju2awa(0,-3646,67.5)
CALL houju2hihumi(0,-3646,82.5)
CALL houju2awa(0,-3646,97.5)
CALL houju2hihumi(0,-3646,112.5)
CALL houju2awa(0,-3646,127.5)
CALL houju2hihumi(0,-3646,142.5)
CALL houju2awa(0,-3646,157.5)
CALL houju2hihumi(0,-3646,172.5)
CALL houju2awa(0,-3646,187.5)
CALL houju2hihumi(0,-3646,202.5)
CALL houju2awa(0,-3646,217.5)
CALL houju2hihumi(0,-3646,232.5)
CALL houju2awa(0,-3646,247.5)
CALL houju2hihumi(0,-3646,262.5)
CALL houju2awa(0,-3646,277.5)
CALL houju2hihumi(0,-3646,292.5)
CALL houju2awa(0,-3646,307.5)
CALL houju2hihumi(0,-3646,322.5)
CALL houju2awa(0,-3646,337.5)
CALL houju2hihumi(0,-3646,352.5)
INPUT PROMPT "(外)ﾌﾄﾏﾆor八角？ ﾌﾄﾏﾆ→1(半角) 八角→1以外":han1$
IF han1$="1" THEN
FOR KK=7.5 TO 352.5 STEP 15
CALL minihutomani(0,-3646,KK)
NEXT KK
ELSE
FOR KK=7.5 TO 352.5 STEP 15
CALL minihachikaku(0,-3646,KK)
NEXT KK
END IF
!INPUT PROMPT "(中央)ﾌﾄﾏﾆor八角？ ﾌﾄﾏﾆ→1(半角) 八角→1以外":han2$
!IF han2$="1" THEN
CALL sankaku
CALL hutomani
!ELSE
! CALL daihachikaku
!END IF
END
EXTERNAL SUB houju2awa(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku21
REM 宝珠用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,12
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
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/21
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/21
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/21
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 shikaku52
REM 宝珠(ひふみ/あわ)
PLOT LINES: 65,37;0,150
PLOT LINES: -65,37;0,150
DRAW circle WITH SCALE(75)
PLOT LINES: 65,-37;0,-150
PLOT LINES: -65,-37;0,-150
END PICTURE
PICTURE mugendai1
REM 宝珠１個完成(あわ)
DRAW shikaku52
DRAW shikaku49
END PICTURE
PICTURE eda1
REM 枝の部分
FOR D=160 TO 480 STEP 160
LET XX=D*COS(0)
LET YY=D*SIN(0)
FOR I=-0.25 TO -180 STEP -0.25
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
NEXT D
END PICTURE
PICTURE houju2sub
REM 宝珠１列と半円(あわ)
DRAW mugendai1 WITH SHIFT(0,0)
RESTORE
LET R=480
FOR II=160 TO R STEP 160
DRAW mugendai1 WITH SHIFT(II,0)
RESTORE
DRAW mugendai1 WITH SHIFT(-II,0)
IF II<R THEN RESTORE
NEXT II
DRAW eda1 WITH SHIFT(0,-150)
PLOT LINES: 0,-150;0,-710
END PICTURE
PICTURE zukei1
DRAW houju2sub
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM あわ唄
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ"
DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ"
DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ"
DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ"
DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ"
DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
END SUB
EXTERNAL SUB houju2hihumi(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku21
REM 宝珠用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,12
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
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/21
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/21
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/21
LET XX=F*COS(I)
LET YY=F*SIN(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=-90
DRAW shikaku31 WITH ROTATE(90)
END PICTURE
PICTURE shikaku52
REM 宝珠(ひふみ/あわ)
PLOT LINES: 65,37;0,150
PLOT LINES: -65,37;0,150
DRAW circle WITH SCALE(75)
PLOT LINES: 65,-37;0,-150
PLOT LINES: -65,-37;0,-150
END PICTURE
PICTURE mugendai1
REM 宝珠１個完成(ひふみ)
DRAW shikaku52
DRAW shikaku49
END PICTURE
PICTURE eda1
REM 枝の部分
FOR D=160 TO 480 STEP 160
LET XX=D*COS(0)
LET YY=D*SIN(0)
FOR I=-0.25 TO -180 STEP -0.25
LET XX2=D*COS(I)
LET YY2=D*SIN(I)
PLOT LINES: XX,YY;XX2,YY2
LET XX=XX2
LET YY=yy2
NEXT I
NEXT D
END PICTURE
PICTURE houju2sub
REM 宝珠１列と半円(あわ)
DRAW mugendai1 WITH SHIFT(0,0)
RESTORE
LET R=480
FOR II=160 TO R STEP 160
DRAW mugendai1 WITH SHIFT(II,0)
RESTORE
DRAW mugendai1 WITH SHIFT(-II,0)
IF II<R THEN RESTORE
NEXT II
DRAW eda1 WITH SHIFT(0,-150)
PLOT LINES: 0,-150;0,-710
END PICTURE
PICTURE zukei1
DRAW houju2sub
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM ひふみ祝詞
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
END SUB
EXTERNAL SUB minihachikaku(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,18
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE hachikaku2sub
REM 八角形の部分
FOR II=24 TO 96 STEP 24
DRAW CIRCLE WITH SCALE(II)
NEXT II
LET L=0
FOR II=130 TO 202 STEP 24
LET L=L+1
LET K=0
FOR JJ=0 TO 360 STEP 45
LET K=K+1
LET XX8(K,L)=II*COS(JJ)
LET YY8(K,L)=II*SIN(JJ)
NEXT JJ
PLOT LINES: XX8(1,L),YY8(1,L);XX8(2,L),YY8(2,L);XX8(3,L),YY8(3,L)
PLOT LINES: XX8(3,L),YY8(3,L);XX8(4,L),YY8(4,L);XX8(5,L),YY8(5,L)
PLOT LINES: XX8(5,L),YY8(5,L);XX8(6,L),YY8(6,L);XX8(7,L),YY8(7,L)
PLOT LINES: XX8(7,L),YY8(7,L);XX8(8,L),YY8(8,L);XX8(9,L),YY8(9,L)
NEXT II
PLOT LINES: 0,24;0,-24
FOR K=1 TO 8 STEP 1
LET I=K*45
LET P=96*COS(I)
LET Q=96*SIN(I)
LET P1=202*COS(I)
LET Q1=202*SIN(I)
PLOT LINES: P,Q;P1,Q1
NEXT K
SET TEXT JUSTIFY "center" , "bottom"
LET A=0
LET E=0
DRAW shikaku2 WITH SHIFT(11,-11)
DRAW shikaku2 WITH SHIFT(-11,-11)
SET TEXT JUSTIFY "center" , "bottom"
LET A=26
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=50
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=74
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=99
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=121
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=144
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=165
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
END PICTURE
PICTURE zukei2
DRAW hachikaku2sub WITH SHIFT(0,-912)
END PICTURE
LET ZY=ZY-150
DRAW zukei2 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
RESTORE
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
EXTERNAL SUB minihutomani(ZX,ZY,ZDEG)
OPTION ANGLE DEGREES
DIM X(5),Y(5)
SET LINE WIDTH 1
PICTURE shikaku2
SET TEXT FONT "TCM Tanekokusa Character" ,28
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku3
LET F=0/65
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=2 TO 1080 STEP 2
LET F=I/65
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/65
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=2 TO 1080 STEP 2
LET F=I/65
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: 13,7;6,23
LET D=15
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: -13,7;-6,23
LET D=15
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 minihutomanisub
FOR I=53 TO 201 STEP 37
DRAW CIRCLE WITH SCALE(I)
NEXT I
SET LINE WIDTH 2
DRAW CIRCLE WITH SCALE(15)
DRAW CIRCLE WITH SCALE(6)
DRAW shikaku52 WITH ROTATE(90)*SHIFT(-30,0)
DRAW shikaku53 WITH ROTATE(-90)*SHIFT(30,0)
DRAW shikaku3 WITH ROTATE(90)*SHIFT(0,34)
DRAW shikaku4 WITH ROTATE(-180)*SHIFT(0,-34)
SET LINE WIDTH 1
FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET D=J*37+53-37
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*37+53-37
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=55
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=88
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=125
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=162
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I
END PICTURE
PICTURE zukei3
DRAW minihutomanisub WITH SHIFT(0,-912)
END PICTURE
LET ZY=ZY-150
DRAW zukei3 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
RESTORE
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
END SUB
EXTERNAL SUB daihachikaku
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)
PICTURE shikaku2
REM 八角形用文字セット
SET TEXT FONT "TCM Tanekokusa Character" ,240
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE hachikaku2sub
REM 八角形の部分
FOR II=324 TO 1296 STEP 324
DRAW CIRCLE WITH SCALE(II)
NEXT II
LET L=0
FOR II=1750 TO 2722 STEP 324
LET L=L+1
LET K=0
FOR JJ=0 TO 360 STEP 45
LET K=K+1
LET XX8(K,L)=II*COS(JJ)
LET YY8(K,L)=II*SIN(JJ)
NEXT JJ
PLOT LINES: XX8(1,L),YY8(1,L);XX8(2,L),YY8(2,L);XX8(3,L),YY8(3,L)
PLOT LINES: XX8(3,L),YY8(3,L);XX8(4,L),YY8(4,L);XX8(5,L),YY8(5,L)
PLOT LINES: XX8(5,L),YY8(5,L);XX8(6,L),YY8(6,L);XX8(7,L),YY8(7,L)
PLOT LINES: XX8(7,L),YY8(7,L);XX8(8,L),YY8(8,L);XX8(9,L),YY8(9,L)
NEXT II
PLOT LINES: 0,324;0,-324
FOR K=1 TO 8 STEP 1
LET I=K*45
LET P=1296*COS(I)
LET Q=1296*SIN(I)
LET P1=2722*COS(I)
LET Q1=2722*SIN(I)
PLOT LINES: P,Q;P1,Q1
NEXT K
SET TEXT JUSTIFY "center" , "bottom"
LET A=0
LET E=0
DRAW shikaku2 WITH SHIFT(145,-151)
DRAW shikaku2 WITH SHIFT(-150,-151)
SET TEXT JUSTIFY "center" , "bottom"
LET A=334
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=658
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=982
LET E=0
FOR II=0 TO 3
LET C=-II*360/4-45
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1306
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1617
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=1919
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
SET TEXT JUSTIFY "center" , "bottom"
LET A=2215
LET E=0
FOR II=0 TO 7
LET C=-II*360/8-22.5
DRAW shikaku2 WITH ROTATE(C)
NEXT II
END PICTURE
DRAW hachikaku2sub WITH SHIFT(0,0)
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
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)
DIM XX3(24),YY3(24)
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 nagasankaku
LET X6=W*COS(90)
LET Y6=W*SIN(90)
LET X7=340*COS(84.375)
LET Y7=340*SIN(84.375)
LET X8=340*COS(95.625)
LET Y8=340*SIN(95.625)
PLOT LINES: X6,Y6;X7,Y7;X8,Y8;X6,Y6;
END PICTURE
PICTURE wingu
LET D=170
FOR I=1 TO 3 STEP 1
LET W=90+120*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
!PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2);XX3(3),YY3(3);XX3(1),YY3(1)
PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2)
END PICTURE
PICTURE wingu2
LET D=170
FOR I=1 TO 3 STEP 1
LET W=90+120*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
!PLOT LINES: XX3(1),YY3(1);XX3(2),YY3(2);XX3(3),YY3(3);XX3(1),YY3(1)
PLOT LINES: XX3(3),YY3(3);XX3(1),YY3(1)
END PICTURE
PICTURE shikaku52
REM 宝珠(ひふみ/あわ)
!PLOT LINES: 156,90;15,334
LET D=170
LET XX=D*COS(150)
LET YY=D*SIN(150)
FOR I=150.5 TO 400 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=170
LET XX=D*COS(30)
LET YY=D*SIN(30)
FOR I=29.5 TO -220 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=286
LET D=340
FOR I=1 TO 6 STEP 1
LET W=30+60*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
PLOT LINES: XX3(1),YY3(1);XX3(3),YY3(3);XX3(5),YY3(5);XX3(1),YY3(1)
PLOT LINES: XX3(2),YY3(2);XX3(4),YY3(4);XX3(6),YY3(6);XX3(2),YY3(2)
END PICTURE
PICTURE chuushin
DRAW en1
DRAW en1 WITH ROTATE(15)
DRAW en1 WITH ROTATE(30)
DRAW en1 WITH ROTATE(45)
SET LINE WIDTH 3
DRAW shikaku3 WITH ROTATE(45)*SHIFT(0,0)
DRAW shikaku4 WITH ROTATE(45)*SHIFT(0,0)
SET LINE WIDTH 10
DRAW wingu WITH SHIFT(0,-510)*ROTATE(-90)
DRAW shikaku52 WITH SHIFT(0,-680)*ROTATE(-90)
DRAW wingu2 WITH SHIFT(0,-510)*ROTATE(90)
DRAW shikaku53 WITH SHIFT(0,-680)*ROTATE(90)
END PICTURE
PICTURE chuushin2
LET W=120
SET LINE WIDTH 4
DRAW circle WITH SCALE(340)
DRAW circle WITH SCALE(W)
FOR I=0 TO 31 STEP 1
LET WW=I*11.25
DRAW nagasankaku WITH ROTATE(WW)
NEXT I
LET V=9.5
SET LINE WIDTH 6
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 chuushin2 WITH SHIFT(0,0)
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
こんにちは、ちーでーす。（*^_^*）
大きなフトマニでーす。＼(^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)
DIM XX3(6),YY3(6)
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=286
LET D=340
FOR I=1 TO 6 STEP 1
LET W=30+60*(I-1)
LET XX3(I)=D*COS(W)
LET YY3(I)=D*SIN(W)
NEXT I
PLOT LINES: XX3(1),YY3(1);XX3(3),YY3(3);XX3(5),YY3(5);XX3(1),YY3(1)
PLOT LINES: XX3(2),YY3(2);XX3(4),YY3(4);XX3(6),YY3(6);XX3(2),YY3(2)
END PICTURE
PICTURE chuushin
DRAW en1
SET LINE WIDTH 3
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,0)
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
こんにちは、ちーでーす。（*^_^*）
大きなフトマニでーす。＼(^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
