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

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

ちーからのX'masプレゼント(再放送) 多重円プログラムでーす。(*^_^*)

2017-12-25 15:56:22 | 日記

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










・多重円プログラム 角=6 半径=50



・多重円プログラム 角=3 半径=50




・多重円プログラム for 十進BASICシステム

5 SET BITMAP SIZE 1200,1200
10 SET WINDOW -550,550,-550,550
15 SET POINT STYLE 1
20 INPUT PROMPT "角数は?": a
25 INPUT PROMPT "半径は?": f
30 LET a=200/a
40 FOR b=0 TO 200 STEP 0.1
42 LET c=PI*2*b/200
44 LET x=f*COS(c)
46 LET y=f*SIN(c)
48 PLOT POINTS: X,Y
49 NEXT b
50 FOR b=0 TO 200 STEP a
55 LET c=PI*2*b/200
60 LET x=f*COS(c)
70 LET y=f*SIN(c)
80 FOR d=0 TO 200 STEP 0.1
90 LET e=PI*2*d/200
100 LET x1=f*COS(e)+x
110 LET y1=f*SIN(e)+y
115 PLOT POINTS: X1,Y1
120 NEXT d
122 FOR d=0 TO 200 STEP a
130 LET e=PI*2*d/200
200 LET x1=f*COS(e)+x
210 LET y1=f*SIN(e)+y
215 FOR g=0 TO 200 STEP 0.1
280 LET h=PI*2*g/200
290 LET x2=f*COS(h)+x1
300 LET y2=f*SIN(h)+y1
310 PLOT POINTS: X2,Y2
320 NEXT g
400 FOR g=0 TO 200 STEP a
410 LET h=PI*2*g/200
420 LET x2=f*COS(h)+x1
430 LET y2=f*SIN(h)+y1
440 FOR i=0 TO 200 STEP 0.1
450 LET j=PI*2*i/200
460 LET x3=f*COS(j)+x2
470 LET y3=f*SIN(j)+y2
480 PLOT POINTS: X3,Y3
490 NEXT i
500 FOR i=0 TO 200 STEP a
510 LET j=PI*2*i/200
520 LET x3=f*COS(j)+x2
530 LET y3=f*SIN(j)+y2
540 FOR k=0 TO 200 STEP 0.1
550 LET l=PI*2*k/200
560 LET x4=f*COS(l)+x3
570 LET y4=f*SIN(l)+y3
580 PLOT POINTS: X4,Y4
590 NEXT k
600 NEXT i
700 NEXT g
730 NEXT d
800 NEXT b
END



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

 


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

 


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

コメント

(訂正)改良型ひふみ/いろは渦巻きでーす。(フトマニ/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^)丿

コメント

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

2017-12-20 22:46:53 | 日記

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

 

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

 








 改良型ひふみ/あわ渦巻きでーす。(*^_^*)

・片○大先生の基本アーキテクチャー採用!
・聖ロスチャイルド=ロックフェラー パパヤ(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 ひふみ文字渦巻き(反時計回り)
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)
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)
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)
NEXT I
END PICTURE


PICTURE shikaku5
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)
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)
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)
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
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)
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 SHIFT(LX,LY)
RESTORE

 

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

END SUB

 

 


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

 


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

 


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

コメント

