※十進BASICｲﾝﾀﾌﾟﾘﾀｰ ｼｽﾃﾑ要,TCM第一象字文字ﾌｫﾝﾄがwiidowsの ﾌｫﾝﾄの画面に入っていること。(前のブログ参照) ※フォントの正式名称はフォント本体フォルダを右クリック、 プロパティ(R)→詳細 でタイトル欄に表示されます。 ※十進BASICﾌﾟﾛｸﾞﾗﾑ実行時のﾌｫﾝﾄの指定は、 SET TEXT FONT "TCM Daiichi Shoji Character" ,19 と云うように、 SET TEXT FONT "フォント名" ,ﾎﾟｲﾝﾄ数 です。
＊十進BASIC ﾌﾟﾛｸﾞﾗﾑTCM第一象字文字コード対応表プログラム
PICTURE shikaku2 SET TEXT FONT "TCM Daiichi Shoji Character" ,19 IF ( I<224 AND I>160 ) OR I<128 THEN PLOT TEXT,AT 0,0:CHR$(I) LET D$=USING$ ("###",I) SET TEXT FONT "ＭＳ ゴシック" ,8 LET C=44 PLOT TEXT,AT 0,C:D$ SET TEXT FONT "ＭＳ ゴシック" ,12 LET C=63 IF ( I<224 AND I>160 ) OR I<128 THEN PLOT TEXT,AT 0,C:CHR$(I) END PICTURE
SET BITMAP SIZE 1001,1001 SET WINDOW -800,800,-800,800 SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1 OPTION ANGLE DEGREES
LET I=0 FOR J=0 TO 15 LET X=-700+70*J FOR K=0 TO 15 LET Y=700-99*K DRAW shikaku2 WITH SHIFT(X,Y) LET I=I+1 NEXT K NEXT J
FOR K=799 TO -798 STEP -99 PLOT LINES: -705,K;415,K NEXT K
FOR J=-705 TO 415 STEP 70 PLOT LINES: J,799;J,-785 NEXT J
＊第一象字文字タイプ改良型フトマニ図プログラムver.7K for 十進BASIC＊ DIM X(5),Y(5)
PICTURE shikaku2 SET TEXT FONT "TCM Daiichi Shoji Character" ,120 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku5 PLOT LINES: 0,1412;1412,0;0,-1412;-1412,0;0,1412 END PICTURE
PICTURE shikaku8 SET TEXT FONT "TCM Daiichi Shoji Character" ,90 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
SET BITMAP SIZE 9272,9272 SET WINDOW -4636,4636,-4636,4636
SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1 OPTION ANGLE DEGREES
FOR I=414 TO 998 STEP 146 DRAW CIRCLE WITH SCALE(I) NEXT I
FOR I=0 TO 360 STEP 45 LET D=560 LET X(1)=D*COS(I) LET Y(1)=D*SIN(I) LET D=998 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=414 LET X(1)=D*COS(I) LET Y(1)=D*SIN(I) FOR J=1 TO 4 STEP 1 LET D=414+146*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
FOR I=0 TO 89 STEP 7.5 DRAW shikaku5 WITH ROTATE(I) NEXT I
SET TEXT JUSTIFY "center" , "bottom" LET A=409 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=548 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=694 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=842 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku2 WITH ROTATE(C) NEXT I
REM 頂点の文字書き SET TEXT JUSTIFY "center" , "cap" LET A=1278 LET E=180 FOR I=0 TO 47 LET C=I*360/48 DRAW shikaku8 WITH ROTATE(C) NEXT I
CALL houju1 CALL houju4(20,20,15,15,15,15,0,166,-82,83,0,166,82,83,0,166,-82,83,0,166,82,83,116,116,1772,2104,1772,2104) CALL houju4(20,20,15,15,15,15,0,166,-82,83,0,166,82,83,0,166,-82,83,0,166,82,83,116,116,2336,2668,2336,2668) REM houju4(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TP9,TP10,TP11,TP12,TP13,TP14,TP15,TP16,TR1,TR2,TH1,TH2,TH3,TH4) CALL houju5(14,14,22.5,22.5,22.5,22.5,0,109,-54,54,0,109,54,54,77,219,2845) REM houju5(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TR1,TH5,TH6) CALL houju4(20,20,15,15,15,15,0,166,-82,83,0,166,82,83,0,166,-82,83,0,166,82,83,116,116,3022,3354,3022,3354) CALL houju5(16,16,17.5,17.5,17.5,17.5,0,136,-68,68,0,136,68,68,96,272,3544) CALL houju4(20,20,15,15,15,15,0,166,-82,83,0,166,82,83,0,166,-82,83,0,166,82,83,116,116,3733,4065,3733,4065) CALL houju5(20,20,14.75,14.75,14.75,14.75,0,164,-82,82,0,164,82,82,116,328,4267) CALL houju6(20,20,15,15,15,15,0,166,-82,83,0,166,82,83,0,166,-82,83,0,166,82,83,116,116,4467,4799,4467,4799) REM houju6(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TP9,TP10,TP11,TP12,TP13,TP14,TP15,TP16,TR1,TR2,TH1,TH2,TH3,TH4)
CALL small1
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ" DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ" DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ" DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ"
REM 頂点の文字書きデータ DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
EXTERNAL SUB houju1 OPTION ANGLE DEGREES PICTURE shikaku10 SET TEXT FONT "TCM Daiichi Shoji Character" ,18 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku12 REM ひふみ渦巻き FOR I=315 TO 674 STEP 45 LET F=I/17 LET A=F LET C=I DRAW shikaku10 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/17 LET A=F LET C=I DRAW shikaku10 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/17 LET A=F LET C=I DRAW shikaku10 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku13 REM あわ渦巻き FOR I=315 TO 674 STEP 45 LET F=I/17 LET A=F LET C=-I DRAW shikaku10 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/17 LET A=F LET C=-I DRAW shikaku10 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/17 LET A=F LET C=-I DRAW shikaku10 WITH ROTATE(C) NEXT I END PICTURE
LET D=102 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 shikaku16 REM ひふみ渦巻き(中央円/外輪用,) DRAW shikaku14 WITH ROTATE(180) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku12 WITH ROTATE(-22.5) END PICTURE
PICTURE shikaku17 REM あわ渦巻き(外輪用) DRAW shikaku14 WITH ROTATE(0) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku13 WITH ROTATE(22.5) REM DRAW shikaku13 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku18 DRAW shikaku16 WITH ROTATE(0)*SHIFT(0,1554) END PICTURE
PICTURE shikaku19 DRAW shikaku17 WITH ROTATE(180)*SHIFT(0,1554) END PICTURE
PICTURE shikaku20 REM あわ渦巻き(中央円用) DRAW shikaku14 WITH ROTATE(0) SET TEXT JUSTIFY "center" , "cap" LET E=180 REM DRAW shikaku13 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku21 DRAW shikaku16 WITH ROTATE(0)*SHIFT(0,312) END PICTURE
PICTURE shikaku22 DRAW shikaku16 WITH ROTATE(180)*SHIFT(0,-312) END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
!DRAW shikaku21 WITH ROTATE(0) !DRAW shikaku22 WITH ROTATE(0) !RESTORE FOR J=0 TO 318 STEP 80 DRAW shikaku21 WITH ROTATE(J) LET K=J+40 DRAW shikaku21 WITH ROTATE(K) RESTORE NEXT J DRAW shikaku21 WITH ROTATE(320) RESTORE
FOR J=0 TO 352 STEP 15 DRAW shikaku18 WITH ROTATE(J) LET K=J+7.5 DRAW shikaku19 WITH ROTATE(K) RESTORE NEXT J
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ" DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ" DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ" DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ" DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ" DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
END SUB
EXTERNAL SUB small1 OPTION ANGLE DEGREES DIM X(5),Y(5)
PICTURE shikaku32 SET TEXT FONT "TCM Daiichi Shoji Character" ,18 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 shikaku36 PLOT LINES: 0,171;171,0;0,-171;-171,0;0,171 END PICTURE
PICTURE shikaku38 SET TEXT FONT "TCM Daiichi Shoji Character" ,24 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
SET POINT STYLE 1 SET LINE COLOR 1 SET LINE WIDTH 1
DRAW shikaku36 WITH ROTATE(0) DRAW shikaku36 WITH ROTATE(45) DRAW shikaku36 WITH ROTATE(22.5) DRAW shikaku36 WITH ROTATE(67.5)
FOR I=24 TO 140 STEP 24 DRAW CIRCLE WITH SCALE(I) NEXT I
DRAW CIRCLE WITH SCALE(5) DRAW CIRCLE WITH SCALE(2) PLOT LINES: -11,-5;11,-5 PLOT LINES: -11,-5;-3,5;-3,8;-10,9 PLOT LINES: 11,-5;3,5;3,8;10,9 DRAW shikaku33 WITH ROTATE(0)*SHIFT(0,16) DRAW shikaku34 WITH ROTATE(-90)*SHIFT(0,-16)
FOR I=0 TO 360 STEP 45 FOR J=1 TO 5 STEP 1 LET D=24*J 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 D=24*J 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=25 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=47 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=71 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=95 LET E=180 FOR I=0 TO 15 LET C=-I*360/16-11.25 DRAW shikaku32 WITH ROTATE(C) NEXT I
REM 頂点の文字書き RESTORE SET TEXT JUSTIFY "center" , "top" LET A=130 LET E=180 FOR I=0 TO 7 LET C=-I*360/8 DRAW shikaku38 WITH ROTATE(C) NEXT I
SET TEXT JUSTIFY "center" , "bottom" LET A=134 LET E=0 FOR I=0 TO 7 LET C=-I*360/8-22.5 DRAW shikaku38 WITH ROTATE(C) NEXT I
DATA "ﾄ","ﾋ","ｶ","ﾒ","ｫ","ﾎ","ﾀ","ﾐ" DATA "ｲ","ﾓ","ｼ","ﾌ","ｦ","ｱ","ﾍ","ｽ" DATA "ｷ","ﾁ","ｺ","ｵ","ｧ","ﾅ","ﾇ","ﾑ","ﾖ","ｿ","ﾔ","ﾊ","ｴ","ﾈ","ﾕ","ﾂ" DATA "ﾆ","ﾘ","ｹ","ﾚ","ｻ","ﾜ","ｳ","ｸ","ﾛ","ﾉ","ﾏ","ﾗ","ﾃ","ｾ","ｩ","ﾙ" END SUB
EXTERNAL SUB houju4(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TP9,TP10,TP11,TP12,TP13,TP14,TP15,TP16,TR1,TR2,TH1,TH2,TH3,TH4) OPTION ANGLE DEGREES DIM X(5),Y(5)
PICTURE shikaku40 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT1 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku41 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT2 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku42 REM ひふみ渦巻き (大) FOR I=315 TO 674 STEP 45 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku43 REM あわ渦巻き(小) FOR I=315 TO 674 STEP 45 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku44 REM ひふみ渦巻き (小) FOR I=315 TO 674 STEP 45 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku45 REM あわ渦巻き(大) FOR I=315 TO 674 STEP 45 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku46 REM あわ渦巻き(小) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku43 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku47 REM ひふみ渦巻き(大) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku42 WITH ROTATE(-22.5) END PICTURE
PICTURE shikaku48 REM ひふみ渦巻き(小) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku44 WITH ROTATE(-22.5) END PICTURE
PICTURE shikaku49 REM あわ渦巻き(大) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku45 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku50 PLOT LINES: TP1,TP2;TP3,TP4 PLOT LINES: TP5,TP6;TP7,TP8 LET D=TR1 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
FOR J=0 TO 346 STEP 15 RESTORE DRAW shikaku50 WITH SHIFT(0,TH1)*ROTATE(J) DRAW shikaku50 WITH ROTATE(180)*SHIFT(0,TH2)*ROTATE(J) DRAW shikaku46 WITH SHIFT(0,TH1)*ROTATE(J) DRAW shikaku47 WITH SHIFT(0,TH2)*ROTATE(J) LET K=J+7.5 DRAW shikaku50 WITH SHIFT(0,TH3)*ROTATE(K) DRAW shikaku50 WITH ROTATE(180)*SHIFT(0,TH4)*ROTATE(K) DRAW shikaku48 WITH SHIFT(0,TH3)*ROTATE(K) DRAW shikaku49 WITH SHIFT(0,TH4)*ROTATE(K) NEXT J
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ" DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ" DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ" DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ" DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ" DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ" DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ" DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ" DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ" DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ" DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
END SUB
EXTERNAL SUB houju5(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TR1,TH5,TH6)
OPTION ANGLE DEGREES DIM X(5),Y(5)
PICTURE shikaku40 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT1 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku41 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT2 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku42 REM ひふみ渦巻き (大) FOR I=315 TO 674 STEP 45 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku43 REM あわ渦巻き(小) FOR I=315 TO 674 STEP 45 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku44 REM ひふみ渦巻き (小) FOR I=315 TO 674 STEP 45 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku45 REM あわ渦巻き(大) FOR I=315 TO 674 STEP 45 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku46 REM あわ渦巻き(小) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku43 WITH ROTATE(135) END PICTURE
PICTURE shikaku47 REM ひふみ渦巻き(大) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku42 WITH ROTATE(45) END PICTURE
PICTURE shikaku50 PLOT LINES: TP1,TP2;TP3,TP4 PLOT LINES: TP5,TP6;TP7,TP8 LET D=TR1 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 shikaku60 DRAW shikaku50 WITH ROTATE(0)*SHIFT(0,0)*ROTATE(91.885) !91.875 DRAW shikaku50 WITH ROTATE(180)*SHIFT(0,TH5)*ROTATE(91.885) !91.875 DRAW shikaku46 WITH ROTATE(0)*SHIFT(0,0)*ROTATE(91.885) !91.875 DRAW shikaku47 WITH ROTATE(180)*SHIFT(0,TH5)*ROTATE(91.885) !91.875 END PICTURE
PICTURE shikaku61 DRAW shikaku60 WITH SHIFT(0,TH6) END PICTURE
PICTURE shikaku62 DRAW shikaku61 WITH ROTATE(1.55) END PICTURE
FOR J=0 TO 346 STEP 15 RESTORE DRAW shikaku62 WITH ROTATE(J) LET K=J+7.5 RESTORE DRAW shikaku62 WITH ROTATE(K) NEXT J
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ" DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ" DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ" DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ" DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ" DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
END SUB
EXTERNAL SUB houju6(TT1,TT2,TT3,TT4,TT5,TT6,TP1,TP2,TP3,TP4,TP5,TP6,TP7,TP8,TP9,TP10,TP11,TP12,TP13,TP14,TP15,TP16,TR1,TR2,TH1,TH2,TH3,TH4) OPTION ANGLE DEGREES DIM X(5),Y(5)
PICTURE shikaku40 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT1 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku41 SET TEXT FONT "TCM Daiichi Shoji Character" ,TT2 READ B$ SET TEXT ANGLE E PLOT TEXT,AT 0,A:B$ END PICTURE
PICTURE shikaku42 REM ひふみ渦巻き (大) FOR I=315 TO 674 STEP 45 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT3 LET A=F LET C=I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku43 REM あわ渦巻き(小) FOR I=315 TO 674 STEP 45 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT4 LET A=F LET C=-I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku44 REM ひふみ渦巻き (小) FOR I=315 TO 674 STEP 45 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT5 LET A=F LET C=I DRAW shikaku40 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku45 REM あわ渦巻き(大) FOR I=315 TO 674 STEP 45 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=675 TO 1034 STEP 22.5 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I
FOR I=1035 TO 1394 STEP 15 LET F=I/TT6 LET A=F LET C=-I DRAW shikaku41 WITH ROTATE(C) NEXT I END PICTURE
PICTURE shikaku46 REM あわ渦巻き(小) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku43 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku47 REM ひふみ渦巻き(大) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku42 WITH ROTATE(-22.5) END PICTURE
PICTURE shikaku48 REM ひふみ渦巻き(小) SET TEXT JUSTIFY "center" , "bottom" LET E=0 DRAW shikaku44 WITH ROTATE(-22.5) END PICTURE
PICTURE shikaku49 REM あわ渦巻き(大) SET TEXT JUSTIFY "center" , "cap" LET E=180 DRAW shikaku45 WITH ROTATE(202.5) END PICTURE
PICTURE shikaku50 PLOT LINES: TP1,TP2;TP3,TP4 PLOT LINES: TP5,TP6;TP7,TP8 LET D=TR1 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
FOR J=0 TO 346 STEP 15 RESTORE DRAW shikaku50 WITH SHIFT(0,TH1)*ROTATE(J) DRAW shikaku46 WITH SHIFT(0,TH1)*ROTATE(J) LET K=J+7.5 DRAW shikaku50 WITH SHIFT(0,TH3)*ROTATE(K) DRAW shikaku48 WITH SHIFT(0,TH3)*ROTATE(K) NEXT J
DATA "ｱ","ｶ","ﾊ","ﾅ","ﾏ","ｲ","ｷ","ﾋ" DATA "ﾆ","ﾐ","ｳ","ｸ","ﾌ","ﾇ","ﾑ","ｴ" DATA "ｹ","ﾍ","ﾈ","ﾒ","ｵ","ｺ","ﾎ","ﾉ" DATA "ﾓ","ﾄ","ﾛ","ｿ","ﾖ","ｦ","ﾃ","ﾚ" DATA "ｾ","ｫ","ﾂ","ﾙ","ｽ","ﾕ","ｩ","ﾁ" DATA "ﾘ","ｼ","ｧ","ﾀ","ﾗ","ｻ","ﾔ","ﾜ"
DATA "ﾋ","ﾌ","ﾐ","ﾖ","ｲ","ﾑ","ﾅ","ﾔ" DATA "ｺ","ﾄ","ﾓ","ﾁ","ﾛ","ﾗ","ﾈ","ｼ" DATA "ｷ","ﾙ","ﾕ","ｧ","ﾂ","ﾜ","ﾇ","ｿ" DATA "ｦ","ﾀ","ﾊ","ｸ","ﾒ","ｶ","ｳ","ｵ" DATA "ｫ","ﾆ","ｻ","ﾘ","ﾍ","ﾃ","ﾉ","ﾏ" DATA "ｽ","ｱ","ｾ","ｴ","ﾎ","ﾚ","ｹ","ｩ"
