[大勅令]日本国は本年度中(2019年中)に､韓国との国交を断絶すること｡
本日午前､地球大皇帝様,地球大天使様他は､日本国に対し大勅令を発布いたしました｡｡
*大勅令*
日本国は本年度中(2019年中)に､韓国との国交を断絶すること｡
2019.12.17 11:30am 大勅令発布
以上
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
2019年12月17日火曜日
2019年10月6日日曜日
[聖大水晶:朝鮮半島情勢]朝米協議が決裂で終わり､大変不透明です｡そこで聖大水晶に聞いてみました｡
[聖大水晶:朝鮮半島情勢]朝米協議が決裂で終わり､大変不透明です｡そこで聖大水晶に聞いてみました｡
*聖大水晶のお告げ*
今のままでは､今年12月までに朝米合意は無理で､正常化への道はたいへん､たいへん
長い道のりとなることでしょう｡
唯一の道は､DPRK国が"核･長距離ﾐｻｲﾙの完全放棄&廃棄"で且つ､
昔の中国の偉大なる指導者"周恩来大先生","鄧小平大先生"路線で､
そのようなｽﾀﾝｽで米日に対応するとたいへん良くなり､更には
北(DPRK国)での統一が実現することでしょう｡
以上
※当ｸﾞﾙｰﾌﾟは中立であり､上記のことはあくまでも聖大水晶様のお告げであり､
当ｸﾞﾙｰﾌﾟの意見ではありません｡
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
*聖大水晶のお告げ*
今のままでは､今年12月までに朝米合意は無理で､正常化への道はたいへん､たいへん
長い道のりとなることでしょう｡
唯一の道は､DPRK国が"核･長距離ﾐｻｲﾙの完全放棄&廃棄"で且つ､
昔の中国の偉大なる指導者"周恩来大先生","鄧小平大先生"路線で､
そのようなｽﾀﾝｽで米日に対応するとたいへん良くなり､更には
北(DPRK国)での統一が実現することでしょう｡
以上
※当ｸﾞﾙｰﾌﾟは中立であり､上記のことはあくまでも聖大水晶様のお告げであり､
当ｸﾞﾙｰﾌﾟの意見ではありません｡
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
2019年9月30日月曜日
[地球大皇帝様,地球大天使様他] ｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明｡
[地球大皇帝様,地球大天使様他] ｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明｡
地球大皇帝様,地球大天使様他､当ｸﾞﾙｰﾌﾟはｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､
ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明いたしました｡
以上
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
地球大皇帝様,地球大天使様他､当ｸﾞﾙｰﾌﾟはｿﾌﾄﾊﾞﾝｸ社に関し､華為問題他､聖ﾄﾗﾝﾌﾟ大統領様が喜んで納得しない限り､
ｿﾌﾄﾊﾞﾝｸ社を一切支持しないことを表明いたしました｡
以上
尚、これはあくまでも天声,お告げ系に属する事象で 情報の真偽に関しては一切保証は
いたしかねます。 また、この情報の公開による社会的責任等他は 一切負いません。
あくまでも、当たるも八卦、外れるも八卦の 預言,お告げ,系情報として解釈してください。
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
2019年9月3日火曜日
こどもの咳(せき)症状に関する､諸症状の緩和方法｡(こども祝詞使用,小学生以上,こども自身が行います｡)
こどもの咳(せき)症状に関する､諸症状の緩和方法｡(こども祝詞使用,小学生以上,こども自身が行います｡)
こんにちはー､ちーでーす｡（*^_^*）
こどもちゃーん｡こどもちゃーん｡
世界中のこどもちゃーん。
みんーな､みんーな､みんーな､みーんな､
おりこうちゃんにしてるから｡
こどもちゃーん｡こどもちゃーん｡
世界中のこどもちゃーん。
みんーな､みんーな､みんーな､みーんな､
おりこうちゃんにしてるから｡
こどもちゃんだけのために作られた､
せきどめの方法(諸症状の緩和程度ですが.....｡)､
こどもちゃんだけに教えてあげるね｡（*^_^*）
自分で行う方法だよ｡(大人でも使用可)
20年以上かけて誕生した方法だよ!!
*こどものせきどめ方法(諸症状の緩和程度ですが....｡)*
(1)おでこに利き手(通常は右,ｻｳｽﾎﾟｰさんは左)を当てます｡
力を入れてしっかりと指を広げ､手に意識を集中し､
そこから､脳の松果体に手からﾊﾟﾜｰを送る｡
(2)その後､おでこに当てた､しっかりと開いた手に対して､
こども祝詞を念じる｡(中核部分の､ひふみ,あわ,いろは,
光明,般若の小呪,南無妙法蓮華経,だけでよい,他の祝詞/真言でもよい｡)
その中で､自分が効いたのを繰り返し唱え､
また､(1)(2)→(1)(2)→......... と繰り返すとせきの症状がましになります｡
以上
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
こんにちはー､ちーでーす｡（*^_^*）
こどもちゃーん｡こどもちゃーん｡
世界中のこどもちゃーん。
みんーな､みんーな､みんーな､みーんな､
おりこうちゃんにしてるから｡
こどもちゃーん｡こどもちゃーん｡
世界中のこどもちゃーん。
みんーな､みんーな､みんーな､みーんな､
おりこうちゃんにしてるから｡
こどもちゃんだけのために作られた､
せきどめの方法(諸症状の緩和程度ですが.....｡)､
こどもちゃんだけに教えてあげるね｡（*^_^*）
自分で行う方法だよ｡(大人でも使用可)
20年以上かけて誕生した方法だよ!!
*こどものせきどめ方法(諸症状の緩和程度ですが....｡)*
(1)おでこに利き手(通常は右,ｻｳｽﾎﾟｰさんは左)を当てます｡
力を入れてしっかりと指を広げ､手に意識を集中し､
そこから､脳の松果体に手からﾊﾟﾜｰを送る｡
(2)その後､おでこに当てた､しっかりと開いた手に対して､
こども祝詞を念じる｡(中核部分の､ひふみ,あわ,いろは,
光明,般若の小呪,南無妙法蓮華経,だけでよい,他の祝詞/真言でもよい｡)
その中で､自分が効いたのを繰り返し唱え､
また､(1)(2)→(1)(2)→......... と繰り返すとせきの症状がましになります｡
以上
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
2019年9月2日月曜日
地球大皇帝様,地球大天使様､"日本/韓国双方に､我慢してまで､急いで韓日関係を改善しなくとも良い｡"との大談話を発表!!
地球大皇帝様,地球大天使様､"日本/韓国双方に､我慢してまで､急いで韓日関係を改善しなくとも良い｡"との大談話を発表!!
現在韓日関係は非常に悪い状態で､日本の世論調査では､67%の人々が
"韓国に譲歩するぐらいなら、韓国との関係改善を急ぐ必要は無い"とのことです｡
現在､韓日関係が非常に悪く､どちらもﾋｰﾄｱｯﾌﾟしている状態で､解決を図ろうとするならば､
どちらかが､大幅に我慢をし､譲歩するしかない状態です｡このような時の大幅譲歩というものは､
それ以上に､10倍も､100倍も､1000倍も､譲歩した感が出てきて､たいへんｲﾔなものです｡
また､譲歩して貰った方はただ､ただ､勝った!! そしてそれが当たり前と思うだけです｡
かつて､ｽﾀｰﾘﾝ～ｱﾝﾄﾞﾛﾎﾟﾌ/ﾁｪﾘﾈﾝｺまでの日ソ関係を考えましょう｡
日本もｿﾋﾞｴﾄも主張し平行線のまま､交流も大変少なく､国家間の付き合いは全然活発でなく､
そーゆー関係が長く続いた｡日ソで一度味わっているので､こんなに日韓関係が悪くなったんだから､
日韓関係はそれでも良いとゆーことで､上記の談話を発表しました｡
以上
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
現在韓日関係は非常に悪い状態で､日本の世論調査では､67%の人々が
"韓国に譲歩するぐらいなら、韓国との関係改善を急ぐ必要は無い"とのことです｡
現在､韓日関係が非常に悪く､どちらもﾋｰﾄｱｯﾌﾟしている状態で､解決を図ろうとするならば､
どちらかが､大幅に我慢をし､譲歩するしかない状態です｡このような時の大幅譲歩というものは､
それ以上に､10倍も､100倍も､1000倍も､譲歩した感が出てきて､たいへんｲﾔなものです｡
また､譲歩して貰った方はただ､ただ､勝った!! そしてそれが当たり前と思うだけです｡
かつて､ｽﾀｰﾘﾝ～ｱﾝﾄﾞﾛﾎﾟﾌ/ﾁｪﾘﾈﾝｺまでの日ソ関係を考えましょう｡
日本もｿﾋﾞｴﾄも主張し平行線のまま､交流も大変少なく､国家間の付き合いは全然活発でなく､
そーゆー関係が長く続いた｡日ソで一度味わっているので､こんなに日韓関係が悪くなったんだから､
日韓関係はそれでも良いとゆーことで､上記の談話を発表しました｡
以上
*注)上記の情報の真偽に関しては当ｸﾞﾙｰﾌﾟは一切保証いたしませんので、
ご了承願います。又、上記の記述に関しては当ｸﾞﾙｰﾌﾟは社会的責任等他
一切責任は負いませんので、ご了承願います｡
2019年8月27日火曜日
※途中経過 改良型 7oct宝珠メノラー(小型化Ver.2)(あわ/ひふみ祝詞,タネコクサ文字,文字上向き,時計/反時計回り)を掲載いたしまーす。
こんにちは、ちーでーす。（*^_^*）
※途中経過 改良型 7oct宝珠メノラー(小型化Ver.2)(あわ/ひふみ祝詞,タネコクサ文字,文字上向き,時計/反時計回り)を掲載いたしまーす。
*プログラム(要:十進BASICインタプリター システム)
(要:windows コントロールパネルのフォントの画面に、TCMタネコクサ文字フォントを入れておくこと。)
フォント(URL再掲載): https://hikkyneet.up.seesaa.net/image/TF-TANKS.TTF
SET BITMAP SIZE 4401,4401
SET WINDOW -2200,2200,-2200,2200
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
CALL houju2awa(0,-1159,22.5)
CALL houju2hihumi(0,-1159,67.5)
CALL houju2awa(0,-1159,112.5)
CALL houju2hihumi(0,-1159,157.5)
CALL houju2awa(0,-1159,202.5)
CALL houju2hihumi(0,-1159,247.5)
CALL houju2awa(0,-1159,292.5)
CALL houju2hihumi(0,-1159,337.5)
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
LET D=75
LET XX=D*COS(36)
LET YY=D*SIN(36)
FOR I=35.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 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
NEXT II
DRAW eda1 WITH SHIFT(0,-75)
PLOT LINES: 0,-75;0,-635
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=130*COS(I)
LET Q=130*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 zukei1
DRAW houju2sub
DRAW hachikaku2sub WITH SHIFT(0,-837)
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM あわ唄
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ"
DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ"
DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ"
DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ"
DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ"
DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
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
LET D=75
LET XX=D*COS(36)
LET YY=D*SIN(36)
FOR I=35.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 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
NEXT II
DRAW eda1 WITH SHIFT(0,-75)
PLOT LINES: 0,-75;0,-635
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=130*COS(I)
LET Q=130*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 zukei1
DRAW houju2sub
DRAW hachikaku2sub WITH SHIFT(0,-837)
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM ひふみ祝詞
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
SET WINDOW -2200,2200,-2200,2200
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
OPTION ANGLE DEGREES
CALL houju2awa(0,-1159,22.5)
CALL houju2hihumi(0,-1159,67.5)
CALL houju2awa(0,-1159,112.5)
CALL houju2hihumi(0,-1159,157.5)
CALL houju2awa(0,-1159,202.5)
CALL houju2hihumi(0,-1159,247.5)
CALL houju2awa(0,-1159,292.5)
CALL houju2hihumi(0,-1159,337.5)
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
LET D=75
LET XX=D*COS(36)
LET YY=D*SIN(36)
FOR I=35.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 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
NEXT II
DRAW eda1 WITH SHIFT(0,-75)
PLOT LINES: 0,-75;0,-635
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=130*COS(I)
LET Q=130*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 zukei1
DRAW houju2sub
DRAW hachikaku2sub WITH SHIFT(0,-837)
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM あわ唄
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ"
DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ"
DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ"
DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ"
DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ"
DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
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
LET D=75
LET XX=D*COS(36)
LET YY=D*SIN(36)
FOR I=35.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 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
NEXT II
DRAW eda1 WITH SHIFT(0,-75)
PLOT LINES: 0,-75;0,-635
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=130*COS(I)
LET Q=130*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 zukei1
DRAW houju2sub
DRAW hachikaku2sub WITH SHIFT(0,-837)
END PICTURE
LET ZY=ZY-150
DRAW zukei1 WITH SHIFT(ZX,ZY)*ROTATE(ZDEG)
REM ひふみ祝詞
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ"
DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ"
DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ"
DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ"
DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ"
DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
REM 八角形
DATA "ｲ","ｨ"
DATA "ﾁ","ｷ","ﾐ","ﾋ","ﾘ","ﾆ","ｧ","ｼ"
DATA "ｵ","ｳ","ｱ","ｴ"
DATA "ｩ","ｪ","ﾜ","ｦ"
DATA "ﾀ","ｶ","ﾏ","ﾊ","ﾗ","ﾅ","ﾔ","ｻ"
DATA "ﾃ","ｹ","ﾒ","ﾍ","ﾚ","ﾈ","ｫ","ｾ"
DATA "ﾄ","ｺ","ﾓ","ﾎ","ﾛ","ﾉ","ﾖ","ｿ"
DATA "ﾂ","ｸ","ﾑ","ﾌ","ﾙ","ﾇ","ﾕ","ｽ"
END SUB
登録:
投稿 (Atom)