改良型ひふみ/いろは渦巻きでーす。(ヘキサグラム Wミツウロコ32段:X'masプレゼント)\(^o^)/

2017-12-19 22:01:07 | 日記

改良型ひふみ/いろは渦巻きでーす。(ヘキサグラム Wミツウロコ32段:X'masプレゼント)\(^o^)/

 

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

 



 





 

改良型ひふみ/あわ渦巻きでーす。(*^_^*)
・片○大先生の基本アーキテクチャー採用!
・聖ロスチャイルド=ロックフェラー パパヤ(888) トルネードスパイラル アーキテクチャー テクノロジー採用!
  3回スパイラル,初回8文字 +8で2回目16文字 +8で3回目24文字 計48文字
・聖ロスチャイルド=ロックフェラー Wアンチローリングミツウロコ アーキテクチャー テクノロジー採用!
・聖ロスチャイルド=ロックフェラー Kome Character アーキテクチャー テクノロジー採用!
  渦巻き文字が渦巻きの中心点から"米"の字方向に描かれている
・新開発 聖ロスチャイルド=ロックフェラー マルチプル ホーリー ブライト ヘキサグラム アーキテクチャー テクノロジー採用!
・六方星超大容量化Wミツウロコ32段を採用!
・(あわ唄の代わりに)いろは祝詞採用!
・(Wミツウロコでは初の)秀真文字初採用!

 


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

SET BITMAP SIZE 16900,16900
SET WINDOW -8450,8450,-8450,8450
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
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
REM SET TEXT FONT "TCM Kuiboku Character" ,14
SET TEXT FONT "TCM Hotsuma Character Large" ,14
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=-135-180
DRAW shikaku3 WITH ROTATE(135)
DRAW shikaku52
END PICTURE


PICTURE shikaku62
REM いろは小三角完成(上向き/時計回り)
LET A=0
LET E=-135
DRAW shikaku13 WITH ROTATE(135)
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

PICTURE shikaku66
REM 上ダイヤモンド(Wミツウロコ 上4三角)
DRAW shikaku60 WITH SHIFT(0,176)
DRAW shikaku62 WITH SHIFT(0,352)
RESTORE
DRAW shikaku62 WITH SHIFT(153,88)
DRAW shikaku62 WITH SHIFT(-153,88)
RESTORE
END PICTURE

PICTURE shikaku68
REM 下ダイヤモンド(Wミツウロコ 下4三角)
DRAW shikaku60 WITH SHIFT(-153,-88)
DRAW shikaku60 WITH SHIFT(153,-88)
RESTORE
DRAW shikaku60 WITH SHIFT(0,-352)
DRAW shikaku62 WITH SHIFT(0,-176)
RESTORE
END PICTURE

PICTURE shikaku70
FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku68 WITH SHIFT(J,-4224) !下三角のみ
DRAW shikaku68 WITH SHIFT(-J,-4224) !下三角のみ
NEXT J

DRAW shikaku64 WITH SHIFT(0,-4752)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-4752)
DRAW shikaku64 WITH SHIFT(-J,-4752)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,-5280)
DRAW shikaku64 WITH SHIFT(-J,-5280)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-5808)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-5808)
DRAW shikaku64 WITH SHIFT(-J,-5808)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,-6336)
DRAW shikaku64 WITH SHIFT(-J,-6336)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-6864)
DRAW shikaku64 WITH SHIFT(612,-6864)
DRAW shikaku64 WITH SHIFT(-612,-6864)

DRAW shikaku64 WITH SHIFT(306,-7392)
DRAW shikaku64 WITH SHIFT(-306,-7392)

DRAW shikaku64 WITH SHIFT(0,-7920)
END PICTURE

PICTURE shikaku72
FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku66 WITH SHIFT(J,4224) !上三角のみ
DRAW shikaku66 WITH SHIFT(-J,4224) !上三角のみ
NEXT J

DRAW shikaku64 WITH SHIFT(0,4752)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,4752)
DRAW shikaku64 WITH SHIFT(-J,4752)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,5280)
DRAW shikaku64 WITH SHIFT(-J,5280)
NEXT J

DRAW shikaku64 WITH SHIFT(0,5808)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,5808)
DRAW shikaku64 WITH SHIFT(-J,5808)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,6336)
DRAW shikaku64 WITH SHIFT(-J,6336)
NEXT J

DRAW shikaku64 WITH SHIFT(0,6864)
DRAW shikaku64 WITH SHIFT(612,6864)
DRAW shikaku64 WITH SHIFT(-612,6864)

DRAW shikaku64 WITH SHIFT(306,7392)
DRAW shikaku64 WITH SHIFT(-306,7392)

DRAW shikaku64 WITH SHIFT(0,7920)
END PICTURE


SET POINT STYLE 1
SET LINE COLOR 1
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"

REM DRAW shikaku66 WITH SHIFT(-1500,-1500)
REM DRAW shikaku68 WITH SHIFT(-1500,-1500)


