改良型 ３５宝珠メノラー(ひふみ祝詞,モリツネ文字,文字上向き,反時計回り)でーす。（*^_^*）

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

 

改良型 ３５宝珠メノラー(ひふみ祝詞,モリツネ文字,文字上向き,反時計回り)を掲載いたしまーす。

 

*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMモリツネ文字フォントを入れておくこと。)
　フォント:　https://hikkyneet.up.seesaa.net/image/Tf-morit.ttf
※8GB RAMでも、JPEGセーブ出来ない場合があります。その場合は、プログラムセーブ後、
　再起動をし、十進BASICインタプリタ－システムだけを立ち上げ実行してください。
※前回のものから基本フォント名の部分を変えただけです(２か所)。

SET BITMAP SIZE 10481,6396
SET WINDOW -5240,5240,-6000,395
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES

CALL houju2
CALL hachikaku1
END

 

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

PICTURE shikaku21
SET TEXT FONT "TCM Moritsune 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/11.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/11.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/11.5
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: 0,-196;-99,-98
PLOT LINES: 0,-196;99,-98
LET D=139
LET XX=D*COS(-45)
LET YY=D*SIN(-45)
FOR I=-44.5 TO 225 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 mugendai1
DRAW shikaku52 WITH ROTATE(180)*SHIFT(0,196)
DRAW shikaku49 WITH ROTATE(0)*SHIFT(0,196)
END PICTURE

PICTURE eda1
REM 枝の部分
FOR D=300 TO 5100 STEP 300
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

DRAW mugendai1 WITH SHIFT(0,0)
RESTORE
FOR II=300 TO 5100 STEP 300
DRAW mugendai1 WITH SHIFT(II,0)
RESTORE
DRAW mugendai1 WITH SHIFT(-II,0)
RESTORE
NEXT II

DRAW eda1 WITH SHIFT(0,56)
PLOT LINES: 0,56;0,-5194

DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"

END SUB

 

EXTERNAL SUB hachikaku1
OPTION ANGLE DEGREES
DIM X(5),Y(5)
DIM XX8(9,4),YY8(9,4)

PICTURE shikaku2
SET TEXT FONT "TCM Moritsune Character" ,36
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE

PICTURE hachikaku2sub
FOR II=48 TO 192 STEP 48
DRAW CIRCLE WITH SCALE(II)
NEXT II

REM LET P=360*COS(22.5)
REM LET Q=360*SIN(22.5)
REM PLOT LINES: 0,0;P,Q

LET L=0
FOR II=257 TO 401 STEP 48
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,48;0,-48

FOR K=1 TO 8 STEP 1
LET I=K*45
LET P=192*COS(I)
LET Q=192*SIN(I)
LET P1=401*COS(I)
LET Q1=401*SIN(I)
PLOT LINES: P,Q;P1,Q1
NEXT K

SET TEXT JUSTIFY "center" , "bottom"
DRAW shikaku2 WITH SHIFT(23,-23)
DRAW shikaku2 WITH SHIFT(-22,-24)


SET TEXT JUSTIFY "center" , "bottom"
LET A=48
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=96
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=144
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=192
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=237
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=281
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=326
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,-5595)

DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"

END SUB