Vai al contenuto

Inviluppi – Unisci i punti…

  • Senza categoria

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”.

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.