REM Y軸正軸側


FOR J=306 TO 4590 STEP 612 !7回
DRAW shikaku64 WITH SHIFT(J,0)
DRAW shikaku64 WITH SHIFT(-J,0)
NEXT J

DRAW shikaku64 WITH SHIFT(0,528)
FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,528)
DRAW shikaku64 WITH SHIFT(-J,528)
NEXT J

FOR J=306 TO 3978 STEP 612 !6回
DRAW shikaku64 WITH SHIFT(J,1056)
DRAW shikaku64 WITH SHIFT(-J,1056)
NEXT J

DRAW shikaku64 WITH SHIFT(0,1584)
FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,1584)
DRAW shikaku64 WITH SHIFT(-J,1584)
NEXT J

FOR J=306 TO 3366 STEP 612 !5回
DRAW shikaku64 WITH SHIFT(J,2112)
DRAW shikaku64 WITH SHIFT(-J,2112)
NEXT J

DRAW shikaku64 WITH SHIFT(0,2640)
FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,2640)
DRAW shikaku64 WITH SHIFT(-J,2640)
NEXT J

FOR J=306 TO 2754 STEP 612 !4回
DRAW shikaku64 WITH SHIFT(J,3168)
DRAW shikaku64 WITH SHIFT(-J,3168)
NEXT J

DRAW shikaku64 WITH SHIFT(0,3696)
FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,3696)
DRAW shikaku64 WITH SHIFT(-J,3696)
NEXT J

FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku64 WITH SHIFT(J,4224)
DRAW shikaku64 WITH SHIFT(-J,4224)
NEXT J

DRAW shikaku64 WITH SHIFT(0,4752)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,4752)
DRAW shikaku64 WITH SHIFT(-J,4752)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,5280)
DRAW shikaku64 WITH SHIFT(-J,5280)
NEXT J

DRAW shikaku64 WITH SHIFT(0,5808)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,5808)
DRAW shikaku64 WITH SHIFT(-J,5808)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,6336)
DRAW shikaku64 WITH SHIFT(-J,6336)
NEXT J

DRAW shikaku64 WITH SHIFT(0,6864)
DRAW shikaku64 WITH SHIFT(612,6864)
DRAW shikaku64 WITH SHIFT(-612,6864)

DRAW shikaku64 WITH SHIFT(306,7392)
DRAW shikaku64 WITH SHIFT(-306,7392)

DRAW shikaku64 WITH SHIFT(0,7920)


REM Y軸負軸側

DRAW shikaku64 WITH SHIFT(0,-528)
FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-528)
DRAW shikaku64 WITH SHIFT(-J,-528)
NEXT J

FOR J=306 TO 3978 STEP 612 !6回
DRAW shikaku64 WITH SHIFT(J,-1056)
DRAW shikaku64 WITH SHIFT(-J,-1056)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-1584)
FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-1584)
DRAW shikaku64 WITH SHIFT(-J,-1584)
NEXT J

FOR J=306 TO 3366 STEP 612 !5回
DRAW shikaku64 WITH SHIFT(J,-2112)
DRAW shikaku64 WITH SHIFT(-J,-2112)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-2640)
FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-2640)
DRAW shikaku64 WITH SHIFT(-J,-2640)
NEXT J

FOR J=306 TO 2754 STEP 612 !4回
DRAW shikaku64 WITH SHIFT(J,-3168)
DRAW shikaku64 WITH SHIFT(-J,-3168)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-3696)
FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-3696)
DRAW shikaku64 WITH SHIFT(-J,-3696)
NEXT J

FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku64 WITH SHIFT(J,-4224)
DRAW shikaku64 WITH SHIFT(-J,-4224)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-4752)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-4752)
DRAW shikaku64 WITH SHIFT(-J,-4752)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,-5280)
DRAW shikaku64 WITH SHIFT(-J,-5280)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-5808)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-5808)
DRAW shikaku64 WITH SHIFT(-J,-5808)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,-6336)
DRAW shikaku64 WITH SHIFT(-J,-6336)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-6864)
DRAW shikaku64 WITH SHIFT(612,-6864)
DRAW shikaku64 WITH SHIFT(-612,-6864)

