Considera due strisce disposte a formare un angolo retto.
Su ogni striscia ci sono 50 chiodini a distanza fissa.
Unisci i punti con del filo…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
'------------------------------------------------------------------- COSTANTI DIM =800 spazio =50 dBARRA =DIM-spazio-spazio nCHIODI=50 delta =dBARRA/(nCHIODI+1) RITARDO=50 '------------------------------------------------------------------- Posizioni dei chiodini X[1]=spazio+delta For i=2 To nCHIODI X[i]=X[i-1]+delta EndFor '------------------------------------------------------------------- Finestra GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti..." '------------------------------------------------------------------- Strisce GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#660000FF" GraphicsWindow.DrawLine(spazio, DIM-spazio, DIM-spazio, DIM-spazio) GraphicsWindow.DrawLine(spazio, spazio , spazio , DIM-spazio) '------------------------------------------------------------------- Chiodini GraphicsWindow.BrushColor="#000000" For i=1 To nCHIODI GraphicsWindow.FillEllipse(X[i]-2, DIM-spazio-2, 4, 4) GraphicsWindow.FillEllipse(spazio, X[i]-2 , 4, 4) EndFor Program.Delay(RITARDO) '------------------------------------------------------------------- Filo... GraphicsWindow.PenWidth=2 GraphicsWindow.PenColor="#66000000" For i=1 To nCHIODI GraphicsWindow.DrawLine(X[i], DIM-spazio, spazio, X[i]) Program.Delay(RITARDO) EndFor |
Continua…
Disponi le strisce a croce e unisci i punti
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
'------------------------------------------------------------------------ COSTANTI DIM =800 DIM2 =DIM/2 spazio =50 dBARRA =DIM-spazio-spazio nCHIODI =50 nCHIODI2=nCHIODI/2 delta =dBARRA/(nCHIODI+1) RITARDO =50 '------------------------------------------------------------------------ Posizioni dei chiodini X[1]=spazio+delta For i=2 To nCHIODI X[i]=X[i-1]+delta EndFor '------------------------------------------------------------------------ Finestra GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti..." '------------------------------------------------------------------------ Strisce GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#660000FF" GraphicsWindow.DrawLine(spazio,DIM2 , DIM-spazio,DIM2 ) GraphicsWindow.DrawLine(DIM2 ,spazio, DIM2 ,DIM-spazio) '------------------------------------------------------------------------ Chiodini GraphicsWindow.BrushColor="#000000" For i=1 To nCHIODI GraphicsWindow.FillEllipse(X[i]-2,DIM2-2, 4,4) GraphicsWindow.FillEllipse(DIM2-2,X[i]-2, 4,4) EndFor Program.Delay(RITARDO) '------------------------------------------------------------------------ Filo... GraphicsWindow.PenWidth=2 GraphicsWindow.PenColor="#66000000" For i=1 To nCHIODI2 GraphicsWindow.DrawLine(X[nCHIODI -i+1], DIM2, DIM2, X[nCHIODI2-i+1]) ' NE GraphicsWindow.DrawLine(X[nCHIODI2-i+1], DIM2, DIM2, X[i ]) ' NO GraphicsWindow.DrawLine(X[i ], DIM2, DIM2, X[nCHIODI2+i ]) ' SO GraphicsWindow.DrawLine(X[nCHIODI2+i ], DIM2, DIm2, X[nCHIODI-i+1 ]) ' SE Program.Delay(RITARDO) EndFor |
Cambia il numero di chiodini, lo spessore del filo, il colore del filo, …
|
1 2 3 4 5 6 |
... nCHIODI =100 ' Doppio ... GraphicsWindow.PenWidth=1 ' Metà GraphicsWindow.PenColor="#66ff0000" ' Rosso ... |
Colori casuali, semitrasparenti
Cerca con il motore di ricerca altre immagini simili e prova a realizzarle.
Parola chiave: “inviluppo”.
…
…