PR
Keyword Search
▼キーワード検索
慶夢
2D・3DCGの画像を掲載しています。
Calendar
Category
カテゴリ未分類
(1145)お薦めのページ
(0)3ＤCG文字ギャラリー
(33)民話
(1)初心者向け３DCG講座
(3)２Ｄ+３Ｄで描く好き勝手文字
(129)私事
(13)簡単アニメ
(34)習字
(8) January 14, 2005
カテゴリ： カテゴリ未分類
１月11日「BasicによるCG画像」として日記を書いた。
私のパソコンにあるBasicは大分古いもののようで
新しいバージョンに変えようとして探したが
「Ｎ88互換BASIC for Windows95」はすでに無く
「ActiveBasic」は前はWindowsの中のMS-DOSで動いていたのが
完全Windows版に変わっていたのである。
それによって若干プログラムの手直しが必要である。
その手直し部分に付いての要点を記す。
関数（Sqr,Sin,Cosなど)はこのように大文字、小文字の
かたちにしなければならない。
プログラムがコードのようなかたちであるとEND文をつけると結果が表示されてもすぐ消えてしまう。
結果として表示が無いことになる。よってEND文は止める。
以前はインタープリター型であったがコンパイル型になった。
実行するのにデバッグコンパイルとリリースコンパイルをして
拡張子.EXEのファイルを作成する必要がある。
コンパイル型なので実行すると、とにかく早い。
これらのことが今日、分かったことである。
実際に試した方いらしたら本当に申し訳ないことであった。
深くお詫びしたい。
画像-1
コード-1
#N88BASIC
5 '図形-1
10 CLS 3
20 DIM TH,D,X,Y,KAKU
30 FOR KAKU=0 TO 360 STEP 5
40 TH=0.0174532*KAKU
50 D=50*Sqr(2-2*Cos(TH))
60 X=50*Cos(TH)+200
70 Y=50*Sin(TH)+150
80 CIRCLE (X,Y),D
90 NEXT KAKU
画像-2
コード-2
#N88BASIC
10 '図形-2 リサージュ図形
20 Cls 3
25 DIM X,Y,KAKU,GX,GY,P,R,G
30 P=3.14159:R=100:G=0
40 FOR KAKU=0 TO 5.1*P STEP P/20
50 X=R*Sin(KAKU+P/2)
60 Y=R*Cos(KAKU+P/2)^2
65 GX=150+X:GY=150-Y
66 IF G=0 THEN Pset(GX,GY):G=1
67 Line-(GX,GY)
80 R=R-2
90 NEXT KAKU
コード-3
#N88BASIC
5 '図形-3 リサージュ
10 DIM PI
20 DIM I,T,G
30 DIM X,Y
40 '
50 PI=3.14159:G=0
60 '
70 FOR I=0 TO 360 STEP 2
80 T=(PI/180)*I
90 X=Cos(3*T)*100+150
100 Y=Sin(4*T)*100+150
110 IF G=0 THEN Pset(X,Y):G=1
120 Line-(X,Y)
130 NEXT I
この図形は知っている人には有名なリサージュ図形で
このようなプログラムで描けるということのため掲載した。
「Ｎ８８互換ＢＡＳＩＣ for Windows95」 はすでにないです。
「Active Basic3.1」 から ab312.exe をダウンロードしてください。
私のパソコンにあるBasicは大分古いもののようで
新しいバージョンに変えようとして探したが
「Ｎ88互換BASIC for Windows95」はすでに無く
「ActiveBasic」は前はWindowsの中のMS-DOSで動いていたのが
完全Windows版に変わっていたのである。
それによって若干プログラムの手直しが必要である。
その手直し部分に付いての要点を記す。
関数（Sqr,Sin,Cosなど)はこのように大文字、小文字の
かたちにしなければならない。
プログラムがコードのようなかたちであるとEND文をつけると結果が表示されてもすぐ消えてしまう。
結果として表示が無いことになる。よってEND文は止める。
以前はインタープリター型であったがコンパイル型になった。
実行するのにデバッグコンパイルとリリースコンパイルをして
拡張子.EXEのファイルを作成する必要がある。
コンパイル型なので実行すると、とにかく早い。
これらのことが今日、分かったことである。
実際に試した方いらしたら本当に申し訳ないことであった。
深くお詫びしたい。
画像-1
コード-1
#N88BASIC
5 '図形-1
10 CLS 3
20 DIM TH,D,X,Y,KAKU
30 FOR KAKU=0 TO 360 STEP 5
40 TH=0.0174532*KAKU
50 D=50*Sqr(2-2*Cos(TH))
60 X=50*Cos(TH)+200
70 Y=50*Sin(TH)+150
80 CIRCLE (X,Y),D
90 NEXT KAKU
画像-2
コード-2
#N88BASIC
10 '図形-2 リサージュ図形
20 Cls 3
25 DIM X,Y,KAKU,GX,GY,P,R,G
30 P=3.14159:R=100:G=0
40 FOR KAKU=0 TO 5.1*P STEP P/20
50 X=R*Sin(KAKU+P/2)
60 Y=R*Cos(KAKU+P/2)^2
65 GX=150+X:GY=150-Y
66 IF G=0 THEN Pset(GX,GY):G=1
67 Line-(GX,GY)
80 R=R-2
90 NEXT KAKU
コード-3
#N88BASIC
5 '図形-3 リサージュ
10 DIM PI
20 DIM I,T,G
30 DIM X,Y
40 '
50 PI=3.14159:G=0
60 '
70 FOR I=0 TO 360 STEP 2
80 T=(PI/180)*I
90 X=Cos(3*T)*100+150
100 Y=Sin(4*T)*100+150
110 IF G=0 THEN Pset(X,Y):G=1
120 Line-(X,Y)
130 NEXT I
この図形は知っている人には有名なリサージュ図形で
このようなプログラムで描けるということのため掲載した。
「Ｎ８８互換ＢＡＳＩＣ for Windows95」 はすでにないです。
「Active Basic3.1」 から ab312.exe をダウンロードしてください。
お気に入りの記事を「いいね！」で応援しよう
Last updated
January 14, 2005 04:15:10 PM
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