DRAW shikaku64 WITH SHIFT(306,-7392)
DRAW shikaku64 WITH SHIFT(-306,-7392)

DRAW shikaku64 WITH SHIFT(0,-7920)


REM Y軸正軸側のダイヤモンドの左右に三角!!
DRAW shikaku70 WITH SHIFT(4896,8448)
DRAW shikaku70 WITH SHIFT(-4896,8448)


REM Y軸負軸側のダイヤモンドの左右に三角!!
DRAW shikaku72 WITH SHIFT(4896,-8448)
DRAW shikaku72 WITH SHIFT(-4896,-8448)

 

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 "ミ","シ","ォ","ヒ","モ","セ","ス","ゥ"


END



 


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

 


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

 


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

コメント

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

2017-12-16 22:05:31 | 日記

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

 

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











 

改良型ひふみ/あわ渦巻きでーす。(*^_^*)
・片○大先生の基本アーキテクチャー採用!
・聖ロスチャイルド=ロックフェラー パパヤ(888) トルネードスパイラル アーキテクチャー テクノロジー採用!
  3回スパイラル,初回8文字 +8で2回目16文字 +8で3回目24文字 計48文字
・聖ロスチャイルド=ロックフェラー Wアンチローリングミツウロコ アーキテクチャー テクノロジー採用!
・超大容量Wミツウロコ34段を採用!
・(あわ唄の代わりに)いろは祝詞採用!
・クイボク文字初採用!

 


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


SET BITMAP SIZE 18000,18000
SET WINDOW -9000,9000,-9000,9000
SET POINT STYLE 1
SET LINE COLOR 1
SET LINE WIDTH 1
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 Kuiboku Character" ,14
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

PICTURE shikaku66
REM 上ダイヤモンド(Wミツウロコ 上4三角)
DRAW shikaku60 WITH SHIFT(0,176)
DRAW shikaku62 WITH SHIFT(0,352)
RESTORE
DRAW shikaku62 WITH SHIFT(153,88)
DRAW shikaku62 WITH SHIFT(-153,88)
RESTORE
END PICTURE

PICTURE shikaku68
REM 下ダイヤモンド(Wミツウロコ 下4三角)
DRAW shikaku60 WITH SHIFT(-153,-88)
DRAW shikaku60 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 DRAW shikaku66 WITH SHIFT(-1500,-1500)
REM DRAW shikaku68 WITH SHIFT(-1500,-1500)


REM Y軸正軸側

DRAW shikaku64 WITH SHIFT(0,0)
FOR J=612 TO 4896 STEP 612 !8回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,0)
DRAW shikaku64 WITH SHIFT(-J,0)
NEXT J

FOR J=306 TO 4590 STEP 612 !7回
DRAW shikaku64 WITH SHIFT(J,528)
DRAW shikaku64 WITH SHIFT(-J,528)
NEXT J

DRAW shikaku64 WITH SHIFT(0,1056)
FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,1056)
DRAW shikaku64 WITH SHIFT(-J,1056)
NEXT J

FOR J=306 TO 3978 STEP 612 !6回
DRAW shikaku64 WITH SHIFT(J,1584)
DRAW shikaku64 WITH SHIFT(-J,1584)
NEXT J

DRAW shikaku64 WITH SHIFT(0,2112)
FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,2112)
DRAW shikaku64 WITH SHIFT(-J,2112)
NEXT J

FOR J=306 TO 3366 STEP 612 !5回
DRAW shikaku64 WITH SHIFT(J,2640)
DRAW shikaku64 WITH SHIFT(-J,2640)
NEXT J

DRAW shikaku64 WITH SHIFT(0,3152)
FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,3152)
DRAW shikaku64 WITH SHIFT(-J,3152)
NEXT J

FOR J=306 TO 2754 STEP 612 !4回
DRAW shikaku64 WITH SHIFT(J,3680)
DRAW shikaku64 WITH SHIFT(-J,3680)
NEXT J

