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…
'------------------------------------------------------------------- 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
'------------------------------------------------------------------------ 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, …
... 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”.
…
…