Draw e Fill

Con Draw… disegna il contorno esterno, con Fill… colora l’interno

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)