ちーちゃん(札幌) [chisapporo] です。

ちーのgoo版でーす。 \(^0^)/
よろしく!!

(訂正)改良型ひふみ/いろは渦巻きでーす。(フトマニ/Wミツウロコ2段:X'masプレゼント)\(^o^)/

2017-12-21 10:22:03 | 日記

(訂正)改良型ひふみ/いろは渦巻きでーす。(フトマニ/Wミツウロコ2段:X'masプレゼント)\(^o^)/

 

 

 

 


こんにちはー、ちーでーす。(*^_^*)

ごめんなさーい。m(_ _)m
昨日の一部渦巻きの終点に若干のバグがあったので、
訂正したものを掲載させていただきまーす。(*^_^*)

 

改良型ひふみ/あわ渦巻きでーす。(*^_^*)
・片○大先生の基本アーキテクチャー採用!
・聖ロスチャイルド=ロックフェラー パパヤ(888) トルネードスパイラル アーキテクチャー テクノロジー採用!
  3回スパイラル,初回8文字 +8で2回目16文字 +8で3回目24文字 計48文字
・聖ロスチャイルド=ロックフェラー Wアンチローリングミツウロコ アーキテクチャー テクノロジー採用!
・聖ロスチャイルド=ロックフェラー Kome Character アーキテクチャー テクノロジー採用!
  渦巻き文字が渦巻きの中心点から"米"の字方向に描かれている
・聖ロスチャイルド=ロックフェラー オリハルコン(or ヒヒイロガネ)比率 アーキテクチャー テクノロジー採用!
  フトマニの中央円と外円各ブロック、聖なる1:√8の比率
・聖ロスチャイルド=ロックフェラー マルチプル ホーリー ブライト ヘキサグラム アーキテクチャー テクノロジー採用!
・新開発 聖ロスチャイルド=ロックフェラー フトマニ トルネードスパイラル アーキテクチャー テクノロジー採用!

 

・Wアンチローリングミツウロコ アーキテクチャー渦巻き フトマニ星形Wミツウロコ2段 プログラム for 十進BASICシステム
 ※9050エラーで動かない場合は、PC再起動後、十進BASICシステムのみを立ち上げ、
  他のアプリやネットブラウザ等は立ち上げず実行してください。
  また、パソコンによっては実行できない場合もありますので、
  ご了承ください。

PICTURE shikaku3
REM ひふみ文字渦巻き(反時計回り)
LET kaiten=0
FOR I=360 TO 719 STEP 45
LET F=I/1.35
LET LX=F*COS(I)
LET LY=F*SIN(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/1.35
LET LX=F*COS(I)
LET LY=F*SIN(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/1.35
LET LX=F*COS(I)
LET LY=F*SIN(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I
END PICTURE


PICTURE shikaku5
LET kaiten=-90
REM いろは文字渦巻き(時計回り)
FOR I=360 TO 719 STEP 45
LET F=I/1.35
LET LX=F*SIN(I)
LET LY=F*COS(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/1.35
LET LX=F*SIN(I)
LET LY=F*COS(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/1.35
LET LX=F*SIN(I)
LET LY=F*COS(I)
READ C$
CALL futomani1(C$,LX,LY,kaiten)
NEXT I
END PICTURE


PICTURE shikaku10
REM 中心にひふみ三角
DRAW shikaku3
DRAW CIRCLE WITH SCALE(1170)
PLOT LINES: 2026,-1170;-2026,-1170
PLOT LINES: 2026,-1170;0,2339
PLOT LINES: -2026,-1170;0,2339
END PICTURE


PICTURE shikaku12
REM ひふみの逆三角化/底辺をY軸0
DRAW shikaku10 WITH ROTATE(180)*SHIFT(0,-1170)
END PICTURE


PICTURE shikaku15
REM 中心にいろは三角
DRAW shikaku5 WITH ROTATE(90)
DRAW CIRCLE WITH SCALE(1170)
PLOT LINES: 2026,-1170;-2026,-1170
PLOT LINES: 2026,-1170;0,2339
PLOT LINES: -2026,-1170;0,2339
END PICTURE


PICTURE shikaku17
REM いろはの底辺をY軸0
DRAW shikaku15 WITH ROTATE(0)*SHIFT(0,1170)
END PICTURE

 


SET BITMAP SIZE 14200,14200
SET WINDOW -7100,7100,-7100,7100
OPTION ANGLE DEGREES
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1

DRAW shikaku17 WITH SHIFT(0,3509)


DRAW shikaku12 WITH SHIFT(0,3509)
RESTORE
DRAW shikaku17 WITH SHIFT(2026,0)
DRAW shikaku12 WITH SHIFT(4052,3509)
RESTORE
DRAW shikaku17 WITH SHIFT(-2026,0)
DRAW shikaku12 WITH SHIFT(-4052,3509)
RESTORE


DRAW shikaku17 WITH SHIFT(0,-3509)
DRAW shikaku12 WITH SHIFT(2026,0)
RESTORE
DRAW shikaku17 WITH SHIFT(4052,-3509)
DRAW shikaku12 WITH SHIFT(-2026,0)
RESTORE
DRAW shikaku17 WITH SHIFT(-4052,-3509)


DRAW shikaku12 WITH SHIFT(0,-3509)

 

REM DATA文の文字順
REM いろはにほへとち
REM りぬるをわかよた
REM れそつねならむう
REM ゐ(yi)のおくやまけふ
REM こえてあさきゆめ
REM みしゑ(ye)ひもせすん(←代用wu)

DATA "イ","ロ","ハ","ニ","ホ","ヘ","ト","チ"
DATA "リ","ヌ","ル","ヲ","ワ","カ","ヨ","タ"
DATA "レ","ソ","ツ","ネ","ナ","ラ","ム","ウ"
DATA "ァ","ノ","オ","ク","ヤ","マ","ケ","フ"
DATA "コ","エ","テ","ア","サ","キ","ユ","メ"
DATA "ミ","シ","ォ","ヒ","モ","セ","ス","ゥ"


REM DATA文の文字順
REM ひふみよいむなや
REM こともちろらねし
REM きるゆゐ(yi)つわぬそ
REM をたはくめかうお
REM ゑ(ye)にさりへてのま
REM すあせえほれけん(←代用wu)

DATA "ヒ","フ","ミ","ヨ","イ","ム","ナ","ヤ"
DATA "コ","ト","モ","チ","ロ","ラ","ネ","シ"
DATA "キ","ル","ユ","ァ","ツ","ワ","ヌ","ソ"
DATA "ヲ","タ","ハ","ク","メ","カ","ウ","オ"
DATA "ォ","ニ","サ","リ","ヘ","テ","ノ","マ"
DATA "ス","ア","セ","エ","ホ","レ","ケ","ゥ"


END

 


EXTERNAL SUB futomani1(C$,LX,LY,kaiten)
OPTION ANGLE DEGREES

DIM X(5),Y(5)


PICTURE shikaku30
SET TEXT FONT "TCM Hotsuma Character Large" ,60
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:C$
END PICTURE


PICTURE shikaku32
SET TEXT FONT "TCM Hotsuma Character Large" ,13
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE


PICTURE shikaku33
LET F=0/150
LET XX=F*COS(0)
LET YY=F*SIN(0)
FOR I=2 TO 1080 STEP 2
LET F=I/150
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 shikaku34
LET F=0/150
LET XX=F*SIN(0)
LET YY=F*COS(0)
FOR I=2 TO 1080 STEP 2
LET F=I/150
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 shikaku40
FOR I=42 TO 102 STEP 15
DRAW CIRCLE WITH SCALE(I)
NEXT I

FOR I=0 TO 360 STEP 45
FOR J=1 TO 5 STEP 1
LET K=J-1
LET D=42+15*K
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 K=J-1
LET D=42+15*K
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=41
LET E=0
FOR I=0 TO 7
LET C=-I*360/8
DRAW shikaku32 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=54
LET E=180
FOR I=0 TO 7
LET C=-I*360/8-22.5
DRAW shikaku32 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=69
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku32 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "top"
LET A=84
LET E=180
FOR I=0 TO 15
LET C=-I*360/16-11.25
DRAW shikaku32 WITH ROTATE(C)
NEXT I

SET TEXT JUSTIFY "center" , "half"
LET A=0
LET E=0
DRAW shikaku30 WITH SHIFT(0,0)

END PICTURE

 

SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1

DRAW shikaku40 WITH ROTATE(kaiten)*SHIFT(LX,LY)
RESTORE

 

DATA "ト","ヒ","カ","メ","ォ","ホ","タ","ミ"
DATA "イ","モ","シ","フ","ヲ","ア","ヘ","ス"
DATA "キ","チ","コ","オ","ァ","ナ","ヌ","ム","ヨ","ソ","ヤ","ハ","エ","ネ","ユ","ツ"
DATA "ニ","リ","ケ","レ","サ","ワ","ウ","ク","ロ","ノ","マ","ラ","テ","セ","ゥ","ル"

END SUB

 

 


*注)上記の情報の真偽に関しては当Blogは一切保証いたしませんので、
  ご了承願います。又、上記の記述に関しては当Blogは社会的責任等他
  一切責任は負いませんので、ご了承願います。

 


当Blogでは記事の内容は保障できないの。
ごめんなさーい。m(_ _)m

 


閲覧ありがとうございまーす。(*^_^*)
今日はこれで、失礼いたしまーす。ヽ(^o^)丿

ジャンル:
きいてきいて
コメント   この記事についてブログを書く
« 改良型ひふみ/いろは渦巻きで... | トップ | ちーからのX'masプレゼント(... »
最近の画像もっと見る

コメントを投稿

日記」カテゴリの最新記事