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)