図形に色を塗りたいのですが

 投稿者：きくりん  投稿日：2012年 7月25日(水)20時53分43秒
  正十二角形を敷き詰めるように書いて、四種類の色が四つの十二角形に一種類ずつ塗られるような感じで、それが敷き詰められていくようにしたいのですがどうしたらよいでしょうか？（例えば、田という字の線で囲まれたスペースに四種類の色を塗っていったものを敷き詰めるような感じを十二角形の敷き詰めでやりたいのです。分かりづらい説明で申し訳ありません…。）
そもそもこのプログラムでできますでしょうか？以下、十二角形を書いたものです。
SET WINDOW -100,100,-100,100
SET LINE width 3
LET a=10
LET n=12
LET m=SQR(3)
PICTURE dodecagon
   FOR t=0 TO n-1
      LET h=2*PI/n*t
      PLOT LINES : a*COS(h),a*sin(h);
   NEXT t
   PLOT LINES : a,0
END PICTURE
FOR i=-10 TO 10
   FOR j=-10 TO 10
      DRAW dodecagon WITH SHIFT (3*a*i/2,-m*a*i/2+m*a*j)
   NEXT j
NEXT i
END
 		 

Re: 図形に色を塗りたいのですが

 投稿者：山中和義  投稿日：2012年 7月25日(水)22時22分47秒
  > No.1927[元記事へ]

きくりんさんへのお返事です。

> 正十二角形を敷き詰めるように書いて、四種類の色が四つの十二角形に一種類ずつ塗られるような感じで、それが敷き詰められていくようにしたいのですがどうしたらよいでしょうか？

こんな感じでしょうか？


SET WINDOW -100,100,-100,100
LET a=10
LET n=6
LET m=SQR(3)
DIM x(0 TO n),Y(0 TO n)
PICTURE dodecagon
   FOR t=0 TO n-1
      LET h=2*PI/n*t
      LET x(t)=a*COS(h)
      LET y(t)=a*SIN(h)
   NEXT t
   MAT PLOT AREA, LIMIT n: x,y
END PICTURE
FOR i=-10 TO 10
   FOR j=-10 TO 10
      SET AREA COLOR MOD(i+j,4)+1
      DRAW dodecagon WITH SHIFT (3*a*i/2,-m*a*i/2+m*a*j)
   NEXT j
NEXT i
END
 

Re: 図形に色を塗りたいのですが

 投稿者：きくりん  投稿日：2012年 7月25日(水)22時34分39秒
  > No.1928[元記事へ]

山中和義さんへのお返事です。

助かりました！正六角形の敷き詰めを参考にしていたので、さすがに十二角形だとブサイクな敷き詰めですね(^_^;)
でも三角形とか綺麗でした。
ありがとうございました。 		 

戻る