ポリゴンでお絵かき1 ヤマサキ 2003/09/26 20:11:05
ポリゴンでお絵かき1 ヤマサキ 2003/09/26 20:11:05 ツリーへ
ポリゴンでお絵かき1 |
返事を書く |
ヤマサキ 2003/09/26 20:11:05 | |
初めて投稿します。二児の母です。子供も使えるプログラムをと思い 「木村良夫氏著作:パソコンを遊ぶ簡単プログラミング」 を参考に、簡単なお絵かきプログラムを書いてみました。 あまりスマートではありませんが、とりあえず 「いろいろな多角形を次々に描いて、色はパソコンまかせ」という アイデアを実現できました。よろしかったら皆さんもお試しください。 色とりどりの紙をハサミで切って貼り付けるような感覚の絵になります。 ところで、340行目のプロットエリアの命令はこれ以外に書きようが ないのでしょうか。FOR NEXT文が使えたらと思うのですが、うまく できませんでした。お教えください。 ポリゴンでお絵かき1及び2でフ゜ロク゛ラムを書きこみます。 REM *** ポリゴンでお絵かき !マウスクリックで頂点を指定してゆき、最後に始点をクリックして !多角形を閉じます。頂点の数は最大100までです。 !一つの多角形を描き終わった後、次の多角形を描く前に !右上の青い三角形内をクリックするとそれまでに描いた図形を消します。 !すべての多角形を描き終えたら、左下の赤い三角形内をクリック !してプログラムを終了させてください。 !いろいろな多角形の組み合わせで絵や文字を描くことができます。 !多角形の色は乱数まかせです。思わぬ色の組み合わせが楽しめます。 !始点と終点がうまく重ならないときは230行目の数値「0.04」を !「0.08」くらいまでの値に調整してみてください。 |