DRAW shikaku64 WITH SHIFT(0,4208)
FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,4208)
DRAW shikaku64 WITH SHIFT(-J,4208)
NEXT J

FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku64 WITH SHIFT(J,4736)
DRAW shikaku64 WITH SHIFT(-J,4736)
NEXT J

DRAW shikaku64 WITH SHIFT(0,5264)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,5264)
DRAW shikaku64 WITH SHIFT(-J,5264)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,5792)
DRAW shikaku64 WITH SHIFT(-J,5792)
NEXT J

DRAW shikaku64 WITH SHIFT(0,6320)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,6320)
DRAW shikaku64 WITH SHIFT(-J,6320)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,6848)
DRAW shikaku64 WITH SHIFT(-J,6848)
NEXT J

DRAW shikaku64 WITH SHIFT(0,7376)
DRAW shikaku64 WITH SHIFT(612,7376)
DRAW shikaku64 WITH SHIFT(-612,7376)

DRAW shikaku64 WITH SHIFT(306,7904)
DRAW shikaku64 WITH SHIFT(-306,7904)

DRAW shikaku64 WITH SHIFT(0,8432)

 

REM Y軸負軸側
FOR J=306 TO 4590 STEP 612 !7回
DRAW shikaku64 WITH SHIFT(J,-528)
DRAW shikaku64 WITH SHIFT(-J,-528)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-1056)
FOR J=612 TO 4284 STEP 612 !7回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-1056)
DRAW shikaku64 WITH SHIFT(-J,-1056)
NEXT J

FOR J=306 TO 3978 STEP 612 !6回
DRAW shikaku64 WITH SHIFT(J,-1584)
DRAW shikaku64 WITH SHIFT(-J,-1584)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-2112)
FOR J=612 TO 3672 STEP 612 !6回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-2112)
DRAW shikaku64 WITH SHIFT(-J,-2112)
NEXT J

FOR J=306 TO 3366 STEP 612 !5回
DRAW shikaku64 WITH SHIFT(J,-2640)
DRAW shikaku64 WITH SHIFT(-J,-2640)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-3152)
FOR J=612 TO 3060 STEP 612 !5回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-3152)
DRAW shikaku64 WITH SHIFT(-J,-3152)
NEXT J

FOR J=306 TO 2754 STEP 612 !4回
DRAW shikaku64 WITH SHIFT(J,-3680)
DRAW shikaku64 WITH SHIFT(-J,-3680)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-4208)
FOR J=612 TO 2448 STEP 612 !4回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-4208)
DRAW shikaku64 WITH SHIFT(-J,-4208)
NEXT J

FOR J=306 TO 2142 STEP 612 !3回
DRAW shikaku64 WITH SHIFT(J,-4736)
DRAW shikaku64 WITH SHIFT(-J,-4736)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-5264)
FOR J=612 TO 1836 STEP 612 !3回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-5264)
DRAW shikaku64 WITH SHIFT(-J,-5264)
NEXT J

FOR J=306 TO 1530 STEP 612 !2回
DRAW shikaku64 WITH SHIFT(J,-5792)
DRAW shikaku64 WITH SHIFT(-J,-5792)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-6320)
FOR J=612 TO 1224 STEP 612 !2回 その前に真ん中に1個書いているので!
DRAW shikaku64 WITH SHIFT(J,-6320)
DRAW shikaku64 WITH SHIFT(-J,-6320)
NEXT J

FOR J=306 TO 918 STEP 612 !1回
DRAW shikaku64 WITH SHIFT(J,-6848)
DRAW shikaku64 WITH SHIFT(-J,-6848)
NEXT J

DRAW shikaku64 WITH SHIFT(0,-7376)
DRAW shikaku64 WITH SHIFT(612,-7376)
DRAW shikaku64 WITH SHIFT(-612,-7376)

DRAW shikaku64 WITH SHIFT(306,-7904)
DRAW shikaku64 WITH SHIFT(-306,-7904)

DRAW shikaku64 WITH SHIFT(0,-8432)

 

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

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


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

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

END

 


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

 


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

 


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

コメント