I poligoni regolari da 3 a 25 lati DIM=800 GraphicsWindow.Height=DIM GraphicsWindow.Width =DIM GraphicsWindow.PenColor=”#66000066″ xC=DIM/2 yC=DIM/2 raggio=0.4*DIM For numeroLati=3 to 25 deltaAngolo=2*Math.Pi/numeroLati angolo=0 x1=xC+raggio*Math.Cos(angolo) y1=yC+raggio*Math.Sin(angolo) For… Leggi tutto »Da 3 a 25 lati
Il mirino segue il puntatore del mouse GraphicsWindow.BackgroundColor=”Black” w =GraphicsWindow.Width h =GraphicsWindow.Height r1=10 d1=2*r1 r2=20 d2=2*r2 While “true” wm=GraphicsWindow.MouseX hm=GraphicsWindow.MouseY GraphicsWindow.Clear() GraphicsWindow.PenColor=”white” GraphicsWindow.DrawLine( 0, hm,… Leggi tutto »Mirino
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)