2008年4月6日 星期日

幾何圖



程式~
小畫家~
程式部份



size(800,600);
background(128,255,255);
noStroke();
fill(255);
ellipse(700,60,180,40);
ellipse(350,79,200,40);

fill(255,255,128);
ellipse(130,79,100,100);

fill(0,255,0);
ellipse(150,600,550,800);
ellipse(600,600,500,1000);
triangle(390,330,250,227,300,350);

fill(0,0,255);
stroke( 0 );
quad(360,305,390,330,350,600,230,600);



fill(255,255,128);
ellipse(130,79,100,100);

fill(128,64,0);
rect(80,425,35,130);
rect(150,425,37,170);
rect(197,305,31,205);
rect(670,305,26,124);
rect(690,505,35,124);



fill(0,240,120);
triangle(100,300,40,450,180,450);
triangle(205,250,275,400,150,400);
triangle(160,350,90,500,240,500);


triangle(500,200,400,390,600,390);
fill(128,64,0);
rect(400,305,31,205);
fill(0,240,120);
triangle(410,225,350,380,480,380);
triangle(670,180,600,330,750,330);
triangle(720,375,650,530,790,530);
triangle(600,250,500,400,700,400);



fill(255,0,0);
triangle(350,425,525,325,700,425);
fill(128,64,0);
rect(380,425,300,200);
fill(255,255,0);
rect(425,485,75,150);
fill(255);
ellipse(490,545,8,8);
fill(0,128,255);
rect(550,450,80,80);
line(550,490,630,490);
line(590,450,590,530);

沒有留言: