Con Draw… disegna il contorno esterno, con Fill… colora l’interno
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
W=GraphicsWindow.Width H=GraphicsWindow.Height spazio =25 larghezza=(W-4*spazio)/3 altezza =(H-4*spazio)/3 x1= spazio y1= spazio x2=2*spazio+ larghezza y2=2*spazio+ altezza x3=3*spazio+2*larghezza y3=3*spazio+2*altezza GraphicsWindow.PenColor ="#33000000" GraphicsWindow.PenWidth =1 GraphicsWindow.DrawLine(0, spazio , W, spazio ) GraphicsWindow.DrawLine(0, y1 , W, y1 ) GraphicsWindow.DrawLine(0, y2-spazio, W, y2-spazio) GraphicsWindow.DrawLine(0, y2 , W, y2 ) GraphicsWindow.DrawLine(0, y3-spazio, W, y3-spazio) GraphicsWindow.DrawLine(0, y3 , W, y3 ) GraphicsWindow.DrawLine(0, H-spazio , W, H-spazio ) Program.Delay(500) GraphicsWindow.DrawLine(spazio , 0, spazio , H) GraphicsWindow.DrawLine(x1 , 0, x1 , H) GraphicsWindow.DrawLine(x2-spazio, 0, x2-spazio, H) GraphicsWindow.DrawLine(x2 , 0, x2 , H) GraphicsWindow.DrawLine(x3-spazio, 0, x3-spazio, H) GraphicsWindow.DrawLine(x3 , 0, x3 , H) GraphicsWindow.DrawLine(W-spazio , 0, W-spazio , H) Program.Delay(500) GraphicsWindow.PenColor ="Blue" GraphicsWindow.PenWidth =3 GraphicsWindow.BrushColor="Cyan" GraphicsWindow.DrawTriangle (x1,y1+altezza, x1+larghezza,y1+altezza, x1+larghezza/2,spazio) GraphicsWindow.DrawRectangle(x1,y2 , larghezza,altezza) GraphicsWindow.DrawEllipse (x1,y3 , larghezza,altezza) Program.Delay(500) GraphicsWindow.FillTriangle (x2,y1+altezza, x2+larghezza,y1+altezza, x2+larghezza/2,spazio) GraphicsWindow.FillRectangle(x2,y2 , larghezza,altezza) GraphicsWindow.FillEllipse (x2,y3 , larghezza,altezza) Program.Delay(500) GraphicsWindow.FillTriangle(x3,y1+altezza, x3+larghezza,y1+altezza, x3+larghezza/2,spazio) GraphicsWindow.FillRectangle(x3,y2, larghezza,altezza) GraphicsWindow.FillEllipse(x3,y3, larghezza,altezza) Program.Delay(500) GraphicsWindow.DrawTriangle(x3,y1+altezza, x3+larghezza,y1+altezza, x3+larghezza/2,spazio) GraphicsWindow.DrawRectangle(x3,y2, larghezza,altezza) GraphicsWindow.DrawEllipse(x3,y3, larghezza,altezza) |