改良型ひふみ/いろは渦巻きでーす。(フトマニタイプ:X'masプレゼント)＼(^o^)／
こんにちはー、ちーでーす。(*^_^*)
改良型ひふみ/あわ渦巻きでーす。(*^_^*)
・片○大先生の基本アーキテクチャー採用！
・聖ﾛｽﾁｬｲﾙﾄﾞ=ﾛｯｸﾌｪﾗｰ ﾊﾟﾊﾟﾔ(888) ﾄﾙﾈｰﾄﾞｽﾊﾟｲﾗﾙ ｱｰｷﾃｸﾁｬｰ ﾃｸﾉﾛｼﾞｰ採用！
3回ｽﾊﾟｲﾗﾙ,初回8文字 +8で2回目16文字 +8で3回目24文字 計48文字
・聖ﾛｽﾁｬｲﾙﾄﾞ=ﾛｯｸﾌｪﾗｰ ｵﾘﾊﾙｺﾝ(or ﾋﾋｲﾛｶﾞﾈ)比率 ｱｰｷﾃｸﾁｬｰ ﾃｸﾉﾛｼﾞｰ採用！
フトマニの中央円と外円各ブロック、聖なる１：√８の比率
・新開発 聖ﾛｽﾁｬｲﾙﾄﾞ=ﾛｯｸﾌｪﾗｰ Wｱﾝﾁﾛｰﾘﾝｸﾞﾐﾂｳﾛｺ ｱｰｷﾃｸﾁｬｰ ﾃｸﾉﾛｼﾞｰ採用！
・(あわ唄の代わりに)いろは祝詞初採用！
・龍体文字採用！
・Wｱﾝﾁﾛｰﾘﾝｸﾞﾐﾂｳﾛｺ ｱｰｷﾃｸﾁｬｰ渦巻きﾌﾄﾏﾆ ﾌﾟﾛｸﾞﾗﾑ for 十進BASICｼｽﾃﾑ
※9050エラーで動かない場合は、PC再起動後、十進BASICｼｽﾃﾑのみを立ち上げ、
他のアプリやネットブラウザ等は立ち上げず実行してください。
DIM X(5),Y(5)
PICTURE shikaku2
SET TEXT FONT "TCM Tatsu Character" ,580
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
SET BITMAP SIZE 7680,7680
SET WINDOW -3840,3840,-3840,3840
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
FOR I=1590 TO 3838 STEP 562
DRAW CIRCLE WITH SCALE(I)
NEXT I
FOR I=0 TO 360 STEP 45
LET D=2152
LET X(1)=D*COS(I)
LET Y(1)=D*SIN(I)
LET D=3838
LET X(2)=D*COS(I)
LET Y(2)=D*SIN(I)
PLOT LINES: X(1),Y(1);X(2),Y(2)
NEXT I
FOR I=22.5 TO 360 STEP 45
LET D=1560
LET X(1)=D*COS(I)
LET Y(1)=D*SIN(I)
FOR J=1 TO 4 STEP 1
LET D=1590+562*J
LET K=J+1
LET X(K)=D*COS(I)
LET Y(K)=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=1510
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=2050
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=2615
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=3165
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku2 WITH ROTATE(C)
NEXT I
CALL Wmituuroko1
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ"
DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ"
DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ"
DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
END
EXTERNAL SUB Wmituuroko1
OPTION ANGLE DEGREES
PICTURE shikaku2s
REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、
REM そして、フォントの大きさと"ん"の字があるかに注意してください。
REM "ん"の字がない場合、わ行の"う(wu)"を代用します。
REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
REM SET TEXT FONT "TCM Daiichi Shoji Character" ,16
SET TEXT FONT "TCM Tatsu Character" ,18
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE
PICTURE shikaku3
REM ひふみ文字渦巻き(反時計回り)
FOR I=360 TO 719 STEP 45
LET F=I/18
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
FOR I=720 TO 1079 STEP 22.5
LET F=I/18
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
FOR I=1080 TO 1439 STEP 15
LET F=I/18
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
END PICTURE
PICTURE shikaku13
REM いろは文字渦巻き(時計回り)
FOR I=360 TO 719 STEP 45
LET F=I/18
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
FOR I=720 TO 1079 STEP 22.5
LET F=I/18
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
FOR I=1080 TO 1439 STEP 15
LET F=I/18
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2s WITH SHIFT(XX,YY)
NEXT I
END PICTURE
PICTURE shikaku52
REM 三角/丸(ひふみ/いろは)
PLOT LINES: 153,88;-153,88
PLOT LINES: 153,88;0,-176
PLOT LINES: -153,88;0,-176
LET D=88
LET XX=D*COS(0)
LET YY=D*SIN(0)
FOR I=0 TO 360 STEP 0.2
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 shikaku60
REM ひふみ小三角完成(下向き/反時計回り)
LET A=0
LET E=-325
DRAW shikaku3 WITH ROTATE(145)
DRAW shikaku52
END PICTURE
PICTURE shikaku62
REM いろは小三角完成(下向き/反時計回り)
LET A=0
LET E=-125
DRAW shikaku13 WITH ROTATE(125)
DRAW shikaku52 WITH ROTATE(180)
END PICTURE
PICTURE shikaku64
REM ﾀﾞｲﾔﾓﾝﾄﾞ(Wﾐﾂｳﾛｺ 上下8三角)
DRAW shikaku60 WITH SHIFT(0,176)
DRAW shikaku62 WITH SHIFT(0,352)
RESTORE
DRAW shikaku60 WITH SHIFT(153,-88)
DRAW shikaku62 WITH SHIFT(153,88)
RESTORE
DRAW shikaku60 WITH SHIFT(-153,-88)
DRAW shikaku62 WITH SHIFT(-153,88)
RESTORE
DRAW shikaku60 WITH SHIFT(0,-352)
DRAW shikaku62 WITH SHIFT(0,-176)
RESTORE
END PICTURE
SET POINT STYLE 1
SET LINE COLOR 1
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"
REM Y軸正側
DRAW shikaku64 WITH SHIFT(0,0)
DRAW shikaku64 WITH SHIFT(612,0)
DRAW shikaku64 WITH SHIFT(-612,0)
DRAW shikaku64 WITH SHIFT(306,528)
DRAW shikaku64 WITH SHIFT(-306,528)
DRAW shikaku64 WITH SHIFT(0,1056)
REM Y軸負側
DRAW shikaku64 WITH SHIFT(306,-528)
DRAW shikaku64 WITH SHIFT(-306,-528)
DRAW shikaku64 WITH SHIFT(0,-1056)
REM DATA文の文字順
REM ひふみよいむなや
REM こともちろらねし
REM きるゆゐ(yi)つわぬそ
REM をたはくめかうお
REM ゑ(ye)にさりへてのま
REM すあせえほれけん(wu←代用)
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
REM DATA文の文字順
REM いろはにほへとち
REM りぬるをわかよた
REM れそつねならむう
REM ゐ(yi)のおくやまけふ
REM こえてあさきゆめ
REM みしゑ(ye)ひもせすん(wu←代用)
DATA "ｲ","ﾛ","ﾊ","ﾆ","ﾎ","ﾍ","ﾄ","ﾁ"
DATA "ﾘ","ﾇ","ﾙ","ｦ","ﾜ","ｶ","ﾖ","ﾀ"
DATA "ﾚ","ｿ","ﾂ","ﾈ","ﾅ","ﾗ","ﾑ","ｳ"
DATA "ｧ","ﾉ","ｵ","ｸ","ﾔ","ﾏ","ｹ","ﾌ"
DATA "ｺ","ｴ","ﾃ","ｱ","ｻ","ｷ","ﾕ","ﾒ"
DATA "ﾐ","ｼ","ｫ","ﾋ","ﾓ","ｾ","ｽ","ｩ"
REM DATA文の文字順
REM あかはなまいきひ
REM にみうくふぬむえ
REM けへねめおこほの
REM もとろそよをてれ
REM せゑ(ye)つるすゆん(wu←代用)ち
REM りしゐ(yi)たらさやわ
REM DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ"
REM DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ"
REM DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ"
REM DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ"
REM DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ"
REM DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
END SUB
*注)上記の情報の真偽に関しては当Blogは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当Blogは社会的責任等他
一切責任は負いませんので、ご了承願います。
当Blogでは記事の内容は保障できないの。
ごめんなさーい。m(_ _)m
閲覧ありがとうございまーす。(*^_^*)
今日はこれで、失礼いたしまーす。ヽ(^o^)丿