Bandiere – 1

Comincia utilizzando le funzioni di base

• GraphicsWindow.BrushColor=”…”
• GraphicsWindow.DrawLine(x1,y1, x2,y2)
• GraphicsWindow.FillEllipse(x,y, w,h)
• GraphicsWindow.FillRectangle(x,y, w,h)
• GraphicsWindow.FillTriangle(x1,y1, x2,y2, x3,y3)

Un cerchio

W=600
H=400
W2=W/2
H2=H/2
R=100  ' Raggio cerchio
D=2*R  ' Diametro

GraphicsWindow.Width =W
GraphicsWindow.Height=H
GraphicsWindow.Title ="Giappone"

GraphicsWindow.BrushColor="Red"
GraphicsWindow.FillEllipse(W2-R,H2-R, D,D)

Tre strisce in verticale

W  =600  ' Larghezza finestra
H  =400  ' Altezza finestra
W3 =W/3  ' Un terzo della larghezza
W23=2*W3 ' Due terzi della larghezza

GraphicsWindow.Width =W
GraphicsWindow.Height=H
GraphicsWindow.Title ="Italia"

GraphicsWindow.BrushColor="Green"
GraphicsWindow.FillRectangle(0,0, W3, H)
GraphicsWindow.BrushColor="Red"
GraphicsWindow.FillRectangle(W23,0, W3, H)

Tre strisce in orizzontale

W  =600
H  =400
H3 =H/3
H23=2*H3

GraphicsWindow.Width =W
GraphicsWindow.Height=H
GraphicsWindow.Title ="Germania"

GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillRectangle(0,0, W,H3)
GraphicsWindow.BrushColor="Red"
GraphicsWindow.FillRectangle(0,H3, W,H3)
GraphicsWindow.BrushColor="Yellow"
GraphicsWindow.FillRectangle(0,H23, W,H3)

Tre strisce in orizzontale + un triangolo

W=600
H=300
H2 =H/2
H3 =H/3
H23=2*H3
WH =Math.SquareRoot(3)/2*H  ' Altezza del triangolo equilatero

GraphicsWindow.Width =W
GraphicsWindow.Height=H
GraphicsWindow.Title ="Bahamas"

GraphicsWindow.BrushColor="Cyan"
GraphicsWindow.FillRectangle(0,  0, W,H3)
GraphicsWindow.FillRectangle(0,H23, W,H3)
GraphicsWindow.BrushColor="Yellow"
GraphicsWindow.FillRectangle(0, H3, W,H3)
GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillTriangle(0,0, 0,H, WH,H2)