Cerchi annidati con raggio e colore decrescenti DIM=800 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM/2 yc=DIM/2 diametro=0.8*DIM For i=1 To 25 raggio=diametro/2 GraphicsWindow.BrushColor=”#2000000f” GraphicsWindow.FillEllipse(xc-raggio,yc-raggio,diametro,diametro) diametro=0.9*diametro Program.Delay(100) EndFor Se… Leggi tutto »Cerchi annidati
Considera i tre punti nel piano Utilizzeremo le regole dal Chaos game per realizzare il triangolo di Sierpinski. Week 9 – Advanced Challenge Write a… Leggi tutto »Chaos game – 1
2 diagonali 2 perpendicolari Diagonali e perpendicolari w=GraphicsWindow.Width h=GraphicsWindow.Height w2=w/2 h2=h/2 GraphicsWindow.DrawLine( 0, 0, w, h) GraphicsWindow.DrawLine( 0,h2, w,h2) GraphicsWindow.DrawLine(w2, 0,w2, h)
Un pallino colorato a ogni clic del mouse GraphicsWindow.BackgroundColor=”Black” GraphicsWindow.MouseDown=PALLINO r=5 d=2*r Sub PALLINO x=GraphicsWindow.MouseX y=GraphicsWindow.MouseY c=GraphicsWindow.GetRandomColor() GraphicsWindow.BrushColor=c GraphicsWindow.FillEllipse(x-r, y-r, d, d) Endsub Una linea… Leggi tutto »Linee e pallini 2
500 linee 500 pallini 250 linee e pallini DIMX=800 DIMY=450 spazio=25 spazio2=2*spazio spazioX=DIMX-spazio2 spazioY=DIMY-spazio2 w2=DIMX/2 h2=DIMy/2 GraphicsWindow.Width =DIMX GraphicsWindow.Height=DIMY For i=1 To 500 x=Math.GetRandomNumber(spazioX)+spazio y=Math.GetRandomNumber(spazioY)+spazio… Leggi tutto »Linee e pallini