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

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

ちー達からのX'masプレゼントでーす。\(^o^)/

2017-12-06 19:53:03 | 日記

ちー達からのX'masプレゼントでーす。\(^o^)/

 

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

 

 

ちー達からのX'masプレゼントでーす。
基本宝珠(あわ/ひふみ)です。
良かったら見てね。(*^_^*)


・あわ宝珠(第一象字文字タイプ)

・ひふみ宝珠(第一象字文字タイプ) 

 ・その他のX'masプレゼントです。
  No.1
  No.2



・あわ宝珠(第一象字文字タイプ)プログラム for 十進BASICシステム

PICTURE shikaku2
REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、
REM そして、フォントの大きさと"ん"の字があるかに注意してください。
REM "ん"の字がない場合、わ行の"う(wu)"を代用します。
REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
REM SET TEXT FONT "TCM Moritsune Character" ,66
SET TEXT FONT "TCM Daiichi Shoji Character" ,64
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE


PICTURE shikaku3
FOR I=360 TO 719 STEP 45
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/4
LET XX=F*SIN(I)
LET YY=F*COS(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I
END PICTURE


PICTURE shikaku52
REM 宝珠(ひふみ/あわ)

REM PLOT LINES: 684,395;-684,395
REM PLOT LINES: 684,395;0,-790
REM PLOT LINES: -684,395;0,-790
REM 内接円の場合は下記の2行の代わりに上記の3行

PLOT LINES: 342,-199;0,-790
PLOT LINES: -342,-199;0,-790

LET D=395

LET XX=D*COS(-30)
LET YY=D*SIN(-30)
FOR I=-28.8 TO 210 STEP 0.2

REM 内接円の場合には上記3行の代わりに上記の3行
REM LET XX=D*COS(0)
REM LET YY=D*SIN(0)
REM 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


SET BITMAP SIZE 1601,1601
SET WINDOW -800,800,-800,800
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"

LET A=0
LET E=-125
DRAW shikaku3 WITH ROTATE(125)
DRAW shikaku52 WITH ROTATE(180)


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

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

END



・ひふみ宝珠(第一象字文字タイプ)プログラム for 十進BASICシステム

PICTURE shikaku2
REM 他のフォント使用時はSET TEXT FONT文の所を変えてください、
REM そして、フォントの大きさと"ん"の字があるかに注意してください。
REM "ん"の字がない場合、わ行の"う(wu)"を代用します。
REM SET TEXT FONT "フォントのファイル名" ,フォントの大きさの値
REM SET TEXT FONT "TCM Moritsune Character" ,66
REM SET TEXT FONT "TCM Izumo Character" ,60
SET TEXT FONT "TCM Daiichi Shoji Character" ,64
READ B$
SET TEXT ANGLE E
PLOT TEXT,AT 0,A:B$
END PICTURE


PICTURE shikaku3
FOR I=360 TO 719 STEP 45
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=720 TO 1079 STEP 22.5
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I

FOR I=1080 TO 1439 STEP 15
LET F=I/4
LET XX=F*COS(I)
LET YY=F*SIN(I)
DRAW shikaku2 WITH SHIFT(XX,YY)
NEXT I
END PICTURE


PICTURE shikaku52
REM 宝珠(ひふみ/あわ)

REM PLOT LINES: 684,395;-684,395
REM PLOT LINES: 684,395;0,-790
REM PLOT LINES: -684,395;0,-790
REM 内接円の場合は下記の2行の代わりに上記の3行

PLOT LINES: 342,-199;0,-790
PLOT LINES: -342,-199;0,-790

LET D=395

LET XX=D*COS(-30)
LET YY=D*SIN(-30)
FOR I=-28.8 TO 210 STEP 0.2

REM 内接円の場合には上記3行の代わりに上記の3行
REM LET XX=D*COS(0)
REM LET YY=D*SIN(0)
REM 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


SET BITMAP SIZE 1601,1601
SET WINDOW -800,800,-800,800
SET POINT STYLE 1
SET LINE COLOR 1
OPTION ANGLE DEGREES
REM SET TEXT JUSTIFY文↓を追加してみました
SET TEXT JUSTIFY "center" , "half"

LET A=0
LET E=-325
DRAW shikaku3 WITH ROTATE(145)
DRAW shikaku52


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

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

END



 

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

 


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

 


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

コメント