Vai al contenuto

Bandiere – 2

Alle figure geometriche di base aggiungi delle immagini

  • img=ImageList.LoadImage(“…”)
  • GraphicsWindow.DrawImage(img, x,y)
  • GraphicsWindow.DrawResizedImage(img, x,y, w,h)

Alle figure di base bisogna aggiungere una stella bianca.
Prepara l’immagine della stella e salvala nella stessa cartella del codice Small Basic.

W=600
H=300
H2 =H/2
H5 =H/5
H25=2*H5
H45=4*H5
WH =Math.SquareRoot(3)/2*H

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

GraphicsWindow.BrushColor="Blue"
GraphicsWindow.FillRectangle(0,  0, W,H5)
GraphicsWindow.FillRectangle(0,H25, W,H5)
GraphicsWindow.FillRectangle(0,H45, W,H5)
GraphicsWindow.BrushColor="Red"
GraphicsWindow.FillTriangle(0,0, 0,H, WH,H2)

DIM=80 ' Dimensione immagine 
WI =50 ' Ascissa 
HI =H2-DIM/2 ' Ordinata 

stella=ImageList.LoadImage(Program.Directory+"\stella-b.png")
GraphicsWindow.DrawResizedImage(stella, WI,HI, DIM,DIM)

Continua…

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.