掲示板 > Tiny Basic for Windows

四角形の画き方教えて

(1/5) > >>

kikiriri:
広場にも書いたんですが。
四角形の画き方がわかりません。
helpを見てもできませんでした。

ヤッホー:
出来ましたが
もっと、スマートな方法を教えてください。

gscreen(640,320)

circle(150,150),125,0

circle(150,150),62.5,2

circle(150,150),31.25,4

circle(150,150),15.625,6

line(150,150)-(275,150),8

line(150,150)-(150,275),10

circle(150,150),6,12

circle(150,150),3,16

circle(150,150),1.5,0


line(25,25)-(275,25)
line(25,25)-(25,275)
line(275,275)-(25,275)
line(275,275)-(275,25)

takeuchi:
Line (x1,y1)-(x2,y2),,B
で四角形が書けます。「BASIC入門」－「グラフィック操作」18ページに書いてあります。
Help の Line の項目にも説明があります。

line(25,25)-(275,25)
line(25,25)-(25,275)
line(275,275)-(25,275)
line(275,275)-(275,25)

は，
line(25,25)-(275,275),,B
で実現されます。

それから，
circle(150,150),125,0
circle(150,150),62.5,2
circle(150,150),31.25,4
circle(150,150),15.625,6
circle(150,150),6,12
circle(150,150),3,16
circle(150,150),1.5,0

のように似た命令が並んでいるときは， 適当な変数を導入してFor文などの繰り返し文で
一気に書くように工夫してみましょう。

kikiriri:
ご返信

ありがとうございました。

そーなんですよね、対角線の座標を与えれば、四角かけた記憶があるなと思ってました。

line文で書くのですね。

helpをもっと利用しなくちゃと思いました。

だけど、正方形が円に外接するように描けてとてもうれしかったですよ。

これからもよろしくお願いします。

あと円ですが、点の代わりになるものをと、小さくしながら、どのくらいの半径がちょうどいいか試行錯誤しました。

なので、半径を少しずつ小さくして、for文を用いるなんて発想として思い浮かびませんでした。

Pset文ではどうですか。

小さな点を大きな点にする方法ってありますか？

kikiriri:
gscreen(640,320)

for r=0 to 125 step 5

circle(150,150),r,0

next r

line(25,25)-(275,275),5,b

だいぶシンプルでわかりやすくなりました。

ご助言ありがとうございました。

Navigation

[0] Message Index

[#] Next page